source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBR25P9.m@ 1766

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1LBR25P9 ;ALB/MRY - Patch #9 Environment Check ;[04/22/02 15:44 PM ]
2 ;;2.5;Library;**9**;mAR 11, 1996
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 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 ;
17ABRT ; Abort transport, but leave in ^XTMP.
18 S ^XPDABORT=2 Q
19 ;
20POST ;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
Note: See TracBrowser for help on using the repository browser.