PXRMP45E ;ISP/RFR - PATCH 45 EXCHANGE ENTRY;02/04/2020
;;2.0;CLINICAL REMINDERS;**45**;Feb 04, 2005;Build 566
Q
;
EXARRAY(MODE,ARRAY) ;List of exchange entries for install and delete
;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)="PXRM*2.0*45 UPDATES"
I MODE["I" S ARRAY(LN,2)="11/14/2018@14:39:46"
I MODE["A" S ARRAY(LN,3)="O"
;
S LN=LN+1
S ARRAY(LN,1)="PXRM*2.0*45 SMART CONTENT"
I MODE["I" S ARRAY(LN,2)="02/04/2020@07:14:41"
I MODE["A" K ARRAY(LN) S LN=LN-1
;
S LN=LN+1
S ARRAY(LN,1)="PXRM*2.0*45 HI RISK MEDS CONTENT"
I MODE["I" S ARRAY(LN,2)="01/23/2020@09:44:28"
I MODE["A" K ARRAY(LN) S LN=LN-1
;
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
INCCF(NAME) ;Include REMINDER COMPUTED FINDING file entry?
Q:NAME="VA-CASCADE INDEX" 1
Q:NAME="VA-SMART PATIENT HAS ALERT" 1
Q:NAME="VA-WH PATIENT DOCUMENTATION" 1
Q:NAME="VA-WH UNSAFE ORDER COUNT" 1
Q:NAME="VA-WH PATIENT IS PREGNANT/LACTATING" 1
Q:NAME="VA-WH PROCEDURES WITH NO NOTIFICATION" 1
Q:NAME="VA-SMART PROCESSING ALERT DATA" 1
Q:NAME="VA-SMART PROCESSING ALERT ID" 1
Q:NAME="VA-WH BREAST PROCEDURES" 1
Q:NAME="VA-WH OPEN PROCEDURE WITH NO NOTIFICATION" 1
Q:NAME="VA-WH OPEN PROCEDURE COUNT" 1
Q:NAME="VA-WH NEXT PROCEDURE" 1
Q:NAME="VA-WH BREAST TREATMENT OVERDUE LIST" 1
Q 0
;
INCGUI(NAME) ;Include REMINDER GUI PROCESS file entry?
Q:NAME="DATE" 1
Q:NAME="GF_VIEW" 1
Q:NAME="GF_PRINT" 1
Q:NAME="DATE_TIME" 1
Q 0
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMP45E 1666 printed Dec 13, 2024@01:47:44 Page 2
PXRMP45E ;ISP/RFR - PATCH 45 EXCHANGE ENTRY;02/04/2020
+1 ;;2.0;CLINICAL REMINDERS;**45**;Feb 04, 2005;Build 566
+2 QUIT
+3 ;
EXARRAY(MODE,ARRAY) ;List of exchange entries for install and delete
+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)="PXRM*2.0*45 UPDATES"
+7 IF MODE["I"
SET ARRAY(LN,2)="11/14/2018@14:39:46"
+8 IF MODE["A"
SET ARRAY(LN,3)="O"
+9 ;
+10 SET LN=LN+1
+11 SET ARRAY(LN,1)="PXRM*2.0*45 SMART CONTENT"
+12 IF MODE["I"
SET ARRAY(LN,2)="02/04/2020@07:14:41"
+13 IF MODE["A"
KILL ARRAY(LN)
SET LN=LN-1
+14 ;
+15 SET LN=LN+1
+16 SET ARRAY(LN,1)="PXRM*2.0*45 HI RISK MEDS CONTENT"
+17 IF MODE["I"
SET ARRAY(LN,2)="01/23/2020@09:44:28"
+18 IF MODE["A"
KILL ARRAY(LN)
SET LN=LN-1
+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
INCCF(NAME) ;Include REMINDER COMPUTED FINDING file entry?
+1 if NAME="VA-CASCADE INDEX"
QUIT 1
+2 if NAME="VA-SMART PATIENT HAS ALERT"
QUIT 1
+3 if NAME="VA-WH PATIENT DOCUMENTATION"
QUIT 1
+4 if NAME="VA-WH UNSAFE ORDER COUNT"
QUIT 1
+5 if NAME="VA-WH PATIENT IS PREGNANT/LACTATING"
QUIT 1
+6 if NAME="VA-WH PROCEDURES WITH NO NOTIFICATION"
QUIT 1
+7 if NAME="VA-SMART PROCESSING ALERT DATA"
QUIT 1
+8 if NAME="VA-SMART PROCESSING ALERT ID"
QUIT 1
+9 if NAME="VA-WH BREAST PROCEDURES"
QUIT 1
+10 if NAME="VA-WH OPEN PROCEDURE WITH NO NOTIFICATION"
QUIT 1
+11 if NAME="VA-WH OPEN PROCEDURE COUNT"
QUIT 1
+12 if NAME="VA-WH NEXT PROCEDURE"
QUIT 1
+13 if NAME="VA-WH BREAST TREATMENT OVERDUE LIST"
QUIT 1
+14 QUIT 0
+15 ;
INCGUI(NAME) ;Include REMINDER GUI PROCESS file entry?
+1 if NAME="DATE"
QUIT 1
+2 if NAME="GF_VIEW"
QUIT 1
+3 if NAME="GF_PRINT"
QUIT 1
+4 if NAME="DATE_TIME"
QUIT 1
+5 QUIT 0
+6 ;
