DG53538P ;BPFO/MM Post Init routine for DG*5.3*538 - ;2/19/2004
;;5.3;Registration;**538**;Aug 13, 1993
;
; This is the post-initialization routine for DG*5.3*538.
; It will populate the package level for the parameter definitions
; distributed with this patch.
;
N DGRRI,LINE
D BMES^XPDUTL("Updating Parameter Definitions with package values...")
F DGRRI=1:1 S LINE=$P($T(PREF+DGRRI),";;",2) Q:LINE="QUIT" D
.N DGRRPREF,DGRRVAL,ERR
.S DGRRPREF=$P(LINE,U)
.S DGRRVAL=$P(LINE,U,2)
.D EN^XPAR("PKG.REGISTRATION",DGRRPREF,1,DGRRVAL,.ERR)
.I ERR'=0 D Q
..D MES^XPDUTL(" "_DGRRPREF_" NOT Updated.")
..D MES^XPDUTL(" Error message: "_$P($G(ERR),U,2))
.D MES^XPDUTL(" "_DGRRPREF_" updated with package value of "_DGRRVAL)
D MES^XPDUTL("Updating done.")
Q
PREF ;Parameter definition^package value
;;DGRR PL MAX NUM PATIENTS RET^50
;;DGRR PL NUM PATIENTS PER PAGE^10
;;DGRR PL PATIENT TYPE^Enabled
;;DGRR PL GENDER^Enabled
;;DGRR PL PRIMARY ELIGIBILITY^Enabled
;;DGRR PL ROOM BED^Disabled
;;DGRR PL SERVICE CONNECTED^Disabled
;;DGRR PL VETERAN STATUS^Disabled
;;DGRR PL WARD^Disabled
;;DGRR PL VETERAN IMAGE^Enabled
;;QUIT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53538P 1196 printed Dec 13, 2024@02:37:45 Page 2
DG53538P ;BPFO/MM Post Init routine for DG*5.3*538 - ;2/19/2004
+1 ;;5.3;Registration;**538**;Aug 13, 1993
+2 ;
+3 ; This is the post-initialization routine for DG*5.3*538.
+4 ; It will populate the package level for the parameter definitions
+5 ; distributed with this patch.
+6 ;
+7 NEW DGRRI,LINE
+8 DO BMES^XPDUTL("Updating Parameter Definitions with package values...")
+9 FOR DGRRI=1:1
SET LINE=$PIECE($TEXT(PREF+DGRRI),";;",2)
if LINE="QUIT"
QUIT
Begin DoDot:1
+10 NEW DGRRPREF,DGRRVAL,ERR
+11 SET DGRRPREF=$PIECE(LINE,U)
+12 SET DGRRVAL=$PIECE(LINE,U,2)
+13 DO EN^XPAR("PKG.REGISTRATION",DGRRPREF,1,DGRRVAL,.ERR)
+14 IF ERR'=0
Begin DoDot:2
+15 DO MES^XPDUTL(" "_DGRRPREF_" NOT Updated.")
+16 DO MES^XPDUTL(" Error message: "_$PIECE($GET(ERR),U,2))
End DoDot:2
QUIT
+17 DO MES^XPDUTL(" "_DGRRPREF_" updated with package value of "_DGRRVAL)
End DoDot:1
+18 DO MES^XPDUTL("Updating done.")
+19 QUIT
PREF ;Parameter definition^package value
+1 ;;DGRR PL MAX NUM PATIENTS RET^50
+2 ;;DGRR PL NUM PATIENTS PER PAGE^10
+3 ;;DGRR PL PATIENT TYPE^Enabled
+4 ;;DGRR PL GENDER^Enabled
+5 ;;DGRR PL PRIMARY ELIGIBILITY^Enabled
+6 ;;DGRR PL ROOM BED^Disabled
+7 ;;DGRR PL SERVICE CONNECTED^Disabled
+8 ;;DGRR PL VETERAN STATUS^Disabled
+9 ;;DGRR PL WARD^Disabled
+10 ;;DGRR PL VETERAN IMAGE^Enabled
+11 ;;QUIT
+12 QUIT
