| 1 | PXRMP3I ; SLC/PKR - Patch 3 init routine. ;02/15/2005
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;**3**;Feb 04, 2005
|
|---|
| 3 | ;Reminder Exchange install.
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | ;===============================================================
|
|---|
| 7 | ARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install
|
|---|
| 8 | ;
|
|---|
| 9 | S ARRAY(1,1)="VA-MHV BMI > 25.0"
|
|---|
| 10 | I MODE S ARRAY(1,2)="04/01/2005@10:11:13"
|
|---|
| 11 | S ARRAY(2,1)="VA-MHV CERVICAL CANCER SCREEN"
|
|---|
| 12 | I MODE S ARRAY(2,2)="02/15/2005@08:47:44"
|
|---|
| 13 | S ARRAY(3,1)="VA-MHV COLORECTAL CANCER SCREEN"
|
|---|
| 14 | I MODE S ARRAY(3,2)="02/15/2005@08:48:07"
|
|---|
| 15 | S ARRAY(4,1)="VA-MHV DIABETES FOOT EXAM"
|
|---|
| 16 | I MODE S ARRAY(4,2)="02/15/2005@08:48:38"
|
|---|
| 17 | S ARRAY(5,1)="VA-MHV DIABETES HBA1C"
|
|---|
| 18 | I MODE S ARRAY(5,2)="02/15/2005@08:48:55"
|
|---|
| 19 | S ARRAY(6,1)="VA-MHV DIABETES RETINAL EXAM"
|
|---|
| 20 | I MODE S ARRAY(6,2)="02/15/2005@08:49:15"
|
|---|
| 21 | S ARRAY(7,1)="VA-MHV HYPERTENSION"
|
|---|
| 22 | I MODE S ARRAY(7,2)="02/15/2005@08:49:36"
|
|---|
| 23 | S ARRAY(8,1)="VA-MHV INFLUENZA VACCINE"
|
|---|
| 24 | I MODE S ARRAY(8,2)="02/15/2005@08:49:56"
|
|---|
| 25 | S ARRAY(9,1)="VA-MHV LDL CONTROL"
|
|---|
| 26 | I MODE S ARRAY(9,2)="03/01/2005@13:08:41"
|
|---|
| 27 | S ARRAY(10,1)="VA-MHV LIPID MEASUREMENT"
|
|---|
| 28 | I MODE S ARRAY(10,2)="03/01/2005@13:08:18"
|
|---|
| 29 | S ARRAY(11,1)="VA-MHV MAMMOGRAM SCREENING"
|
|---|
| 30 | I MODE S ARRAY(11,2)="03/01/2005@13:08:55"
|
|---|
| 31 | S ARRAY(12,1)="VA-MHV PNEUMOVAX"
|
|---|
| 32 | I MODE S ARRAY(12,2)="02/15/2005@08:51:39"
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | ;===============================================================
|
|---|
| 36 | DELEI ;If the Exchange File entry already exists delete it.
|
|---|
| 37 | N ARRAY,IC,IND,LIST,LUVALUE,NUM
|
|---|
| 38 | D ARRAY(1,.ARRAY)
|
|---|
| 39 | S IC=0
|
|---|
| 40 | F S IC=$O(ARRAY(IC)) Q:'IC D
|
|---|
| 41 | .S LUVALUE(1)=ARRAY(IC,1)
|
|---|
| 42 | .D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
|
|---|
| 43 | .I '$D(LIST) Q
|
|---|
| 44 | .S NUM=$P(LIST("DILIST",0),U,1)
|
|---|
| 45 | .I NUM'=0 D
|
|---|
| 46 | ..F IND=1:1:NUM D
|
|---|
| 47 | ... N DA,DIK
|
|---|
| 48 | ... S DIK="^PXD(811.8,"
|
|---|
| 49 | ... S DA=LIST("DILIST",2,IND)
|
|---|
| 50 | ... D ^DIK
|
|---|
| 51 | Q
|
|---|
| 52 | ;
|
|---|
| 53 | ;===============================================================
|
|---|
| 54 | EXFINC(Y) ;Return a 1 if the Exchange file entry is in the list to
|
|---|
| 55 | ;include in the build. This is used in the build to determine which
|
|---|
| 56 | ;entries to include.
|
|---|
| 57 | N ARRAY,FOUND,IEN,IC,LUVALUE
|
|---|
| 58 | D ARRAY(1,.ARRAY)
|
|---|
| 59 | S FOUND=0
|
|---|
| 60 | S IC=0
|
|---|
| 61 | F S IC=+$O(ARRAY(IC)) Q:(IC=0)!(FOUND) D
|
|---|
| 62 | . M LUVALUE=ARRAY(IC)
|
|---|
| 63 | . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
|
|---|
| 64 | . I IEN=Y S FOUND=1 Q
|
|---|
| 65 | Q FOUND
|
|---|
| 66 | ;
|
|---|
| 67 | PRE ;
|
|---|
| 68 | D DELEI
|
|---|
| 69 | Q
|
|---|
| 70 | POST ;
|
|---|
| 71 | D SMEXINS
|
|---|
| 72 | Q
|
|---|
| 73 | ;===============================================================
|
|---|
| 74 | SMEXINS ;Silent mode install.
|
|---|
| 75 | N ARRAY,IC,IEN,LUVALUE,PXRMINST
|
|---|
| 76 | S PXRMINST=1
|
|---|
| 77 | D ARRAY(1,.ARRAY)
|
|---|
| 78 | S IC=0
|
|---|
| 79 | F S IC=$O(ARRAY(IC)) Q:'IC D
|
|---|
| 80 | .M LUVALUE=ARRAY(IC)
|
|---|
| 81 | .S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
|
|---|
| 82 | .I IEN'=0 D
|
|---|
| 83 | .. N TEXT
|
|---|
| 84 | .. I LUVALUE(1)["PARAMETER" S TEXT="Installing entry "_LUVALUE(1)
|
|---|
| 85 | .. E S TEXT="Installing reminder "_LUVALUE(1)
|
|---|
| 86 | .. D BMES^XPDUTL(TEXT)
|
|---|
| 87 | .. D INSTALL^PXRMEXSI(IEN,1)
|
|---|
| 88 | Q
|
|---|
| 89 | ;
|
|---|
