Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXRMP11E

PXRMP11E.m

Go to the documentation of this file.
  1. PXRMP11E ; SLC/PKR - Exchange inits for PXRM*2.0*11 ;09/26/2008
  1. ;;2.0;CLINICAL REMINDERS;**11**;Feb 04, 2005;Build 39
  1. Q
  1. ;=======================================================
  1. DELEXI ;If the Exchange File entry already exists delete it.
  1. N ARRAY,IC,IND,LIST,LUVALUE,NUM
  1. D EXARRAY^PXRMP11E("L",.ARRAY)
  1. S IC=0
  1. F S IC=$O(ARRAY(IC)) Q:'IC D
  1. . S LUVALUE(1)=ARRAY(IC,1)
  1. . D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
  1. . I '$D(LIST) Q
  1. . S NUM=$P(LIST("DILIST",0),U,1)
  1. . I NUM'=0 D
  1. .. F IND=1:1:NUM D
  1. ... N DA,DIK
  1. ... S DIK="^PXD(811.8,"
  1. ... S DA=LIST("DILIST",2,IND)
  1. ... D ^DIK
  1. Q
  1. ;
  1. ;====================================================
  1. EXARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install
  1. ;MODE values: I for include in build, A for include action.
  1. N LN
  1. S LN=0
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="PATCH 11 LOCATION LIST"
  1. I MODE["I" S ARRAY(LN,2)="09/22/2008@11:16:04"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;This version compatible with SD*5.3*537, not needed anymore.
  1. I MODE["L" D
  1. . S LN=LN+1
  1. . S ARRAY(LN,1)="PATCH 11 LOCATION LIST (SD)"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-ALCOHOL AUDIT-C POSITIVE F/U EVAL"
  1. I MODE["I" S ARRAY(LN,2)="09/22/2008@11:16:16"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-ALCOHOL USE SCREEN (AUDIT-C)"
  1. I MODE["I" S ARRAY(LN,2)="07/09/2008@11:51:46"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-BL OEF/OIF EMBEDDED FRAGMENTS"
  1. I MODE["I" S ARRAY(LN,2)="09/15/2008@13:30:58"
  1. I MODE["A" S ARRAY(LN,3)="O"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-BL OEF/OIF FEVER"
  1. I MODE["I" S ARRAY(LN,2)="06/30/2008@09:09:10"
  1. I MODE["A" S ARRAY(LN,3)="O"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-BL OEF/OIF GI SX"
  1. I MODE["I" S ARRAY(LN,2)="06/30/2008@09:09:53"
  1. I MODE["A" S ARRAY(LN,3)="O"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-BL OEF/OIF SKIN SX"
  1. I MODE["I" S ARRAY(LN,2)="06/30/2008@09:10:15"
  1. I MODE["A" S ARRAY(LN,3)="O"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-CV ELIG W/HF FOR NO SERVICE"
  1. I MODE["I" S ARRAY(LN,2)="09/25/2008@13:56:32"
  1. I MODE["A" S ARRAY(LN,3)="O"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-CV INELG W/HF FOR SERVICE"
  1. I MODE["I" S ARRAY(LN,2)="09/25/2008@13:56:09"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-DEPRESSION SCREENING"
  1. I MODE["I" S ARRAY(LN,2)="09/25/2008@11:48:34"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-IRAQ & AFGHAN POST-DEPLOY SCREEN"
  1. I MODE["I" S ARRAY(LN,2)="08/06/2008@15:16:29"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-MHV BMI > 25.0"
  1. I MODE["I" S ARRAY(LN,2)="09/11/2008@13:21:53"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-MHV CERVICAL CANCER SCREEN"
  1. I MODE["I" S ARRAY(LN,2)="07/31/2008@12:12:30"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-MHV COLORECTAL CANCER SCREEN"
  1. I MODE["I" S ARRAY(LN,2)="07/28/2008@10:56:37"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-MHV DIABETES FOOT EXAM"
  1. I MODE["I" S ARRAY(LN,2)="07/01/2008@15:10:54"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-MHV DIABETES RETINAL EXAM"
  1. I MODE["I" S ARRAY(LN,2)="08/20/2008@09:55:06"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-MHV HYPERTENSION"
  1. I MODE["I" S ARRAY(LN,2)="07/01/2008@15:08:56"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-MHV INFLUENZA VACCINE"
  1. I MODE["I" S ARRAY(LN,2)="07/28/2008@10:56:58"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-MHV LDL CONTROL"
  1. I MODE["I" S ARRAY(LN,2)="07/28/2008@10:57:07"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-MHV MAMMOGRAM SCREENING"
  1. I MODE["I" S ARRAY(LN,2)="08/20/2008@11:25:06"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-MHV PNEUMOVAX"
  1. I MODE["I" S ARRAY(LN,2)="07/28/2008@10:57:48"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-OEF/OIF MONITOR REPORTING"
  1. I MODE["I" S ARRAY(LN,2)="09/25/2008@09:07:55"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;This version compatible with SD*5.3*537, not needed anymore.
  1. I MODE["L" D
  1. . S LN=LN+1
  1. . S ARRAY(LN,1)="VA-OEF/OIF MONITOR REPORTING (SD)"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-PTSD SCREENING"
  1. I MODE["I" S ARRAY(LN,2)="08/06/2008@15:16:03"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-TBI SCREENING"
  1. I MODE["I" S ARRAY(LN,2)="08/26/2008@10:31:02"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="PATCH 11 ITEMS"
  1. I MODE["I" S ARRAY(LN,2)="08/14/2008@09:29:40"
  1. I MODE["A" S ARRAY(LN,3)="O"
  1. ;
  1. ;This version compatible with SD*5.3*537, not needed anymore.
  1. I MODE["L" D
  1. . S LN=LN+1
  1. . S ARRAY(LN,1)="PATCH 11 ITEMS (SD)"
  1. ;
  1. I MODE="IA" D BMES^XPDUTL("There are "_LN_" Reminder Exchange entries to be installed.")
  1. Q
  1. ;
  1. ;==========================================
  1. 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
  1. ;entries to include.
  1. N EXARRAY,FOUND,IEN,IC,LUVALUE
  1. D EXARRAY^PXRMP11E("I",.EXARRAY)
  1. S FOUND=0
  1. S IC=0
  1. F S IC=+$O(EXARRAY(IC)) Q:(IC=0)!(FOUND) D
  1. . M LUVALUE=EXARRAY(IC)
  1. . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
  1. . I IEN=Y S FOUND=1 Q
  1. Q FOUND
  1. ;
  1. ;==========================================
  1. SMEXINS ;Silent mode install.
  1. N ACTION,EXARRAY,IC,IEN,LUVALUE,PXRMINST,TEXT
  1. S PXRMINST=1
  1. D EXARRAY^PXRMP11E("IA",.EXARRAY)
  1. S IC=0
  1. F S IC=$O(EXARRAY(IC)) Q:'IC D
  1. . S LUVALUE(1)=EXARRAY(IC,1),LUVALUE(2)=EXARRAY(IC,2)
  1. . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
  1. . I IEN=0 Q
  1. . S TEXT="Installing Reminder Exchange entry "_LUVALUE(1)
  1. . D BMES^XPDUTL(TEXT)
  1. . S ACTION=EXARRAY(IC,3)
  1. . D INSTALL^PXRMEXSI(IEN,ACTION,1)
  1. Q
  1. ;