SROAT0T.m

SROAT0T ;B'HAM ISC/MAM - ATTENDING SURGEON CUMULATIVE ; [ 05/11/04  2:33 PM ]

 ;;3.0;Surgery;**50,129,182**;24 Jun 93;Build 49

 I SRBOTH D PAGE I SRSOUT Q

 D HDR Q:SRSOUT  W !!,?1,"TOTAL CASES",?16,"ATTENDING CODE",!,?1,"-----------",?16,"--------------"

 S (HDR,CODE)="" F  S CODE=$O(^TMP("SRTOT",$J,CODE)) Q:CODE=""  D PRINT

 W !!,?1,$J(^TMP("SRTOT",$J),6),?16,"TOTAL CASES FROM "_$E(SRSD,4,5)_"/"_$E(SRSD,6,7)_"/"_$E(SRSD,2,3)_" TO "_$E(SRED,4,5)_"/"_$E(SRED,6,7)_"/"_$E(SRED,2,3)

 Q

PRINT I 'CODE S SRCODE="ATTENDING/RES SUP CODE NOT ENTERED"

 I CODE S Y=CODE,C=$P(^DD(130,.166,0),"^",2) D Y^DIQ S SRCODE=Y

 W !,?1,$J(^TMP("SRTOT",$J,CODE),6),?16,SRCODE

 Q

HDR ; print heading

 I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q

 I +$Y W @IOF

 W !,?(80-$L(SRINST)\2),SRINST,!,?32,"SURGICAL SERVICE",!,?22,"ATTENDING SURGEON CUMULATIVE REPORT"

 W !,?(80-$L(SRFRTO)\2),SRFRTO

 I $E(IOST)="P" W !,?30,SRPRINT,!!,?8,"REVIEWED BY: ",?53,"DATE REVIEWED: "

 W ! F LINE=1:1:80 W "="

 W !!,?(80-$L(SRATT)\2),SRATT,!,?(80-$L(SRATT)\2),SRATT1

 Q

PAGE S X="" I $E(IOST)'="P" W !!,"Press RETURN to continue, or '^' to quit:  " R X:DTIME I '$T!(X["^") S SRSOUT=1 Q

 I X["?" W !!,"Enter RETURN to continue printing the report, or '^' to exit from this option." G PAGE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SROAT0T   1280     printed  Apr 09, 2024@21:43:29                                                                                                                                                                                                     Page 2

SROAT0T   ;B'HAM ISC/MAM - ATTENDING SURGEON CUMULATIVE ; [ 05/11/04  2:33 PM ]

 +1       ;;3.0;Surgery;**50,129,182**;24 Jun 93;Build 49

 +2        IF SRBOTH

               DO PAGE

               IF SRSOUT

                   QUIT 

 +3        DO HDR

           if SRSOUT

               QUIT 

           WRITE !!,?1,"TOTAL CASES",?16,"ATTENDING CODE",!,?1,"-----------",?16,"--------------"

 +4        SET (HDR,CODE)=""

           FOR 

               SET CODE=$ORDER(^TMP("SRTOT",$JOB,CODE))

               if CODE=""

                   QUIT 

               DO PRINT

 +5        WRITE !!,?1,$JUSTIFY(^TMP("SRTOT",$JOB),6),?16,"TOTAL CASES FROM "_$EXTRACT(SRSD,4,5)_"/"_$EXTRACT(SRSD,6,7)_"/"_$EXTRACT(SRSD,2,3)_" TO "_$EXTRACT(SRED,4,5)_"/"_$EXTRACT(SRED,6,7)_"/"_$EXTRACT(SRED,2,3)

 +6        QUIT 

PRINT      IF 'CODE

               SET SRCODE="ATTENDING/RES SUP CODE NOT ENTERED"

 +1        IF CODE

               SET Y=CODE

               SET C=$PIECE(^DD(130,.166,0),"^",2)

               DO Y^DIQ

               SET SRCODE=Y

 +2        WRITE !,?1,$JUSTIFY(^TMP("SRTOT",$JOB,CODE),6),?16,SRCODE

 +3        QUIT 

HDR       ; print heading

 +1        IF $DATA(ZTQUEUED)

               DO ^SROSTOP

               IF SRHALT

                   SET SRSOUT=1

                   QUIT 

 +2        IF +$Y

               WRITE @IOF

 +3        WRITE !,?(80-$LENGTH(SRINST)\2),SRINST,!,?32,"SURGICAL SERVICE",!,?22,"ATTENDING SURGEON CUMULATIVE REPORT"

 +4        WRITE !,?(80-$LENGTH(SRFRTO)\2),SRFRTO

 +5        IF $EXTRACT(IOST)="P"

               WRITE !,?30,SRPRINT,!!,?8,"REVIEWED BY: ",?53,"DATE REVIEWED: "

 +6        WRITE !

           FOR LINE=1:1:80

               WRITE "="

 +7        WRITE !!,?(80-$LENGTH(SRATT)\2),SRATT,!,?(80-$LENGTH(SRATT)\2),SRATT1

 +8        QUIT 

PAGE       SET X=""

           IF $EXTRACT(IOST)'="P"

               WRITE !!,"Press RETURN to continue, or '^' to quit:  "

               READ X:DTIME

               IF '$TEST!(X["^")

                   SET SRSOUT=1

                   QUIT 

 +1        IF X["?"

               WRITE !!,"Enter RETURN to continue printing the report, or '^' to exit from this option."

               GOTO PAGE

 +2        QUIT