Routine: BSDWKR6

Package	Total	Call Graph
Kernel	4	^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
VA Fileman	3	H^%DTC ^DIC $$GET1^DIQ
IHS Changes To ADT	1	($$BROWSE,$$RANGE,$$READ,MSG,ZIS)^BDGF
IHS Changes To Scheduling	1	CLINIC^BSDU
IHS Patient	1	$$HRN^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1

Entry Points

Name	Comments	DBIA/ICR reference
HELP	; -- help code
EN	; -- main entry point for BSDRM WORK STATS
HDR	; -- header code
LPAD(A,L)	;-- pad the length to 4 digits
HDRD()	;-- do the header
ONE()	;-- get one clinic
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
PRINT	; print report to paper
EXPND	; -- expand code
HDG	; heading for paper report
START	;EP; -- re-entry for printing to paper
INIT	; -- init variables and list array
DET(BSDDDA,BSDDDIEN)	;-- print out the details
EXIT	; -- exit code
SET(LINE,NUM)	; -- sets display line into array
HELP1	;EP; help for subtotal question
ASK	; -- ask user questions
HDGD	;-- do the header for the detailed report
SP(N)	; -- SUBRTN to pad N number of spaces
GETTAT(I,O)	;-- calculate turnaround time
FMTT(T)	;-- reformat TAT

External References

