Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SROAT0T

SROAT0T.m

Go to the documentation of this file.
  1. 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
  1. I SRBOTH D PAGE I SRSOUT Q
  1. D HDR Q:SRSOUT W !!,?1,"TOTAL CASES",?16,"ATTENDING CODE",!,?1,"-----------",?16,"--------------"
  1. S (HDR,CODE)="" F S CODE=$O(^TMP("SRTOT",$J,CODE)) Q:CODE="" D PRINT
  1. 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)
  1. Q
  1. PRINT I 'CODE S SRCODE="ATTENDING/RES SUP CODE NOT ENTERED"
  1. I CODE S Y=CODE,C=$P(^DD(130,.166,0),"^",2) D Y^DIQ S SRCODE=Y
  1. W !,?1,$J(^TMP("SRTOT",$J,CODE),6),?16,SRCODE
  1. Q
  1. HDR ; print heading
  1. I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q
  1. I +$Y W @IOF
  1. W !,?(80-$L(SRINST)\2),SRINST,!,?32,"SURGICAL SERVICE",!,?22,"ATTENDING SURGEON CUMULATIVE REPORT"
  1. W !,?(80-$L(SRFRTO)\2),SRFRTO
  1. I $E(IOST)="P" W !,?30,SRPRINT,!!,?8,"REVIEWED BY: ",?53,"DATE REVIEWED: "
  1. W ! F LINE=1:1:80 W "="
  1. W !!,?(80-$L(SRATT)\2),SRATT,!,?(80-$L(SRATT)\2),SRATT1
  1. Q
  1. 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
  1. I X["?" W !!,"Enter RETURN to continue printing the report, or '^' to exit from this option." G PAGE
  1. Q