|
Revision 5334, 4.1 kB
(checked in by tmdugan, 5 months ago)
|
-- chica
* updated some chica rules
|
| Line | |
|---|
| 1 |
Maintenance: |
|---|
| 2 |
Title: Growth Abnormal Body Mass Index %ile PWS Flag;; |
|---|
| 3 |
Filename: BMIPWSFLAG;; |
|---|
| 4 |
Version: 1.0;; |
|---|
| 5 |
Institution: Indiana University School of Medicine;; |
|---|
| 6 |
Author: Paul Biondich;; |
|---|
| 7 |
Specialist: Pediatrics;; |
|---|
| 8 |
Date: 2003-12-17T10:13:59-0500;; |
|---|
| 9 |
Validation: ;; |
|---|
| 10 |
Library: |
|---|
| 11 |
Purpose: Flags BMI as being abnormal on PWS. ;; |
|---|
| 12 |
Explanation: Abnormal criteria are less than the 5th percentile and greater than the 95th percentile for age. ;; |
|---|
| 13 |
Keywords: PWS, vitalflag, growth;; |
|---|
| 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 |
pcile := read Last {BMICentile from CHICA} Where it Occurred Within Past 7 Days; |
|---|
| 30 |
endif |
|---|
| 31 |
;; |
|---|
| 32 |
Priority: ;; |
|---|
| 33 |
Evoke: ;; |
|---|
| 34 |
Logic: |
|---|
| 35 |
If (mode = PRODUCE) then |
|---|
| 36 |
|
|---|
| 37 |
If (pcile < 5) OR (pcile > 95) then conclude True; |
|---|
| 38 |
|
|---|
| 39 |
endif |
|---|
| 40 |
|
|---|
| 41 |
;; |
|---|
| 42 |
Action: |
|---|
| 43 |
write ("*") At BMIA; |
|---|
| 44 |
write (""); |
|---|
| 45 |
write (""); |
|---|
| 46 |
write (""); |
|---|
| 47 |
write (""); |
|---|
| 48 |
write (""); |
|---|
| 49 |
write (""); |
|---|
| 50 |
;; |
|---|
| 51 |
Age_Min: 1 days;; |
|---|
| 52 |
Age_Max: 21 years;; |
|---|
| 53 |
end: |
|---|