Downloads Documentation Community
Contribute
Contribute Demo






Show Sidebar
Login | Register


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

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

-- chica

* mlms translated from chica 1.0

Line 
1 Maintenance:
2         Title:          Car Safety Seat Inspection PWS;;
3         Filename:               CARSAFETYINSPECTPWS;;
4         Version:        1.0;;
5         Institution:    Indiana University School of Medicine;;
6         Author:         Paul Biondich;;
7         Specialist:     Pediatrics;;
8         Date:           2003-10-15T02:53:08-0400;;
9         Validation:     ;;
10 Library:
11         Purpose:                PWS prompt to alert practitioners when parents have yet to obtain a car safety seat installation inspection.  Provides the practitioner with information to pass on to parents if interested.                                                                                                                                                                                                                                                                                                                       ;;
12         Explanation:                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ;;
13         Keywords:       PWS, injury, car safety;;
14         Citations:              Pediatrics, Nov 2000; 106: 1113 - 1116.;;
15         Links:          http://www.aap.org/family/carseatguide.htm;;
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 cis := read Last {Car_Seat_Inspection from CHICA} Where it Occurred Within Past 4 Years;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
30 endif
31 ;;
32 Priority:               630;;
33         Evoke:          ;;
34 Logic:
35 If (mode = PRODUCE) then
36
37 If (cis = Yes) then conclude False;
38 conclude True;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         
39
40 endif
41
42 ;;
43 Action:
44 write ("|| firstname ||'s parents have not confirmed that they have received a car safety seat installation inspection, which is recommended by the AAP.  Parents can call the Car Seat Safety Program at (317) 274-2977.");                                                                               
45 write ("Parent was interested in info->");
46 write ("Provided contact information");
47 write ("");
48 write ("Provided brochure");
49 write ("Parent not interested in info");
50 write ("");
51 ;;
52 Age_Min: 0 days;;
53 Age_Max: 4 years;;
54 end:
Note: See TracBrowser for help on using the browser.