source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRC5C.m@ 1732

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1PRC5C ;WISC/PLT-IFCAP environment check routine defined in package file ;
2V ;;5.0;IFCAP;;4/21/95
3 ;
4 ;invoke by the environment check routine field of package file.
5EN ;called from routine prcinit/prc5ins1
6 N PRCERR,PRCMSG
7 S (PRCERR,PRCMSG)=""
8 D EN^DDIOL("IFCAP ENVIRONMENT CHECK STARTS:")
9 D ^PRC5INS1 ;check other package(s) installed
10 D:PRCIVER<5
11 . D EN^PRC5C1("FND") S:$G(PRCERR) PRCMSG=PRCMSG_"1^",PRCERR=""
12 . D EN^PRC5C1("PCL") S:$G(PRCERR) PRCMSG=PRCMSG_"2^",PRCERR=""
13 . D EN^PRC5C1("PAC") S:$G(PRCERR) PRCMSG=PRCMSG_"3^",PRCERR=""
14 . D EN1^PRC5C1 S:$G(PRCERR) PRCMSG=PRCMSG_"5^",PRCERR=""
15 . QUIT
16 D:PRCIVER<5&PRCIVER
17 . D EN^PRC5C1("CPF") S:$G(PRCERR) PRCMSG=PRCMSG_"4^",PRCERR=""
18 . QUIT
19 D EN2^PRC5C1 S:$G(PRCERR) PRCMSG=PRCMSG_"6^",PRCERR=""
20 D EN^DDIOL("IFCAP PACKAGE ENVIRONMENT CHECK DONE!")
21EXIT I PRCMSG]"" D K DIFQ,PRC5INST
22 . N A,B
23 . D EN^DDIOL("IFCAP PACKAGE ENVIRONMENT CHECK FAILS:")
24 . F A=1:1 S B=$P(PRCMSG,"^",A) Q:'B S B=$T(MSG+B) D EN^DDIOL($P(B,";",3,999))
25 . QUIT
26 QUIT
27 ;
28MSG ;error message
29 ;;Missing fms conversion doc 'FND'.
30 ;;Missing fms conversion doc 'PCL'.
31 ;;Missing fms conversion doc 'PAC'.
32 ;;Missing fms conversion doc 'CPF'.
33 ;;Distributed standard dictionaries were not preloded (check patch 'PRC*4*28')
34 ;;Station is missing the FMS security code in file 411.
35 ;
36 ;
Note: See TracBrowser for help on using the repository browser.