- DVBCAMR1 ;ALB/GTS-557/THM-REGIONAL OFFICE AMIS REPORT BULLETIN TEXT ; 9/28/91 6:39 AM
- ;;2.7;AMIE;**149,184**;Apr 10, 1995;Build 10
- ;Per VHA Directive 2004-038, this routine should not be modified.
- ;
- ;Input: DVBACDE - Priority of Exam code to get Totals for
- BULLTXT(DVBACDE) ;
- N DVBATXT,DVBADTS
- S DVBATXT=$$PRHD^DVBCIUTL(DVBACDE)
- S DVBATXT=$S(DVBATXT["Excludes":"Report "_DVBATXT,1:"Report for "_DVBATXT)
- ;DES Type exams required to be completed in 45 days, all others 30
- S DVBADTS=$S(((";IDES;")[(";"_DVBACDE_";")):45,1:30)
- ;.01,.02 printed only in bulletin (if generated)
- S ^TMP($J,.01,0)=DVBATXT
- S ^TMP($J,.02,0)=" "
- S ^TMP($J,1,0)="For regional office: "_RONAME_" ("_RONUM_")"
- S ^TMP($J,2,0)=" "
- S ^TMP($J,3,0)="Requests sent for date range: "_TOT("SENT")
- S ^TMP($J,4,0)="Exams received incomplete: "_TOT("INCOMPLETE")
- S ^TMP($J,5,0)="Exams received complete: "_TOT("COMPLETED")
- S ^TMP($J,5.3,0)="Exams returned as insufficient: "_TOT("INSUFF")_" ("_$S(TOT("SENT")>0:$J(TOT("INSUFF")/TOT("SENT")*100,0,0),1:0)_"%)"
- S ^TMP($J,6,0)="Pending for office "_RONUM_" at end of month: "_TOT("PENDADJ")
- S ^TMP($J,7,0)="Average processing time: "_TOT("AVGDAYS")_$S(TOT("AVGDAYS")>1!(TOT("AVGDAYS")<1):" days",1:" day")
- S ^TMP($J,8,0)=" "
- S ^TMP($J,9,0)="Greater than 3 days to schedule: "_TOT("3DAYSCH")
- S ^TMP($J,10,0)="Greater than "_DVBADTS_" days to examine: "_TOT("30DAYEX")
- S ^TMP($J,11,0)=" "
- S ^TMP($J,12,0)="Pending, 0-90 days: "_TOT("P90")
- S ^TMP($J,13,0)="Pending, 91-120 days: "_TOT("P121")
- S ^TMP($J,14,0)="Pending, 121-150 days: "_TOT("P151")
- S ^TMP($J,15,0)="Pending, 151-180 days: "_TOT("P181")
- S ^TMP($J,16,0)="Pending, 181-365 days: "_TOT("P365")
- S ^TMP($J,17,0)="Pending, 366 or more days: "_TOT("P366")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCAMR1 1784 printed Feb 18, 2025@23:09:54 Page 2
- DVBCAMR1 ;ALB/GTS-557/THM-REGIONAL OFFICE AMIS REPORT BULLETIN TEXT ; 9/28/91 6:39 AM
- +1 ;;2.7;AMIE;**149,184**;Apr 10, 1995;Build 10
- +2 ;Per VHA Directive 2004-038, this routine should not be modified.
- +3 ;
- +4 ;Input: DVBACDE - Priority of Exam code to get Totals for
- BULLTXT(DVBACDE) ;
- +1 NEW DVBATXT,DVBADTS
- +2 SET DVBATXT=$$PRHD^DVBCIUTL(DVBACDE)
- +3 SET DVBATXT=$SELECT(DVBATXT["Excludes":"Report "_DVBATXT,1:"Report for "_DVBATXT)
- +4 ;DES Type exams required to be completed in 45 days, all others 30
- +5 SET DVBADTS=$SELECT(((";IDES;")[(";"_DVBACDE_";")):45,1:30)
- +6 ;.01,.02 printed only in bulletin (if generated)
- +7 SET ^TMP($JOB,.01,0)=DVBATXT
- +8 SET ^TMP($JOB,.02,0)=" "
- +9 SET ^TMP($JOB,1,0)="For regional office: "_RONAME_" ("_RONUM_")"
- +10 SET ^TMP($JOB,2,0)=" "
- +11 SET ^TMP($JOB,3,0)="Requests sent for date range: "_TOT("SENT")
- +12 SET ^TMP($JOB,4,0)="Exams received incomplete: "_TOT("INCOMPLETE")
- +13 SET ^TMP($JOB,5,0)="Exams received complete: "_TOT("COMPLETED")
- +14 SET ^TMP($JOB,5.3,0)="Exams returned as insufficient: "_TOT("INSUFF")_" ("_$SELECT(TOT("SENT")>0:$JUSTIFY(TOT("INSUFF")/TOT("SENT")*100,0,0),1:0)_"%)"
- +15 SET ^TMP($JOB,6,0)="Pending for office "_RONUM_" at end of month: "_TOT("PENDADJ")
- +16 SET ^TMP($JOB,7,0)="Average processing time: "_TOT("AVGDAYS")_$SELECT(TOT("AVGDAYS")>1!(TOT("AVGDAYS")<1):" days",1:" day")
- +17 SET ^TMP($JOB,8,0)=" "
- +18 SET ^TMP($JOB,9,0)="Greater than 3 days to schedule: "_TOT("3DAYSCH")
- +19 SET ^TMP($JOB,10,0)="Greater than "_DVBADTS_" days to examine: "_TOT("30DAYEX")
- +20 SET ^TMP($JOB,11,0)=" "
- +21 SET ^TMP($JOB,12,0)="Pending, 0-90 days: "_TOT("P90")
- +22 SET ^TMP($JOB,13,0)="Pending, 91-120 days: "_TOT("P121")
- +23 SET ^TMP($JOB,14,0)="Pending, 121-150 days: "_TOT("P151")
- +24 SET ^TMP($JOB,15,0)="Pending, 151-180 days: "_TOT("P181")
- +25 SET ^TMP($JOB,16,0)="Pending, 181-365 days: "_TOT("P365")
- +26 SET ^TMP($JOB,17,0)="Pending, 366 or more days: "_TOT("P366")
- +27 QUIT