PRC5C ;WISC/PLT-IFCAP environment check routine defined in package file ;
V ;;5.0;IFCAP;;4/21/95
;
;invoke by the environment check routine field of package file.
EN ;called from routine prcinit/prc5ins1
N PRCERR,PRCMSG
S (PRCERR,PRCMSG)=""
D EN^DDIOL("IFCAP ENVIRONMENT CHECK STARTS:")
D ^PRC5INS1 ;check other package(s) installed
D:PRCIVER<5
. D EN^PRC5C1("FND") S:$G(PRCERR) PRCMSG=PRCMSG_"1^",PRCERR=""
. D EN^PRC5C1("PCL") S:$G(PRCERR) PRCMSG=PRCMSG_"2^",PRCERR=""
. D EN^PRC5C1("PAC") S:$G(PRCERR) PRCMSG=PRCMSG_"3^",PRCERR=""
. D EN1^PRC5C1 S:$G(PRCERR) PRCMSG=PRCMSG_"5^",PRCERR=""
. QUIT
D:PRCIVER<5&PRCIVER
. D EN^PRC5C1("CPF") S:$G(PRCERR) PRCMSG=PRCMSG_"4^",PRCERR=""
. QUIT
D EN2^PRC5C1 S:$G(PRCERR) PRCMSG=PRCMSG_"6^",PRCERR=""
D EN^DDIOL("IFCAP PACKAGE ENVIRONMENT CHECK DONE!")
EXIT I PRCMSG]"" D K DIFQ,PRC5INST
. N A,B
. D EN^DDIOL("IFCAP PACKAGE ENVIRONMENT CHECK FAILS:")
. F A=1:1 S B=$P(PRCMSG,"^",A) Q:'B S B=$T(MSG+B) D EN^DDIOL($P(B,";",3,999))
. QUIT
QUIT
;
MSG ;error message
;;Missing fms conversion doc 'FND'.
;;Missing fms conversion doc 'PCL'.
;;Missing fms conversion doc 'PAC'.
;;Missing fms conversion doc 'CPF'.
;;Distributed standard dictionaries were not preloded (check patch 'PRC*4*28')
;;Station is missing the FMS security code in file 411.
;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRC5C 1356 printed Oct 16, 2024@18:00:43 Page 2
PRC5C ;WISC/PLT-IFCAP environment check routine defined in package file ;
V ;;5.0;IFCAP;;4/21/95
+1 ;
+2 ;invoke by the environment check routine field of package file.
EN ;called from routine prcinit/prc5ins1
+1 NEW PRCERR,PRCMSG
+2 SET (PRCERR,PRCMSG)=""
+3 DO EN^DDIOL("IFCAP ENVIRONMENT CHECK STARTS:")
+4 ;check other package(s) installed
DO ^PRC5INS1
+5 if PRCIVER<5
Begin DoDot:1
+6 DO EN^PRC5C1("FND")
if $GET(PRCERR)
SET PRCMSG=PRCMSG_"1^"
SET PRCERR=""
+7 DO EN^PRC5C1("PCL")
if $GET(PRCERR)
SET PRCMSG=PRCMSG_"2^"
SET PRCERR=""
+8 DO EN^PRC5C1("PAC")
if $GET(PRCERR)
SET PRCMSG=PRCMSG_"3^"
SET PRCERR=""
+9 DO EN1^PRC5C1
if $GET(PRCERR)
SET PRCMSG=PRCMSG_"5^"
SET PRCERR=""
+10 QUIT
End DoDot:1
+11 if PRCIVER<5&PRCIVER
Begin DoDot:1
+12 DO EN^PRC5C1("CPF")
if $GET(PRCERR)
SET PRCMSG=PRCMSG_"4^"
SET PRCERR=""
+13 QUIT
End DoDot:1
+14 DO EN2^PRC5C1
if $GET(PRCERR)
SET PRCMSG=PRCMSG_"6^"
SET PRCERR=""
+15 DO EN^DDIOL("IFCAP PACKAGE ENVIRONMENT CHECK DONE!")
EXIT IF PRCMSG]""
Begin DoDot:1
+1 NEW A,B
+2 DO EN^DDIOL("IFCAP PACKAGE ENVIRONMENT CHECK FAILS:")
+3 FOR A=1:1
SET B=$PIECE(PRCMSG,"^",A)
if 'B
QUIT
SET B=$TEXT(MSG+B)
DO EN^DDIOL($PIECE(B,";",3,999))
+4 QUIT
End DoDot:1
KILL DIFQ,PRC5INST
+5 QUIT
+6 ;
MSG ;error message
+1 ;;Missing fms conversion doc 'FND'.
+2 ;;Missing fms conversion doc 'PCL'.
+3 ;;Missing fms conversion doc 'PAC'.
+4 ;;Missing fms conversion doc 'CPF'.
+5 ;;Distributed standard dictionaries were not preloded (check patch 'PRC*4*28')
+6 ;;Station is missing the FMS security code in file 411.
+7 ;
+8 ;
