Downloads Documentation Community
Contribute
Contribute Demo






Show Sidebar
Login | Register


root/openmrs-modules/chica/ruleLibrary/AssessReadyToQuitPWS.mlm

Revision 5847, 2.1 kB (checked in by tmdugan, 2 months ago)

-- chica

* fixed an incorrectly written mlm

Line 
1 Maintenance:
2         Title:          Assess Ready To Quit PWS;;
3         Filename:               AssessReadyToQuitPWS;;
4         Version:        1.0;;
5         Institution:    Indiana University School of Medicine;;
6         Author:         Vivienne Zhu;;
7         Specialist:     Pediatrics;;
8         Date:           2008-02-08 11:17:00;;
9         Validation:     ;;
10 Library:
11         Purpose:                Assess the readiness to quit;;
12         Explanation:    ;;
13         Keywords:       Environmental smoking, smoking cessation, parental smoking;;
14         Citations:              ;;
15         Links:          ;;
16 Knowledge:
17         Type:           data_driven;;
18 Data:
19
20 mode:=read {mode from Parameters};
21 Box1:=read {box1 from Parameters};
22 Box2:=read {box2 from Parameters};
23 Box3:=read {box3 from Parameters};
24 Box4:=read {box4 from Parameters};
25 Box5:=read {box5 from Parameters};
26 Box6:=read {box6 from Parameters};
27
28 If (mode = PRODUCE) then
29 smokerL := read Last {any_household_members_smoke  from CHICA};
30 arm := read Last {smoking_study_arm from CHICA};
31 endif
32 ;;
33 Priority:               520;;
34         Evoke:          ;;
35 Logic:
36 If (mode = PRODUCE) then
37
38 If (arm = NULL) then conclude False;
39 If (arm = Control) then conclude False;
40 If (smokerL = yes) then conclude True;
41 conclude False;
42
43 endif
44
45 If (mode = CONSUME) then
46
47 If  (Box1=true) then
48  CALL storeObs With "any_household_members_smoke","yes_ready_to_quit";
49 endif;
50 If  (Box2=true) then
51  CALL storeObs With "referral","Wishard quit smoking program 855-2255";
52 endif;
53 If  (Box3=true) then
54  CALL storeObs With "any_household_members_smoke","yes_not_ready_to_quit";
55 endif;
56 If  (Box4=true) then
57  CALL storeObs With "counseling topic", "Environmental tobacco smoke risks to child";
58 endif;
59 If  (Box5=true) then
60  CALL storeObs With "any_household_members_smoke","no";
61 endif;
62 If (Box6=true) then
63  CALL storeObs With "counseling topic", "Cost and risks of smoking";
64 endif;
65
66
67 endif
68 ;;
69 Action:
70 write ("|| firstname || is reportedly exposed to tobacco smoke at home, which increases the risk of otitis, pneumonia, hospitalization, SIDS? To help the smoker quit, assess motivation.");
71 write ("Ready to quit");
72 write ("Wishard quit smoking program 855-2255");
73 write ("Not ready");
74 write ("Review risks to child");
75 write ("No smoker in home");
76 write ("Cost and risks to parent");
77 ;;
78 Age_Min: 0 days;;
79 Age_Max: 11 years;;
80 end:
Note: See TracBrowser for help on using the browser.