Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: INHSYS

INHSYS.m

Go to the documentation of this file. 
  1. INHSYS ;SLT,JPD,WOM; 6 Dec 95 09:31;GIS system configuration compilation/installation utility 
  1.  ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
  1.  ;COPYRIGHT 1991-2000 SAIC
  1.  ;CHCS TOOLS_460; GEN 3; 17-JUL-1997
  1.  ;COPYRIGHT 1992 SAIC
  1.  ; Supported entry points:
  1.  ;        EN5, COMP
  1.  Q
  1.  ;
  1. EN5(%RT,INCR,INASK,INDELETE,INP0) ; Called by CMS interface and ZPACK programs
  1.  ;Returns 1 for successful run, 0 for unsuccessful
  1.  ;Input
  1.  ;%RT - PROGRAM TO RUN
  1.  ;INCR - REQUIRE <CR> IF REPORTING TO PRIMARY DEVICE
  1.  ;      IF 1 YES, ELSE NO
  1.  ;INASK - Option control for ERROR notification
  1.  ;      Values: 0 - Ask if user wants reporting
  1.  ;     If user wants reporting, ask DEVICE
  1.  ;              1 - Reporting goes to ASCII flat file, xxxx.INS file
  1.  ;     in default directory
  1.  ;              4 - report goes to ascii file xxxx.INS and prints error summary
  1.  ;INDELETE - If 0 or not passed, then delete all
  1.  ;                    IBxxxxW,IBxxxxnn routines
  1.  ;           If 1, then leave them
  1.  ;           If not 0/1 then ERROR
  1.  ;INP0 - Only wants Pass 0
  1.  ;Note: INCR=1 and INASK=1 is an error condition
  1.  ;      INCR>1 or INASK>1 is an an error condition
  1.  ;Note: If INASK is passed as 1 INASK will be incremented
  1.  ;      after the first call to routine INHUT3. INASK=2 signals
  1.  ;      INHUT3 to APPEND to the flat file.
  1.  ;Note: If INASK is passed as 0 but the user specifies no reporting,
  1.  ;      INASK will be set to 3 and passed to INHUT3 as a signal
  1.  ;      to not open any devices.
  1.  ;Note: Any string passed as INDELETE will be treated as zero (0)
  1.  ;Note: Variable INREPRT controls whether the reports are printed.
  1.  ;      The user is allowed to change the value of this variable
  1.  ;      based on parameter INASK. INREPRT is referrenced in all the
  1.  ;      INHSYS* programs.
  1.  ;Note: If INP0=1 then INASK must equal 0
  1.  ;
  1.  N %SRC,%RD,%RMSEL,%UTILITY,%UCI,%SYS,%,%RTN,DWLRF,DWLB,DWL,DWLMK,DWLMK1
  1.  N %CNT,%UT,%,Y,%TT,INREPRT,INRPTNM,INPOP K ^UTILITY($J),^UTILITY("INHSYS",$J)
  1.  D VAR^DWUTL,^%ZIST I '($D(DT)#2) N DT S DT=$$DT^%ZTFDT() ;CMS SCOPES DT
  1.  ;Make sure parameters passed, initialize INPOP - flag for FATAL ERROR
  1.  S INCR=+$G(INCR),INASK=+$G(INASK),INREPRT='INASK,INDELETE=+$G(INDELETE),INP0=+$G(INP0),INPOP=0
  1.  ; check to see if error summary needs to be printed
  1.  K ^UTILITY("INHSYS_SUMERR",$J),^UTILITY("INHSYS_FILERR",$J) I INASK=4 S INREPRT=3,INASK=1,^UTILITY("INHSYS_FILERR",$J)=1
  1.  I INCR=1,INASK=1 W @IOF,$$SETXY^%ZTF(7,10),"Cannot require <CR> from user when reporting goes to a flat file!!" S %RT=$$CR^UTSRD(0,IOSL-1) Q 0
  1.  I INCR'?1N!(INCR>1)!(INASK'?1N)!(INASK>1) W @IOF,$$SETXY^%ZTF(25,10),"Invalid parameters INCR or INASK!!" S %RT=$$CR^UTSRD(0,IOSL-1) Q 0
  1.  I INDELETE>1 W:INCR @IOF,$$SETXY^%ZTF(7,10) W "Invalid parameter INDELETE!!" S:INCR %RT=$$CR^UTSRD(0,IOSL-1) Q 0
  1.  I %RT="" W:INCR @IOF,$$SETXY^%ZTF(30,10) W "Null Program Name!!" S:INCR %RT=$$CR^UTSRD(0,IOSL-1) Q 0
  1.  I $E(%RT,$L(%RT))'="W"!($E(%RT,1,2)'="IB") W:INCR @IOF,$$SETXY^%ZTF(30,10) W "Invalid Program Name!!" S:INCR %RT=$$CR^UTSRD(0,IOSL-1) Q 0
  1.  I '$$FROUT(%RT) W:INCR @IOF,$$SETXY^%ZTF(30,10) W "Routine ",%RT," not found",!!,*7 S:INCR %RT=$$CR^UTSRD(0,IOSL-1) Q 0
  1.  I INP0=1,INASK'=0 W:INCR @IOF,$$SETXY^%ZTF(30,10) W "Invalid INP0 and INASK combination.",!!,*7 S:INCR %RT=$$CR^UTSRD(0,IOSL-1) Q 0
  1.  S:INASK INRPTNM=$$TR^INHUT3($E(%RT,3,$L(%RT)-1))_".INS" S %TT=$T(@(%RT)+3^@(%RT)),%TT=$P(%TT,";",2,99),%CNT=1,%UT(1)=%RT_" - "_%TT,%UT(1,0)="",%RT=1
  1.  ;
  1.  ; If the user is allowed to specify reporting, ask about differences.
  1.  ;       If yes do pass 0.
  1.  ;  Ask if user wants seconde report
  1.  ; Otherwise do pass 0. If output to flat file, force INHUT3 to
  1.  ;       place second report in same file as pass 0.
  1.  I 'INASK D  Q:INP0 1
  1.  .D ZIS^INHUT3("INST^INHSYS05($P(%UT(%RT),"" -""),0,1)","%RT^%UT(^","",INASK) Q:INP0!INPOP
  1.  .W !,"Continue" I '$$YN^%ZTF(0) S INPOP=1 Q
  1.  .W !!,"Would you like a list of updated files and fields." S INREPRT=$$YN^%ZTF(0) S:'INREPRT INASK=3
  1.  E  D ZIS^INHUT3("INST^INHSYS05($P(%UT(%RT),"" -""),0,INREPRT)","%RT^%UT(^","",INASK) S:INASK=1 INASK=2
  1.  Q:INPOP 0
  1.  ;Disable <cntrl>C
  1.  I '$$BREAK(0)
  1.  D ZIS^INHUT3("LOOP^INHSYS10(%UT(%RT),INREPRT,INDELETE)","%RT^%UT(^INREPRT^","",INASK)
  1.  ;Enable <cntrl>C
  1.  I $$BREAK(1)
  1.  D ALLSUMER^INHSYS11(1)   ;if error summary is requested, display it on the user's current device and kill the utility summary global
  1.  ; If INPOP=1 then fail (return 0) else return 1
  1.  Q 'INPOP
  1. BREAK(%) ;Inable/Disable break
  1.  N EX S EX="U $I:"_$S(%:"",1:"NO")_"CENABLE"
  1.  I %,$$BREAK^%ZTF(%),^DD("OS")=15 X EX
  1.  I '%,'$$BREAK^%ZTF(%),^DD("OS")=15 X EX
  1.  Q %
  1. FROUT(%FIND) ;Return 1 if routine found, 0 else
  1.  Q $$ROUTEST^%ZTF(%FIND)
  1. COMP(INSELTT,INASK) ;compile Transaction Types into cms elements
  1.  ; Called by tags EN1 and EN2 above
  1.  ; Also called by $$COMP^INZTTC
  1.  ; Input:
  1.  ; INSELTT - Array of selected Transaction Types
  1.  ;      INSELTT = # Selected
  1.  ;      INSELTT(n) = IEN^0_NODE
  1.  ; INASK - Option control for ERROR notification
  1.  ;      Values: 0 - Ask if user wants reporting
  1.  ;     If user wants reporting, ask DEVICE
  1.  ;              1 - Reporting goes to ASCII flat file in the user's
  1.  ;     default directory. The filename is based on the
  1.  ;     UNIQUE IDENTIFIER of the INTERFACE TRANSACTION TYPE
  1.  ;     chosen. This file has a ".GEN" extention to signify
  1.  ;     it came from the GENERATION (export) module.
  1.  ;              DEFAULT is 0
  1.  ; Note: When INASK=0, if the user specifies no reporting, INASK
  1.  ;       will be set to 3 and passed to INHUT3 as a signal to not
  1.  ;       open any devices.
  1.  ; Note: INPOP should be in the data space from the calling routine
  1.  ;       and should be set to 0. This variable is a flag used
  1.  ;       to denote FATAL ERRORS and should be checked by the calling
  1.  ;       routine to determine successful generation. If the value is
  1.  ;       1, this will denote failure.
  1.  ;       Note to Note: INPOP is not the only failure condition that
  1.  ;                     should be checked by the calling program.
  1.  N INREPRT,INLKFLS,AA,INRPTNM K ^UTILITY($J),^UTILITY("INHSYS",$J)
  1.  S INASK=+$G(INASK),INREPRT=1 I '($D(DT)#2) N DT S DT=$$DT^%ZTFDT() ;CMS SCOPES DT
  1.  I '$D(INCR) N INCR S INCR=0
  1.  I INASK'?1N!(INASK>1) W @IOF,$$SETXY^%ZTF(25,10),"Invalid parameters INASK!!" S INASK=$$CR^UTSRD(0,IOSL-1) Q
  1.  I $D(INSELTT)'=11 W @IOF,$$SETXY^%ZTF(25,10),"No TRANSACTION TYPES available!!" S INASK=$$CR^UTSRD(0,IOSL-1) Q
  1.  I INASK S INRPTNM=$$TR^INHUT3($$ID^INHSYS04(+INSELTT(1)))_".GEN"
  1.  I 'INASK W !,"Do you wish to see a report" S AA=$$YN^%ZTF(1) Q:AA="^"  S:'AA INREPRT=0,INASK=3
  1.  ; Quit if cannot lock all relevent files
  1.  I '$$LOCKFL^INHSYSUT(.INLKFLS,0),'INPOP D ZIS^INHUT3("RUN^INHSYS10(INREPRT,.INSELTT)","INREPRT^INSELTT(^","132",INASK)
  1.  ; Unlock files
  1.  S AA="" F  S AA=$O(INLKFLS(AA)) Q:AA=""  D UNLK^INHSYSUT(AA)
  1.  Q
  1. RESTORE(%UT,%RT) ;
  1.  ; Input:
  1.  ; %UT - global to store routine that is being restored
  1.  ; %RT - selected node from global
  1.  D:$$QUERY() ZIS^INHUT3("INST^INHSYS05($P(%UT(%RT),"" -""),0,1)","%RT^%UT(^")
  1.  W !!,"Do you wish to proceed with installation" I '$$YN^%ZTF(0) Q
  1.  W !!,"Would you like a list of updated files and fields" S INREPRT=$$YN^%ZTF(0)
  1.  ;Disable <cntrl>C
  1.  I '$$BREAK^%ZTF(0),^DD("OS")=15 U $I:NOCENABLE
  1.  D ZIS^INHUT3("LOOP^INHSYS10(%UT(%RT),INREPRT)","%RT^%UT(^INREPRT^")
  1.  ;Enable <cntrl>C
  1.  I $$BREAK^%ZTF(1),^DD("OS")=15 U $I:CENABLE
  1.  Q
  1. QUERY() W !!,"Would you like a report of related files that exist ",!,"and do not exist in the environment"
  1.  Q $$YN^%ZTF(0)
  1. Q Q
  1. ROUT(%UTILITY) ;Get available routines
  1.  ;N %RTN
  1.  ;S %RTN="IB" F  S %RTN=$O(^ (%RTN)) Q:$E(%RTN,1,2)'="IB"  D
  1.  ;.I %RTN["FAIL"!($E(%RTN,$L(%RTN))'["W") Q
  1.  ;.S %UTILITY(%RTN)=""
  1.  ;D ORDER^INHUT3("^ ","%RTN","IB","$E(%RTN,1,2)'=""IB""","I %RTN'[""FAIL"",$E(%RTN,$L(%RTN))[""W"" S %UTILITY(%RTN)=""""")
  1.  D ORDER^INHUT3("^ ","%RTN","IB","$E(%RTN,1,2)'=""IB""","I $E(%RTN,$L(%RTN))[""W"" S %UTILITY(%RTN)=""""")
  1.  Q $D(%UTILITY)