| 1 | DG53588P ;BAY/JAT; Post-init; ; 4/9/04 11:12am
|
|---|
| 2 | ;;5.3;Registration;**588**;Aug 13, 1993
|
|---|
| 3 | ENV ;Environment check point
|
|---|
| 4 | S XPDABORT=""
|
|---|
| 5 | D PROGCHK(.XPDABORT)
|
|---|
| 6 | I XPDABORT="" K XPDABORT
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | PROGCHK(XPDABORT) ;checks for necessary programmer variables
|
|---|
| 10 | I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D
|
|---|
| 11 | . D BMES^XPDUTL("*****")
|
|---|
| 12 | . D MES^XPDUTL("Your programming variables are not set up properly.")
|
|---|
| 13 | . D MES^XPDUTL("Installation aborted.")
|
|---|
| 14 | . D MES^XPDUTL("*****")
|
|---|
| 15 | . S XPDABORT=2
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | POST ;
|
|---|
| 19 | N DGIEN,DGSUB,DGNODE,DGPTR,DGDOMAIN,DIE,DA,DR,DGFOUND,DGNAME
|
|---|
| 20 | S (DGIEN,DGFOUND)=0
|
|---|
| 21 | F S DGIEN=$O(^VAT(407.7,DGIEN)) Q:'DGIEN D
|
|---|
| 22 | .S DGSUB=0
|
|---|
| 23 | .F S DGSUB=$O(^VAT(407.7,DGIEN,"R",DGSUB)) Q:'DGSUB D
|
|---|
| 24 | ..S DGNODE=$G(^VAT(407.7,DGIEN,"R",DGSUB,0))
|
|---|
| 25 | ..Q:DGNODE=""
|
|---|
| 26 | ..S DGPTR=$P(DGNODE,U,2)
|
|---|
| 27 | ..Q:'DGPTR
|
|---|
| 28 | ..S DGDOMAIN=$$GET1^DIQ(4.2,DGPTR_",",.01)
|
|---|
| 29 | ..Q:DGDOMAIN'="IPDB-CHICAGO.VA.GOV"
|
|---|
| 30 | ..S DGFOUND=1
|
|---|
| 31 | ..S DA(1)=DGIEN
|
|---|
| 32 | ..S DA=DGSUB
|
|---|
| 33 | ..S DR="2///0"
|
|---|
| 34 | ..S DIE="^VAT(407.7,"_DA(1)_",""R"","
|
|---|
| 35 | ..D ^DIE
|
|---|
| 36 | ..S DGNAME=$P($G(^VAT(407.7,DGIEN,0)),U)
|
|---|
| 37 | ..D MES^XPDUTL(DGNAME_" Record updated.")
|
|---|
| 38 | I 'DGFOUND D MES^XPDUTL("No record found. Contact Vista Support.")
|
|---|
| 39 | Q
|
|---|
