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

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1DG53678P ;ALB/MRY - Pre/Post-Install ; 9/26/05 3:33pm
2 ;;5.3;Registration;**678**;Aug 13, 1993
3 ;
4 ;
5ENV ;Main entry point for Environment check point.
6 ;
7 S XPDABORT=""
8 D PROGCHK(.XPDABORT) ;checks programmer variables
9 I XPDABORT="" K XPDABORT
10 Q
11 ;
12 ;
13PRE ;Main entry point for Pre-init items.
14 ;
15 Q
16 ;
17 ;
18PROGCHK(XPDABORT) ;checks for necessary programmer variables
19 ;
20 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") DO
21 .D BMES^XPDUTL("*****")
22 .D MES^XPDUTL("Your programming variables are not set up properly.")
23 .D MES^XPDUTL("Installation aborted.")
24 .D MES^XPDUTL("*****")
25 .S XPDABORT=2
26 Q
27 ;
28POST ;
29 ;Add new code into PTF AUSTIN ERROR CODES (#45.64) file
30 N LINE,X,DGCODE,DIC,DGDESC,DGPOS,Y,DGX,DGY,DGCNT
31 S DGCNT=0
32 D BMES^XPDUTL(">>> Adding new code 125 to file # 45.64")
33 F LINE=1:1 S X=$T(ADD+LINE) S DGCODE=$P(X,";;",2) Q:DGCODE="EXIT" D
34 .S DIC="^DGP(45.64,",DIC(0)=""
35 .S DGDESC=$P(DGCODE,U,2)
36 .S DGPOS=$P(DGCODE,U,3)
37 .I $L(DGDESC)>70 Q
38 .S DIC("DR")=".02///"_DGDESC_";.03///"_DGPOS
39 .S X=$P(DGCODE,U)
40 .I +$O(^DGP(45.64,"B",X,0)) S DGCNT=1 Q
41 .K DO D FILE^DICN
42 .I Y=-1 Q
43 .S DGX=$P(DGCODE,U),DGY=$P(DGCODE,U,2)
44 .D MES^XPDUTL(" CODE "_DGX_" "_DGY_" added.")
45 .S DGCNT=DGCNT+1
46 I DGCNT<1 D
47 .D MES^XPDUTL("Code(s) missing. Compare with patch description.")
48 ;
49 D POST^DG53678A
50 Q
51 ;
52ADD ;new code - descriptions cannot exceed 70 char.
53 ;;125^Invalid Emergency Response Indicator.^24
54 ;;EXIT
Note: See TracBrowser for help on using the repository browser.