Routine: BSDWKR3

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,ZIS)^BDGF
IHS Changes To Scheduling	1	($$PRIN,$$PRV,$$TEAM,CLINIC,PCASK)^BSDU
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
VA Fileman	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BSDRM WORKLOAD COMPARISONS
HDR	; -- header code
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
TYPE(C,D,N,P,S)	; -- return type of appt. ; returns column #: 1=sched, 2=same day, 3=walk-in, 4=overbook, 5=inpt
PRINT	; print report to paper
NET(SUB,CLINIC,MON1,MON2)	; sets up net change & % change lines ; CLINIC=0 if called by category
EXPND	; -- expand code
LAST(DATE)	; returns month and previous year
HDG	; heading for paper report
START	;EP; -- re-entry for printing to paper
INIT	; -- init variables and list array
INIT2(CLN,BEG,END,FIRST)	; loop by date and increment totals
EXIT	; -- exit code
SET(LINE,NUM)	; -- sets display line into array
SP(N)	; -- SUBRTN to pad N number of spaces
ASK	; -- ask user questions
INCR(SUB,TYPE,NAME,SUB2,MON)	; increment totals
SETTMP(CLINIC,BEG,END)	; initialize ^tmp by month
SUB1(C,N)	; -- return name of subcategory for clinic C
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+6
$$BROWSE^BDGF	ASK+19
$$RANGE^BDGF	HDR+2
$$READ^BDGF	ASK+3, ASK+12, ASK+14, ASK+15, ASK+17
ZIS^BDGF	ASK+20
$$PRIN^BSDU	SUB1+1
$$PRV^BSDU	SUB1+2
$$TEAM^BSDU	SUB1+3
CLINIC^BSDU	ASK+7
PCASK^BSDU	ASK+8
$$GET1^DIQ	INIT2+2, SETTMP+2, SETTMP+7, SETTMP+9
EN^VALM	EN+2
TERM^VALM0	EN+1
CLEAR^VALM1	EN+1, EN+3
$$VAL^XBDIQ1	INIT2+12
$$VALI^XBDIQ1	TYPE+4
$$FMTE^XLFDT	INIT+30, INIT+49
$$REPEAT^XLFSTR	HDG+3, HDG+8, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("BSDWKR3",$J,LINE,0) Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF,?30,"Workload Comparisons" 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: !,"Category Name",?29,"SCHED",?35,"SAMEDAY",?44,"WALIKIN" Line Location: HDG+4
Function Call: WRITE	Prompt: ?52,"OVERBK",?62,"INPT",?70,"TOTAL SEEN" Line Location: HDG+7
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+8
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	SETTMP+10
^DPT - [#2]	TYPE+5
^SC - [#44]	INIT+8, INIT+9, INIT2+6, INIT2+10, INIT2+11, TYPE+3
^SC("AIHSPC"	INIT+7
^TMP("BSD"	INIT+1!, INIT+23, INIT+28, INIT+29, INIT+33, INIT+34, INIT+43, INIT+47, INIT+48, INIT+52 , INIT+53, INIT+60!, SETTMP+16, SETTMP+17, SETTMP+18, SETTMP+19, INCR+1, INCR+2, INCR+3, INCR+4 , NET+7, NET+9, NET+14, NET+16
^TMP("BSDWKR3"	INIT+1!, SET+2*, PRINT+3, PRINT+5

Label References

Name	Line Occurrences
$$LAST	INIT+9, INIT+15, SETTMP+17, SETTMP+19
$$PAD	INIT+30, INIT+34, INIT+49, INIT+53, NET+4, NET+5, NET+15, NET+22, SP+1
$$SP	HDR+1, HDR+2, HDR+3, INIT+30, INIT+33, INIT+45, INIT+49, INIT+52, NET+4, NET+5 , NET+8, NET+11
$$SUB1	INIT2+3, SETTMP+3
$$TYPE	INIT2+17
EN	ASK+19
EXIT	PRINT+6
HDG	PRINT+1, PRINT+4
HDR	HDG+1
INCR	INIT2+24
INIT	START+1
INIT2	INIT+14, INIT+15
NET	INIT+38, INIT+57
PRINT	START+1
SET	INIT+25, INIT+35, INIT+39, INIT+45, INIT+54, INIT+58
SETTMP	INIT+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APPN	INIT2+1~, INIT2+9, INIT2+10, INIT2+11, INIT2+17
APPT	INIT2+1~, INIT2+5, INIT2+6, INIT2+10, INIT2+11, INIT2+12, INIT2+17, INIT2+20
BEG	INIT2~, INIT2+5, SETTMP~, SETTMP+4
BSDAR	INIT+2~*, INIT+6
BSDBD	ASK+1~, ASK+14*, HDR+2, INIT+8, INIT+9, INIT+14, INIT+15, INIT+18
BSDCC	ASK+11~, ASK+12*, SETTMP+6
BSDED	ASK+1~, ASK+15*, HDR+2, INIT+11, INIT+14, INIT+15, INIT+18
>> BSDQ	ASK+7, ASK+8
BSDSEEN	ASK+1~, ASK+17*, INIT2+15
BSDSUB	ASK+1~, ASK+3*, ASK+4, ASK+7, ASK+8, SUB1+1, SUB1+2, SUB1+3
BSDTT	ASK+1~
C	SUB1~, TYPE~, TYPE+3
CLINIC	SETTMP~, NET~, NET+7, NET+9, NET+14, NET+16
CLN	INIT+5~, INIT+6*, INIT+7, INIT+8, INIT+9, INIT+14, INIT+15, INIT+18, INIT2~, INIT2+2 , INIT2+3, INIT2+6, INIT2+10, INIT2+11, INIT2+17, SUB1+1, SUB1+2, SUB1+3, SETTMP+2, SETTMP+3 , SETTMP+7, SETTMP+9
>> CLNC	SETTMP+7*, SETTMP+11
CLNCC	SETTMP+8~, SETTMP+10*, SETTMP+11
CLNCI	SETTMP+8~, SETTMP+9*, SETTMP+10
D	TYPE~, TYPE+3, TYPE+4, TYPE+5, PAD~, PAD+2
DATE	LAST~, LAST+1
DIFF	NET+2~, NET+7, NET+8, NET+10, NET+14, NET+15, NET+19
DIV	NET+2~, NET+9, NET+10, NET+16, NET+19
END	INIT2~, INIT2+5*, INIT2+6, SETTMP~, SETTMP+14
FIRST	INIT2~, INIT2+22
I	INIT+22~, INIT+33, INIT+52, SETTMP+15, SETTMP+16, SETTMP+17, SETTMP+18, SETTMP+19, NET+2~, NET+6 , NET+7, NET+9, HDG+2~*
IO	PRINT+1
IOF	HDG+1
IOSL	PRINT+4
L	PAD~, PAD+2
LINE	INIT+22~, INIT+30, INIT+33, INIT+34, INIT+35, INIT+49, INIT+52, INIT+53, INIT+54, SET~ , SET+2, PRINT+2~, PRINT+3*, PRINT+5
LINE2	INIT+22~, INIT+39, INIT+58, NET+3!, NET+4, NET+8, NET+15*
LINE3	INIT+22~, INIT+39, INIT+58, NET+3!, NET+5, NET+11, NET+22*
MON	INIT2+1~, INIT2+20, INIT2+22, INIT2+24, SETTMP+1~, SETTMP+4, SETTMP+14, SETTMP+16, SETTMP+17, SETTMP+18 , SETTMP+19, SETTMP+20, SETTMP+23*, INCR~, INCR+1, INCR+2, INCR+3, INCR+4
MON1	NET~, NET+7, NET+9, NET+14, NET+16
MON2	NET~, NET+7, NET+14
N	SUB1~, SUB1+4, TYPE~, TYPE+3, SP~, SP+1
NAME	INIT2+1~, INIT2+2, INIT2+3, INIT2+24, SETTMP+1~, SETTMP+2, SETTMP+3, SETTMP+18, SETTMP+19, INCR~ , INCR+3, INCR+4
NUM	SET~, SET+1*, SET+2
P	TYPE~, TYPE+4, TYPE+5
PAT	INIT2+1~, INIT2+11*, INIT2+12, INIT2+17
PCNT	NET+2~, NET+10, NET+11, NET+19, NET+22
POP	ASK+1~
S	TYPE~, TYPE+2
S1	INIT+22~, INIT+23*, INIT+25, INIT+28, INIT+29, INIT+33, INIT+34, INIT+38, INIT+43, INIT+44 , INIT+47, INIT+48, INIT+52, INIT+53, INIT+57
S2	INIT+22~, INIT+28, INIT+29, INIT+33, INIT+34, INIT+38, INIT+39, INIT+43, INIT+44, INIT+45 , INIT+47, INIT+48, INIT+52, INIT+53, INIT+57
S3	INIT+22~, INIT+29, INIT+30, INIT+33, INIT+34, INIT+38, INIT+39, INIT+47, INIT+48, INIT+52 , INIT+53, INIT+57, INIT+58
S4	INIT+22~, INIT+48*, INIT+49, INIT+52, INIT+53, INIT+57, INIT+58
STATUS	INIT2+1~, INIT2+12*, INIT2+13, INIT2+14, INIT2+15, INIT2+17
SUB	INIT2+1~, INIT2+3, INIT2+24, SETTMP+1~, SETTMP+3, SETTMP+11*, SETTMP+16, SETTMP+17, SETTMP+18, SETTMP+19 , INCR~, INCR+1, INCR+2, INCR+3, INCR+4, NET~, NET+7, NET+9, NET+14, NET+16
SUB2	INIT2+1~, INIT2+22*, INIT2+24, INCR~, INCR+1, INCR+2, INCR+3, INCR+4
TYPE	INIT2+1~, INIT2+17*, INIT2+24, INCR~, INCR+2, INCR+4
U	ASK+4, ASK+17, SUB1+2, SUB1+3, TYPE+5, SETTMP+10
VALMCNT	EN+1~, INIT+1*, INIT+25, INIT+35, INIT+39, INIT+45, INIT+54, INIT+58
>> VALMHDR(	HDG+2
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
>> VALMHDR(3	HDR+3*
VAUTC	ASK+1~, INIT+2
VAUTD	ASK+1~
X	INIT+5~, INIT+8, INIT+10, INIT+11, TYPE+4~, TYPE+5, TYPE+6, SETTMP+1~, SETTMP+20, SETTMP+23 , HELP+1
Y	ASK+1~, ASK+19, INIT+5~, INIT+9, INIT+10

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDWKR3

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: