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

PXRMP3I.m

Go to the documentation of this file. 
  1. PXRMP3I ; SLC/PKR - Patch 3 init routine. ;02/15/2005
  1.  ;;2.0;CLINICAL REMINDERS;**3**;Feb 04, 2005
  1.  ;Reminder Exchange install.
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. ARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install
  1.  ;
  1.  S ARRAY(1,1)="VA-MHV BMI > 25.0"
  1.  I MODE S ARRAY(1,2)="04/01/2005@10:11:13"
  1.  S ARRAY(2,1)="VA-MHV CERVICAL CANCER SCREEN"
  1.  I MODE S ARRAY(2,2)="02/15/2005@08:47:44"
  1.  S ARRAY(3,1)="VA-MHV COLORECTAL CANCER SCREEN"
  1.  I MODE S ARRAY(3,2)="02/15/2005@08:48:07"
  1.  S ARRAY(4,1)="VA-MHV DIABETES FOOT EXAM"
  1.  I MODE S ARRAY(4,2)="02/15/2005@08:48:38"
  1.  S ARRAY(5,1)="VA-MHV DIABETES HBA1C"
  1.  I MODE S ARRAY(5,2)="02/15/2005@08:48:55"
  1.  S ARRAY(6,1)="VA-MHV DIABETES RETINAL EXAM"
  1.  I MODE S ARRAY(6,2)="02/15/2005@08:49:15"
  1.  S ARRAY(7,1)="VA-MHV HYPERTENSION"
  1.  I MODE S ARRAY(7,2)="02/15/2005@08:49:36"
  1.  S ARRAY(8,1)="VA-MHV INFLUENZA VACCINE"
  1.  I MODE S ARRAY(8,2)="02/15/2005@08:49:56"
  1.  S ARRAY(9,1)="VA-MHV LDL CONTROL"
  1.  I MODE S ARRAY(9,2)="03/01/2005@13:08:41"
  1.  S ARRAY(10,1)="VA-MHV LIPID MEASUREMENT"
  1.  I MODE S ARRAY(10,2)="03/01/2005@13:08:18"
  1.  S ARRAY(11,1)="VA-MHV MAMMOGRAM SCREENING"
  1.  I MODE S ARRAY(11,2)="03/01/2005@13:08:55"
  1.  S ARRAY(12,1)="VA-MHV PNEUMOVAX"
  1.  I MODE S ARRAY(12,2)="02/15/2005@08:51:39"
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. DELEI ;If the Exchange File entry already exists delete it.
  1.  N ARRAY,IC,IND,LIST,LUVALUE,NUM
  1.  D ARRAY(1,.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. 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 ARRAY,FOUND,IEN,IC,LUVALUE
  1.  D ARRAY(1,.ARRAY)
  1.  S FOUND=0
  1.  S IC=0
  1.  F  S IC=+$O(ARRAY(IC)) Q:(IC=0)!(FOUND)  D
  1.  . M LUVALUE=ARRAY(IC)
  1.  . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
  1.  . I IEN=Y S FOUND=1 Q
  1.  Q FOUND
  1.  ;
  1. PRE ;
  1.  D DELEI
  1.  Q
  1. POST ;
  1.  D SMEXINS
  1.  Q
  1.  ;===============================================================
  1. SMEXINS ;Silent mode install.
  1.  N ARRAY,IC,IEN,LUVALUE,PXRMINST
  1.  S PXRMINST=1
  1.  D ARRAY(1,.ARRAY)
  1.  S IC=0
  1.  F  S IC=$O(ARRAY(IC)) Q:'IC  D
  1.  .M LUVALUE=ARRAY(IC)
  1.  .S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
  1.  .I IEN'=0 D
  1.  .. N TEXT
  1.  .. I LUVALUE(1)["PARAMETER" S TEXT="Installing entry "_LUVALUE(1)
  1.  .. E  S TEXT="Installing reminder "_LUVALUE(1)
  1.  .. D BMES^XPDUTL(TEXT)
  1.  .. D INSTALL^PXRMEXSI(IEN,1)
  1.  Q
  1.  ;