PX1P244 ;SLC/GN - Post/Pre install code;Oct 06, 2025@08:59:52
;;1.0;PCE PATIENT CARE ENCOUNTER;**244**;Aug 12, 1996;Build 37
;
; This routine updates Post code to init a new Parameter
;
Q
;
DELDD ;
N DIU,TEXT
D BMES^XPDUTL("Removing old data dictionaries.")
S DIU(0)=""
F DIU=820 D
. S TEXT=" Deleting data dictionary for file # "_DIU
. D MES^XPDUTL(TEXT)
. D EN^DIU2
Q
;
PRE ;
D DELDD
Q
POST ;Init PKG (7) value for New parameter to No, init SYS (6) to null, as an answer will always override the PKG setting, leaving SYS available for future override decision.
D EN^XPAR("PKG","PX SA USE LOC FOR ENCOUNTERS",1,"n") ;n/0
D EN^XPAR("SYS","PX SA USE LOC FOR ENCOUNTERS",1,"@") ;unanswered
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPX1P244 742 printed May 25, 2026@12:29:19 Page 2
PX1P244 ;SLC/GN - Post/Pre install code;Oct 06, 2025@08:59:52
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**244**;Aug 12, 1996;Build 37
+2 ;
+3 ; This routine updates Post code to init a new Parameter
+4 ;
+5 QUIT
+6 ;
DELDD ;
+1 NEW DIU,TEXT
+2 DO BMES^XPDUTL("Removing old data dictionaries.")
+3 SET DIU(0)=""
+4 FOR DIU=820
Begin DoDot:1
+5 SET TEXT=" Deleting data dictionary for file # "_DIU
+6 DO MES^XPDUTL(TEXT)
+7 DO EN^DIU2
End DoDot:1
+8 QUIT
+9 ;
PRE ;
+1 DO DELDD
+2 QUIT
POST ;Init PKG (7) value for New parameter to No, init SYS (6) to null, as an answer will always override the PKG setting, leaving SYS available for future override decision.
+1 ;n/0
DO EN^XPAR("PKG","PX SA USE LOC FOR ENCOUNTERS",1,"n")
+2 ;unanswered
DO EN^XPAR("SYS","PX SA USE LOC FOR ENCOUNTERS",1,"@")
+3 QUIT
+4 ;
