- INHSYS10 ;SLT,JPD,WOM; 20 Oct 95 16:03;GIS system configuration compilation/installation utility; program split from INHSYS
- ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
- ;COPYRIGHT 1991-2000 SAIC
- ;CHCS TOOLS_460; GEN 3; 17-JUL-1997
- ;COPYRIGHT 1992 SAIC
- Q
- LOOP(INUT,INREPRT,INDELETE) ;
- ; Input:
- ; INUT - Routine to run and Transaction file name
- ; INREPRT - 0 - No report
- ; 1 - Report
- ; INDELETE - If 0/not passed/string then delete
- ; IBxxxxW,IBxxxxnn programs
- ; else do not delete programs
- ;Loop through PASS1 and PASS2
- N %PASS,%LFILES,AA,%SAV
- K ^UTILITY($J),^UTILITY("INHSYS",$J),^UTILITY("INHSYSUT",$J)
- S %DRVR=$P(INUT," -"),INDELETE=+$G(INDELETE)
- X "D EN^@%DRVR" ;used eXecute so that ^TCQ program does not crash!
- I $D(^UTILITY("INHSYS")),'$$LOCKFL^INHSYSUT(.INLKFLS) D
- .F %PASS=1:1:2 D INST^INHSYS05(%DRVR,.%PASS,INREPRT) Q:INPOP
- .Q:INPOP D PASS3^INHSYS06
- .Q:INPOP D PASS4^INHSYS06
- E S INPOP=1
- ;Unlock files/Clean up ^UTILITY/Remove IB routines
- S AA="" F S AA=$O(INLKFLS(AA)) Q:AA="" D UNLK^INHSYSUT(AA)
- K ^UTILITY($J),^UTILITY("INHSYS",$J),^UTILITY("INHSYSUT",$J)
- D:'INDELETE RMRTN^INHUT3($E(%DRVR,1,$L(%DRVR)-1))
- D ALLSUMER^INHSYS11() ;if error summary is requested, display it on the user's current device
- ;
- W !!,"File transfer ",$S('INPOP:"completed.",1:"aborted!")
- Q
- RUN(INREPRT,INSELTT) ;
- ; Input:
- ; INREPRT - 0 - No report
- ; 1 - Report
- ; INSELTT -Array of selected files
- ;
- N INORDR,INROU K ^UTILITY($J),^UTILITY("SVD",$J),^UTILITY("INHSYS",$J)
- S INORDR=""
- F S INORDR=$O(INSELTT(INORDR)) Q:'INORDR D PARSE(INSELTT(INORDR),.INROU,INREPRT) Q:INPOP
- Q:INPOP I $D(INROU) D
- .D NTRNL^INHSYS04(.INROU,$E($O(INROU(""),-1),1,6)_"W")
- .I INREPRT,$E(IOST)="C",INCR,$$CR^UTSRD(0,IOSL-1)
- Q
- PARSE(INPTT,INROU,INREPRT) ;begin data collection for a transaction type
- ;input:
- ; INPTT - ien^.01 parent transaction type from INTERFACE
- ; TRANSACTION TYPE file
- ; INREPRT - 0 - No report
- ; 1 - Report
- ;output:
- ; INROU - array of compiled routines where INROU(routine)=""
- ; Must be passed by referrence as the second parameter
- ;
- ;set global with file numbers
- I INREPRT D HEAD^INHSYS03(1)
- ;
- ;build storage buffer with transaction type data
- D XTRK^INHSYS01(+INPTT,"^INRHT(","^UTILITY($J,4000,",4000,INREPRT,0)
- I INPOP K ^UTILITY($J) Q
- ;
- I INREPRT,$E(IOST)="C",INCR,$$CR^UTSRD(0,IOSL-1)
- ;
- ;resolve all pointer relationships (ien to .01)
- D EXPAND^INHSYS03(INREPRT) Q:INPOP
- ;
- I INREPRT,$E(IOST)="C",INCR W $$RPTFOOT^INHUT5,@IOF
- ;
- ;format data into a routine
- D RTNBFR^INHSYS04(+INPTT,.INROU)
- Q
- INHSYS10 ;SLT,JPD,WOM; 20 Oct 95 16:03;GIS system configuration compilation/installation utility; program split from INHSYS
- +1 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001
- +2 ;COPYRIGHT 1991-2000 SAIC
- +3 ;CHCS TOOLS_460; GEN 3; 17-JUL-1997
- +4 ;COPYRIGHT 1992 SAIC
- +5 QUIT
- LOOP(INUT,INREPRT,INDELETE) ;
- +1 ; Input:
- +2 ; INUT - Routine to run and Transaction file name
- +3 ; INREPRT - 0 - No report
- +4 ; 1 - Report
- +5 ; INDELETE - If 0/not passed/string then delete
- +6 ; IBxxxxW,IBxxxxnn programs
- +7 ; else do not delete programs
- +8 ;Loop through PASS1 and PASS2
- +9 NEW %PASS,%LFILES,AA,%SAV
- +10 KILL ^UTILITY($JOB),^UTILITY("INHSYS",$JOB),^UTILITY("INHSYSUT",$JOB)
- +11 SET %DRVR=$PIECE(INUT," -")
- SET INDELETE=+$GET(INDELETE)
- +12 ;used eXecute so that ^TCQ program does not crash!
- XECUTE "D EN^@%DRVR"
- +13 IF $DATA(^UTILITY("INHSYS"))
- IF '$$LOCKFL^INHSYSUT(.INLKFLS)
- Begin DoDot:1
- +14 FOR %PASS=1:1:2
- DO INST^INHSYS05(%DRVR,.%PASS,INREPRT)
- IF INPOP
- QUIT
- +15 IF INPOP
- QUIT
- DO PASS3^INHSYS06
- +16 IF INPOP
- QUIT
- DO PASS4^INHSYS06
- End DoDot:1
- +17 IF '$TEST
- SET INPOP=1
- +18 ;Unlock files/Clean up ^UTILITY/Remove IB routines
- +19 SET AA=""
- FOR
- SET AA=$ORDER(INLKFLS(AA))
- IF AA=""
- QUIT
- DO UNLK^INHSYSUT(AA)
- +20 KILL ^UTILITY($JOB),^UTILITY("INHSYS",$JOB),^UTILITY("INHSYSUT",$JOB)
- +21 IF 'INDELETE
- DO RMRTN^INHUT3($EXTRACT(%DRVR,1,$LENGTH(%DRVR)-1))
- +22 ;if error summary is requested, display it on the user's current device
- DO ALLSUMER^INHSYS11()
- +23 ;
- +24 WRITE !!,"File transfer ",$SELECT('INPOP:"completed.",1:"aborted!")
- +25 QUIT
- RUN(INREPRT,INSELTT) ;
- +1 ; Input:
- +2 ; INREPRT - 0 - No report
- +3 ; 1 - Report
- +4 ; INSELTT -Array of selected files
- +5 ;
- +6 NEW INORDR,INROU
- KILL ^UTILITY($JOB),^UTILITY("SVD",$JOB),^UTILITY("INHSYS",$JOB)
- +7 SET INORDR=""
- +8 FOR
- SET INORDR=$ORDER(INSELTT(INORDR))
- IF 'INORDR
- QUIT
- DO PARSE(INSELTT(INORDR),.INROU,INREPRT)
- IF INPOP
- QUIT
- +9 IF INPOP
- QUIT
- IF $DATA(INROU)
- Begin DoDot:1
- +10 DO NTRNL^INHSYS04(.INROU,$EXTRACT($ORDER(INROU(""),-1),1,6)_"W")
- +11 IF INREPRT
- IF $EXTRACT(IOST)="C"
- IF INCR
- IF $$CR^UTSRD(0,IOSL-1)
- End DoDot:1
- +12 QUIT
- PARSE(INPTT,INROU,INREPRT) ;begin data collection for a transaction type
- +1 ;input:
- +2 ; INPTT - ien^.01 parent transaction type from INTERFACE
- +3 ; TRANSACTION TYPE file
- +4 ; INREPRT - 0 - No report
- +5 ; 1 - Report
- +6 ;output:
- +7 ; INROU - array of compiled routines where INROU(routine)=""
- +8 ; Must be passed by referrence as the second parameter
- +9 ;
- +10 ;set global with file numbers
- +11 IF INREPRT
- DO HEAD^INHSYS03(1)
- +12 ;
- +13 ;build storage buffer with transaction type data
- +14 DO XTRK^INHSYS01(+INPTT,"^INRHT(","^UTILITY($J,4000,",4000,INREPRT,0)
- +15 IF INPOP
- KILL ^UTILITY($JOB)
- QUIT
- +16 ;
- +17 IF INREPRT
- IF $EXTRACT(IOST)="C"
- IF INCR
- IF $$CR^UTSRD(0,IOSL-1)
- +18 ;
- +19 ;resolve all pointer relationships (ien to .01)
- +20 DO EXPAND^INHSYS03(INREPRT)
- IF INPOP
- QUIT
- +21 ;
- +22 IF INREPRT
- IF $EXTRACT(IOST)="C"
- IF INCR
- WRITE $$RPTFOOT^INHUT5,@IOF
- +23 ;
- +24 ;format data into a routine
- +25 DO RTNBFR^INHSYS04(+INPTT,.INROU)
- +26 QUIT
