source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNLRK.m@ 1704

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1SPNLRK ;ISC-SF/GB-SCD LAB TEST UTILIZATION REPORT ;6/23/95 11:58
2 ;;2.0;Spinal Cord Dysfunction;;01/02/1997
3ASK(QLIST,ABORT) ; Report-specific question
4 N DIR,Y,DIRUT
5 S DIR(0)="NO^1:999999" ; Number, Optional
6 S DIR("A")="Minimum number of results reported for a test to be listed"
7 S DIR("B")=3
8 S DIR("?")="This number is used to keep from showing long lists of infrequent tests by setting a minimum number of results for display."
9 D ^DIR I $D(DIRUT) S ABORT=1 Q
10 S QLIST("MIN")=Y
11 Q
12GATHER(DFN,FDATE,TDATE,HIUSERS,QLIST) ;
13 D ROLLUP^SPNLGRCH(DFN,FDATE,TDATE,HIUSERS) ; gather lab test data
14 Q
15PRINT(FACNAME,XFDATE,XTDATE,HIUSERS,QLIST,ABORT) ;
16 ; PAGELEN Number of lines per page
17 ; TITLE Array of header lines (titles)
18 N TITLE,PAGELEN
19 D NAMEIT^SPNLGRCH ; name the lab tests
20 S PAGELEN=IOSL-3
21 S TITLE(1)=$$CENTER^SPNLRU("SCD - Laboratory Utilization")
22 S TITLE(2)=$$CENTER^SPNLRU(FACNAME)
23 I $D(SPNLTRM1) S TITLE(2.5)=$$CENTER^SPNLRU(SPNLTRM1)
24 S TITLE(3)=$$CENTER^SPNLRU("For the Period "_XFDATE_" to "_XTDATE)
25 K ^TMP("SPN",$J,"CH","OUT")
26 D P1^SPNLRK1(.TITLE,PAGELEN,.ABORT) Q:ABORT
27 D P2^SPNLRK1(.TITLE,PAGELEN,.QLIST,.ABORT) Q:ABORT
28 D:HIUSERS P3^SPNLRK1(.TITLE,PAGELEN,HIUSERS,.ABORT)
29 Q
Note: See TracBrowser for help on using the repository browser.