Downloads Documentation Community
Contribute
Contribute Demo






Show Sidebar
Login | Register


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

Revision 5205, 5.2 kB (checked in by tmdugan, 5 months ago)

-- chica

* mlms translated from chica 1.0

Line 
1 Maintenance:
2         Title:          Drug Abuse  Alcohol High Risk PWS;;
3         Filename:               Alcohol_High_RiskPWS;;
4         Version:        1.0;;
5         Institution:    Indiana University School of Medicine;;
6         Author:         Aaron E. Carroll;;
7         Specialist:     Pediatrics;;
8         Date:           2004-05-26T09:09:59-0400;;
9         Validation:     ;;
10 Library:
11         Purpose:                High risk PWS for alcohol use.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ;;
12         Explanation:    Most adolescents will use alcohol or other drugs before age 21.                                                                                                                                                                                                                                                                                                                                                                                                                                                     ;;
13         Keywords:       GAPS, adolescent, drugs, alcohol, PWS;;
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 drunk := read Last {drunk_last_month from CHICA} Where it Occurred Within Past 365 Days;
30 activity := read Last {drunk_and_activity from CHICA} Where it Occurred Within Past 365 Days;
31 driven := read Last {driven_with_drunk from CHICA} Where it Occurred Within Past 365 Days;
32 family := read Last {family_substance_abuse from CHICA} Where it Occurred Within Past 365 Days;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           
33 endif
34 ;;
35 Priority:               210;;
36         Evoke:          ;;
37 Logic:
38 If (mode = PRODUCE) then
39
40 If (family = yes) then || RF4 || = "has a family member with a substance abuse problem, ";
41 If (drunk = yes) then || RF2 || = "has been drunk in the last month, ";
42 If (activity = yes) then || RF1 || = "has engaged in a risky activity while drunk, ";
43 If (driven = yes) then || RF3 || = "has driven in a car with someone drunk.";
44 If (drunk = yes) OR (activity = yes) OR (driven = yes) then conclude True;
45 conclude False;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         
46
47 endif
48
49 ;;
50 Action:
51 write ("|| firstname || is at high risk for alcohol abuse, due to the following risk factors:  || firstname || || RF1 |||| RF2 |||| RF3 |||| RF4 || Counsel them appropriately, and please address the following:");                                                                                       
52 write ("Mild concern ->");
53 write ("give counseling");
54 write ("Moderate/High concern ->");
55 write ("crisis line 630-7791");
56 write ("No concerns for now");
57 write ("");
58 ;;
59 Age_Min: 11 years;;
60 Age_Max: 21 years;;
61 end:
Note: See TracBrowser for help on using the browser.