SROSUR1.m

SROSUR1 ;B'HAM ISC/MAM - SURGEON STAFFING REPORT ; [ 09/22/98  11:36 AM ]

 ;;3.0; Surgery ;**77,50**;24 Jun 93

EN ; entry point

 W @IOF,!,"Surgeon Staffing Report",!

 D DATE^SROUTL(.SRSD,.SRED,.SRQ) G:SRQ END

 S SRINST=SRSITE("SITE")

ALL ; print for one surgeon or all

 W !!,"Do you want to print this report for an individual surgeon ?  YES//  " R X:DTIME S:'$T X="^" S:X="" X="Y" I "^"[X G END

 S X=$E(X) I "YyNn"'[X W !!,"Enter RETURN if you would like to print the report for a specific surgeon, or",!,"'NO' to print the report for all surgeons." G ALL

 I "Yy"[X G ^SROSUR2

 W ! K IOP,%ZIS,POP,IO("Q") S %ZIS("A")="Print the Report on which Device: ",%ZIS="QM" W !!,"This report is designed to use a 132 column format.",! D ^%ZIS G:POP END

 I $D(IO("Q")) K IO("Q") S ZTDESC="SURGEON STAFFING REPORT",ZTRTN="EN1^SROSUR",(ZTSAVE("SRED"),ZTSAVE("SRSD"),ZTSAVE("SRINST"),ZTSAVE("SRSITE*"))="" D ^%ZTLOAD G END

 G EN1^SROSUR

END W ! D ^SRSKILL K SRTN D ^%ZISC W @IOF

 Q

OTHER ; set ^TMP for other assistants

 S SROTH=0 F I=0:0 S SROTH=$O(^SRF(SRTN,28,SROTH)) Q:'SROTH  S SROTHER=^SRF(SRTN,28,SROTH,0),SROTHER=$P(^VA(200,SROTHER,0),"^"),^TMP("SRO",$J,SROTHER,"OTH",DATE,SRTN)=""

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SROSUR1   1198     printed  Apr 09, 2024@21:42:45                                                                                                                                                                                                     Page 2

SROSUR1   ;B'HAM ISC/MAM - SURGEON STAFFING REPORT ; [ 09/22/98  11:36 AM ]

 +1       ;;3.0; Surgery ;**77,50**;24 Jun 93

EN        ; entry point

 +1        WRITE @IOF,!,"Surgeon Staffing Report",!

 +2        DO DATE^SROUTL(.SRSD,.SRED,.SRQ)

           if SRQ

               GOTO END

 +3        SET SRINST=SRSITE("SITE")

ALL       ; print for one surgeon or all

 +1        WRITE !!,"Do you want to print this report for an individual surgeon ?  YES//  "

           READ X:DTIME

           if '$TEST

               SET X="^"

           if X=""

               SET X="Y"

           IF "^"[X

               GOTO END

 +2        SET X=$EXTRACT(X)

           IF "YyNn"'[X

               WRITE !!,"Enter RETURN if you would like to print the report for a specific surgeon, or",!,"'NO' to print the report for all surgeons."

               GOTO ALL

 +3        IF "Yy"[X

               GOTO ^SROSUR2

 +4        WRITE !

           KILL IOP,%ZIS,POP,IO("Q")

           SET %ZIS("A")="Print the Report on which Device: "

           SET %ZIS="QM"

           WRITE !!,"This report is designed to use a 132 column format.",!

           DO ^%ZIS

           if POP

               GOTO END

 +5        IF $DATA(IO("Q"))

               KILL IO("Q")

               SET ZTDESC="SURGEON STAFFING REPORT"

               SET ZTRTN="EN1^SROSUR"

               SET (ZTSAVE("SRED"),ZTSAVE("SRSD"),ZTSAVE("SRINST"),ZTSAVE("SRSITE*"))=""

               DO ^%ZTLOAD

               GOTO END

 +6        GOTO EN1^SROSUR

END        WRITE !

           DO ^SRSKILL

           KILL SRTN

           DO ^%ZISC

           WRITE @IOF

 +1        QUIT 

OTHER     ; set ^TMP for other assistants

 +1        SET SROTH=0

           FOR I=0:0

               SET SROTH=$ORDER(^SRF(SRTN,28,SROTH))

               if 'SROTH

                   QUIT 

               SET SROTHER=^SRF(SRTN,28,SROTH,0)

               SET SROTHER=$PIECE(^VA(200,SROTHER,0),"^")

               SET ^TMP("SRO",$JOB,SROTHER,"OTH",DATE,SRTN)=""

 +2        QUIT