source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNLRR.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1SPNLRR ;ISC-SF/GB-SCD SELECTED LAB TEST UTILIZATION REPORT ;9/1/95 09:29
2 ;;2.0;Spinal Cord Dysfunction;;01/02/1997
3ASK(QLIST,ABORT) ; Report-specific question
4 N DIC,Y,DTOUT,DUOUT,LOC
5 I $$VFILE^DILFD(60)'>0 D Q
6 . W !!?5,"*** LABORATORY TEST file (#60) not found ***",$C(7)
7 . S ABORT=1
8 . Q
9 ;S DIC("?")="The lab test may not be a panel of tests."
10 S DIC("S")="I '$D(^LAB(60,+Y,2))"
11 S DIC="60",DIC(0)="AEQMZ"
12 F D ^DIC Q:Y=-1 D
13 . S LOC=$P(Y(0),U,5)
14 . I LOC="" D Q
15 . . W !,"Sorry, can't use this test."
16 . . W !,"LOCATION (DATA NAME) not defined in ^LAB(60.",!
17 . S QLIST($P(LOC,";",2))=$P(Y,U,2) ; QLIST(testnr)=test name
18 . S DIC("A")="Another LABORATORY TEST NAME: "
19 I $D(DTOUT)!($D(DUOUT))!('$D(QLIST)) S ABORT=1
20 Q
21GATHER(DFN,FDATE,TDATE,HIUSERS,QLIST) ;
22 D SELECT^SPNLGSCH(DFN,FDATE,TDATE,HIUSERS,.QLIST) ; gather lab test data
23 Q
24PRINT(FACNAME,XFDATE,XTDATE,HIUSERS,QLIST,ABORT) ;
25 ; PAGELEN Number of lines per page
26 ; TITLE Array of header lines (titles)
27 N TITLE,PAGELEN
28 S PAGELEN=IOSL-3
29 S TITLE(1)=$$CENTER^SPNLRU("SCD - Laboratory Utilization (Specific)")
30 S TITLE(2)=$$CENTER^SPNLRU(FACNAME)
31 I $D(SPNLTRM1) S TITLE(2.5)=$$CENTER^SPNLRU(SPNLTRM1)
32 S TITLE(3)=$$CENTER^SPNLRU("For the Period "_XFDATE_" to "_XTDATE)
33 I HIUSERS D P1^SPNLRR1(.TITLE,PAGELEN,.QLIST,.ABORT) Q:ABORT
34 E D P2^SPNLRR1(.TITLE,PAGELEN,.QLIST,.ABORT) Q:ABORT
35 Q
Note: See TracBrowser for help on using the repository browser.