PXRMP88I ;SLC/PKR - Inits for PXRM*2.0*88 ;05/31/2024
;;2.0;CLINICAL REMINDERS;**88**;Feb 04, 2005;Build 13
Q
;====================================================
PRE ;These are the pre-installation actions
;Disable options and protocols
D OPTIONS^PXRMUTIL("DISABLE","Install of PXRM*2.0*88")
D PROTCOLS^PXRMUTIL("DISABLE","Install of PXRM*2.0*88")
Q
;
;====================================================
POST ;These are the post-installation actions
D DUPFIX^PXRMDLGBREPAIR
D OPTIONS^PXRMUTIL("ENABLE","Install of PXRM*2.0*88")
D PROTCOLS^PXRMUTIL("ENABLE","Install of PXRM*2.0*88")
D SENDIM^PXRMMSG("PXRM*2.0*88")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMP88I 656 printed Nov 22, 2024@16:58:31 Page 2
PXRMP88I ;SLC/PKR - Inits for PXRM*2.0*88 ;05/31/2024
+1 ;;2.0;CLINICAL REMINDERS;**88**;Feb 04, 2005;Build 13
+2 QUIT
+3 ;====================================================
PRE ;These are the pre-installation actions
+1 ;Disable options and protocols
+2 DO OPTIONS^PXRMUTIL("DISABLE","Install of PXRM*2.0*88")
+3 DO PROTCOLS^PXRMUTIL("DISABLE","Install of PXRM*2.0*88")
+4 QUIT
+5 ;
+6 ;====================================================
POST ;These are the post-installation actions
+1 DO DUPFIX^PXRMDLGBREPAIR
+2 DO OPTIONS^PXRMUTIL("ENABLE","Install of PXRM*2.0*88")
+3 DO PROTCOLS^PXRMUTIL("ENABLE","Install of PXRM*2.0*88")
+4 DO SENDIM^PXRMMSG("PXRM*2.0*88")
+5 QUIT
+6 ;
