Routine: BSDWKR7

Call Graph

Call Graph Total: 11

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

Entry Points

Name	Comments	DBIA/ICR reference
TYPE(C,D,N,P,S,H)	; -- return type of appt. ; returns column # ; 1=appt, 2=chart request, 3=walk-in
EN	; -- main entry point for BSDRM WORK STATS
INCR(SUB,SUBH,TYPE,RS,MON)	; increment totals
HDR	; -- header code
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
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
EXIT	; -- exit code
SET(LINE,NUM)	; -- sets display line into array
HELP1	;EP; help for print individual dates question
ASK	; -- ask user questions
MON(MI)	;-- return external month
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+5
$$BROWSE^BDGF	ASK+16
$$RANGE^BDGF	HDR+2
$$READ^BDGF	ASK+5, ASK+6, ASK+11
MSG^BDGF	HELP1+1, HELP1+2, HELP1+3, HELP1+4
ZIS^BDGF	ASK+17
CLINIC^BSDU	ASK+9
$$GET1^DIQ	INIT+11, INIT+12, INIT+14, INIT+15, INIT+16
EN^VALM	EN+2
TERM^VALM0	EN+1
CLEAR^VALM1	EN+1, EN+3
$$VAL^XBDIQ1	INIT+26
$$FMTE^XLFDT	INIT+34, INIT+62
$$REPEAT^XLFSTR	HDG+3, HDG+5, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BSDWKR7",$J,X,0) Line Location: PRINT+4
Function Call: WRITE	Prompt: @IOF,?30,"Routing Slip Statistics" Line Location: HDG+1
Function Call: WRITE	Prompt: !,VALMHDR(I) Line Location: HDG+2
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+3
Function Call: WRITE	Prompt: !,?10,"Routing Slips",?30,"Chart Requests",?50,"Sch Appts",?70,"Walkins" Line Location: HDG+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+5
Routine Call	VALM Line Location: EN+2