Name	Field # of Occurrence
H^%DTC	GETTAT+6, GETTAT+10
^%ZISC	PRINT+10
$$HRN^AUPNPAT	INIT+77, DET+11
$$BROWSE^BDGF	ASK+18
$$RANGE^BDGF	HDR+2
$$READ^BDGF	ASK+13, ASK+14, ASK+16, PRINT+7
MSG^BDGF	HELP1+1, HELP1+2, HELP1+3, HELP1+4, HELP1+5, HELP1+6
ZIS^BDGF	ASK+19
CLINIC^BSDU	ASK+8
^DIC	ONE+5
$$GET1^DIQ	INIT+7, INIT+8, INIT+40
EN^VALM	EN+2
TERM^VALM0	EN+1
CLEAR^VALM1	EN+1, EN+3
$$VAL^XBDIQ1	INIT+23
$$FMTE^XLFDT	INIT+47, INIT+78, INIT+79, INIT+80, DET+12, DET+13, DET+14
$$REPEAT^XLFSTR	INIT+55, INIT+65, HDG+3, HDG+5, HDGD+1, HDGD+3, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BSDWKR6",$J,BSDX,0) Line Location: PRINT+9
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !,VALMHDR(I) Line Location: HDG+2
Function Call: WRITE	Prompt: ?70,$S($G(PAGE):"Page: "_$G(PAGE),1:"") Line Location: HDG+2
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+3
Function Call: WRITE	Prompt: !,"Appt Date",?20,"Checked In",?40,"Checked Out",?58,"Avg TAT" Line Location: HDG+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+5
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",100) Line Location: HDGD+1
Function Call: WRITE	Prompt: !,"Patient Name",?20,"Chart",?28,"Appointment",?42,"Checkin",?59,"Checkout",?78,"TAT" Line Location: HDGD+2
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",100) Line Location: HDGD+3
Routine Call	VALM Line Location: EN+2
Routine Call	DIC Line Location: ONE+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SC - [#44]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	INIT+76, DET+10
^SC - [#44]	INIT+15, INIT+21, INIT+22, INIT+26
^SC("AIHSPC"	INIT+9
^TMP("BSD"	INIT+1!, INIT+33, INIT+34, INIT+36, INIT+37, INIT+39, INIT+42, INIT+44, INIT+45, INIT+46 , INIT+59!, INIT+68, INIT+69, INIT+70, INIT+72, INIT+83!, DET+3, DET+4, DET+6
^TMP("BSDWKR6"	INIT+1!, SET+2*, EXIT+1!, PRINT+3, PRINT+9

Label References

Name	Line Occurrences
$$FMTT	INIT+50, INIT+81, DET+15
$$GETTAT	INIT+34, INIT+37
$$HDRD	INIT+53, INIT+63
$$LPAD	INIT+27, INIT+29, INIT+31
$$PAD	INIT+47, INIT+48, INIT+49, INIT+50, INIT+76, INIT+77, INIT+78, INIT+79, INIT+80, INIT+81 , DET+10, DET+11, DET+12, DET+13, DET+14, DET+15, HDRD+2, HDRD+3, HDRD+4, HDRD+5 , HDRD+6, HDRD+7, SP+1
$$SP	HDR+1, HDR+2
DET	INIT+57
EN	ASK+18
EXIT	ASK+8, ASK+11, ASK+13, ASK+14, PRINT+10
HDG	PRINT+2, PRINT+8
HDR	HDG+1
INIT	START+1
PRINT	START+1
SET	INIT+41, INIT+51, INIT+54, INIT+56, INIT+58, INIT+62, INIT+64, INIT+66, INIT+82, DET+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	GETTAT+7, GETTAT+11
>> %T	GETTAT+8, GETTAT+12
A	LPAD~, LPAD+1, LPAD+2, LPAD+3, LPAD+4, LPAD+5, LPAD+6, LPAD+7, LPAD+8
APPDT	INIT+19~, INIT+20*
APPN	INIT+5~, INIT+18, INIT+21, INIT+22, INIT+26
APPNA	INIT+30~, INIT+31*
APPT	INIT+5~, INIT+14, INIT+15, INIT+21, INIT+22, INIT+23, INIT+26, INIT+31, INIT+32, INIT+34
APPTA	INIT+30~, INIT+32*, INIT+33, INIT+36, INIT+37
BSDAR	INIT+2~*, INIT+6
BSDBD	ASK+1~, ASK+13*, HDR+2, INIT+14
BSDCHKI	INIT+5~, INIT+27*, INIT+28, INIT+34, INIT+37
BSDCHKO	INIT+5~, INIT+29*, INIT+34, INIT+35, INIT+37
BSDCI	INIT+71~, INIT+73, INIT+79, DET+5~, DET+7, DET+13
BSDCNT	INIT+5~, INIT+18*
BSDCNTI	INIT+43~, INIT+44*, INIT+48
BSDCNTO	INIT+43~, INIT+45*, INIT+49
BSDCO	INIT+71~, INIT+74, INIT+80, DET+5~, DET+8, DET+14
BSDDA	INIT+38~, INIT+39*, INIT+40, INIT+42, INIT+44, INIT+45, INIT+46, INIT+57
BSDDATA	INIT+71~, INIT+72, INIT+73, INIT+74, INIT+75, DET+5~, DET+6, DET+7, DET+8, DET+9
BSDDDA	INIT+67~, INIT+68*, INIT+69, INIT+70, INIT+72, DET~, DET+3, DET+4, DET+6
BSDDDIEN	DET~, DET+2, DET+3*, DET+4, DET+6, DET+12
BSDDIEN	INIT+69~*, INIT+70, INIT+72, INIT+78
BSDDOEN	INIT+70~, INIT+72, INIT+76, INIT+77, DET+4~, DET+6, DET+10, DET+11
BSDED	ASK+1~, ASK+14*, HDR+2, INIT+14
BSDEND	DET+1~, DET+2*, DET+3
BSDIEN	INIT+42~*, INIT+44, INIT+45, INIT+46, INIT+47, INIT+57
BSDQ	ASK+8, ASK+11, ONE+6*, EXIT+1!
>> BSDSRT	ASK+16*, INIT+52, INIT+59
BSDSUB	ASK+1~, ASK+3*
BSDT	INIT+71~, INIT+75, INIT+81, DET+5~, DET+9, DET+15
BSDTAT	INIT+43~, INIT+46*, INIT+50
BSDX	PRINT+3~*, PRINT+9
BT	GETTAT+2~, GETTAT+14*, GETTAT+17
CHK	INIT+5~, INIT+26*, INIT+27, INIT+29
CLN	INIT+5~, INIT+6*, INIT+7, INIT+8, INIT+9, INIT+15, INIT+21, INIT+22, INIT+26, INIT+33 , INIT+34, INIT+36, INIT+37
D	PAD~, PAD+2
>> DIC	ONE+2*
>> DIC("A"	ONE+4*
>> DIC(0	ONE+3*
DUZ(2	INIT+77, DET+11
END	INIT+5~, INIT+14*, INIT+15
ET	GETTAT+2~, GETTAT+13*, GETTAT+17
H	GETTAT+2~, GETTAT+17*
I	GETTAT~, GETTAT+3, GETTAT+5, HDG+2*
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+4
IOST	PRINT+7
IT	GETTAT+2~, GETTAT+3*
ITH	GETTAT+2~, GETTAT+7*, GETTAT+14
ITM	GETTAT+2~, GETTAT+8*, GETTAT+14
L	LPAD~, PAD~, PAD+2
LINE	INIT+47, INIT+48, INIT+49, INIT+50, INIT+51, INIT+53, INIT+54, INIT+55, INIT+56, INIT+63* , INIT+64, INIT+65, INIT+66, INIT+76, INIT+77, INIT+78, INIT+79, INIT+80, INIT+81, INIT+82 , DET+10, DET+11, DET+12, DET+13, DET+14, DET+15*, DET+16, SET~, SET+2
LN	HDRD+1~, HDRD+2, HDRD+3, HDRD+4, HDRD+5, HDRD+6, HDRD+7, HDRD+8
LT	FMTT+1~, FMTT+2*
LTI	FMTT+1~
M	FMTT+1~, FMTT+4, FMTT+8, FMTT+9, FMTT+10, FMTT+11, FMTT+12, GETTAT+2~, GETTAT+19, GETTAT+20
N	SP~, SP+1
NAME	INIT+5~, INIT+40*, INIT+41
NUM	SET~, SET+1*, SET+2
O	GETTAT~, GETTAT+1, GETTAT+4, GETTAT+9
OT	GETTAT+2~, GETTAT+4*
OTH	GETTAT+2~, GETTAT+11*, GETTAT+13
OTM	GETTAT+2~, GETTAT+12*, GETTAT+13
PAGE	EXIT+1!, PRINT+1, PRINT+5, HDG+2
PAT	INIT+5~, INIT+22*, INIT+23, INIT+34
POP	ASK+1~
S	GETTAT+2~
STATUS	INIT+5~, INIT+23*, INIT+24, INIT+25
SUB	INIT+5~
SUB2	INIT+5~
T	FMTT~, FMTT+2, FMTT+5, FMTT+6, FMTT+7, FMTT+8, FMTT+9, FMTT+10, FMTT+11, FMTT+12
TS	GETTAT+2~, GETTAT+17*, GETTAT+19
TYPE	INIT+5~
U	ONE+7, INIT+27, INIT+29, INIT+34, INIT+73, INIT+74, INIT+75, INIT+76, DET+7, DET+8 , DET+9, DET+10
VALMCNT	EN+1~, INIT+1*, INIT+41, INIT+51, INIT+54, INIT+56, INIT+58, INIT+62, INIT+64, INIT+66 , INIT+82, DET+16
>> VALMHDR(	HDG+2
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
VAUTC	ASK+1~, ONE+1*, INIT+2
VAUTC(	ONE+7*
VAUTD	ASK+1~, INIT+8
VAUTD(	INIT+8
>> X	GETTAT+5, GETTAT+9, HELP+1*
Y	ASK+1~, ASK+18, ONE+6, ONE+7, PRINT+7

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDWKR6

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: