| [613] | 1 | DVBCAMI1 ;ALB/GTS-557/THM-AMIS REPORT/BULLETIN TEXT ; 10/4/91 8:48 AM
|
|---|
| 2 | ;;2.7;AMIE;**17**;Apr 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ;** NOTICE: This routine is part of an implementation of a Nationally
|
|---|
| 5 | ;** Controlled Procedure. Local modifications to this routine
|
|---|
| 6 | ;** are prohibited per VHA Directive 10-93-142
|
|---|
| 7 | ;
|
|---|
| 8 | BULLTXT S TOTRECV=TOT("RECEIVED")+TOT("INSUFF"),TOTRVTN=TOTRECV+TOT("TRANSIN")
|
|---|
| 9 | S ^TMP($J,1,0)="Processing date: "_$$FMTE^XLFDT(DT,"5DZ")
|
|---|
| 10 | S ^TMP($J,2,0)=" "
|
|---|
| 11 | S ^TMP($J,3,0)="Total pending from previous month: "_PREVMO
|
|---|
| 12 | S ^TMP($J,4,0)=" "
|
|---|
| 13 | S ^TMP($J,5,0)="Requests received for date range: "_TOT("RECEIVED")
|
|---|
| 14 | S ^TMP($J,5.1,0)=" "
|
|---|
| 15 | S ^TMP($J,5.3,0)="Exams returned as insufficient: "_TOT("INSUFF")_" ("_$S(TOTRECV>0:$J(TOT("INSUFF")/TOTRECV*100,0,0),1:0)_"%)"
|
|---|
| 16 | S ^TMP($J,6,0)="Requests returned complete: "_TOT("COMPLETED")
|
|---|
| 17 | S ^TMP($J,7,0)="Requests returned incomplete: "_TOT("INCOMPLETE")
|
|---|
| 18 | S ^TMP($J,8,0)=" "
|
|---|
| 19 | S ^TMP($J,8.1,0)="Total processing time: "_TOT("DAYS")_$S(TOT("DAYS")=1:" day",1:" days")
|
|---|
| 20 | S ^TMP($J,8.2,0)=" "
|
|---|
| 21 | S ^TMP($J,9,0)="Pending end of month: "_TOT("PENDADJ")
|
|---|
| 22 | S ^TMP($J,10,0)="Average processing time: "_TOT("AVGDAYS")_$S(TOT("AVGDAYS")>1!(TOT("AVGDAYS")<1):" days",1:" day")
|
|---|
| 23 | S ^TMP($J,11,0)=" "
|
|---|
| 24 | S ^TMP($J,12,0)="Greater than 3 days to schedule: "_TOT("3DAYSCH")
|
|---|
| 25 | S ^TMP($J,13,0)="Greater than 30 days to examine: "_TOT("30DAYEX")
|
|---|
| 26 | S ^TMP($J,14,0)=" "
|
|---|
| 27 | S ^TMP($J,15,0)="Pending, 0-90 days: "_TOT("P90")
|
|---|
| 28 | S ^TMP($J,16,0)="Pending, 91-120 days: "_TOT("P121")
|
|---|
| 29 | S ^TMP($J,17,0)="Pending, 121-150 days: "_TOT("P151")
|
|---|
| 30 | S ^TMP($J,18,0)="Pending, 151-180 days: "_TOT("P181")
|
|---|
| 31 | S ^TMP($J,19,0)="Pending, 181-365 days: "_TOT("P365")
|
|---|
| 32 | S ^TMP($J,20,0)="Pending, 366 or more days: "_TOT("P366")
|
|---|
| 33 | S ^TMP($J,21,0)=" "
|
|---|
| 34 | S ^TMP($J,22,0)="Transfers in from other sites: "_TOT("TRANSIN")_" ("_$S(TOTRVTN>0:$J(TOT("TRANSIN")/TOTRVTN*100,0,0),1:0)_"%)"
|
|---|
| 35 | S ^TMP($J,23,0)="Transfers returned to other sites: "_TOT("TRNRETTO")
|
|---|
| 36 | S ^TMP($J,24,0)="Transfers pending return to other sites: "_TOT("TRNPNDTO")
|
|---|
| 37 | S ^TMP($J,25,0)=" "
|
|---|
| 38 | S ^TMP($J,26,0)="Transfers out to other sites: "_TOT("TRANSOUT")_" ("_$S(TOTRVTN>0:$J(TOT("TRANSOUT")/TOTRVTN*100,0,0),1:0)_"%)"
|
|---|
| 39 | S ^TMP($J,27,0)="Transfers returned from other sites: "_TOT("TRNRETFR")
|
|---|
| 40 | S ^TMP($J,28,0)="Transfers pending return from other sites: "_TOT("TRNPNDFR")
|
|---|
| 41 | S ^TMP($J,29,0)=" "
|
|---|
| 42 | S ^TMP($J,32,0)=" ** Transfer figures are for information only **"
|
|---|
| 43 | S ^TMP($J,33,0)="* and should not be used to balance this report *"
|
|---|
| 44 | K DIC,DIE,DR,DA,TOTRECV,TOTRVTN
|
|---|
| 45 | Q
|
|---|
