DVBCAMI1.m

DVBCAMI1 ;ALB/GTS-557/THM-AMIS REPORT/BULLETIN TEXT ; 10/4/91  8:48 AM

 ;;2.7;AMIE;**17,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 TOTRECV=TOT("RECEIVED")+TOT("INSUFF"),TOTRVTN=TOTRECV+TOT("TRANSIN")

 S DVBATXT=$$PRHD^DVBCIUTL(DVBACDE)

 S DVBATXT=$S(DVBATXT["Excludes":"Report "_DVBATXT,1:"Report for "_DVBATXT)

 ;IDES 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)="Processing date: "_$$FMTE^XLFDT(DT,"5DZ")

 S ^TMP($J,2,0)=" "

 S ^TMP($J,3,0)="Total pending from previous month: "_PREVMO

 S ^TMP($J,4,0)=" "

 S ^TMP($J,5,0)="Requests received for date range: "_TOT("RECEIVED")

 S ^TMP($J,5.1,0)=" "

 S ^TMP($J,5.3,0)="Exams returned as insufficient: "_TOT("INSUFF")_"  ("_$S(TOTRECV>0:$J(TOT("INSUFF")/TOTRECV*100,0,0),1:0)_"%)"

 S ^TMP($J,6,0)="Requests returned complete: "_TOT("COMPLETED")

 S ^TMP($J,7,0)="Requests returned incomplete: "_TOT("INCOMPLETE")

 S ^TMP($J,8,0)=" "

 S ^TMP($J,8.1,0)="Total processing time: "_TOT("DAYS")_$S(TOT("DAYS")=1:" day",1:" days")

 S ^TMP($J,8.2,0)=" "

 S ^TMP($J,9,0)="Pending end of month: "_TOT("PENDADJ")

 S ^TMP($J,10,0)="Average processing time: "_TOT("AVGDAYS")_$S(TOT("AVGDAYS")>1!(TOT("AVGDAYS")<1):" days",1:" day")

 S ^TMP($J,11,0)=" "

 S ^TMP($J,12,0)="Greater than 3 days to schedule: "_TOT("3DAYSCH")

 S ^TMP($J,13,0)="Greater than "_DVBADTS_" days to examine: "_TOT("30DAYEX")

 S ^TMP($J,14,0)=" "

 S ^TMP($J,15,0)="Pending, 0-90 days: "_TOT("P90")

 S ^TMP($J,16,0)="Pending, 91-120 days: "_TOT("P121")

 S ^TMP($J,17,0)="Pending, 121-150 days: "_TOT("P151")

 S ^TMP($J,18,0)="Pending, 151-180 days: "_TOT("P181")

 S ^TMP($J,19,0)="Pending, 181-365 days: "_TOT("P365")

 S ^TMP($J,20,0)="Pending, 366 or more days: "_TOT("P366")

 S ^TMP($J,21,0)=" "

 S ^TMP($J,22,0)="Transfers in from other sites: "_TOT("TRANSIN")_"  ("_$S(TOTRVTN>0:$J(TOT("TRANSIN")/TOTRVTN*100,0,0),1:0)_"%)"

 S ^TMP($J,23,0)="Transfers returned to other sites: "_TOT("TRNRETTO")

 S ^TMP($J,24,0)="Transfers pending return to other sites: "_TOT("TRNPNDTO")

 S ^TMP($J,25,0)=" "

 S ^TMP($J,26,0)="Transfers out to other sites: "_TOT("TRANSOUT")_"  ("_$S(TOTRVTN>0:$J(TOT("TRANSOUT")/TOTRVTN*100,0,0),1:0)_"%)"

 S ^TMP($J,27,0)="Transfers returned from other sites: "_TOT("TRNRETFR")

 S ^TMP($J,28,0)="Transfers pending return from other sites: "_TOT("TRNPNDFR")

 S ^TMP($J,29,0)=" "

 S ^TMP($J,32,0)=" ** Transfer figures are for information only **"

 S ^TMP($J,33,0)="* and should not be used to balance this report *"

 K DIC,DIE,DR,DA,TOTRECV,TOTRVTN

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBCAMI1   2876     printed  Apr 09, 2024@20:50:53                                                                                                                                                                                                    Page 2

DVBCAMI1  ;ALB/GTS-557/THM-AMIS REPORT/BULLETIN TEXT ; 10/4/91  8:48 AM

 +1       ;;2.7;AMIE;**17,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 TOTRECV=TOT("RECEIVED")+TOT("INSUFF")

           SET TOTRVTN=TOTRECV+TOT("TRANSIN")

 +3        SET DVBATXT=$$PRHD^DVBCIUTL(DVBACDE)

 +4        SET DVBATXT=$SELECT(DVBATXT["Excludes":"Report "_DVBATXT,1:"Report for "_DVBATXT)

 +5       ;IDES Type exams required to be completed in 45 days, all others 30

 +6        SET DVBADTS=$SELECT(((";IDES;")[(";"_DVBACDE_";")):45,1:30)

 +7       ;.01,.02 printed only in bulletin (if generated)

 +8        SET ^TMP($JOB,.01,0)=DVBATXT

 +9        SET ^TMP($JOB,.02,0)=" "

 +10       SET ^TMP($JOB,1,0)="Processing date: "_$$FMTE^XLFDT(DT,"5DZ")

 +11       SET ^TMP($JOB,2,0)=" "

 +12       SET ^TMP($JOB,3,0)="Total pending from previous month: "_PREVMO

 +13       SET ^TMP($JOB,4,0)=" "

 +14       SET ^TMP($JOB,5,0)="Requests received for date range: "_TOT("RECEIVED")

 +15       SET ^TMP($JOB,5.1,0)=" "

 +16       SET ^TMP($JOB,5.3,0)="Exams returned as insufficient: "_TOT("INSUFF")_"  ("_$SELECT(TOTRECV>0:$JUSTIFY(TOT("INSUFF")/TOTRECV*100,0,0),1:0)_"%)"

 +17       SET ^TMP($JOB,6,0)="Requests returned complete: "_TOT("COMPLETED")

 +18       SET ^TMP($JOB,7,0)="Requests returned incomplete: "_TOT("INCOMPLETE")

 +19       SET ^TMP($JOB,8,0)=" "

 +20       SET ^TMP($JOB,8.1,0)="Total processing time: "_TOT("DAYS")_$SELECT(TOT("DAYS")=1:" day",1:" days")

 +21       SET ^TMP($JOB,8.2,0)=" "

 +22       SET ^TMP($JOB,9,0)="Pending end of month: "_TOT("PENDADJ")

 +23       SET ^TMP($JOB,10,0)="Average processing time: "_TOT("AVGDAYS")_$SELECT(TOT("AVGDAYS")>1!(TOT("AVGDAYS")<1):" days",1:" day")

 +24       SET ^TMP($JOB,11,0)=" "

 +25       SET ^TMP($JOB,12,0)="Greater than 3 days to schedule: "_TOT("3DAYSCH")

 +26       SET ^TMP($JOB,13,0)="Greater than "_DVBADTS_" days to examine: "_TOT("30DAYEX")

 +27       SET ^TMP($JOB,14,0)=" "

 +28       SET ^TMP($JOB,15,0)="Pending, 0-90 days: "_TOT("P90")

 +29       SET ^TMP($JOB,16,0)="Pending, 91-120 days: "_TOT("P121")

 +30       SET ^TMP($JOB,17,0)="Pending, 121-150 days: "_TOT("P151")

 +31       SET ^TMP($JOB,18,0)="Pending, 151-180 days: "_TOT("P181")

 +32       SET ^TMP($JOB,19,0)="Pending, 181-365 days: "_TOT("P365")

 +33       SET ^TMP($JOB,20,0)="Pending, 366 or more days: "_TOT("P366")

 +34       SET ^TMP($JOB,21,0)=" "

 +35       SET ^TMP($JOB,22,0)="Transfers in from other sites: "_TOT("TRANSIN")_"  ("_$SELECT(TOTRVTN>0:$JUSTIFY(TOT("TRANSIN")/TOTRVTN*100,0,0),1:0)_"%)"

 +36       SET ^TMP($JOB,23,0)="Transfers returned to other sites: "_TOT("TRNRETTO")

 +37       SET ^TMP($JOB,24,0)="Transfers pending return to other sites: "_TOT("TRNPNDTO")

 +38       SET ^TMP($JOB,25,0)=" "

 +39       SET ^TMP($JOB,26,0)="Transfers out to other sites: "_TOT("TRANSOUT")_"  ("_$SELECT(TOTRVTN>0:$JUSTIFY(TOT("TRANSOUT")/TOTRVTN*100,0,0),1:0)_"%)"

 +40       SET ^TMP($JOB,27,0)="Transfers returned from other sites: "_TOT("TRNRETFR")

 +41       SET ^TMP($JOB,28,0)="Transfers pending return from other sites: "_TOT("TRNPNDFR")

 +42       SET ^TMP($JOB,29,0)=" "

 +43       SET ^TMP($JOB,32,0)=" ** Transfer figures are for information only **"

 +44       SET ^TMP($JOB,33,0)="* and should not be used to balance this report *"

 +45       KILL DIC,DIE,DR,DA,TOTRECV,TOTRVTN

 +46       QUIT