- ANSCZIS ;IHS/OIRM/DSD/CSC - DEVICE CALLS AND QUEUING; [ 02/25/98 10:32 AM ]
- ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996
- ;;ROUTINE USED AS CENTRAL POINT FOR ALL DEVICE HANDLING AND QUEUING
- ZIS ;EP;TO CALL DEVICE
- K DN
- D FS
- I $D(ANSCOND) D
- .W !!,*7,*7,"The report you are about to print requires either a wide carriage printer or",!,"a printer set for condensed mode with a width of 132 characters."
- .W !,"Check with your system manager if you are uncertain which device to select."
- K ANSCOND
- S %ZIS="NPQ",ZIBH=$TR($H,",","")_$R(1000)
- W !
- S:$D(ANSREV) IOP="HOME"
- D ^%ZIS
- I POP>0 D CLOSE Q
- S:$G(IOPAR)]"" %ZIS("IOPAR")=IOPAR
- S ZTSAVE("%ZIS*")="",ZTSAVE("ZIBH")=""
- S ZTRTN="OPEN^ANSCZIS"
- I $D(IO("Q")),IO=IO(0)!$D(IO("S")) W !!,*7,"CANNOT QUEUE TO HOME OR SLAVE DEVICE." G ZIS
- I $E(IOST,1,2)="P-",'$D(ANSREV) D I $D(ANSQUIT)!$D(ANSOUT) D CLOSE Q
- .S DIR(0)="NO^1:99",DIR("A")="Number of Copies",DIR("B")=1
- .D DIR^ANSDIC
- .I $D(ANSQUIT)!$D(ANSOUT)!'+Y S ANSQUIT="" Q
- .S ANSCOPY=+Y
- .S ANSPRT=IO ;;CSC 7-97
- I '$D(IO("Q")) D D CLOSE Q
- .I $E(IOST,1,2)="P-" W !!,"...One moment please, while I complete your print request...",!
- .D:$D(ANSRTN) @ZTRTN
- E D ZTLOAD
- Q
- CLOSE ;EP;TO CLOSE DEVICE
- D ^%ZISC ;S IO=ANSPRT D ^%ZISC ;;CSC 7-97
- K IOP,IOPAR,%ZIS,ZTSK,ANSPRT
- Q
- ZTLOAD ;EP;TO CALL %ZTLOAD
- K ANSDR
- S ZTIO=ION,ZTSAVE("ANS*")=""
- D ^%ZTLOAD
- W !!,$S($G(ZTSK)]"":"Request queued!",1:"Request cancelled.")
- D CLOSE
- H 2
- Q
- OPEN ;EP;TO OPEN DEVICE AND PRINT SELECTED REPORT
- I '$D(ZTQUEUED)!(ION["HOST") S IOP=ION D ^%ZIS I POP S ANSQUIT="" Q
- S ANSPRT=IO ;;CSC 7-97
- D @ANSRTN
- S:$D(ZTQUEUED) ZTREQ="@"
- D:'$D(ZTQUEUED) CLOSE
- Q
- HOST ;EP;TO OPEN HOST FILE
- ;%FN - FILE NAME REQUIRED
- ;ANSOP - 'R' FOR READ, 'W' FOR WRITE REQUIRED, 'M' FOR READ/WRITE
- Q:'$D(%FN)!'$D(ANSOP)
- F ANSI=1:1:4 S (IOP,ION)="HOST FILE SERVER #"_ANSI,%ZIS("IOPAR")="("""_%FN_""":"""_ANSOP_""")" D ^%ZIS Q:'POP
- I POP G HOST
- K IOP
- Q
- FS ;EP;TO CHECK IF WIDE CARRIAGE/CONDENSED PRINTER NEEDED
- I $G(ANSDOCDA),$D(^ANSDOC(ANSDOCDA,3)) N X S X=^(3) D
- .I $P(X,U,13),'$P(X,U,17) D
- ..I $P($G(^ANSPO(+$P($G(^ANSDOC(ANSDOCDA,0)),U,8),"DT")),U,10) S X=$P(^("DT"),U,10),(ION,%ZIS("B"))=$P(^%ZIS(1,X,0),U)
- ..E S ANSCOND=""
- .S:$P(X,U,17)=1 ANS3542=""
- Q
- ANSCZIS ;IHS/OIRM/DSD/CSC - DEVICE CALLS AND QUEUING; [ 02/25/98 10:32 AM ]
- +1 ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996
- +2 ;;ROUTINE USED AS CENTRAL POINT FOR ALL DEVICE HANDLING AND QUEUING
- ZIS ;EP;TO CALL DEVICE
- +1 KILL DN
- +2 DO FS
- +3 IF $DATA(ANSCOND)
- Begin DoDot:1
- +4 WRITE !!,*7,*7,"The report you are about to print requires either a wide carriage printer or",!,"a printer set for condensed mode with a width of 132 characters."
- +5 WRITE !,"Check with your system manager if you are uncertain which device to select."
- End DoDot:1
- +6 KILL ANSCOND
- +7 SET %ZIS="NPQ"
- SET ZIBH=$TRANSLATE($HOROLOG,",","")_$RANDOM(1000)
- +8 WRITE !
- +9 IF $DATA(ANSREV)
- SET IOP="HOME"
- +10 DO ^%ZIS
- +11 IF POP>0
- DO CLOSE
- QUIT
- +12 IF $GET(IOPAR)]""
- SET %ZIS("IOPAR")=IOPAR
- +13 SET ZTSAVE("%ZIS*")=""
- SET ZTSAVE("ZIBH")=""
- +14 SET ZTRTN="OPEN^ANSCZIS"
- +15 IF $DATA(IO("Q"))
- IF IO=IO(0)!$DATA(IO("S"))
- WRITE !!,*7,"CANNOT QUEUE TO HOME OR SLAVE DEVICE."
- GOTO ZIS
- +16 IF $EXTRACT(IOST,1,2)="P-"
- IF '$DATA(ANSREV)
- Begin DoDot:1
- +17 SET DIR(0)="NO^1:99"
- SET DIR("A")="Number of Copies"
- SET DIR("B")=1
- +18 DO DIR^ANSDIC
- +19 IF $DATA(ANSQUIT)!$DATA(ANSOUT)!'+Y
- SET ANSQUIT=""
- QUIT
- +20 SET ANSCOPY=+Y
- +21 ;;CSC 7-97
- SET ANSPRT=IO
- End DoDot:1
- IF $DATA(ANSQUIT)!$DATA(ANSOUT)
- DO CLOSE
- QUIT
- +22 IF '$DATA(IO("Q"))
- Begin DoDot:1
- +23 IF $EXTRACT(IOST,1,2)="P-"
- WRITE !!,"...One moment please, while I complete your print request...",!
- +24 IF $DATA(ANSRTN)
- DO @ZTRTN
- End DoDot:1
- DO CLOSE
- QUIT
- +25 IF '$TEST
- DO ZTLOAD
- +26 QUIT
- CLOSE ;EP;TO CLOSE DEVICE
- +1 ;S IO=ANSPRT D ^%ZISC ;;CSC 7-97
- DO ^%ZISC
- +2 KILL IOP,IOPAR,%ZIS,ZTSK,ANSPRT
- +3 QUIT
- ZTLOAD ;EP;TO CALL %ZTLOAD
- +1 KILL ANSDR
- +2 SET ZTIO=ION
- SET ZTSAVE("ANS*")=""
- +3 DO ^%ZTLOAD
- +4 WRITE !!,$SELECT($GET(ZTSK)]"":"Request queued!",1:"Request cancelled.")
- +5 DO CLOSE
- +6 HANG 2
- +7 QUIT
- OPEN ;EP;TO OPEN DEVICE AND PRINT SELECTED REPORT
- +1 IF '$DATA(ZTQUEUED)!(ION["HOST")
- SET IOP=ION
- DO ^%ZIS
- IF POP
- SET ANSQUIT=""
- QUIT
- +2 ;;CSC 7-97
- SET ANSPRT=IO
- +3 DO @ANSRTN
- +4 IF $DATA(ZTQUEUED)
- SET ZTREQ="@"
- +5 IF '$DATA(ZTQUEUED)
- DO CLOSE
- +6 QUIT
- HOST ;EP;TO OPEN HOST FILE
- +1 ;%FN - FILE NAME REQUIRED
- +2 ;ANSOP - 'R' FOR READ, 'W' FOR WRITE REQUIRED, 'M' FOR READ/WRITE
- +3 IF '$DATA(%FN)!'$DATA(ANSOP)
- QUIT
- +4 FOR ANSI=1:1:4
- SET (IOP,ION)="HOST FILE SERVER #"_ANSI
- SET %ZIS("IOPAR")="("""_%FN_""":"""_ANSOP_""")"
- DO ^%ZIS
- IF 'POP
- QUIT
- +5 IF POP
- GOTO HOST
- +6 KILL IOP
- +7 QUIT
- FS ;EP;TO CHECK IF WIDE CARRIAGE/CONDENSED PRINTER NEEDED
- +1 IF $GET(ANSDOCDA)
- IF $DATA(^ANSDOC(ANSDOCDA,3))
- NEW X
- SET X=^(3)
- Begin DoDot:1
- +2 IF $PIECE(X,U,13)
- IF '$PIECE(X,U,17)
- Begin DoDot:2
- +3 IF $PIECE($GET(^ANSPO(+$PIECE($GET(^ANSDOC(ANSDOCDA,0)),U,8),"DT")),U,10)
- SET X=$PIECE(^("DT"),U,10)
- SET (ION,%ZIS("B"))=$PIECE(^%ZIS(1,X,0),U)
- +4 IF '$TEST
- SET ANSCOND=""
- End DoDot:2
- +5 IF $PIECE(X,U,17)=1
- SET ANS3542=""
- End DoDot:1
- +6 QUIT
