source: WorldVistAEHR/trunk/r/VISTA_OFFICE_EHR-VEPE/VEPEREM2.m@ 949

Last change on this file since 949 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1VEPEREM2 ; RSL/DAOU - Computed findings for DOQIT extracts. ; 22 Jun 2005 9:10 AM
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;
4 ;==========================================================
5PC1(DFN,TEST,DATE,DATA,TEXT) ;
6 N FIELD
7 S FIELD=.61 D PATREG^VEPEREX
8 Q
9 ;
10PC5(DFN,TEST,DATE,DATA,TEXT) ;
11 N FIELD
12 S FIELD=.65 D PATREG^VEPEREX
13 Q
14 ;
15PC6(DFN,TEST,DATE,DATA,TEXT) ;
16 N FIELD
17 S FIELD=.66 D PATREG^VEPEREX
18 Q
19 ;
20PC7(DFN,TEST,DATE,DATA,TEXT) ;
21 N FIELD
22 S FIELD=.67 D PATREG^VEPEREX
23 Q
24 ;
25PC8(DFN,TEST,DATE,DATA,TEXT) ;
26 N FIELD
27 S FIELD=.68 D PATREG^VEPEREX
28 Q
29 ;
30PC9(DFN,TEST,DATE,DATA,TEXT) ;
31 N FIELD
32 S FIELD=.69 D PATREG^VEPEREX
33 Q
34 ;
35PC10(DFN,TEST,DATE,DATA,TEXT) ;
36 N FIELD
37 S FIELD=.7 D PATREG^VEPEREX
38 Q
39 ;
40PC11(DFN,TEST,DATE,DATA,TEXT) ;
41 N FIELD
42 S FIELD=.71 D PATREG^VEPEREX
43 Q
44 ;
45PC12(DFN,TEST,DATE,DATA,TEXT) ;
46 N FIELD
47 S FIELD=.72 D PATREG^VEPEREX
48 Q
49 ;
50DM1(DFN,TEST,DATE,DATA,TEXT) ;
51 N FIELD
52 S FIELD=.31 D PATREG^VEPEREX
53 Q
54 ;
55DM2(DFN,TEST,DATE,DATA,TEXT) ;
56 N FIELD
57 S FIELD=.32 D PATREG^VEPEREX
58 Q
59 ;
60DM3(DFN,TEST,DATE,DATA,TEXT) ;
61 N FIELD
62 S FIELD=.33 D PATREG^VEPEREX
63 Q
64 ;
65DM4(DFN,TEST,DATE,DATA,TEXT) ;
66 N FIELD
67 S FIELD=.34 D PATREG^VEPEREX
68 Q
69 ;
70DM5(DFN,TEST,DATE,DATA,TEXT) ;
71 N FIELD
72 S FIELD=.35 D PATREG^VEPEREX
73 Q
74 ;
75DM6(DFN,TEST,DATE,DATA,TEXT) ;
76 N FIELD
77 S FIELD=.36 D PATREG^VEPEREX
78 Q
79 ;
80DM7(DFN,TEST,DATE,DATA,TEXT) ;
81 N FIELD
82 S FIELD=.37 D PATREG^VEPEREX
83 Q
84 ;
85DM8(DFN,TEST,DATE,DATA,TEXT) ;
86 N FIELD
87 S FIELD=.38 D PATREG^VEPEREX
88 Q
89 ;
Note: See TracBrowser for help on using the repository browser.