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

PXRMP17E.m

Go to the documentation of this file.
  1. PXRMP17E ; SLC/PKR - Exchange inits for PXRM*2.0*17 ;04/13/2010
  1. ;;2.0;CLINICAL REMINDERS;**17**;Feb 04, 2005;Build 102
  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)="VA-AAA SCREENING"
  1. I MODE["I" S ARRAY(LN,2)="01/25/2010@14:59:38"
  1. I MODE["A" S ARRAY(LN,3)="M"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-PTSD REASSESSMENT (PCL)"
  1. I MODE["I" S ARRAY(LN,2)="01/25/2010@15:03:44"
  1. I MODE["A" S ARRAY(LN,3)="M"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-POLYTRAUMA MARKER"
  1. I MODE["I" S ARRAY(LN,2)="04/12/2010@14:24:40"
  1. I MODE["A" S ARRAY(LN,3)="M"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-BL DEPRESSION SCREEN"
  1. I MODE["I" S ARRAY(LN,2)="12/16/2009@07:19:04"
  1. I MODE["A" S ARRAY(LN,3)="M"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-HF ETOH SELF SCORE AUD 10"
  1. I MODE["I" S ARRAY(LN,2)="01/07/2010@10:01:26"
  1. I MODE["A" S ARRAY(LN,3)="M"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-EMBEDDED FRAGMENTS RISK EVALUATION"
  1. I MODE["I" S ARRAY(LN,2)="01/08/2010@08:42:17"
  1. I MODE["A" S ARRAY(LN,3)="M"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-GP EF CONTACT INFORMATION"
  1. I MODE["I" S ARRAY(LN,2)="01/25/2010@14:45:55"
  1. I MODE["A" S ARRAY(LN,3)="M"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-GP ALC ADVICE2"
  1. I MODE["I" S ARRAY(LN,2)="01/25/2010@14:50:04"
  1. I MODE["A" S ARRAY(LN,3)="M"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-MH STOP CODES FOR PTSD EVALUATION"
  1. I MODE["I" S ARRAY(LN,2)="02/11/2010@14:51:10"
  1. I MODE["A" S ARRAY(LN,3)="M"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="VA-HF ACUTE ILLNESS EVAL"
  1. I MODE["I" S ARRAY(LN,2)="02/20/2010@09:09:52"
  1. I MODE["A" S ARRAY(LN,3)="M"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="DEPRESSION/PTSD REMINDER TERM UPDATES - PATCH 17"
  1. I MODE["I" S ARRAY(LN,2)="02/26/2010@12:07:38"
  1. I MODE["A" S ARRAY(LN,3)="O"
  1. ;
  1. S LN=LN+1
  1. S ARRAY(LN,1)="PXRM*2*17 COMPUTED FINDINGS"
  1. I MODE["I" S ARRAY(LN,2)="01/26/2010@11:49:30"
  1. I MODE["A" S ARRAY(LN,3)="O"
  1. ;
  1. I MODE="IA" D BMES^XPDUTL("There are "_LN_" Reminder Exchange entries to be installed.")
  1. Q
  1. ;