- DG53588P ;BAY/JAT; Post-init; ; 4/9/04 11:12am
- ;;5.3;Registration;**588,1015**;Aug 13, 1993;Build 21
- ENV ;Environment check point
- S XPDABORT=""
- D PROGCHK(.XPDABORT)
- I XPDABORT="" K XPDABORT
- Q
- ;
- PROGCHK(XPDABORT) ;checks for necessary programmer variables
- I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D
- . D BMES^XPDUTL("*****")
- . D MES^XPDUTL("Your programming variables are not set up properly.")
- . D MES^XPDUTL("Installation aborted.")
- . D MES^XPDUTL("*****")
- . S XPDABORT=2
- Q
- ;
- POST ;
- N DGIEN,DGSUB,DGNODE,DGPTR,DGDOMAIN,DIE,DA,DR,DGFOUND,DGNAME
- S (DGIEN,DGFOUND)=0
- F S DGIEN=$O(^VAT(407.7,DGIEN)) Q:'DGIEN D
- .S DGSUB=0
- .F S DGSUB=$O(^VAT(407.7,DGIEN,"R",DGSUB)) Q:'DGSUB D
- ..S DGNODE=$G(^VAT(407.7,DGIEN,"R",DGSUB,0))
- ..Q:DGNODE=""
- ..S DGPTR=$P(DGNODE,U,2)
- ..Q:'DGPTR
- ..S DGDOMAIN=$$GET1^DIQ(4.2,DGPTR_",",.01)
- ..Q:DGDOMAIN'="IPDB-CHICAGO.VA.GOV"
- ..S DGFOUND=1
- ..S DA(1)=DGIEN
- ..S DA=DGSUB
- ..S DR="2///0"
- ..S DIE="^VAT(407.7,"_DA(1)_",""R"","
- ..D ^DIE
- ..S DGNAME=$P($G(^VAT(407.7,DGIEN,0)),U)
- ..D MES^XPDUTL(DGNAME_" Record updated.")
- I 'DGFOUND D MES^XPDUTL("No record found. Contact Vista Support.")
- Q
- DG53588P ;BAY/JAT; Post-init; ; 4/9/04 11:12am
- +1 ;;5.3;Registration;**588,1015**;Aug 13, 1993;Build 21
- ENV ;Environment check point
- +1 SET XPDABORT=""
- +2 DO PROGCHK(.XPDABORT)
- +3 IF XPDABORT=""
- KILL XPDABORT
- +4 QUIT
- +5 ;
- PROGCHK(XPDABORT) ;checks for necessary programmer variables
- +1 IF '$GET(DUZ)!($GET(DUZ(0))'="@")!('$GET(DT))!($GET(U)'="^")
- Begin DoDot:1
- +2 DO BMES^XPDUTL("*****")
- +3 DO MES^XPDUTL("Your programming variables are not set up properly.")
- +4 DO MES^XPDUTL("Installation aborted.")
- +5 DO MES^XPDUTL("*****")
- +6 SET XPDABORT=2
- End DoDot:1
- +7 QUIT
- +8 ;
- POST ;
- +1 NEW DGIEN,DGSUB,DGNODE,DGPTR,DGDOMAIN,DIE,DA,DR,DGFOUND,DGNAME
- +2 SET (DGIEN,DGFOUND)=0
- +3 FOR
- SET DGIEN=$ORDER(^VAT(407.7,DGIEN))
- IF 'DGIEN
- QUIT
- Begin DoDot:1
- +4 SET DGSUB=0
- +5 FOR
- SET DGSUB=$ORDER(^VAT(407.7,DGIEN,"R",DGSUB))
- IF 'DGSUB
- QUIT
- Begin DoDot:2
- +6 SET DGNODE=$GET(^VAT(407.7,DGIEN,"R",DGSUB,0))
- +7 IF DGNODE=""
- QUIT
- +8 SET DGPTR=$PIECE(DGNODE,U,2)
- +9 IF 'DGPTR
- QUIT
- +10 SET DGDOMAIN=$$GET1^DIQ(4.2,DGPTR_",",.01)
- +11 IF DGDOMAIN'="IPDB-CHICAGO.VA.GOV"
- QUIT
- +12 SET DGFOUND=1
- +13 SET DA(1)=DGIEN
- +14 SET DA=DGSUB
- +15 SET DR="2///0"
- +16 SET DIE="^VAT(407.7,"_DA(1)_",""R"","
- +17 DO ^DIE
- +18 SET DGNAME=$PIECE($GET(^VAT(407.7,DGIEN,0)),U)
- +19 DO MES^XPDUTL(DGNAME_" Record updated.")
- End DoDot:2
- End DoDot:1
- +20 IF 'DGFOUND
- DO MES^XPDUTL("No record found. Contact Vista Support.")
- +21 QUIT