source: WorldVistAEHR/trunk/r/BENEFICIARY_TRAVEL-DGBT/DGBT1P2.m@ 1261

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1DGBT1P2 ;ALB/MRY - Patch #2 Environment Check ; 4/23/02 10:04 AM
2 ;;1.0;Beneficiary Travel;**2**;Septembr 25, 2001
3EN ;
4 S XPDABORT=""
5 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D G ABRT
6 . D BMES^XPDUTL("*****")
7 . D MES^XPDUTL("Your programming variables are not set up properly.")
8 . D MES^XPDUTL("Installation aborted.")
9 ; Verify that Bene Travel v1.0 exists, else Quit.
10 I $$VERSION^XPDUTL("DGBT")'="1.0" D G ABRT
11 . D BMES^XPDUTL("*****")
12 . D MES^XPDUTL("VERSION 1.0 OF BENEFICIARY TRAVEL HAS NOT BEEN LOADED.")
13 . D MES^XPDUTL("Installation aborted.")
14 W !!,">> Environment check complete and okay."
15 Q
16 ;
17ABRT ; Abort transport, but leave in ^XTMP.
18 S ^XPDABORT=2 Q
19 ;
20POST ; Post install - add #392.31 file to list of DGBT files in Package file.
21 N DGBTI,DGBTIEN,DGBTARRY,DIC,X,DA,DR
22 D BMES^XPDUTL(" ")
23 D MES^XPDUTL(" Updating PACKAGE File...")
24 ;
25PKG ; Retrieve 'DGBT' Package name
26 ; Get Package IEN
27 D FIND^DIC(9.4,"","@;1","P","DGBT","","C","","","DGBTARRY")
28 S (DGBTI,DGBTIEN)=0
29 F S DGBTI=$O(DGBTARRY("DILIST",DGBTI)) Q:'DGBTI D
30 . Q:$P($G(DGBTARRY("DILIST",DGBTI,0)),"^",2)'="DGBT"
31 . S DGBTIEN=$P($G(DGBTARRY("DILIST",DGBTI,0)),"^",1)
32 I 'DGBTIEN D G EXIT
33 . D BMES^XPDUTL(" ")
34 . D MES^XPDUTL(" No PACKAGE entry defined - Cannot update!")
35 ;
36UPD ; - Update fields not updated by the KIDS install.
37 ; fields:
38 ; File (#6) ; multiple
39 ; Fields ; multiple
40 ;
41FILE ; Add #392.31 to list of files under Bene Travel.
42 F X="392.31" D
43 . S DIC="^DIC(9.4,",DA(1)=DGBTIEN
44 . S DIC=DIC_DA(1)_",4,",DIC(0)="L",DIC("P")=$P(^DD(9.4,6,0),"^",2)
45 . D ^DIC
46 ;
47FLDS ; Add ASSIGN A VERSION NUMBER? entries to File entry #392.31
48 S DIC="^DIC(9.4,",DA(1)=DGBTIEN,DIC(0)="X"
49 S DIC=DIC_DA(1)_",4,",DIC("P")=$P(^DD(9.4,6,0),"^",2)
50 F X="392.31" D
51 . D ^DIC
52 . S DIE=DIC,DA=+Y
53 . I X[392 S DR="222.2///Y" D ^DIE
54 D BMES^XPDUTL(" ")
55 D MES^XPDUTL(" Updating PACKAGE file complete.")
56 ;
57DD ;Hardset IDENTIFIER routine into DD (DBIA #4093)
58 S ^DD(392.31,0,"ID","Z")="G START^DGBTID"
59 ;
60EXIT K DIC,DGBTARRY,DGBTI,DGBTIEN,X,DA,DR
61 Q
Note: See TracBrowser for help on using the repository browser.