FileNo	Call Tags
^SC - [#44]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	INIT+39, INIT+67, TYPE+5, TYPE+8, TYPE+9
^SC - [#44]	INIT+20, INIT+24, INIT+25, INIT+48, INIT+52, INIT+53, TYPE+6, TYPE+7
^SC("AIHSPC"	INIT+13
^TMP("BSD"	INIT+1!, INIT+74, INIT+76, INIT+80, INIT+84, INIT+85, INIT+86, INIT+87, INIT+121!, INCR+3* , INCR+6*
^TMP("BSDS"	INIT+96, INIT+97, INIT+98, INIT+99, INIT+123!, INCR+4, INCR+7
^TMP("BSDTOT"	INIT+109, INIT+110, INIT+111, INIT+112, INIT+122!, INCR+5, INCR+8
^TMP("BSDWKR7"	INIT+1!, SET+2*, EXIT+1!, PRINT+2, PRINT+4

Label References

Name	Line Occurrences
$$MON	INIT+88
$$PAD	INIT+88, INIT+89, INIT+90, INIT+91, INIT+92, INIT+100, INIT+101, INIT+102, INIT+103, INIT+114 , INIT+116, INIT+117, INIT+118, INIT+119, SP+1
$$SP	HDR+1, HDR+2, INIT+88, INIT+89, INIT+100, INIT+114, INIT+116
$$TYPE	INIT+37
EN	ASK+16
EXIT	PRINT+5
HDG	PRINT+1, PRINT+3
HDR	HDG+1
INCR	INIT+43, INIT+44, INIT+70
INIT	START+1
PRINT	START+1
SET	INIT+77, INIT+78, INIT+93, INIT+104, INIT+105, INIT+106, INIT+107, INIT+120

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCN	INIT+51, INIT+52, INIT+53
>> APCR	INIT+47, INIT+48, INIT+52, INIT+53, INIT+62, INIT+63, INIT+67
APPN	INIT+5~, INIT+23, INIT+24, INIT+25, INIT+37
APPT	INIT+5~, INIT+19, INIT+20, INIT+24, INIT+25, INIT+26, INIT+34, INIT+35, INIT+37, INIT+39
BSDAR	INIT+2~*, INIT+10
BSDBD	ASK+1~, ASK+5*, HDR+2, INIT+19, INIT+47
BSDCCR	INIT+95~, INIT+97*, INIT+101
BSDCR	INIT+83~, INIT+85*, INIT+90
BSDCRS	INIT+95~, INIT+96*, INIT+100
BSDCRT	INIT+108~, INIT+110*, INIT+117
BSDCSA	INIT+95~, INIT+98*, INIT+102
BSDCWI	INIT+95~, INIT+99*, INIT+103
BSDDA	INIT+73~, INIT+74*, INIT+76, INIT+77, INIT+78, INIT+80, INIT+84, INIT+85, INIT+86, INIT+87 , INIT+88, INIT+89, INIT+94, INIT+96, INIT+97, INIT+98, INIT+99
BSDDET	ASK+1~
BSDED	ASK+1~, ASK+6*, HDR+2, INIT+19, INIT+47
BSDH	INIT+5~, INIT+6, INIT+7, INIT+8, INIT+9, INIT+37, INIT+43, INIT+44, INIT+70, INIT+113 , INIT+115
BSDIEN	INIT+75~, INIT+76*, INIT+78, INIT+80, INIT+84, INIT+85, INIT+86, INIT+87, INIT+89, INIT+96 , INIT+97, INIT+98, INIT+99
>> BSDMON	INIT+35, INIT+43, INIT+44, INIT+63, INIT+70
BSDOEN	INIT+79~, INIT+80*, INIT+84, INIT+85, INIT+86, INIT+87, INIT+88
BSDPC	INIT+5~, INIT+16*, INIT+32, INIT+60
>> BSDQ	ASK+9
BSDRS	INIT+73~, INIT+84*, INIT+88, INIT+89
BSDRSP	INIT+38!, INIT+39, INIT+43, INIT+44, INIT+66!, INIT+67, INIT+70
BSDRST	INIT+108~, INIT+109*, INIT+114, INIT+116
BSDS	INIT+5~, INIT+31, INIT+32, INIT+33, INIT+34, INIT+43, INIT+44, INIT+59, INIT+60, INIT+61* , INIT+62*, INIT+70
BSDSA	INIT+83~, INIT+86*, INIT+91
BSDSAT	INIT+108~, INIT+111*, INIT+118
BSDSCD	INIT+5~, INIT+15*, INIT+33, INIT+61
BSDSEEN	ASK+1~
BSDSRT	ASK+1~, ASK+11*, ASK+12, INIT+6, INIT+7, INIT+8, INIT+9, INIT+31, INIT+32, INIT+33 , INIT+34, INIT+59, INIT+60, INIT+61, INIT+62
BSDSUB	ASK+1~, ASK+3*, ASK+9
BSDTT	ASK+1~
BSDWI	INIT+83~, INIT+87*, INIT+92
BSDWIT	INIT+108~, INIT+112*, INIT+119
C	TYPE~, TYPE+6, TYPE+7
CLN	INIT+5~, INIT+10*, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15, INIT+16, INIT+20, INIT+24 , INIT+25, INIT+37, INIT+48, INIT+52, INIT+53
D	TYPE~, TYPE+5, TYPE+6, TYPE+7, TYPE+8, TYPE+9, PAD~, PAD+2
END	INIT+5~, INIT+19, INIT+20, INIT+47, INIT+48
H	TYPE~, TYPE+7, TYPE+9
>> I	HDG+2*
IO	PRINT+1
IOF	HDG+1
IOSL	PRINT+3
L	PAD~, PAD+2
LINE	INIT+88, INIT+89, INIT+90, INIT+91, INIT+92, INIT+93, INIT+100, INIT+101, INIT+102, INIT+103* , INIT+105, INIT+114, INIT+116, INIT+117, INIT+118, INIT+119*, INIT+120, SET~, SET+2
MI	MON~, MON+1, MON+2*, MON+3, MON+4, MON+5, MON+6, MON+7, MON+8, MON+9 , MON+10, MON+11, MON+12, MON+13, MON+14
>> MO	MON+3, MON+4, MON+5, MON+6, MON+7, MON+8, MON+9, MON+10, MON+11, MON+12 , MON+13, MON+14, MON+15
MON	INCR~, INCR+3, INCR+6
>> MY	MON+1*, MON+15
N	TYPE~, TYPE+6, TYPE+7, SP~, SP+1
NAME	INIT+5~, INIT+14*, INIT+31, INIT+32, INIT+59, INIT+60
NUM	SET~, SET+1*, SET+2
P	TYPE~, TYPE+5, TYPE+8, TYPE+9
PAT	INIT+5~, INIT+25, INIT+26, INIT+37, INIT+39, INIT+53, INIT+67
POP	ASK+1~
RS	INIT+83~, INCR~, INCR+2
S	TYPE~, TYPE+3, TYPE+4
STATUS	INIT+5~, INIT+26*, INIT+27, INIT+28, INIT+29, INIT+30, INIT+37
SUB	INIT+5~, INCR~, INCR+3, INCR+4, INCR+6, INCR+7
SUB2	INIT+5~
SUBH	INCR~, INCR+3, INCR+4, INCR+6, INCR+7
TYPE	INIT+5~, INIT+37*, INIT+42, INCR~, INCR+1, INCR+6, INCR+7, INCR+8
U	ASK+12, INIT+39, INIT+67, TYPE+5, TYPE+6, TYPE+7, TYPE+8, TYPE+9
VALMCNT	EN+1~, INIT+1*, INIT+77, INIT+78, INIT+93, INIT+104, INIT+105, INIT+106, INIT+107, INIT+120
>> VALMHDR(	HDG+2
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
VAUTC	ASK+1~, INIT+2
VAUTD	ASK+1~, INIT+12
VAUTD(	INIT+12
X	TYPE+5~, TYPE+8, TYPE+9, TYPE+10, HELP+1, PRINT+2~*, PRINT+4
Y	ASK+1~, ASK+16*

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDWKR7

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: