| 1 | RAESR3 ;HISC/GJC-Exam Statistics Rpt ;1/20/95 08:31
|
|---|
| 2 | ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
|
|---|
| 3 | PRT ; Update total and Print out date, # of visits, # of exams,
|
|---|
| 4 | ; # of completed exams, and category statistics.
|
|---|
| 5 | I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT D HD
|
|---|
| 6 | F I=1:1:(RACNB+3) S $P(RATOT,"^",I)=$P(RATOT,"^",I)+$P(RASTAT,"^",I)
|
|---|
| 7 | W !,RADAT("X"),?13,$J(+$P(RASTAT,"^"),6),?20,$J(+$P(RASTAT,"^",2),6),?29,$J(+$P(RASTAT,"^",3),6),?35 F I=4:1:(RACNB+3) W ?($X+1),$J(+$P(RASTAT,"^",I),6)
|
|---|
| 8 | Q
|
|---|
| 9 | TOT ; Print total line
|
|---|
| 10 | I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT D HD
|
|---|
| 11 | W !,?13,"------",?20,"------",?29,"------",?35
|
|---|
| 12 | F T=1:1 Q:T>RACNB W ?($X+1),"------"
|
|---|
| 13 | S:T1=1 RATOT=$G(^TMP($J,"RASTAT","RALOC",RADNM,RAINM,RALNM))
|
|---|
| 14 | S:T1=2 RATOT=$G(^TMP($J,"RASTAT","RALOC",RADNM,RAINM))
|
|---|
| 15 | S:T1=3 RATOT=$G(^TMP($J,"RASTAT","RADIV",RADNM))
|
|---|
| 16 | S:T1=4 RATOT=$G(^TMP($J,"RASTAT","RATOT"))
|
|---|
| 17 | TOT1 W !,"TOTAL",?13,$J(+$P(RATOT,"^"),6),?20,$J(+$P(RATOT,"^",2),6),?29,$J(+$P(RATOT,"^",3),6),?35 F I=4:1:(RACNB+3) W ?($X+1),$J(+$P(RATOT,"^",I),6)
|
|---|
| 18 | Q
|
|---|
| 19 | HD ; Print out header info for each new location and each new division
|
|---|
| 20 | W:$E(IOST,1,2)="C-"!(RAPGE) @IOF
|
|---|
| 21 | W !?20,">>>>> EXAMINATION STATISTICS <<<<<"
|
|---|
| 22 | S RAPGE=RAPGE+1 W ?70,"Page: ",RAPGE
|
|---|
| 23 | S RADNM=$G(RADNM),RAINM=$G(RAINM),RALNM=$G(RALNM)
|
|---|
| 24 | I T1=1 D
|
|---|
| 25 | . W !!,"Division: ",$E(RADNM,1,25),?40,"Location: ",$E(RALNM,1,25)
|
|---|
| 26 | . W !,"Run Date: ",RARUNDT,?40,"Imaging Type: ",$E(RAINM,1,25)
|
|---|
| 27 | I T1=2 D
|
|---|
| 28 | . W !!,"Division: ",$E(RADNM,1,25),?40,"Location: "
|
|---|
| 29 | . W !,"Run Date: ",RARUNDT,?40,"Imaging Type: ",$E(RAINM,1,25)
|
|---|
| 30 | I T1=3 D
|
|---|
| 31 | . W !!,"Division: ",$E(RADNM,1,25),?40,"Location: "
|
|---|
| 32 | . W !,"Run Date: ",RARUNDT,?40,"Imaging Type: "
|
|---|
| 33 | I T1=4 D
|
|---|
| 34 | . W !!,"Division: ",?40,"Location: "
|
|---|
| 35 | . W !,"Run Date: ",RARUNDT,?40,"Imaging Type: "
|
|---|
| 36 | W !,$$CJ^XLFSTR(RATMEFRM,IOM)
|
|---|
| 37 | W !!,?27,"COMPLETE",?36,"--------------EXAM CATEGORY--------------"
|
|---|
| 38 | W !,"DATE",?13,"VISITS",?21,"EXAMS",?30,"EXAMS",?35 F T=1:1 Q:T>RACNB W ?($X+4),$E($P(RADU,";",T),3,5)
|
|---|
| 39 | W !,RALINE
|
|---|
| 40 | Q
|
|---|
