90 lines
1.4 KiB
Mathematica
90 lines
1.4 KiB
Mathematica
VEPEREM2 ; RSL/DAOU - Computed findings for DOQIT extracts. ; 22 Jun 2005 9:10 AM
|
|
;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
|
|
;
|
|
;==========================================================
|
|
PC1(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.61 D PATREG^VEPEREX
|
|
Q
|
|
;
|
|
PC5(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.65 D PATREG^VEPEREX
|
|
Q
|
|
;
|
|
PC6(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.66 D PATREG^VEPEREX
|
|
Q
|
|
;
|
|
PC7(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.67 D PATREG^VEPEREX
|
|
Q
|
|
;
|
|
PC8(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.68 D PATREG^VEPEREX
|
|
Q
|
|
;
|
|
PC9(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.69 D PATREG^VEPEREX
|
|
Q
|
|
;
|
|
PC10(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.7 D PATREG^VEPEREX
|
|
Q
|
|
;
|
|
PC11(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.71 D PATREG^VEPEREX
|
|
Q
|
|
;
|
|
PC12(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.72 D PATREG^VEPEREX
|
|
Q
|
|
;
|
|
DM1(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.31 D PATREG^VEPEREX
|
|
Q
|
|
;
|
|
DM2(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.32 D PATREG^VEPEREX
|
|
Q
|
|
;
|
|
DM3(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.33 D PATREG^VEPEREX
|
|
Q
|
|
;
|
|
DM4(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.34 D PATREG^VEPEREX
|
|
Q
|
|
;
|
|
DM5(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.35 D PATREG^VEPEREX
|
|
Q
|
|
;
|
|
DM6(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.36 D PATREG^VEPEREX
|
|
Q
|
|
;
|
|
DM7(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.37 D PATREG^VEPEREX
|
|
Q
|
|
;
|
|
DM8(DFN,TEST,DATE,DATA,TEXT) ;
|
|
N FIELD
|
|
S FIELD=.38 D PATREG^VEPEREX
|
|
Q
|
|
;
|