| [613] | 1 | PRC5C ;WISC/PLT-IFCAP environment check routine defined in package file ;
|
|---|
| 2 | V ;;5.0;IFCAP;;4/21/95
|
|---|
| 3 | ;
|
|---|
| 4 | ;invoke by the environment check routine field of package file.
|
|---|
| 5 | EN ;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!")
|
|---|
| 21 | EXIT 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 | ;
|
|---|
| 28 | MSG ;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 | ;
|
|---|
