| [613] | 1 | SPNLRS ;ISC-SF/GB-SCD (SPECIFIC) PHARMACY UTILIZATION REPORT CONTROLLER ;9/1/95 09:29
|
|---|
| 2 | ;;2.0;Spinal Cord Dysfunction;;01/02/1997
|
|---|
| 3 | ASK(QLIST,ABORT) ; Report-specific questions
|
|---|
| 4 | N DIC,Y,DTOUT,DUOUT
|
|---|
| 5 | I $$VFILE^DILFD(50)'>0 D Q
|
|---|
| 6 | . W !!?5,"*** DRUG file (#50) not found ***",$C(7)
|
|---|
| 7 | . S ABORT=1
|
|---|
| 8 | . Q
|
|---|
| 9 | S DIC("A")="Select a GENERIC DRUG NAME: "
|
|---|
| 10 | ;S DIC("?")="Choose a drug you want to report on."
|
|---|
| 11 | S DIC="50",DIC(0)="AEQM"
|
|---|
| 12 | F D ^DIC Q:Y=-1 D
|
|---|
| 13 | . S QLIST($P(Y,U,1))=$P(Y,U,2) ; QLIST(drugnr)=drug name
|
|---|
| 14 | . S DIC("A")="Another GENERIC DRUG NAME: "
|
|---|
| 15 | I $D(DTOUT)!($D(DUOUT))!('$D(QLIST)) S ABORT=1
|
|---|
| 16 | Q
|
|---|
| 17 | GATHER(DFN,FDATE,TDATE,HIUSERS,QLIST) ;
|
|---|
| 18 | D SELECT^SPNLGSRX(DFN,FDATE,TDATE,HIUSERS,.QLIST) ; gather pharmacy data
|
|---|
| 19 | Q
|
|---|
| 20 | PRINT(FACNAME,XFDATE,XTDATE,HIUSERS,QLIST,ABORT) ;
|
|---|
| 21 | ; PAGELEN Number of lines per page
|
|---|
| 22 | ; TITLE Array of header lines (titles)
|
|---|
| 23 | N TITLE,PAGELEN
|
|---|
| 24 | D PRICEIT^SPNLGSRX ; get unit prices (cost) for the drugs
|
|---|
| 25 | S PAGELEN=IOSL-3
|
|---|
| 26 | S TITLE(1)=$$CENTER^SPNLRU("SCD - Pharmacy Prescription Utilization")
|
|---|
| 27 | S TITLE(2)=$$CENTER^SPNLRU(FACNAME)
|
|---|
| 28 | I $D(SPNLTRM1) S TITLE(2.5)=$$CENTER^SPNLRU(SPNLTRM1)
|
|---|
| 29 | S TITLE(3)=$$CENTER^SPNLRU("For the Period "_XFDATE_" to "_XTDATE)
|
|---|
| 30 | I HIUSERS D P1^SPNLRS1(.TITLE,PAGELEN,.QLIST,.ABORT) Q:ABORT
|
|---|
| 31 | E D P2^SPNLRS1(.TITLE,PAGELEN,.QLIST,.ABORT) Q:ABORT
|
|---|
| 32 | Q
|
|---|
