DG53538P.m

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 ---DG53538P   1196     printed  Apr 09, 2024@22:05:49                                                                                                                                                                                                    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