Routine: BSDWKR1

Package	Total	Call Graph
Kernel	4	^%ZISC ($$FMDIFF,$$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	($$PRIN,$$PRV,$$TEAM,CLINIC,PCASK)^BSDU
IHS VA Utilities	1	$$VAL^XBDIQ1
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To Scheduling	4	BSDAMR2 BSDAMR3 BSDAMR4 BSDWKR2

Entry Points

Name	Comments	DBIA/ICR reference
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
HDG	; heading for paper report
EXPND	; -- expand code
PRINT	; print report to paper
HELP	; -- help code
SUB2(D,P)	; -- returns value of 2nd sort if asked for
INIT	; -- init variables and list array
ASK	; -- ask user questions
EXIT	; -- exit code
SUB21(X)	; returns external category
EN	; -- main entry point for BSDRM WORK STATS
INCR(SUB,TYPE,NAME,SUB2,APPT)	; increment totals
START	;EP; -- re-entry for printing to paper
SET(LINE,NUM)	; -- sets display line into array
SUB22(X)	; returns 2nd value of 2nd subcategory
HELP2	;EP; help for assume patient seen question
HELP3	;EP; help for print individual dates question
HELP1	;EP; help for subtotal question
TYPE(C,D,N,P,S)	; -- return type of appt. ; returns column # ; 1=sched, 2=same day, 3=walk-in, 4=overbook, 5=inpt, 6=no-show
SUB1(C,N)	; -- return name of subcategory for clinic C

External References

Name	Field # of Occurrence
^%ZISC	PRINT+5
$$BROWSE^BDGF	ASK+20
$$RANGE^BDGF	HDR+2
$$READ^BDGF	ASK+3, ASK+10, ASK+11, ASK+13, ASK+15, ASK+18
MSG^BDGF	HELP1+1, HELP1+2, HELP1+3, HELP1+4, HELP1+5, HELP1+6, HELP1+7, HELP1+8, HELP2+1, HELP2+2 , HELP2+3, HELP2+4, HELP2+5, HELP2+6, HELP2+7, HELP3+1, HELP3+2, HELP3+3, HELP3+4
ZIS^BDGF	ASK+21
$$PRIN^BSDU	SUB1+1
$$PRV^BSDU	SUB1+2
$$TEAM^BSDU	SUB1+3
CLINIC^BSDU	ASK+7
PCASK^BSDU	ASK+8
$$GET1^DIQ	INIT+8, INIT+11, INIT+13, SUB2+3, SUB2+4
EN^VALM	EN+2
TERM^VALM0	EN+1
CLEAR^VALM1	EN+1, EN+3
$$VAL^XBDIQ1	INIT+24
$$FMDIFF^XLFDT	SUB2+3
$$FMTE^XLFDT	INIT+76
$$REPEAT^XLFSTR	HDG+3, HDG+6, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BSDWKR1",$J,X,0) Line Location: PRINT+4
Function Call: WRITE	Prompt: @IOF,?30,"Workload 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: !,"Category Names",?28,"SCHED",?34,"SAMEDAY",?43,"WALKIN" Line Location: HDG+4
Function Call: WRITE	Prompt: ?51,"OVERBK",?61,"INPT",?70,"TOTAL SEEN" Line Location: HDG+5
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+6
Routine Call	VALM Line Location: EN+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	TYPE+5
^SC - [#44]	INIT+18, INIT+22, INIT+23, TYPE+6, TYPE+7, TYPE+8, TYPE+9
^SC("AIHSPC"	INIT+12
^TMP("BSD"	INIT+1!, INIT+38, INIT+42, INIT+43, INIT+50, INIT+51, INIT+56, INIT+59, INIT+60, INIT+68 , INIT+69, INIT+73, INIT+74, INIT+77, INIT+78, INIT+83, INIT+84, INIT+87!, INCR+2, INCR+3 , INCR+4, INCR+5, INCR+6, INCR+7, INCR+8, INCR+9, INCR+10, INCR+11, INCR+12, INCR+13
^TMP("BSDWKR1"	INIT+1!, SET+2*, EXIT+1!, PRINT+2, PRINT+4

Label References

Name	Line Occurrences
$$PAD	INIT+40, INIT+43, INIT+49, INIT+51, INIT+58, INIT+60, INIT+67, INIT+69, INIT+76, INIT+78 , INIT+82, INIT+84, SP+1
$$SP	HDR+1, HDR+2, INIT+42, INIT+50, INIT+58, INIT+59, INIT+67, INIT+68, INIT+76, INIT+77 , INIT+83
$$SUB1	INIT+14
$$SUB2	INIT+30
$$SUB21	INIT+47, INIT+65
$$SUB22	INIT+47, INIT+65
$$TYPE	INIT+29
EN	ASK+20
EXIT	PRINT+5
HDG	PRINT+1, PRINT+3
HDR	HDG+1
INCR	INIT+33
INIT	START+1
PRINT	START+1
SET	INIT+44, INIT+52, INIT+53, INIT+61, INIT+70, INIT+79, INIT+80, INIT+85

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APPN	INIT+5~, INIT+21, INIT+22, INIT+23, INIT+29
APPT	INIT+5~, INIT+17, INIT+18, INIT+22, INIT+23, INIT+24, INIT+29, INIT+30, INIT+33, INCR~ , INCR+1
BSDAR	INIT+2~*, INIT+6
BSDBD	ASK+1~, ASK+10*, HDR+2, INIT+17
BSDDET	ASK+1~, ASK+13*, INCR+12, INCR+13
BSDED	ASK+1~, ASK+11*, HDR+2, INIT+17
BSDI	INIT+37~, INIT+47, INIT+48, INIT+65, INIT+66
BSDJ	INIT+37~, INIT+47, INIT+48, INIT+65, INIT+66
>> BSDQ	ASK+7, ASK+8
BSDSEEN	ASK+1~, ASK+18*, INIT+27
BSDSRT	ASK+1~, ASK+15, ASK+16, INIT+46, INIT+47, INIT+64, INIT+65, SUB2+1, SUB2+2, SUB2+3 , SUB2+4
BSDSUB	ASK+1~, ASK+3*, ASK+4, ASK+7, ASK+8, SUB1+1, SUB1+2, SUB1+3
BSDTT	ASK+1~
C	SUB1~, TYPE~, TYPE+6, TYPE+7, TYPE+8, TYPE+9
CLN	INIT+5~, INIT+6*, INIT+8, INIT+11, INIT+12, INIT+13, INIT+14, INIT+18, INIT+22, INIT+23 , INIT+29, SUB1+1, SUB1+2, SUB1+3
D	SUB2~, SUB2+2, SUB2+3, TYPE~, TYPE+5, TYPE+6, TYPE+7, TYPE+8, TYPE+9, PAD~ , PAD+2
DATE	INCR+1~*, INCR+12, INCR+13
END	INIT+5~, INIT+17*, INIT+18
I	INIT+37~, INIT+42, INIT+50, INIT+59, INIT+68, INIT+77, INIT+83, HDG+2*
IO	PRINT+1
IOF	HDG+1
IOSL	PRINT+3
J	INIT+37~, INIT+48, INIT+49, INIT+50, INIT+51, INIT+66, INIT+67, INIT+68, INIT+69
L	PAD~, PAD+2
LINE	INIT+37~, INIT+40, INIT+42, INIT+43, INIT+44, INIT+49, INIT+50, INIT+51, INIT+52, INIT+58* , INIT+59, INIT+60, INIT+61, INIT+67, INIT+68, INIT+69, INIT+70, INIT+76, INIT+77, INIT+78 , INIT+79, INIT+82, INIT+83, INIT+84*, INIT+85, SET~, SET+2
N	SUB1~, SUB1+4, TYPE~, TYPE+6, TYPE+7, TYPE+8, TYPE+9, SP~, SP+1
NAME	INIT+5~, INIT+13*, INIT+14, INIT+33, INCR~, INCR+6, INCR+7, INCR+10, INCR+11, INCR+12 , INCR+13
NUM	SET~, SET+1*, SET+2
P	SUB2~, SUB2+3, SUB2+4, TYPE~, TYPE+5
PAT	INIT+5~, INIT+23*, INIT+24, INIT+29, INIT+30
POP	ASK+1~
S	TYPE~, TYPE+3, TYPE+4
S1	INIT+37~, INIT+38*, INIT+40, INIT+42, INIT+43, INIT+50, INIT+51, INIT+56, INIT+57, INIT+59 , INIT+60, INIT+68, INIT+69, INIT+73, INIT+74, INIT+77, INIT+78
S2	INIT+37~, INIT+56*, INIT+57, INIT+58, INIT+59, INIT+60, INIT+68, INIT+69, INIT+73, INIT+74 , INIT+77, INIT+78
S3	INIT+37~, INIT+73*, INIT+74, INIT+75, INIT+77, INIT+78
S4	INIT+37~, INIT+74*, INIT+76, INIT+77, INIT+78
STATUS	INIT+5~, INIT+24*, INIT+25, INIT+26, INIT+27, INIT+29
SUB	INIT+5~, INIT+14*, INIT+33, INCR~, INCR+3, INCR+5, INCR+6, INCR+7, INCR+8, INCR+9 , INCR+10, INCR+11, INCR+12, INCR+13
SUB2	INIT+5~, INIT+30*, INIT+33, INCR~, INCR+8, INCR+9, INCR+10, INCR+11, INCR+12, INCR+13
TYPE	INIT+5~, INIT+29*, INIT+33, INCR~, INCR+2, INCR+3, INCR+4, INCR+5, INCR+6, INCR+7 , INCR+9, INCR+11, INCR+13
U	ASK+4, ASK+13, ASK+16, ASK+18, SUB1+2, SUB1+3, TYPE+5, TYPE+6, TYPE+7, TYPE+8
VALMCNT	EN+1~, INIT+1*, INIT+44, INIT+52, INIT+53, INIT+61, INIT+70, INIT+79, INIT+80, INIT+85
>> VALMHDR(	HDG+2
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
VAUTC	ASK+1~, INIT+2
VAUTD	ASK+1~, INIT+11
VAUTD(	INIT+11
X	INIT+37~, INIT+75, INIT+76, SUB2+2~, SUB2+3~, SUB21~, SUB21+1, SUB22~, SUB22+1, TYPE+5~ , TYPE+6, TYPE+7, TYPE+8, TYPE+10, HELP+1, PRINT+2~, PRINT+4
Y	ASK+1~, ASK+20, SUB2+3~

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDWKR1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: