- ASURDPRT ; IHS/ITSC/LMH -DAILY UPDATE REPORTS DRIVER ;
- ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
- ;This routine controls the sequence of printing of all reports created
- ;during a daily (including monthly and yearly) update run.
- K IO("Q")
- S XBRP="ST^ASURDPRT"
- K XBRC
- S XBRX="STAT^ASUPUKIL"
- S XBIOP=ASUK("SRPT","IOP")
- S ASUK("PTR")="SRPT"
- D Q^ASUUZIS
- IV ;EP; TASKMAN
- ;I $G(ASUP("RE*"))=2 S:ASUP("CKP")=6 ASUP("CKP")=7 Q
- S ASUP("CKP")=$G(ASUP("CKP")) I ASUP("CKP")]"",ASUP("CKP")'=6 Q
- S ASUK("PTR")="IRPT",ASUK("PTRSEL")=1
- S ASUK("PTR-Q")=ASUK("IRPT","Q")
- S IOP=ASUK("IRPT","IOP")
- I ASUK("PTR-Q") D
- .I $D(IOF),IOF']"" S IOP=ASUK(ASUK("PTR"),"IOF")
- E D
- .I ASUK(ASUK("PTR"),"ION")["HOST"!(ASUK(ASUK("PTR"),"ION")["HFS") D
- ..S IOPAR=ASUK(ASUK("PTR"),"IOPAR")
- .E D
- ..I ASUP("AIV")=0 Q
- ..W !!,"Mount 8 1/2 X 11 Paper on Printer ",ASUK("IRPT","ION")
- ..K DIR S DIR(0)="E",DTIME=2 D ^DIR S DTIME=$$DTIME^XUP(DUZ) Q:$D(DUOUT)
- ..I $D(DTOUT) K DTOUT W !,"Timed out -assumed forms were correctly mounted"
- .D O^ASUUZIS
- Q:$D(DTOUT) Q:$D(DUOUT) I $D(POP) Q:POP
- D PSER^ASURDINV
- Q
- ST ;EP; TASKAMN DOUBLE OR SINGLE QUEING
- S ASUP("CKP")=$G(ASUP("CKP"))
- I ASUP("CKP")]"",ASUP("CKP")'=7 Q
- S ASUK("PTR")="SRPT",ASUK("PTRSEL")=1
- S ASUK("PTR-Q")=ASUK("SRPT","Q")
- S IOP=ASUK("SRPT","IOP")
- I ASUK("PTR-Q") D
- .I $D(IOF),IOF']"" S IOP=ASUK(ASUK("PTR"),"IOF")
- E D
- .I ASUK(ASUK("PTR"),"ION")["HOST"!(ASUK(ASUK("PTR"),"ION")["HFS") D
- ..S IOPAR=ASUK(ASUK("PTR"),"IOPAR")
- .E D
- ..I ASUP("AST")=0 Q
- ..W !!,"Mount Standard Computer Paper on Printer ",ASUK("SRPT","ION")
- ..K DIR S DIR(0)="E",DTIME=2 D ^DIR S DTIME=$$DTIME^XUP(DUZ) Q:$D(DUOUT)
- ..I $D(DTOUT) K DTOUT W !,"Timed out -assumed forms were correctly mounted"
- .D O^ASUUZIS
- Q:$D(DTOUT) Q:$D(DUOUT) Q:POP
- D PSER^ASURDSTD,SETSTAT^ASUCOSTS
- I ASUP("CKS")=0 S ASUP("CKP")=0 D SETSTAT^ASUCOSTS
- Q
- ASURDPRT ; IHS/ITSC/LMH -DAILY UPDATE REPORTS DRIVER ;
- +1 ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
- +2 ;This routine controls the sequence of printing of all reports created
- +3 ;during a daily (including monthly and yearly) update run.
- +4 KILL IO("Q")
- +5 SET XBRP="ST^ASURDPRT"
- +6 KILL XBRC
- +7 SET XBRX="STAT^ASUPUKIL"
- +8 SET XBIOP=ASUK("SRPT","IOP")
- +9 SET ASUK("PTR")="SRPT"
- +10 DO Q^ASUUZIS
- IV ;EP; TASKMAN
- +1 ;I $G(ASUP("RE*"))=2 S:ASUP("CKP")=6 ASUP("CKP")=7 Q
- +2 SET ASUP("CKP")=$GET(ASUP("CKP"))
- IF ASUP("CKP")]""
- IF ASUP("CKP")'=6
- QUIT
- +3 SET ASUK("PTR")="IRPT"
- SET ASUK("PTRSEL")=1
- +4 SET ASUK("PTR-Q")=ASUK("IRPT","Q")
- +5 SET IOP=ASUK("IRPT","IOP")
- +6 IF ASUK("PTR-Q")
- Begin DoDot:1
- +7 IF $DATA(IOF)
- IF IOF']""
- SET IOP=ASUK(ASUK("PTR"),"IOF")
- End DoDot:1
- +8 IF '$TEST
- Begin DoDot:1
- +9 IF ASUK(ASUK("PTR"),"ION")["HOST"!(ASUK(ASUK("PTR"),"ION")["HFS")
- Begin DoDot:2
- +10 SET IOPAR=ASUK(ASUK("PTR"),"IOPAR")
- End DoDot:2
- +11 IF '$TEST
- Begin DoDot:2
- +12 IF ASUP("AIV")=0
- QUIT
- +13 WRITE !!,"Mount 8 1/2 X 11 Paper on Printer ",ASUK("IRPT","ION")
- +14 KILL DIR
- SET DIR(0)="E"
- SET DTIME=2
- DO ^DIR
- SET DTIME=$$DTIME^XUP(DUZ)
- IF $DATA(DUOUT)
- QUIT
- +15 IF $DATA(DTOUT)
- KILL DTOUT
- WRITE !,"Timed out -assumed forms were correctly mounted"
- End DoDot:2
- +16 DO O^ASUUZIS
- End DoDot:1
- +17 IF $DATA(DTOUT)
- QUIT
- IF $DATA(DUOUT)
- QUIT
- IF $DATA(POP)
- IF POP
- QUIT
- +18 DO PSER^ASURDINV
- +19 QUIT
- ST ;EP; TASKAMN DOUBLE OR SINGLE QUEING
- +1 SET ASUP("CKP")=$GET(ASUP("CKP"))
- +2 IF ASUP("CKP")]""
- IF ASUP("CKP")'=7
- QUIT
- +3 SET ASUK("PTR")="SRPT"
- SET ASUK("PTRSEL")=1
- +4 SET ASUK("PTR-Q")=ASUK("SRPT","Q")
- +5 SET IOP=ASUK("SRPT","IOP")
- +6 IF ASUK("PTR-Q")
- Begin DoDot:1
- +7 IF $DATA(IOF)
- IF IOF']""
- SET IOP=ASUK(ASUK("PTR"),"IOF")
- End DoDot:1
- +8 IF '$TEST
- Begin DoDot:1
- +9 IF ASUK(ASUK("PTR"),"ION")["HOST"!(ASUK(ASUK("PTR"),"ION")["HFS")
- Begin DoDot:2
- +10 SET IOPAR=ASUK(ASUK("PTR"),"IOPAR")
- End DoDot:2
- +11 IF '$TEST
- Begin DoDot:2
- +12 IF ASUP("AST")=0
- QUIT
- +13 WRITE !!,"Mount Standard Computer Paper on Printer ",ASUK("SRPT","ION")
- +14 KILL DIR
- SET DIR(0)="E"
- SET DTIME=2
- DO ^DIR
- SET DTIME=$$DTIME^XUP(DUZ)
- IF $DATA(DUOUT)
- QUIT
- +15 IF $DATA(DTOUT)
- KILL DTOUT
- WRITE !,"Timed out -assumed forms were correctly mounted"
- End DoDot:2
- +16 DO O^ASUUZIS
- End DoDot:1
- +17 IF $DATA(DTOUT)
- QUIT
- IF $DATA(DUOUT)
- QUIT
- IF POP
- QUIT
- +18 DO PSER^ASURDSTD
- DO SETSTAT^ASUCOSTS
- +19 IF ASUP("CKS")=0
- SET ASUP("CKP")=0
- DO SETSTAT^ASUCOSTS
- +20 QUIT
