PXRMP46I ;SLC/PKR - Inits for PXRM*2.0*46. ;06/11/2020
;;2.0;CLINICAL REMINDERS;**46**;Feb 04, 2005;Build 236
;
;==========================================
PRE ;Pre-init
D RMEXCHENTRY^PXRMP46I
Q
;
;==========================================
POST ;Post-init
D SETPVER^PXRMUTIL("2.0P46")
Q
;
;==========================================
RMEXCHENTRY ;Remove any old versions of the COVID-19 status Reminder
;Exchange entry.
N IEN,IENS,FDA,MSG,NAME,PACKDT
S NAME="VA-COVID-19 CPRS STATUS VERSION 4"
S PACKDT=0
F S PACKDT=+$O(^PXD(811.8,"B",NAME,PACKDT)) Q:PACKDT=0 D
. S IEN=0
. F S IEN=+$O(^PXD(811.8,"B",NAME,PACKDT,IEN)) Q:IEN=0 D
.. S IENS=IEN_","
.. K FDA,MSG
.. S FDA(811.8,IENS,.01)="@"
.. D FILE^DIE("","FDA","MSG")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMP46I 779 printed Mar 13, 2025@20:52:24 Page 2
PXRMP46I ;SLC/PKR - Inits for PXRM*2.0*46. ;06/11/2020
+1 ;;2.0;CLINICAL REMINDERS;**46**;Feb 04, 2005;Build 236
+2 ;
+3 ;==========================================
PRE ;Pre-init
+1 DO RMEXCHENTRY^PXRMP46I
+2 QUIT
+3 ;
+4 ;==========================================
POST ;Post-init
+1 DO SETPVER^PXRMUTIL("2.0P46")
+2 QUIT
+3 ;
+4 ;==========================================
RMEXCHENTRY ;Remove any old versions of the COVID-19 status Reminder
+1 ;Exchange entry.
+2 NEW IEN,IENS,FDA,MSG,NAME,PACKDT
+3 SET NAME="VA-COVID-19 CPRS STATUS VERSION 4"
+4 SET PACKDT=0
+5 FOR
SET PACKDT=+$ORDER(^PXD(811.8,"B",NAME,PACKDT))
if PACKDT=0
QUIT
Begin DoDot:1
+6 SET IEN=0
+7 FOR
SET IEN=+$ORDER(^PXD(811.8,"B",NAME,PACKDT,IEN))
if IEN=0
QUIT
Begin DoDot:2
+8 SET IENS=IEN_","
+9 KILL FDA,MSG
+10 SET FDA(811.8,IENS,.01)="@"
+11 DO FILE^DIE("","FDA","MSG")
End DoDot:2
End DoDot:1
+12 QUIT
+13 ;
