| [613] | 1 | ONCTIME ;Hines OIFO/GWB [Timeliness report];02/10/00
|
|---|
| 2 | ;;2.11;ONCOLOGY;**47**;Mar 07, 1995;Build 19
|
|---|
| 3 | ;
|
|---|
| 4 | TIME ;[Timeliness report]
|
|---|
| 5 | N SDT,EDT,IEN,CNT,LESCNT,GTRCNT,RPTDATE,DIVISION
|
|---|
| 6 | W @IOF
|
|---|
| 7 | W !?3,"Timeliness report",!
|
|---|
| 8 | S %DT="AEX",%DT("A")=" Start Date Case Completed: "
|
|---|
| 9 | D ^%DT K %DT
|
|---|
| 10 | Q:Y<1 S START=Y,SDT=Y-1
|
|---|
| 11 | S %DT="AEX",%DT("A")=" End Date Case Completed..: "
|
|---|
| 12 | D ^%DT K %DT
|
|---|
| 13 | Q:Y<1 S (END,EDT)=Y
|
|---|
| 14 | W !
|
|---|
| 15 | N %ZIS,IOP,POP
|
|---|
| 16 | S %ZIS="MQ"
|
|---|
| 17 | D ^%ZIS Q:$G(POP)
|
|---|
| 18 | I $D(IO("Q")) D TASK G EXIT
|
|---|
| 19 | U IO D COMP D ^%ZISC K %ZIS,IOP G EXIT
|
|---|
| 20 | ;
|
|---|
| 21 | COMP S (CNT,LESCNT,GTRCNT)=0
|
|---|
| 22 | F S SDT=$O(^ONCO(165.5,"AAD",SDT)) Q:(SDT="")!(SDT>EDT) S IEN=0 F S IEN=$O(^ONCO(165.5,"AAD",SDT,IEN)) Q:IEN="" I $$DIV^ONCFUNC(IEN)=DUZ(2) D
|
|---|
| 23 | .S CNT=CNT+1
|
|---|
| 24 | .S EDTC=$$GET1^DIQ(165.5,IEN,157)
|
|---|
| 25 | .I EDTC<181 S LESCNT=LESCNT+1
|
|---|
| 26 | .I EDTC>180 S GTRCNT=GTRCNT+1
|
|---|
| 27 | I CNT=0 D D:$E(IOST,1,2)="C-" PAUSE^ONCOPA2A G EXIT
|
|---|
| 28 | .W !,?3,"No cases found in this date range.",!
|
|---|
| 29 | S TIMEPCT=LESCNT/CNT
|
|---|
| 30 | S TIMEPCT=$J(TIMEPCT,3,2)*100_"%"
|
|---|
| 31 | S Y=DT D DD^%DT S RPTDATE=Y
|
|---|
| 32 | S DIVISION=$P(^DIC(4,DUZ(2),0),U,1)
|
|---|
| 33 | S Y=START D DD^%DT S START=Y
|
|---|
| 34 | S Y=END D DD^%DT S END=Y
|
|---|
| 35 | W !
|
|---|
| 36 | W !?3,"TIMELINESS REPORT",?60,RPTDATE
|
|---|
| 37 | W !
|
|---|
| 38 | W !?3,"Start Date Case Completed......: ",START
|
|---|
| 39 | W !?3,"End Date Case Completed........: ",END
|
|---|
| 40 | W !?3,"Division.......................: ",DIVISION
|
|---|
| 41 | W !?3,"Cases Completed < or = 180 days: ",LESCNT
|
|---|
| 42 | W !?3,"Cases Completed > 180 days.....: ",GTRCNT
|
|---|
| 43 | W !?3,"Percentage of cases compliant..: ",TIMEPCT
|
|---|
| 44 | I $E(IOST,1,2)="C-" W ! D PAUSE^ONCOPA2A
|
|---|
| 45 | D ^%ZISC
|
|---|
| 46 | Q
|
|---|
| 47 | ;
|
|---|
| 48 | TASK ;Queue a task
|
|---|
| 49 | K IO("Q"),ZTUCI,ZTDTH,ZTIO,ZTSAVE
|
|---|
| 50 | S ZTRTN="COMP^ONCTIME",ZTREQ="@",ZTSAVE("ZTREQ")=""
|
|---|
| 51 | S ZTDESC="Timeliness Report"
|
|---|
| 52 | S ZTSAVE("SDT")="",ZTSAVE("EDT")="",ZTSAVE("START")="",ZTSAVE("END")=""
|
|---|
| 53 | D ^%ZTLOAD D ^%ZISC U IO W !,"Request Queued",!
|
|---|
| 54 | K ZTSK
|
|---|
| 55 | Q
|
|---|
| 56 | ;
|
|---|
| 57 | EXIT Q
|
|---|
