| [613] | 1 | DG53538P ;BPFO/MM Post Init routine for DG*5.3*538 - ;2/19/2004
|
|---|
| 2 | ;;5.3;Registration;**538**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ; This is the post-initialization routine for DG*5.3*538.
|
|---|
| 5 | ; It will populate the package level for the parameter definitions
|
|---|
| 6 | ; distributed with this patch.
|
|---|
| 7 | ;
|
|---|
| 8 | N DGRRI,LINE
|
|---|
| 9 | D BMES^XPDUTL("Updating Parameter Definitions with package values...")
|
|---|
| 10 | F DGRRI=1:1 S LINE=$P($T(PREF+DGRRI),";;",2) Q:LINE="QUIT" D
|
|---|
| 11 | .N DGRRPREF,DGRRVAL,ERR
|
|---|
| 12 | .S DGRRPREF=$P(LINE,U)
|
|---|
| 13 | .S DGRRVAL=$P(LINE,U,2)
|
|---|
| 14 | .D EN^XPAR("PKG.REGISTRATION",DGRRPREF,1,DGRRVAL,.ERR)
|
|---|
| 15 | .I ERR'=0 D Q
|
|---|
| 16 | ..D MES^XPDUTL(" "_DGRRPREF_" NOT Updated.")
|
|---|
| 17 | ..D MES^XPDUTL(" Error message: "_$P($G(ERR),U,2))
|
|---|
| 18 | .D MES^XPDUTL(" "_DGRRPREF_" updated with package value of "_DGRRVAL)
|
|---|
| 19 | D MES^XPDUTL("Updating done.")
|
|---|
| 20 | Q
|
|---|
| 21 | PREF ;Parameter definition^package value
|
|---|
| 22 | ;;DGRR PL MAX NUM PATIENTS RET^50
|
|---|
| 23 | ;;DGRR PL NUM PATIENTS PER PAGE^10
|
|---|
| 24 | ;;DGRR PL PATIENT TYPE^Enabled
|
|---|
| 25 | ;;DGRR PL GENDER^Enabled
|
|---|
| 26 | ;;DGRR PL PRIMARY ELIGIBILITY^Enabled
|
|---|
| 27 | ;;DGRR PL ROOM BED^Disabled
|
|---|
| 28 | ;;DGRR PL SERVICE CONNECTED^Disabled
|
|---|
| 29 | ;;DGRR PL VETERAN STATUS^Disabled
|
|---|
| 30 | ;;DGRR PL WARD^Disabled
|
|---|
| 31 | ;;DGRR PL VETERAN IMAGE^Enabled
|
|---|
| 32 | ;;QUIT
|
|---|
| 33 | Q
|
|---|
