- PXRMP20E ;SLC/PKR - Exchange inits for PXRM*2.0*20 ;04/01/2011
- ;;2.0;CLINICAL REMINDERS;**20**;Feb 04, 2005;Build 117
- ;====================================================
- 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-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY"
- I MODE["I" S ARRAY(LN,2)="04/01/2011@04:31:55"
- I MODE["A" S ARRAY(LN,3)="O"
- ;
- 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[HPXRMP20E 599 printed Jan 18, 2025@02:48:27 Page 2
- PXRMP20E ;SLC/PKR - Exchange inits for PXRM*2.0*20 ;04/01/2011
- +1 ;;2.0;CLINICAL REMINDERS;**20**;Feb 04, 2005;Build 117
- +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-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY"
- +7 IF MODE["I"
- SET ARRAY(LN,2)="04/01/2011@04:31:55"
- +8 IF MODE["A"
- SET ARRAY(LN,3)="O"
- +9 ;
- +10 IF MODE="IA"
- DO BMES^XPDUTL("There are "_LN_" Reminder Exchange entries to be installed.")
- +11 QUIT
- +12 ;