| 1 | DG53678P ;ALB/MRY - Pre/Post-Install ; 9/26/05 3:33pm
|
|---|
| 2 | ;;5.3;Registration;**678**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | ENV ;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 | ;
|
|---|
| 13 | PRE ;Main entry point for Pre-init items.
|
|---|
| 14 | ;
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | ;
|
|---|
| 18 | PROGCHK(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 | ;
|
|---|
| 28 | POST ;
|
|---|
| 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 | ;
|
|---|
| 52 | ADD ;new code - descriptions cannot exceed 70 char.
|
|---|
| 53 | ;;125^Invalid Emergency Response Indicator.^24
|
|---|
| 54 | ;;EXIT
|
|---|
