- LRJOB ;SLC/DCM- JOB AUTOMATED LAB ROUTINES ; 8/22/88 10:45 ;8/22/88 10:24 AM
- ;;V~4.08~
- INST S U="^" W !,"This is an option to manually start automated Lab routines that "
- W !,"for some reason did not get started by the master lab program."
- W !!,"Have you checked the status of the Lab computer (LSI)?" S %=1 D YN^DICN G LA2:%=1
- LA3 D ASK^LR1103 W !!,"Is the Lab computer working?" S %=1 D YN^DICN G LA3:%'=1
- LA2 D STATUS
- S DIC=62.4,DIC(0)="AEMQ",DIC("S")="I Y<99" D ^DIC K DIC I Y<1 W !,"NO JOB SELECTED",! G END
- S LRJOB="^"_$P(^LAB(62.4,+Y,0),U,3),LRJOBN=+Y,ZTIO=""
- S X=$S(LRJOBN>10:$E(LRJOBN-1,1)_1,1:1),(LRJOBIO,X)=$S($D(^LAB(62.4,X,0)):$P(^(0),U,2),1:"") G RONG:X']""
- S IOP=X,%ZIS="NQ" D ^%ZIS G RONG:POP I ^%ZOSF("VOL")'=$P(^%ZIS(1,IOS,0),U,9),$P(^(0),U,9)]"" S ZTIO=X G RONG ; This line has been patched for use with KERNEL V6. AC/SFISC 10-30-88.
- A W !!!,"System status will tell you if the automated routine is running."
- W !,"Look for the name of the routine in the system status.",!
- X ^%ZOSF("SS") D ^LRPARAM
- W !,"Is the routine name listed in the system status?" S %=2 D YN^DICN I %=1 W !,"You do not want to start a job that is running!!",*7 G END
- W !,"Do you want to start the automated ",LRJOB," routine now?" S %=1 D YN^DICN G END:%'=1
- I LRJOBN#10=1 S T=LRJOBN,ZTIO=LRJOBIO D SET^LAB
- JOB I '$D(^LA(LRJOBN,"I")) W !!,*7,"There is no data in that file to be processed!!! JOB NOT STARTED!!!",*7 G END
- K ^LA("LOCK",LRJOBN) S ZTRTN=LRJOB,ZTDTH=$H D ^%ZTLOAD K ZTSK,ZTRTN,LRJOB,ZTDTH W !,"Check system status to see if job started."
- H 2 W "." H 2 X ^%ZOSF("SS") D ^LRPARAM
- END K I,LRPGM,LRTIME,LRIO,Y,DIC,LRJOB,LRJOBN,% Q
- RONG W !!,*7,"The job selected is not interfaced to this computer!",! G END
- STATUS ;DISPLAY LSI STATUS.
- W !! D DASH W !,?30,"LSI INTERFACE STATUS" D DASH
- W !,?6,"INST.",?18,"DATA",?25,"DATA",?34,"++ PROGRAM STATUS LINK +++",?67,"DEVICE"
- W !,?1," #",?6,"NAME",?18,"IN LA?",?25,"IN LAH?",?34,"NAME",?44,"ACTIVE",?52,"BY",?58,"TO",?67,"NAME"
- D DASH F IX=0:0 S IX=$O(^LAB(62.4,IX)) Q:IX<1!(IX>90) D STA2
- W !! K IX Q
- STA2 S X=$S($D(^LAB(62.4,IX,0)):^(0),1:"") W !,?1,$J(IX,2),?6,$E($P(X,"^",1),1,10),?18,$S($D(^LA(IX,"I")):"Yes",1:"No"),?25,$S($D(^LAH(+$P(X,"^",4))):"Yes",1:"No")
- W ?34,$P(X,"^",3),?44,$S($D(^LA("LOCK",IX)):"Yes",1:"No"),?52,$E($P(X,"^",7),1,3),?58 S Y=$P(X,"^",6) W $S(Y["LOG":"Acc.",Y["SEQN":"Seq.",Y["IDEN":"Invoice",Y["LLIST":"T/C",1:"")
- W ?67,$E($P(X,"^",2),1,10)
- Q
- DASH S X="",$P(X,"-",79)="" W !,X Q
- ;*** NOTE ***
- ;PATCHES HAVE BEEN INSERTED INTO THIS ROUTINE IN ORDER TO RUN WITH KERNEL V6.
- ;INSERTED BY AC/SFISC 10-30-88. UNVERIFIED PATCHES.
- ;Line> LA2+4
- ;replace> $L($P(^%ZIS(1,IOS,0),U,9))
- ;with> ^%ZOSF("VOL")'=$P(^%ZIS(1,IOS,0),U,9),$P(^(0),U,9)]""
- LRJOB ;SLC/DCM- JOB AUTOMATED LAB ROUTINES ; 8/22/88 10:45 ;8/22/88 10:24 AM
- +1 ;;V~4.08~
- INST SET U="^"
- WRITE !,"This is an option to manually start automated Lab routines that "
- +1 WRITE !,"for some reason did not get started by the master lab program."
- +2 WRITE !!,"Have you checked the status of the Lab computer (LSI)?"
- SET %=1
- DO YN^DICN
- IF %=1
- GOTO LA2
- LA3 DO ASK^LR1103
- WRITE !!,"Is the Lab computer working?"
- SET %=1
- DO YN^DICN
- IF %'=1
- GOTO LA3
- LA2 DO STATUS
- +1 SET DIC=62.4
- SET DIC(0)="AEMQ"
- SET DIC("S")="I Y<99"
- DO ^DIC
- KILL DIC
- IF Y<1
- WRITE !,"NO JOB SELECTED",!
- GOTO END
- +2 SET LRJOB="^"_$PIECE(^LAB(62.4,+Y,0),U,3)
- SET LRJOBN=+Y
- SET ZTIO=""
- +3 SET X=$SELECT(LRJOBN>10:$EXTRACT(LRJOBN-1,1)_1,1:1)
- SET (LRJOBIO,X)=$SELECT($DATA(^LAB(62.4,X,0)):$PIECE(^(0),U,2),1:"")
- IF X']""
- GOTO RONG
- +4 ; This line has been patched for use with KERNEL V6. AC/SFISC 10-30-88.
- SET IOP=X
- SET %ZIS="NQ"
- DO ^%ZIS
- IF POP
- GOTO RONG
- IF ^%ZOSF("VOL")'=$PIECE(^%ZIS(1,IOS,0),U,9)
- IF $PIECE(^(0),U,9)]""
- SET ZTIO=X
- GOTO RONG
- A WRITE !!!,"System status will tell you if the automated routine is running."
- +1 WRITE !,"Look for the name of the routine in the system status.",!
- +2 XECUTE ^%ZOSF("SS")
- DO ^LRPARAM
- +3 WRITE !,"Is the routine name listed in the system status?"
- SET %=2
- DO YN^DICN
- IF %=1
- WRITE !,"You do not want to start a job that is running!!",*7
- GOTO END
- +4 WRITE !,"Do you want to start the automated ",LRJOB," routine now?"
- SET %=1
- DO YN^DICN
- IF %'=1
- GOTO END
- +5 IF LRJOBN#10=1
- SET T=LRJOBN
- SET ZTIO=LRJOBIO
- DO SET^LAB
- JOB IF '$DATA(^LA(LRJOBN,"I"))
- WRITE !!,*7,"There is no data in that file to be processed!!! JOB NOT STARTED!!!",*7
- GOTO END
- +1 KILL ^LA("LOCK",LRJOBN)
- SET ZTRTN=LRJOB
- SET ZTDTH=$HOROLOG
- DO ^%ZTLOAD
- KILL ZTSK,ZTRTN,LRJOB,ZTDTH
- WRITE !,"Check system status to see if job started."
- +2 HANG 2
- WRITE "."
- HANG 2
- XECUTE ^%ZOSF("SS")
- DO ^LRPARAM
- END KILL I,LRPGM,LRTIME,LRIO,Y,DIC,LRJOB,LRJOBN,%
- QUIT
- RONG WRITE !!,*7,"The job selected is not interfaced to this computer!",!
- GOTO END
- STATUS ;DISPLAY LSI STATUS.
- +1 WRITE !!
- DO DASH
- WRITE !,?30,"LSI INTERFACE STATUS"
- DO DASH
- +2 WRITE !,?6,"INST.",?18,"DATA",?25,"DATA",?34,"++ PROGRAM STATUS LINK +++",?67,"DEVICE"
- +3 WRITE !,?1," #",?6,"NAME",?18,"IN LA?",?25,"IN LAH?",?34,"NAME",?44,"ACTIVE",?52,"BY",?58,"TO",?67,"NAME"
- +4 DO DASH
- FOR IX=0:0
- SET IX=$ORDER(^LAB(62.4,IX))
- IF IX<1!(IX>90)
- QUIT
- DO STA2
- +5 WRITE !!
- KILL IX
- QUIT
- STA2 SET X=$SELECT($DATA(^LAB(62.4,IX,0)):^(0),1:"")
- WRITE !,?1,$JUSTIFY(IX,2),?6,$EXTRACT($PIECE(X,"^",1),1,10),?18,$SELECT($DATA(^LA(IX,"I")):"Yes",1:"No"),?25,$SELECT($DATA(^LAH(+$PIECE(X,"^",4))):"Yes",1:"No")
- +1 WRITE ?34,$PIECE(X,"^",3),?44,$SELECT($DATA(^LA("LOCK",IX)):"Yes",1:"No"),?52,$EXTRACT($PIECE(X,"^",7),1,3),?58
- SET Y=$PIECE(X,"^",6)
- WRITE $SELECT(Y["LOG":"Acc.",Y["SEQN":"Seq.",Y["IDEN":"Invoice",Y["LLIST":"T/C",1:"")
- +2 WRITE ?67,$EXTRACT($PIECE(X,"^",2),1,10)
- +3 QUIT
- DASH SET X=""
- SET $PIECE(X,"-",79)=""
- WRITE !,X
- QUIT
- +1 ;*** NOTE ***
- +2 ;PATCHES HAVE BEEN INSERTED INTO THIS ROUTINE IN ORDER TO RUN WITH KERNEL V6.
- +3 ;INSERTED BY AC/SFISC 10-30-88. UNVERIFIED PATCHES.
- +4 ;Line> LA2+4
- +5 ;replace> $L($P(^%ZIS(1,IOS,0),U,9))
- +6 ;with> ^%ZOSF("VOL")'=$P(^%ZIS(1,IOS,0),U,9),$P(^(0),U,9)]""
