- 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 Mar 13, 2025@21:04:45 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 ;
