source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53538P.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1DG53538P ;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
21PREF ;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
Note: See TracBrowser for help on using the repository browser.