SROASSP ;BIR/MAM - PRINT A COMPLETED ASSESSMENT ;12/05/07
;;3.0; Surgery ;**38,94,166**;24 Jun 93;Build 6
BATCH ;
W ! K DIR S DIR("?",1)="Enter YES to batch print all completed or transmitted assessments for a",DIR("?",2)="selected date range. Enter NO or press return to print one specific",DIR("?")="assessment."
S DIR("A")="Do you want to batch print assessments for a specific date range ? ",DIR(0)="YA",DIR("B")="NO" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 G END
I Y D ^SROABCH Q
S SRPRINT=1 K SRNEW D ^SROASS I '$D(SRTN) S SRSOUT=1 G END
W ! K %ZIS,IO("Q"),POP S %ZIS("A")="Print the Completed Assessment on which Device: ",%ZIS="Q" D ^%ZIS I POP S SRSOUT=1 G END
I $D(IO("Q")) K IO("Q") S ZTDESC="Completed Surgery Risk Assessment",ZTSAVE("SRSITE*")="",ZTSAVE("SRTN")="",ZTRTN=$S($P($G(^SRF(SRTN,"RA")),"^",2)="C":"EN^SROACOM1",1:"EN^SROACOM") D ^%ZTLOAD G END
D @($S($P($G(^SRF(SRTN,"RA")),"^",2)="C":"EN^SROACOM1",1:"EN^SROACOM"))
END D ^%ZISC W @IOF K SRTN D ^SRSKILL
Q
SROASSP ;BIR/MAM - PRINT A COMPLETED ASSESSMENT ;12/05/07
+1 ;;3.0; Surgery ;**38,94,166**;24 Jun 93;Build 6
BATCH ;
+1 WRITE !
KILL DIR
SET DIR("?",1)="Enter YES to batch print all completed or transmitted assessments for a"
SET DIR("?",2)="selected date range. Enter NO or press return to print one specific"
SET DIR("?")="assessment."
+2 SET DIR("A")="Do you want to batch print assessments for a specific date range ? "
SET DIR(0)="YA"
SET DIR("B")="NO"
DO ^DIR
KILL DIR
IF $DATA(DTOUT)!$DATA(DUOUT)
SET SRSOUT=1
GOTO END
+3 IF Y
DO ^SROABCH
QUIT
+4 SET SRPRINT=1
KILL SRNEW
DO ^SROASS
IF '$DATA(SRTN)
SET SRSOUT=1
GOTO END
+5 WRITE !
KILL %ZIS,IO("Q"),POP
SET %ZIS("A")="Print the Completed Assessment on which Device: "
SET %ZIS="Q"
DO ^%ZIS
IF POP
SET SRSOUT=1
GOTO END
+6 IF $DATA(IO("Q"))
KILL IO("Q")
SET ZTDESC="Completed Surgery Risk Assessment"
SET ZTSAVE("SRSITE*")=""
SET ZTSAVE("SRTN")=""
SET ZTRTN=$SELECT($PIECE($GET(^SRF(SRTN,"RA")),"^",2)="C":"EN^SROACOM1",1:"EN^SROACOM")
DO ^%ZTLOAD
GOTO END
+7 DO @($SELECT($PIECE($GET(^SRF(SRTN,"RA")),"^",2)="C":"EN^SROACOM1",1:"EN^SROACOM"))
END DO ^%ZISC
WRITE @IOF
KILL SRTN
DO ^SRSKILL
+1 QUIT