source: FOIAVistA/tag/r/SURGERY-SR/SROAT1T.m@ 1550

Last change on this file since 1550 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1012 bytes
Line 
1SROAT1T ;B'HAM ISC/MAM - ATTENDING SURGEON CUMULATIVE ; [ 05/11/04 2:33 PM ]
2 ;;3.0; Surgery ;**50,129**;24 Jun 93
3 D HDR Q:SRSOUT W !!,?1,"TOTAL CASES",?16,"ATTENDING CODE",!,?1,"-----------",?16,"--------------"
4 S (HDR,CODE)="" F S CODE=$O(^TMP("SRTOT",$J,CODE)) Q:CODE="" D PRINT
5 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)
6 Q
7PRINT I 'CODE S SRCODE="ATTENDING CODE NOT ENTERED"
8 I CODE S Y=CODE,C=$P(^DD(130,.166,0),"^",2) D Y^DIQ S SRCODE=Y
9 W !,?1,$J(^TMP("SRTOT",$J,CODE),6),?16,SRCODE
10 Q
11HDR ; print heading
12 I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRSOUT=1 Q
13 I +$Y W @IOF
14 W !,?(80-$L(SRINST)\2),SRINST,!,?32,"SURGICAL SERVICE",!,?22,"ATTENDING SURGEON CUMULATIVE REPORT"
15 W !,?(80-$L(SRFRTO)\2),SRFRTO
16 I $E(IOST)="P" W !,?30,"DATE PRINTED: ",SRPRINT,!!,?8,"REVIEWED BY: ",?53,"DATE REVIEWED: "
17 W ! F LINE=1:1:80 W "="
18 S SRSS=$P(^SRO(137.45,SRSS,0),"^") W !!,?(80-$L(SRSS)\2),SRSS
19 Q
Note: See TracBrowser for help on using the repository browser.