| [613] | 1 | LBR25P9 ;ALB/MRY - Patch #9 Environment Check ;[04/22/02 15:44 PM ]
|
|---|
| 2 | ;;2.5;Library;**9**;mAR 11, 1996
|
|---|
| 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 Library v2.5 exists, else quit
|
|---|
| 10 | I +$$VERSION^XPDUTL("LBR")'="2.5" D G ABRT
|
|---|
| 11 | . D BMES^XPDUTL("*****")
|
|---|
| 12 | . D MES^XPDUTL("VERSION 2.5 OF LIBRARY 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 | POST ;Post init - remove 'out of order' messages.
|
|---|
| 21 | ;
|
|---|
| 22 | N DIC,COUNT
|
|---|
| 23 | S DIC="^DIC(19,",DIC(0)="X",COUNT=0
|
|---|
| 24 | F X="LBRY TITLES VENDOR","LBRY TITLES DUE RENEWAL" D
|
|---|
| 25 | . D ^DIC Q:Y<0 D
|
|---|
| 26 | . . S IENS=+Y_","
|
|---|
| 27 | . . I $$GET1^DIQ(19,IENS,2)'="" D
|
|---|
| 28 | . . . S COUNT=COUNT+1
|
|---|
| 29 | . . . I COUNT=1 D BMES^XPDUTL("*****")
|
|---|
| 30 | . . . I COUNT=1 D MES^XPDUTL("Clearing 'OUT OF ORDER MESSAGE for options...")
|
|---|
| 31 | . . . I X="LBRY TITLES VENDOR" D MES^XPDUTL("LBRY TITLES VENDOR - Local Titles By Vendor")
|
|---|
| 32 | . . . I X="LBRY TITLES DUE RENEWAL" D MES^XPDUTL("LBRY TITLES DUE RENEWAL - Titles Due For Renewal")
|
|---|
| 33 | . . . D OUT^XPDMENU(X,"")
|
|---|
| 34 | Q
|
|---|
