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

PXRMP35E.m

Go to the documentation of this file.
  1. PXRMP35E ;SLC/PKR - Exchange inits for PXRM*2.0*35 ;04/21/2015
  1. ;;2.0;CLINICAL REMINDERS;**35**;Feb 04, 2005;Build 206
  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-LIFE-SUSTAINING TREATMENT PXRM*2.0*35"
  1. I MODE["I" S ARRAY(LN,2)="03/31/2016@08:43:14"
  1. I MODE["A" S ARRAY(LN,3)="I"
  1. ;
  1. I MODE="IA" D BMES^XPDUTL("There are "_LN_" Reminder Exchange entries to be installed.")
  1. Q
  1. ;