source: WorldVistAEHR/trunk/r/VISTA_OFFICE_EHR-VEPE/VEPEREM1.m@ 1000

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1VEPEREM1 ; MRM/DAOU - Computed findings for DOQIT extracts. ; 6/21/05 11:59am
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;
4 ;==========================================================
5 ;This routine contains the computed findings for DOQ-IT reminders
6 ;
7CAD1(DFN,TEST,DATE,DATA,TEXT) ;
8 N FIELD
9 S FIELD=.21 D PATREG^VEPEREX
10 Q
11CAD2(DFN,TEST,DATE,DATA,TEXT) ;
12 N FIELD
13 S FIELD=.22 D PATREG^VEPEREX
14 Q
15CAD3(DFN,TEST,DATE,DATA,TEXT) ;
16 N FIELD
17 S FIELD=.23 D PATREG^VEPEREX
18 Q
19CAD4(DFN,TEST,DATE,DATA,TEXT) ;
20 N FIELD
21 S FIELD=.24 D PATREG^VEPEREX
22 Q
23CAD5(DFN,TEST,DATE,DATA,TEXT) ;
24 N FIELD
25 S FIELD=.25 D PATREG^VEPEREX
26 Q
27CAD6(DFN,TEST,DATE,DATA,TEXT) ;
28 N FIELD
29 S FIELD=.26 D PATREG^VEPEREX
30 Q
31CAD7(DFN,TEST,DATE,DATA,TEXT) ;
32 N FIELD
33 S FIELD=.27 D PATREG^VEPEREX
34 Q
35HF1(DFN,TEST,DATE,DATA,TEXT) ;
36 N FIELD
37 S FIELD=.51 D PATREG^VEPEREX
38 Q
39HF2(DFN,TEST,DATE,DATA,TEXT) ;
40 N FIELD
41 S FIELD=.52 D PATREG^VEPEREX
42 Q
43HF3(DFN,TEST,DATE,DATA,TEXT) ;
44 N FIELD
45 S FIELD=.53 D PATREG^VEPEREX
46 Q
47HF4(DFN,TEST,DATE,DATA,TEXT) ;
48 N FIELD
49 S FIELD=.54 D PATREG^VEPEREX
50 Q
51HF5(DFN,TEST,DATE,DATA,TEXT) ;
52 N FIELD
53 S FIELD=.55 D PATREG^VEPEREX
54 Q
55HF6(DFN,TEST,DATE,DATA,TEXT) ;
56 N FIELD
57 S FIELD=.56 D PATREG^VEPEREX
58 Q
59HF7(DFN,TEST,DATE,DATA,TEXT) ;
60 N FIELD
61 S FIELD=.57 D PATREG^VEPEREX
62 Q
63HF8(DFN,TEST,DATE,DATA,TEXT) ;
64 N FIELD
65 S FIELD=.58 D PATREG^VEPEREX
66 Q
67HTN1(DFN,TEST,DATE,DATA,TEXT) ;
68 N FIELD
69 S FIELD=.41 D PATREG^VEPEREX
70 Q
71HTN2(DFN,TEST,DATE,DATA,TEXT) ;
72 N FIELD
73 S FIELD=.42 D PATREG^VEPEREX
74 Q
75HTN3(DFN,TEST,DATE,DATA,TEXT) ;
76 N FIELD
77 S FIELD=.43 D PATREG^VEPEREX
78 Q
Note: See TracBrowser for help on using the repository browser.