- BSDWKR ; IHS/ANMC/LJF - WORKLOAD/STATS REPORTS ; [ 08/20/2004 11:58 AM ]
- ;;5.3;PIMS;**1001,1005,1007,1011,1012,1013**;MAY 28, 2004
- ;IHS/ITSC/WAR 05/03/2004 PATCH 1001 added back in v5.0 report
- ;IHS/OIT/LJF 04/12/2006 PATCH 1005 changed intro call to v5.3 routine
- ;cmi/anch/maw 2/20/2007 PATCH 1007 item 1007.24 added new report for Turn Around Time (TAT)
- ;cmi/anch/maw 2/20/2007 PATCH 1007 item 1007.25 added new report to show # of chart requests and RS printed by month
- ;cmi/flag/maw 6/02/2010 PATCH 1012 RQMT147 Advanced Access Report
- ;
- ASK ; -- ask user to choose report
- NEW BSDA,I,NAME,X,Y,RTN,INTRO,POP,DIRUT
- F I=1:1 S NAME=$P($T(REPORTS+I),";;",2) Q:NAME="" D
- . S BSDA(I)=$$SP(10)_$J(I,2)_". "_NAME
- S BSDA(I)="" ;extra line for readability
- S Y=$$READ^BDGF("NO^1:"_(I-1),$$SP(10)_"Select REPORT","","","",.BSDA)
- ;IHS/ITSC/WAR 5/3/2004 PATCH #1001 allowed for another entry, see line tag REPORTS
- ;Q:'Y I Y=5 S XQH="BSDSM WSR OVERVIEW" D EN^XQH G ASK
- Q:'Y I Y=9 S XQH="BSDSM WSR OVERVIEW" D EN^XQH G ASK
- S BSDTAXYN=1 ;cmi/maw PATCH 1011
- S RTN=$P($T(REPORTS+Y),";;",3),INTRO=$P($T(REPORTS+Y),";;",4)
- D @INTRO,@RTN
- K BSDTAXYN
- D ^XBCLS,WSR^BSDH02,ASK Q
- ;
- ;
- PAD(D,L) ;EP -- SUBRTN to pad length of data
- ; -- D=data L=length
- Q $E(D_$$REPEAT^XLFSTR(" ",L),1,L)
- ;
- SP(N) ; -- SUBRTN to pad N number of spaces
- Q $$PAD(" ",N)
- ;
- ;IHS/ITSC/WAR 5/3/2004 P #1001 Added 'Clinic Workload Report'
- ;IHS/OIT/LJF 04/12/2006 PATCH 1005 changed WR^ASDH02 to WK5^BSDH021
- ;cmi/anch/maw 2/27/2007 PATCH 1007 added Turn Around Time Report and Routing Slip/Chart Request Report
- REPORTS ;;
- ;;Statistics by Type of Appointment;;^BSDWKR1;;WK1^BSDH021
- ;;Scheduled vs. Patients Seen;;^BSDWKR4;;WK4^BSDH021
- ;;Detailed Appointment Listing;;^BSDWKR2;;WK2^BSDH021
- ;;Monthly Workload Comparisons;;^BSDWKR3;;WK3^BSDH021
- ;;Clinic Workload Report;;^SDCWL;;WK5^BSDH021
- ;;Turn Around Time Report;;^BSDWKR6;;WK6^BSDH021
- ;;Routing Slip/Chart Request Report;;^BSDWKR7;;WK7^BSDH021
- ;;Advanced Access Report;;^BSDWKR8;;WK8^BSDH021
- ;;On-line Help (Report Descriptions);;
- BSDWKR ; IHS/ANMC/LJF - WORKLOAD/STATS REPORTS ; [ 08/20/2004 11:58 AM ]
- +1 ;;5.3;PIMS;**1001,1005,1007,1011,1012,1013**;MAY 28, 2004
- +2 ;IHS/ITSC/WAR 05/03/2004 PATCH 1001 added back in v5.0 report
- +3 ;IHS/OIT/LJF 04/12/2006 PATCH 1005 changed intro call to v5.3 routine
- +4 ;cmi/anch/maw 2/20/2007 PATCH 1007 item 1007.24 added new report for Turn Around Time (TAT)
- +5 ;cmi/anch/maw 2/20/2007 PATCH 1007 item 1007.25 added new report to show # of chart requests and RS printed by month
- +6 ;cmi/flag/maw 6/02/2010 PATCH 1012 RQMT147 Advanced Access Report
- +7 ;
- ASK ; -- ask user to choose report
- +1 NEW BSDA,I,NAME,X,Y,RTN,INTRO,POP,DIRUT
- +2 FOR I=1:1
- SET NAME=$PIECE($TEXT(REPORTS+I),";;",2)
- IF NAME=""
- QUIT
- Begin DoDot:1
- +3 SET BSDA(I)=$$SP(10)_$JUSTIFY(I,2)_". "_NAME
- End DoDot:1
- +4 ;extra line for readability
- SET BSDA(I)=""
- +5 SET Y=$$READ^BDGF("NO^1:"_(I-1),$$SP(10)_"Select REPORT","","","",.BSDA)
- +6 ;IHS/ITSC/WAR 5/3/2004 PATCH #1001 allowed for another entry, see line tag REPORTS
- +7 ;Q:'Y I Y=5 S XQH="BSDSM WSR OVERVIEW" D EN^XQH G ASK
- +8 IF 'Y
- QUIT
- IF Y=9
- SET XQH="BSDSM WSR OVERVIEW"
- DO EN^XQH
- GOTO ASK
- +9 ;cmi/maw PATCH 1011
- SET BSDTAXYN=1
- +10 SET RTN=$PIECE($TEXT(REPORTS+Y),";;",3)
- SET INTRO=$PIECE($TEXT(REPORTS+Y),";;",4)
- +11 DO @INTRO
- DO @RTN
- +12 KILL BSDTAXYN
- +13 DO ^XBCLS
- DO WSR^BSDH02
- DO ASK
- QUIT
- +14 ;
- +15 ;
- PAD(D,L) ;EP -- SUBRTN to pad length of data
- +1 ; -- D=data L=length
- +2 QUIT $EXTRACT(D_$$REPEAT^XLFSTR(" ",L),1,L)
- +3 ;
- SP(N) ; -- SUBRTN to pad N number of spaces
- +1 QUIT $$PAD(" ",N)
- +2 ;
- +3 ;IHS/ITSC/WAR 5/3/2004 P #1001 Added 'Clinic Workload Report'
- +4 ;IHS/OIT/LJF 04/12/2006 PATCH 1005 changed WR^ASDH02 to WK5^BSDH021
- +5 ;cmi/anch/maw 2/27/2007 PATCH 1007 added Turn Around Time Report and Routing Slip/Chart Request Report
- REPORTS ;;
- +1 ;;Statistics by Type of Appointment;;^BSDWKR1;;WK1^BSDH021
- +2 ;;Scheduled vs. Patients Seen;;^BSDWKR4;;WK4^BSDH021
- +3 ;;Detailed Appointment Listing;;^BSDWKR2;;WK2^BSDH021
- +4 ;;Monthly Workload Comparisons;;^BSDWKR3;;WK3^BSDH021
- +5 ;;Clinic Workload Report;;^SDCWL;;WK5^BSDH021
- +6 ;;Turn Around Time Report;;^BSDWKR6;;WK6^BSDH021
- +7 ;;Routing Slip/Chart Request Report;;^BSDWKR7;;WK7^BSDH021
- +8 ;;Advanced Access Report;;^BSDWKR8;;WK8^BSDH021
- +9 ;;On-line Help (Report Descriptions);;
