PXRMP87I ;ISP/AGP - PATCH 87 INSTALLATION ;Mar 31, 2025@15:37:48
;;2.0;CLINICAL REMINDERS;**87**;Feb 04, 2005;Build 35
;
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)="CPRS INFO PANEL"
I MODE["I" S ARRAY(LN,2)="02/20/2025@13:55:09"
I MODE["A" S ARRAY(LN,3)="O"
;
Q
;
PRE ;Pre-init
D DELEXE^PXRMEXSI("EXARRAY","PXRMP87I")
Q
;
POST ;Post-init
;Install Exchange File entries.
N PXRMEXCH
S PXRMEXCH=1
D SETCOVID
D SETTERMUSAGE
D SMEXINS^PXRMEXSI("EXARRAY","PXRMP87I")
Q
;
SETCOVID ;
D BMES^XPDUTL("Updating VA-COVID-19 CPRS STATUS usage value")
N DA,DIE,DR,PXRMINST,Y
S PXRMINST=1
S DA=+$O(^PXD(811.9,"B","VA-COVID-19 CPRS STATUS",""))
I DA=0 D BMES^XPDUTL(" Could not find entry in file 811.9")
S DIE="^PXD(811.9,"
S DR="103///RI"
D ^DIE
D BMES^XPDUTL(" Done")
Q
;
SETTERMUSAGE ;
D BMES^XPDUTL("Setting reminder terms usage field value")
N DA,DIE,DR,PXRMINST,Y
S PXRMINST=1
S DIE="^PXRMD(811.5,"
S DR="103///*"
S DA=0 F S DA=$O(^PXRMD(811.5,DA)) Q:DA'>0 D
.I $P($G(^PXRMD(811.5,DA,100)),U,4)'="" Q
.K Y D ^DIE
D BMES^XPDUTL(" Done")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMP87I 1262 printed May 25, 2026@11:51:50 Page 2
PXRMP87I ;ISP/AGP - PATCH 87 INSTALLATION ;Mar 31, 2025@15:37:48
+1 ;;2.0;CLINICAL REMINDERS;**87**;Feb 04, 2005;Build 35
+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)="CPRS INFO PANEL"
+7 IF MODE["I"
SET ARRAY(LN,2)="02/20/2025@13:55:09"
+8 IF MODE["A"
SET ARRAY(LN,3)="O"
+9 ;
+10 QUIT
+11 ;
PRE ;Pre-init
+1 DO DELEXE^PXRMEXSI("EXARRAY","PXRMP87I")
+2 QUIT
+3 ;
POST ;Post-init
+1 ;Install Exchange File entries.
+2 NEW PXRMEXCH
+3 SET PXRMEXCH=1
+4 DO SETCOVID
+5 DO SETTERMUSAGE
+6 DO SMEXINS^PXRMEXSI("EXARRAY","PXRMP87I")
+7 QUIT
+8 ;
SETCOVID ;
+1 DO BMES^XPDUTL("Updating VA-COVID-19 CPRS STATUS usage value")
+2 NEW DA,DIE,DR,PXRMINST,Y
+3 SET PXRMINST=1
+4 SET DA=+$ORDER(^PXD(811.9,"B","VA-COVID-19 CPRS STATUS",""))
+5 IF DA=0
DO BMES^XPDUTL(" Could not find entry in file 811.9")
+6 SET DIE="^PXD(811.9,"
+7 SET DR="103///RI"
+8 DO ^DIE
+9 DO BMES^XPDUTL(" Done")
+10 QUIT
+11 ;
SETTERMUSAGE ;
+1 DO BMES^XPDUTL("Setting reminder terms usage field value")
+2 NEW DA,DIE,DR,PXRMINST,Y
+3 SET PXRMINST=1
+4 SET DIE="^PXRMD(811.5,"
+5 SET DR="103///*"
+6 SET DA=0
FOR
SET DA=$ORDER(^PXRMD(811.5,DA))
if DA'>0
QUIT
Begin DoDot:1
+7 IF $PIECE($GET(^PXRMD(811.5,DA,100)),U,4)'=""
QUIT
+8 KILL Y
DO ^DIE
End DoDot:1
+9 DO BMES^XPDUTL(" Done")
+10 QUIT
+11 ;
