- PXRMP35E ;SLC/PKR - Exchange inits for PXRM*2.0*35 ;04/21/2015
- ;;2.0;CLINICAL REMINDERS;**35**;Feb 04, 2005;Build 206
- ;====================================================
- 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)="VA-LIFE-SUSTAINING TREATMENT PXRM*2.0*35"
- I MODE["I" S ARRAY(LN,2)="03/31/2016@08:43:14"
- I MODE["A" S ARRAY(LN,3)="I"
- ;
- I MODE="IA" D BMES^XPDUTL("There are "_LN_" Reminder Exchange entries to be installed.")
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMP35E 587 printed Feb 18, 2025@23:13:55 Page 2
- PXRMP35E ;SLC/PKR - Exchange inits for PXRM*2.0*35 ;04/21/2015
- +1 ;;2.0;CLINICAL REMINDERS;**35**;Feb 04, 2005;Build 206
- +2 ;====================================================
- 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)="VA-LIFE-SUSTAINING TREATMENT PXRM*2.0*35"
- +7 IF MODE["I"
- SET ARRAY(LN,2)="03/31/2016@08:43:14"
- +8 IF MODE["A"
- SET ARRAY(LN,3)="I"
- +9 ;
- +10 IF MODE="IA"
- DO BMES^XPDUTL("There are "_LN_" Reminder Exchange entries to be installed.")
- +11 QUIT
- +12 ;