SROASSP.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SROASSP   1008     printed  Apr 09, 2024@21:50:54                                                                                                                                                                                                     Page 2

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