- PXRMP11E ; SLC/PKR - Exchange inits for PXRM*2.0*11 ;09/26/2008
- ;;2.0;CLINICAL REMINDERS;**11**;Feb 04, 2005;Build 39
- Q
- ;=======================================================
- DELEXI ;If the Exchange File entry already exists delete it.
- N ARRAY,IC,IND,LIST,LUVALUE,NUM
- D EXARRAY^PXRMP11E("L",.ARRAY)
- S IC=0
- F S IC=$O(ARRAY(IC)) Q:'IC D
- . S LUVALUE(1)=ARRAY(IC,1)
- . D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
- . I '$D(LIST) Q
- . S NUM=$P(LIST("DILIST",0),U,1)
- . I NUM'=0 D
- .. F IND=1:1:NUM D
- ... N DA,DIK
- ... S DIK="^PXD(811.8,"
- ... S DA=LIST("DILIST",2,IND)
- ... D ^DIK
- Q
- ;
- ;====================================================
- EXARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install
- ;MODE values: I for include in build, A for include action.
- N LN
- S LN=0
- ;
- S LN=LN+1
- S ARRAY(LN,1)="PATCH 11 LOCATION LIST"
- I MODE["I" S ARRAY(LN,2)="09/22/2008@11:16:04"
- I MODE["A" S ARRAY(LN,3)="I"
- ;This version compatible with SD*5.3*537, not needed anymore.
- I MODE["L" D
- . S LN=LN+1
- . S ARRAY(LN,1)="PATCH 11 LOCATION LIST (SD)"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-ALCOHOL AUDIT-C POSITIVE F/U EVAL"
- I MODE["I" S ARRAY(LN,2)="09/22/2008@11:16:16"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-ALCOHOL USE SCREEN (AUDIT-C)"
- I MODE["I" S ARRAY(LN,2)="07/09/2008@11:51:46"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-BL OEF/OIF EMBEDDED FRAGMENTS"
- I MODE["I" S ARRAY(LN,2)="09/15/2008@13:30:58"
- I MODE["A" S ARRAY(LN,3)="O"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-BL OEF/OIF FEVER"
- I MODE["I" S ARRAY(LN,2)="06/30/2008@09:09:10"
- I MODE["A" S ARRAY(LN,3)="O"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-BL OEF/OIF GI SX"
- I MODE["I" S ARRAY(LN,2)="06/30/2008@09:09:53"
- I MODE["A" S ARRAY(LN,3)="O"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-BL OEF/OIF SKIN SX"
- I MODE["I" S ARRAY(LN,2)="06/30/2008@09:10:15"
- I MODE["A" S ARRAY(LN,3)="O"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-CV ELIG W/HF FOR NO SERVICE"
- I MODE["I" S ARRAY(LN,2)="09/25/2008@13:56:32"
- I MODE["A" S ARRAY(LN,3)="O"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-CV INELG W/HF FOR SERVICE"
- I MODE["I" S ARRAY(LN,2)="09/25/2008@13:56:09"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-DEPRESSION SCREENING"
- I MODE["I" S ARRAY(LN,2)="09/25/2008@11:48:34"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-IRAQ & AFGHAN POST-DEPLOY SCREEN"
- I MODE["I" S ARRAY(LN,2)="08/06/2008@15:16:29"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-MHV BMI > 25.0"
- I MODE["I" S ARRAY(LN,2)="09/11/2008@13:21:53"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-MHV CERVICAL CANCER SCREEN"
- I MODE["I" S ARRAY(LN,2)="07/31/2008@12:12:30"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-MHV COLORECTAL CANCER SCREEN"
- I MODE["I" S ARRAY(LN,2)="07/28/2008@10:56:37"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-MHV DIABETES FOOT EXAM"
- I MODE["I" S ARRAY(LN,2)="07/01/2008@15:10:54"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-MHV DIABETES RETINAL EXAM"
- I MODE["I" S ARRAY(LN,2)="08/20/2008@09:55:06"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-MHV HYPERTENSION"
- I MODE["I" S ARRAY(LN,2)="07/01/2008@15:08:56"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-MHV INFLUENZA VACCINE"
- I MODE["I" S ARRAY(LN,2)="07/28/2008@10:56:58"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-MHV LDL CONTROL"
- I MODE["I" S ARRAY(LN,2)="07/28/2008@10:57:07"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-MHV MAMMOGRAM SCREENING"
- I MODE["I" S ARRAY(LN,2)="08/20/2008@11:25:06"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-MHV PNEUMOVAX"
- I MODE["I" S ARRAY(LN,2)="07/28/2008@10:57:48"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-OEF/OIF MONITOR REPORTING"
- I MODE["I" S ARRAY(LN,2)="09/25/2008@09:07:55"
- I MODE["A" S ARRAY(LN,3)="I"
- ;This version compatible with SD*5.3*537, not needed anymore.
- I MODE["L" D
- . S LN=LN+1
- . S ARRAY(LN,1)="VA-OEF/OIF MONITOR REPORTING (SD)"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-PTSD SCREENING"
- I MODE["I" S ARRAY(LN,2)="08/06/2008@15:16:03"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="VA-TBI SCREENING"
- I MODE["I" S ARRAY(LN,2)="08/26/2008@10:31:02"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- S LN=LN+1
- S ARRAY(LN,1)="PATCH 11 ITEMS"
- I MODE["I" S ARRAY(LN,2)="08/14/2008@09:29:40"
- I MODE["A" S ARRAY(LN,3)="O"
- ;
- ;This version compatible with SD*5.3*537, not needed anymore.
- I MODE["L" D
- . S LN=LN+1
- . S ARRAY(LN,1)="PATCH 11 ITEMS (SD)"
- ;
- I MODE="IA" D BMES^XPDUTL("There are "_LN_" Reminder Exchange entries to be installed.")
- Q
- ;
- ;==========================================
- EXFINC(Y) ;Return a 1 if the Exchange file entry is in the list to
- ;include in the build. This is used in the build to determine which
- ;entries to include.
- N EXARRAY,FOUND,IEN,IC,LUVALUE
- D EXARRAY^PXRMP11E("I",.EXARRAY)
- S FOUND=0
- S IC=0
- F S IC=+$O(EXARRAY(IC)) Q:(IC=0)!(FOUND) D
- . M LUVALUE=EXARRAY(IC)
- . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
- . I IEN=Y S FOUND=1 Q
- Q FOUND
- ;
- ;==========================================
- SMEXINS ;Silent mode install.
- N ACTION,EXARRAY,IC,IEN,LUVALUE,PXRMINST,TEXT
- S PXRMINST=1
- D EXARRAY^PXRMP11E("IA",.EXARRAY)
- S IC=0
- F S IC=$O(EXARRAY(IC)) Q:'IC D
- . S LUVALUE(1)=EXARRAY(IC,1),LUVALUE(2)=EXARRAY(IC,2)
- . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
- . I IEN=0 Q
- . S TEXT="Installing Reminder Exchange entry "_LUVALUE(1)
- . D BMES^XPDUTL(TEXT)
- . S ACTION=EXARRAY(IC,3)
- . D INSTALL^PXRMEXSI(IEN,ACTION,1)
- Q
- ;
- PXRMP11E ; SLC/PKR - Exchange inits for PXRM*2.0*11 ;09/26/2008
- +1 ;;2.0;CLINICAL REMINDERS;**11**;Feb 04, 2005;Build 39
- +2 QUIT
- +3 ;=======================================================
- DELEXI ;If the Exchange File entry already exists delete it.
- +1 NEW ARRAY,IC,IND,LIST,LUVALUE,NUM
- +2 DO EXARRAY^PXRMP11E("L",.ARRAY)
- +3 SET IC=0
- +4 FOR
- SET IC=$ORDER(ARRAY(IC))
- IF 'IC
- QUIT
- Begin DoDot:1
- +5 SET LUVALUE(1)=ARRAY(IC,1)
- +6 DO FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
- +7 IF '$DATA(LIST)
- QUIT
- +8 SET NUM=$PIECE(LIST("DILIST",0),U,1)
- +9 IF NUM'=0
- Begin DoDot:2
- +10 FOR IND=1:1:NUM
- Begin DoDot:3
- +11 NEW DA,DIK
- +12 SET DIK="^PXD(811.8,"
- +13 SET DA=LIST("DILIST",2,IND)
- +14 DO ^DIK
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +15 QUIT
- +16 ;
- +17 ;====================================================
- EXARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install
- +1 ;MODE values: I for include in build, A for include action.
- +2 NEW LN
- +3 SET LN=0
- +4 ;
- +5 SET LN=LN+1
- +6 SET ARRAY(LN,1)="PATCH 11 LOCATION LIST"
- +7 IF MODE["I"
- SET ARRAY(LN,2)="09/22/2008@11:16:04"
- +8 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +9 ;This version compatible with SD*5.3*537, not needed anymore.
- +10 IF MODE["L"
- Begin DoDot:1
- +11 SET LN=LN+1
- +12 SET ARRAY(LN,1)="PATCH 11 LOCATION LIST (SD)"
- End DoDot:1
- +13 ;
- +14 SET LN=LN+1
- +15 SET ARRAY(LN,1)="VA-ALCOHOL AUDIT-C POSITIVE F/U EVAL"
- +16 IF MODE["I"
- SET ARRAY(LN,2)="09/22/2008@11:16:16"
- +17 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +18 ;
- +19 SET LN=LN+1
- +20 SET ARRAY(LN,1)="VA-ALCOHOL USE SCREEN (AUDIT-C)"
- +21 IF MODE["I"
- SET ARRAY(LN,2)="07/09/2008@11:51:46"
- +22 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +23 ;
- +24 SET LN=LN+1
- +25 SET ARRAY(LN,1)="VA-BL OEF/OIF EMBEDDED FRAGMENTS"
- +26 IF MODE["I"
- SET ARRAY(LN,2)="09/15/2008@13:30:58"
- +27 IF MODE["A"
- SET ARRAY(LN,3)="O"
- +28 ;
- +29 SET LN=LN+1
- +30 SET ARRAY(LN,1)="VA-BL OEF/OIF FEVER"
- +31 IF MODE["I"
- SET ARRAY(LN,2)="06/30/2008@09:09:10"
- +32 IF MODE["A"
- SET ARRAY(LN,3)="O"
- +33 ;
- +34 SET LN=LN+1
- +35 SET ARRAY(LN,1)="VA-BL OEF/OIF GI SX"
- +36 IF MODE["I"
- SET ARRAY(LN,2)="06/30/2008@09:09:53"
- +37 IF MODE["A"
- SET ARRAY(LN,3)="O"
- +38 ;
- +39 SET LN=LN+1
- +40 SET ARRAY(LN,1)="VA-BL OEF/OIF SKIN SX"
- +41 IF MODE["I"
- SET ARRAY(LN,2)="06/30/2008@09:10:15"
- +42 IF MODE["A"
- SET ARRAY(LN,3)="O"
- +43 ;
- +44 SET LN=LN+1
- +45 SET ARRAY(LN,1)="VA-CV ELIG W/HF FOR NO SERVICE"
- +46 IF MODE["I"
- SET ARRAY(LN,2)="09/25/2008@13:56:32"
- +47 IF MODE["A"
- SET ARRAY(LN,3)="O"
- +48 ;
- +49 SET LN=LN+1
- +50 SET ARRAY(LN,1)="VA-CV INELG W/HF FOR SERVICE"
- +51 IF MODE["I"
- SET ARRAY(LN,2)="09/25/2008@13:56:09"
- +52 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +53 ;
- +54 SET LN=LN+1
- +55 SET ARRAY(LN,1)="VA-DEPRESSION SCREENING"
- +56 IF MODE["I"
- SET ARRAY(LN,2)="09/25/2008@11:48:34"
- +57 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +58 ;
- +59 SET LN=LN+1
- +60 SET ARRAY(LN,1)="VA-IRAQ & AFGHAN POST-DEPLOY SCREEN"
- +61 IF MODE["I"
- SET ARRAY(LN,2)="08/06/2008@15:16:29"
- +62 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +63 ;
- +64 SET LN=LN+1
- +65 SET ARRAY(LN,1)="VA-MHV BMI > 25.0"
- +66 IF MODE["I"
- SET ARRAY(LN,2)="09/11/2008@13:21:53"
- +67 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +68 ;
- +69 SET LN=LN+1
- +70 SET ARRAY(LN,1)="VA-MHV CERVICAL CANCER SCREEN"
- +71 IF MODE["I"
- SET ARRAY(LN,2)="07/31/2008@12:12:30"
- +72 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +73 ;
- +74 SET LN=LN+1
- +75 SET ARRAY(LN,1)="VA-MHV COLORECTAL CANCER SCREEN"
- +76 IF MODE["I"
- SET ARRAY(LN,2)="07/28/2008@10:56:37"
- +77 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +78 ;
- +79 SET LN=LN+1
- +80 SET ARRAY(LN,1)="VA-MHV DIABETES FOOT EXAM"
- +81 IF MODE["I"
- SET ARRAY(LN,2)="07/01/2008@15:10:54"
- +82 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +83 ;
- +84 SET LN=LN+1
- +85 SET ARRAY(LN,1)="VA-MHV DIABETES RETINAL EXAM"
- +86 IF MODE["I"
- SET ARRAY(LN,2)="08/20/2008@09:55:06"
- +87 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +88 ;
- +89 SET LN=LN+1
- +90 SET ARRAY(LN,1)="VA-MHV HYPERTENSION"
- +91 IF MODE["I"
- SET ARRAY(LN,2)="07/01/2008@15:08:56"
- +92 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +93 ;
- +94 SET LN=LN+1
- +95 SET ARRAY(LN,1)="VA-MHV INFLUENZA VACCINE"
- +96 IF MODE["I"
- SET ARRAY(LN,2)="07/28/2008@10:56:58"
- +97 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +98 ;
- +99 SET LN=LN+1
- +100 SET ARRAY(LN,1)="VA-MHV LDL CONTROL"
- +101 IF MODE["I"
- SET ARRAY(LN,2)="07/28/2008@10:57:07"
- +102 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +103 ;
- +104 SET LN=LN+1
- +105 SET ARRAY(LN,1)="VA-MHV MAMMOGRAM SCREENING"
- +106 IF MODE["I"
- SET ARRAY(LN,2)="08/20/2008@11:25:06"
- +107 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +108 ;
- +109 SET LN=LN+1
- +110 SET ARRAY(LN,1)="VA-MHV PNEUMOVAX"
- +111 IF MODE["I"
- SET ARRAY(LN,2)="07/28/2008@10:57:48"
- +112 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +113 ;
- +114 SET LN=LN+1
- +115 SET ARRAY(LN,1)="VA-OEF/OIF MONITOR REPORTING"
- +116 IF MODE["I"
- SET ARRAY(LN,2)="09/25/2008@09:07:55"
- +117 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +118 ;This version compatible with SD*5.3*537, not needed anymore.
- +119 IF MODE["L"
- Begin DoDot:1
- +120 SET LN=LN+1
- +121 SET ARRAY(LN,1)="VA-OEF/OIF MONITOR REPORTING (SD)"
- End DoDot:1
- +122 ;
- +123 SET LN=LN+1
- +124 SET ARRAY(LN,1)="VA-PTSD SCREENING"
- +125 IF MODE["I"
- SET ARRAY(LN,2)="08/06/2008@15:16:03"
- +126 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +127 ;
- +128 SET LN=LN+1
- +129 SET ARRAY(LN,1)="VA-TBI SCREENING"
- +130 IF MODE["I"
- SET ARRAY(LN,2)="08/26/2008@10:31:02"
- +131 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +132 ;
- +133 SET LN=LN+1
- +134 SET ARRAY(LN,1)="PATCH 11 ITEMS"
- +135 IF MODE["I"
- SET ARRAY(LN,2)="08/14/2008@09:29:40"
- +136 IF MODE["A"
- SET ARRAY(LN,3)="O"
- +137 ;
- +138 ;This version compatible with SD*5.3*537, not needed anymore.
- +139 IF MODE["L"
- Begin DoDot:1
- +140 SET LN=LN+1
- +141 SET ARRAY(LN,1)="PATCH 11 ITEMS (SD)"
- End DoDot:1
- +142 ;
- +143 IF MODE="IA"
- DO BMES^XPDUTL("There are "_LN_" Reminder Exchange entries to be installed.")
- +144 QUIT
- +145 ;
- +146 ;==========================================
- EXFINC(Y) ;Return a 1 if the Exchange file entry is in the list to
- +1 ;include in the build. This is used in the build to determine which
- +2 ;entries to include.
- +3 NEW EXARRAY,FOUND,IEN,IC,LUVALUE
- +4 DO EXARRAY^PXRMP11E("I",.EXARRAY)
- +5 SET FOUND=0
- +6 SET IC=0
- +7 FOR
- SET IC=+$ORDER(EXARRAY(IC))
- IF (IC=0)!(FOUND)
- QUIT
- Begin DoDot:1
- +8 MERGE LUVALUE=EXARRAY(IC)
- +9 SET IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
- +10 IF IEN=Y
- SET FOUND=1
- QUIT
- End DoDot:1
- +11 QUIT FOUND
- +12 ;
- +13 ;==========================================
- SMEXINS ;Silent mode install.
- +1 NEW ACTION,EXARRAY,IC,IEN,LUVALUE,PXRMINST,TEXT
- +2 SET PXRMINST=1
- +3 DO EXARRAY^PXRMP11E("IA",.EXARRAY)
- +4 SET IC=0
- +5 FOR
- SET IC=$ORDER(EXARRAY(IC))
- IF 'IC
- QUIT
- Begin DoDot:1
- +6 SET LUVALUE(1)=EXARRAY(IC,1)
- SET LUVALUE(2)=EXARRAY(IC,2)
- +7 SET IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
- +8 IF IEN=0
- QUIT
- +9 SET TEXT="Installing Reminder Exchange entry "_LUVALUE(1)
- +10 DO BMES^XPDUTL(TEXT)
- +11 SET ACTION=EXARRAY(IC,3)
- +12 DO INSTALL^PXRMEXSI(IEN,ACTION,1)
- End DoDot:1
- +13 QUIT
- +14 ;