Routine: BSDWKR8

Information

BSDWKR8 ; cmi/flag/maw - BSD Advanced Access Report [ 01/04/2005 4:42 PM ]

Call Graph

Call Graph Total: 12

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	($$PRIN,$$PRV,$$TEAM,CLINIC,PCASK)^BSDU
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Patient Care Component Reports	1	($$DEMO,DEMOCHK)^APCLUTL
VA Fileman	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
INCR(SUB,TYPE,NAME,APPT,A,W,F,L)	; increment totals
EN	; -- main entry point for BSDRM WORK STATS
HDR	; -- header code
FNDWL(C,A)	;-- check to see if a patient is on the wait list
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, 6=no-show
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
CNTAPP(C,A)	;-- count all appointments made on date passed in for clinic
SET(LINE,NUM)	; -- sets display line into array
HELP1	;EP; help for subtotal question
ASK	; -- ask user questions
SP(N)	; -- SUBRTN to pad N number of spaces
SUB1(C,N)	; -- return name of subcategory for clinic C
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+5
$$DEMO^APCLUTL	INIT+21, FNDWL+10, CNTAPP+14
DEMOCHK^APCLUTL	ASK+14
$$BROWSE^BDGF	ASK+17
$$RANGE^BDGF	HDR+2
$$READ^BDGF	ASK+3, ASK+10, ASK+11
MSG^BDGF	HELP1+1, HELP1+2, HELP1+3, HELP1+4, HELP1+5, HELP1+6, HELP1+7, HELP1+8
ZIS^BDGF	ASK+18
$$PRIN^BSDU	SUB1+1
$$PRV^BSDU	SUB1+2
$$TEAM^BSDU	SUB1+3
CLINIC^BSDU	ASK+7
PCASK^BSDU	ASK+8
$$GET1^DIQ	INIT+7, INIT+8, INIT+10
EN^VALM	EN+2
TERM^VALM0	EN+1
CLEAR^VALM1	EN+1, EN+3
$$VAL^XBDIQ1	INIT+23
$$VALI^XBDIQ1	INIT+26, INIT+27, CNTAPP+12
$$FMTE^XLFDT	INIT+38
$$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("BSDWKR8",$J,X,0) Line Location: PRINT+4
Function Call: WRITE	Prompt: @IOF 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: !,"Date",?13,"Category",?40,"Appt",?51,"WI" Line Location: HDG+4
Function Call: WRITE	Prompt: ?63,"FU",?74,"WL" Line Location: HDG+5
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+6
Routine Call	VALM Line Location: EN+2

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BSDWL - [#9009017.1]	FNDWL+6, FNDWL+7, FNDWL+8, FNDWL+9
^BSDWL("B"	FNDWL+4
^DPT - [#2]	TYPE+5, CNTAPP+11
^SC - [#44]	INIT+15, INIT+19, INIT+20, INIT+22, TYPE+6, TYPE+7, TYPE+8, TYPE+9, CNTAPP+9
^SC("AIHSDAM"	CNTAPP+6, CNTAPP+7, CNTAPP+8
^SC("AIHSPC"	INIT+9
^TMP("BSD"	INIT+1!, INIT+36, INIT+40, INIT+41, INIT+42, INIT+43, INIT+44, INIT+56, INIT+63, INIT+68 , INIT+75, INIT+77, INIT+79!, INCR+2, INCR+3, INCR+4, INCR+5, INCR+6, INCR+7, INCR+8* , INCR+9, INCR+10, INCR+11, INCR+12, INCR+13, INCR+14, INCR+15, INCR+16, INCR+17, INCR+18 , INCR+19, INCR+20, INCR+21, INCR+22, INCR+23, INCR+24, INCR+25, INCR+26, INCR+27*
^TMP("BSDWKR8"	INIT+1!, SET+2*, EXIT+1!, PRINT+2, PRINT+4

Label References

Name	Line Occurrences
$$CNTAPP	INIT+24
$$FNDWL	INIT+28
$$PAD	INIT+38, INIT+46, INIT+47, INIT+48, INIT+49, INIT+50, INIT+57, INIT+63, INIT+68, SP+1
$$SP	HDR+1, HDR+2, HDR+3, INIT+46, INIT+55, INIT+62, INIT+67, INIT+74, INIT+76
$$SUB1	INIT+11
$$TYPE	INIT+31
EN	ASK+17
EXIT	PRINT+5
HDG	PRINT+1, PRINT+3
HDR	HDG+1
INCR	INIT+33
INIT	START+1
PRINT	START+1
SET	INIT+39, INIT+51, INIT+52, INIT+59, INIT+64, INIT+69, INIT+70, INIT+71, INIT+72, INIT+78

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	INCR~, INCR+3, INCR+11, INCR+19, INCR+21, INCR+25, INCR+27, FNDWL~, FNDWL+3, FNDWL+11 , FNDWL+12, CNTAPP~, CNTAPP+2
AC	INIT+35~, INIT+41*, INIT+47
ACNTR	EXIT+1!
ACNTR(	CNTAPP+4, CNTAPP+16*
AD	FNDWL+1~, FNDWL+9*, FNDWL+11, CNTAPP+1~
AP	INIT+5~, INIT+24, INIT+33, CNTAPP+1~, CNTAPP+2, CNTAPP+4, CNTAPP+5, CNTAPP+15, CNTAPP+16
APPN	INIT+5~, INIT+18, INIT+19, INIT+20, INIT+22, INIT+31
APPT	INIT+5~, INIT+14, INIT+15, INIT+19, INIT+20, INIT+22, INIT+23, INIT+24, INIT+26, INIT+27 , INIT+28, INIT+31, INIT+33, INCR~, INCR+1
APPTM	INIT+5~, INIT+22*
BDA	FNDWL+1~, FNDWL+6, FNDWL+7, FNDWL+8, FNDWL+9, CNTAPP+1~, CNTAPP+6, CNTAPP+7, CNTAPP+8, CNTAPP+13
BDI	CNTAPP+1~, CNTAPP+7*, CNTAPP+8, CNTAPP+9, CNTAPP+11, CNTAPP+12
BDO	CNTAPP+1~, CNTAPP+8*, CNTAPP+9
BG	CNTAPP+1~, CNTAPP+5*, CNTAPP+6
BSDAR	INIT+2~*, INIT+6
BSDBD	ASK+1~, ASK+10*, HDR+2, INIT+14
BSDDEMO	ASK+14, ASK+15, INIT+21, FNDWL+10, CNTAPP+14, EXIT+1!
BSDDET	ASK+1~
BSDED	ASK+1~, ASK+11*, HDR+2, INIT+14
>> BSDQ	ASK+7, ASK+8
BSDSEEN	ASK+1~
BSDSRT	ASK+1~
BSDSUB	ASK+1~, ASK+3*, ASK+4, ASK+7, ASK+8, SUB1+1, SUB1+2, SUB1+3
BSDTT	ASK+1~
C	SUB1~, SUB1+1, SUB1+2, SUB1+3, TYPE~, TYPE+6, TYPE+7, TYPE+8, TYPE+9, FNDWL~ , FNDWL+3, FNDWL+4, FNDWL+12, CNTAPP~, CNTAPP+4, CNTAPP+6, CNTAPP+7, CNTAPP+8, CNTAPP+9, CNTAPP+16
CL	FNDWL+1~, FNDWL+4*, FNDWL+5, FNDWL+6, FNDWL+7, FNDWL+8, FNDWL+9
CLN	INIT+5~, INIT+6*, INIT+7, INIT+8, INIT+9, INIT+10, INIT+11, INIT+15, INIT+19, INIT+20 , INIT+22, INIT+24, INIT+28, INIT+31
CNT	FNDWL+1~, FNDWL+2, FNDWL+11, FNDWL+13, CNTAPP+1~, CNTAPP+3, CNTAPP+15, CNTAPP+17
CNTR	EXIT+1!
CNTR(	FNDWL+3, FNDWL+12*
D	TYPE~, TYPE+5, TYPE+6, TYPE+7, TYPE+8, TYPE+9, PAD~, PAD+2
DAM	CNTAPP+1~, CNTAPP+13*, CNTAPP+15
DATE	INCR+1~*, INCR+2, INCR+3, INCR+4, INCR+5, INCR+6, INCR+7, INCR+8, INCR+9, INCR+10 , INCR+11, INCR+12, INCR+13, INCR+14, INCR+15, INCR+16, INCR+17, INCR+18, INCR+19, INCR+20 , INCR+21
ED	CNTAPP+1~, CNTAPP+5*, CNTAPP+6
END	INIT+5~, INIT+14*, INIT+15
F	INCR~, INCR+7, INCR+15, INCR+21, INCR+23, INCR+27
FC	INIT+35~, INIT+43*, INIT+49
FU	INIT+5~, INIT+27*, INIT+33
>> I	HDG+2*
INT	INIT+35~, INIT+56*, INIT+57
IO	PRINT+1
IOF	HDG+1
IOSL	PRINT+3
L	INCR~, INCR+9, INCR+17, PAD~, PAD+2
LC	INIT+35~, INIT+44*, INIT+50
LINE	INIT+38, INIT+39, INIT+45, INIT+46, INIT+47, INIT+48, INIT+49, INIT+50, INIT+51, INIT+53 , INIT+54, INIT+55, INIT+57, INIT+59, INIT+60, INIT+61, INIT+62, INIT+63, INIT+64, INIT+65 , INIT+66, INIT+67, INIT+68, INIT+69, INIT+73, INIT+74, INIT+75, INIT+76, INIT+77, INIT+78 , SET~, SET+2
N	SUB1~, SUB1+4, TYPE~, TYPE+6, TYPE+7, TYPE+8, TYPE+9, SP~, SP+1
NAME	INIT+5~, INIT+10*, INIT+11, INIT+33, INCR~
NUM	SET~, SET+1*, SET+2
P	TYPE~, TYPE+5
PAT	INIT+5~, INIT+20, INIT+21, INIT+23, INIT+26, INIT+27, INIT+31, FNDWL+1~, FNDWL+8, FNDWL+10 , CNTAPP+1~, CNTAPP+9*, CNTAPP+10, CNTAPP+11, CNTAPP+12, CNTAPP+14
POP	ASK+1~
S	TYPE~, TYPE+3, TYPE+4
S1	INIT+35~, INIT+36*, INIT+37, INIT+38, INIT+40, INIT+41, INIT+42, INIT+43, INIT+44, INIT+56 , INIT+63, INIT+68
S2	INIT+35~, INIT+40*, INIT+41, INIT+42, INIT+43, INIT+44, INIT+46
STATUS	INIT+5~, INIT+23*, INIT+29, INIT+30, INIT+31
SUB	INIT+5~, INIT+11*, INIT+33, INCR~, INCR+2, INCR+3, INCR+4, INCR+5, INCR+6, INCR+7 , INCR+8, INCR+9
SUB2	INIT+5~
TYPE	INIT+5~, INIT+31*, INIT+33, INCR~
U	ASK+4, INIT+22, SUB1+2, SUB1+3, TYPE+5, TYPE+6, TYPE+7, TYPE+8, FNDWL+7, FNDWL+8 , FNDWL+9, CNTAPP+9
VALMCNT	EN+1~, INIT+1*, INIT+39, INIT+51, INIT+52, INIT+59, INIT+64, INIT+69, INIT+70, INIT+71 , INIT+72, INIT+78
>> VALMHDR(	HDG+2
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
>> VALMHDR(3	HDR+3*
VAUTC	ASK+1~, INIT+2
VAUTD	ASK+1~, INIT+8
VAUTD(	INIT+8
W	INCR~, INCR+5, INCR+13, INCR+19, INCR+21, INCR+25, INCR+27
WC	INIT+35~, INIT+42*, INIT+48
WI	INIT+5~, INIT+26*, INIT+33
WL	INIT+5~, INIT+28*, INIT+33
X	TYPE+5~, TYPE+6, TYPE+7, TYPE+8, TYPE+10, HELP+1, PRINT+2~*, PRINT+4
Y	ASK+1~, ASK+17*

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDWKR8

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: