- 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 ---[H[J[2J[HSROAT0T 1280 printed Feb 19, 2025@00:08:30 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