source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNLRM.m@ 1470

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

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1SPNLRM ;ISC-SF/GB-SCD RADIOLOGY UTILIZATION REPORT CONTROLLER ;6/23/95 12:00
2 ;;2.0;Spinal Cord Dysfunction;;01/02/1997
3ASK(QLIST,ABORT) ; Report-specific questions
4 N DIR,DIRUT,Y
5 S DIR(0)="NO^1:99999" ; Number, Optional
6 S DIR("A")="Minimum number of procedures to display"
7 S DIR("B")=2
8 S DIR("?")="This determines the minimum number of procedures necessary in order for a radiology procedure to be displayed in the listing by order of number of procedures"
9 D ^DIR I $D(DIRUT) S ABORT=1 Q
10 S QLIST("MINNUM")=Y
11 K DIR
12 S DIR(0)="NO^0:999" ; Number, Optional
13 S DIR("A")="Minimum dollar cost of procedures to display"
14 S DIR("B")=10
15 S DIR("?")="This determines the minimum total cost of procedures necessary in order for a radiology procedure to be displayed in the listing by order of cost of procedures"
16 D ^DIR I $D(DIRUT) S ABORT=1 Q
17 S QLIST("MINCOST")=Y
18 Q
19GATHER(DFN,FDATE,TDATE,HIUSERS,QLIST) ;
20 D ROLLUP^SPNLGRRA(DFN,FDATE,TDATE,HIUSERS) ; gather radiology data
21 Q
22PRINT(FACNAME,XFDATE,XTDATE,HIUSERS,QLIST,ABORT) ;
23 ; PAGELEN Number of lines per page
24 ; TITLE Array of header lines (titles)
25 N TITLE,PAGELEN
26 D NAMEIT^SPNLGRRA ; name the radiology procedures & price 'em
27 S PAGELEN=IOSL-3
28 S TITLE(1)=$$CENTER^SPNLRU("SCD - Radiology Utilization")
29 S TITLE(2)=$$CENTER^SPNLRU(FACNAME)
30 I $D(SPNLTRM1) S TITLE(2.5)=$$CENTER^SPNLRU(SPNLTRM1)
31 S TITLE(3)=$$CENTER^SPNLRU("For the Period "_XFDATE_" to "_XTDATE)
32 K ^TMP("SPN",$J,"RA","OUT")
33 D P1^SPNLRM1(.TITLE,PAGELEN,.ABORT) Q:ABORT
34 D P2^SPNLRM1(.TITLE,PAGELEN,.QLIST,.ABORT) Q:ABORT
35 D P3^SPNLRM1(.TITLE,PAGELEN,.QLIST,.ABORT) Q:ABORT
36 I HIUSERS D Q:ABORT
37 . D P4^SPNLRM2(.TITLE,PAGELEN,HIUSERS,.ABORT) Q:ABORT
38 . D P5^SPNLRM2(.TITLE,PAGELEN,HIUSERS,.ABORT) Q:ABORT
39 Q
Note: See TracBrowser for help on using the repository browser.