| 1 | VEPEREM1 ; 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 | ;
|
|---|
| 7 | CAD1(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 8 | N FIELD
|
|---|
| 9 | S FIELD=.21 D PATREG^VEPEREX
|
|---|
| 10 | Q
|
|---|
| 11 | CAD2(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 12 | N FIELD
|
|---|
| 13 | S FIELD=.22 D PATREG^VEPEREX
|
|---|
| 14 | Q
|
|---|
| 15 | CAD3(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 16 | N FIELD
|
|---|
| 17 | S FIELD=.23 D PATREG^VEPEREX
|
|---|
| 18 | Q
|
|---|
| 19 | CAD4(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 20 | N FIELD
|
|---|
| 21 | S FIELD=.24 D PATREG^VEPEREX
|
|---|
| 22 | Q
|
|---|
| 23 | CAD5(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 24 | N FIELD
|
|---|
| 25 | S FIELD=.25 D PATREG^VEPEREX
|
|---|
| 26 | Q
|
|---|
| 27 | CAD6(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 28 | N FIELD
|
|---|
| 29 | S FIELD=.26 D PATREG^VEPEREX
|
|---|
| 30 | Q
|
|---|
| 31 | CAD7(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 32 | N FIELD
|
|---|
| 33 | S FIELD=.27 D PATREG^VEPEREX
|
|---|
| 34 | Q
|
|---|
| 35 | HF1(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 36 | N FIELD
|
|---|
| 37 | S FIELD=.51 D PATREG^VEPEREX
|
|---|
| 38 | Q
|
|---|
| 39 | HF2(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 40 | N FIELD
|
|---|
| 41 | S FIELD=.52 D PATREG^VEPEREX
|
|---|
| 42 | Q
|
|---|
| 43 | HF3(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 44 | N FIELD
|
|---|
| 45 | S FIELD=.53 D PATREG^VEPEREX
|
|---|
| 46 | Q
|
|---|
| 47 | HF4(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 48 | N FIELD
|
|---|
| 49 | S FIELD=.54 D PATREG^VEPEREX
|
|---|
| 50 | Q
|
|---|
| 51 | HF5(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 52 | N FIELD
|
|---|
| 53 | S FIELD=.55 D PATREG^VEPEREX
|
|---|
| 54 | Q
|
|---|
| 55 | HF6(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 56 | N FIELD
|
|---|
| 57 | S FIELD=.56 D PATREG^VEPEREX
|
|---|
| 58 | Q
|
|---|
| 59 | HF7(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 60 | N FIELD
|
|---|
| 61 | S FIELD=.57 D PATREG^VEPEREX
|
|---|
| 62 | Q
|
|---|
| 63 | HF8(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 64 | N FIELD
|
|---|
| 65 | S FIELD=.58 D PATREG^VEPEREX
|
|---|
| 66 | Q
|
|---|
| 67 | HTN1(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 68 | N FIELD
|
|---|
| 69 | S FIELD=.41 D PATREG^VEPEREX
|
|---|
| 70 | Q
|
|---|
| 71 | HTN2(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 72 | N FIELD
|
|---|
| 73 | S FIELD=.42 D PATREG^VEPEREX
|
|---|
| 74 | Q
|
|---|
| 75 | HTN3(DFN,TEST,DATE,DATA,TEXT) ;
|
|---|
| 76 | N FIELD
|
|---|
| 77 | S FIELD=.43 D PATREG^VEPEREX
|
|---|
| 78 | Q
|
|---|
