Code |
N CNT,DT1,DT2 S CNT=0 I $G(F1)>0 D . I $G(F2)="",F1["." S DT1=$P(F1,".",1)_"."_$E($P(F1,".",2),1,4) . E S DT1=F1 E S DT1=1 S DT2=$S($G(F2)>0:F2,DT1>1:DT1,1:9999998) D VITAL("TEMPERATURE","T",DFN,.ORY,.CNT,DT1,DT2) D VITAL("PULSE","P",DFN,.ORY,.CNT,DT1,DT2) D VITAL("RESPIRATION","R",DFN,.ORY,.CNT,DT1,DT2) D VITAL("BLOOD PRESSURE","BP",DFN,.ORY,.CNT,DT1,DT2) D VITAL("HEIGHT","HT",DFN,.ORY,.CNT,DT1,DT2) D VITAL("WEIGHT","WT",DFN,.ORY,.CNT,DT1,DT2) D VITAL("PAIN","PN",DFN,.ORY,.CNT,DT1,DT2) ;dee 2/11/99 D VITAL("PULSE OXIMETRY","PO2",DFN,.ORY,.CNT,DT1,DT2) D VITAL("CENTRAL VENOUS PRESSURE","CVP",DFN,.ORY,.CNT,DT1,DT2) D VITAL("CIRCUMFERENCE/GIRTH","CG",DFN,.ORY,.CNT,DT1,DT2) D VITAL("BODY MASS INDEX","BMI",DFN,.ORY,.CNT,DT1,DT2)
|