| 1 | SPNLRR ;ISC-SF/GB-SCD SELECTED LAB TEST UTILIZATION REPORT ;9/1/95 09:29
|
|---|
| 2 | ;;2.0;Spinal Cord Dysfunction;;01/02/1997
|
|---|
| 3 | ASK(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
|
|---|
| 21 | GATHER(DFN,FDATE,TDATE,HIUSERS,QLIST) ;
|
|---|
| 22 | D SELECT^SPNLGSCH(DFN,FDATE,TDATE,HIUSERS,.QLIST) ; gather lab test data
|
|---|
| 23 | Q
|
|---|
| 24 | PRINT(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
|
|---|
