| [613] | 1 | DGBT1P9 ;ALB/MRY - Patch #9 Environment/Post-init ; 8/18/04
|
|---|
| 2 | ;;1.0;Beneficiary Travel;**9**;Septembr 25, 2001
|
|---|
| 3 | EN ;
|
|---|
| 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 | ;
|
|---|
| 17 | ABRT ; Abort transport, but leave in ^XTMP.
|
|---|
| 18 | S ^XPDABORT=2 Q
|
|---|
| 19 | ;
|
|---|
| 20 | PRE ; Set 'NO' to COREFLS ACTIVE (#723) in MAS PARAMETERS (#43) File.
|
|---|
| 21 | N SEQ,IEN,OUT,DA K OUT
|
|---|
| 22 | D LIST^DIC(43,"","@","","","","","","","","OUT")
|
|---|
| 23 | S SEQ=0 F S SEQ=$O(OUT("DILIST",2,SEQ)) Q:'SEQ D
|
|---|
| 24 | . S IEN=OUT("DILIST",2,SEQ)
|
|---|
| 25 | . S DA=IEN,DR="723///NO",DIE="^DG(43," D ^DIE
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | POST ; Disable BeneTravel Corefls options.
|
|---|
| 29 | N DIC,TEXT,COUNT
|
|---|
| 30 | S DIC="^DIC(19,",DIC(0)="X",COUNT=0
|
|---|
| 31 | F X="DGBT LOCAL VENDOR ADD","DGBT LOCAL VENDOR MENU","DGBT LOCAL VENDOR UPDATE" D
|
|---|
| 32 | . D ^DIC Q:Y<0 S COUNT=COUNT+1 D
|
|---|
| 33 | .. I COUNT=1 D BMES^XPDUTL("*****")
|
|---|
| 34 | .. D MES^XPDUTL("Putting ["_X_"] option - 'out of order'")
|
|---|
| 35 | .. S TEXT="CoreFLS Disabled (DBGT*1*9)"
|
|---|
| 36 | .. D OUT^XPDMENU(X,TEXT)
|
|---|
| 37 | Q
|
|---|
