PXRMP65E.m

PXRMP65E ;ISP/AGP - PATCH 65 EXCHANGE ENTRY;12/27/2021

 ;;2.0;CLINICAL REMINDERS;**65**;Feb 04, 2005;Build 438

 Q

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,MESSAGE

 S LN=0

 ;

 S LN=LN+1

 S ARRAY(LN,1)="VA-IM SMALLPOX READING"

 I MODE["I" S ARRAY(LN,2)="12/03/2018@18:42:27"

 I MODE["A" S ARRAY(LN,3)="O"

 ;

 ;S LN=LN+1

 ;S ARRAY(LN,1)="CPRSV32B IMMUNIZATION REMINDER DIALOGS"

 ;I MODE["I" S ARRAY(LN,2)="12/27/2021@16:48:51"

 ;I MODE["A" S ARRAY(LN,3)="O"

 ;

 S LN=LN+1

 S ARRAY(LN,1)="PXRM PDMP BUTTON"

 I MODE["I" S ARRAY(LN,2)="05/24/2021@13:55:47"

 I MODE["A" S ARRAY(LN,3)="O"

 ;

 I LN=1 S MESSAGE="There is "_LN_" Reminder Exchange entry to install."

 E  S MESSAGE="There are "_LN_" Reminder Exchange entries to install."

 I MODE="IA" D BMES^XPDUTL(MESSAGE)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXRMP65E   896     printed  Nov 22, 2024@16:58:16                                                                                                                                                                                                     Page 2

PXRMP65E  ;ISP/AGP - PATCH 65 EXCHANGE ENTRY;12/27/2021

 +1       ;;2.0;CLINICAL REMINDERS;**65**;Feb 04, 2005;Build 438

 +2        QUIT 

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,MESSAGE

 +3        SET LN=0

 +4       ;

 +5        SET LN=LN+1

 +6        SET ARRAY(LN,1)="VA-IM SMALLPOX READING"

 +7        IF MODE["I"

               SET ARRAY(LN,2)="12/03/2018@18:42:27"

 +8        IF MODE["A"

               SET ARRAY(LN,3)="O"

 +9       ;

 +10      ;S LN=LN+1

 +11      ;S ARRAY(LN,1)="CPRSV32B IMMUNIZATION REMINDER DIALOGS"

 +12      ;I MODE["I" S ARRAY(LN,2)="12/27/2021@16:48:51"

 +13      ;I MODE["A" S ARRAY(LN,3)="O"

 +14      ;

 +15       SET LN=LN+1

 +16       SET ARRAY(LN,1)="PXRM PDMP BUTTON"

 +17       IF MODE["I"

               SET ARRAY(LN,2)="05/24/2021@13:55:47"

 +18       IF MODE["A"

               SET ARRAY(LN,3)="O"

 +19      ;

 +20       IF LN=1

               SET MESSAGE="There is "_LN_" Reminder Exchange entry to install."

 +21      IF '$TEST

               SET MESSAGE="There are "_LN_" Reminder Exchange entries to install."

 +22       IF MODE="IA"

               DO BMES^XPDUTL(MESSAGE)

 +23       QUIT 

 +24      ;