Routine: BSDCRL

Package	Total	Call Graph
Kernel	4	^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	4	ZIS^DGUTQ EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	2	($$CONF,$$READ,MSG)^BDGF ($$HRCN,$$HRCND,$$HRCNT)^BDGF2
IHS Changes To Scheduling	2	START^BSDCRL ($$ACTV,$$CLNCODE,$$DIVC,$$FAC,$$PRIN,CLINIC)^BSDU
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To Scheduling	1	BSDCRL

Entry Points

Name	Comments	DBIA/ICR reference
DOB(PAT)	; -- return date of birth in numerical format with leading zeros
DATES	; -- select date
EN	;EP; -- entry for list manager interface
HDR	;EP; -- report heading
SET(DATA,LINE)	; -- puts data into display array
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 to paper
GATHER	;EP; -- gathers data and sets into display array
SOME	; -- loop thru selected clinics
ALL	; -- loop thru all clinics
HEADING	; -- heading for paper report
START	;EP; entry to report after calling print device
CLINIC	; -- all clinics or selected ones? ; if ALL clinics are selected, VAUTC=1 ; otherwise the VAUTC array is set and VAUTC=0
EXIT	;
HELP1	;
DEVICE	; -- select device
SORTS	; -- sort by
GETCR	; -- for clinic, get appts & chart requests for date
HELP	;EP; -- help for SORTS question

External References

Name	Field # of Occurrence
^%ZISC	PRINT+10
$$CONF^BDGF	HDR+1
$$READ^BDGF	DATES+1, SORTS+4
MSG^BDGF	DEVICE+2, HELP+1, HELP+2, HELP+3, HELP+4, HELP+5, HELP+6, HELP+7
$$HRCN^BDGF2	GETCR+12
$$HRCND^BDGF2	GETCR+15
$$HRCNT^BDGF2	GETCR+13
START^BSDCRL	DEVICE+5
$$ACTV^BSDU	ALL+4, SOME+5
$$CLNCODE^BSDU	GETCR+10
$$DIVC^BSDU	ALL+5, GETCR+14
$$FAC^BSDU	GETCR+12
$$PRIN^BSDU	GETCR+11
CLINIC^BSDU	CLINIC+3
ZIS^DGUTQ	DEVICE+4
$$GET1^DIQ	ALL+3, SOME+4, GETCR+14, GETCR+20, GETCR+21, GETCR+23, DOB+1
EN^VALM	EN+2
TERM^VALM0	EN+1
CLEAR^VALM1	EN+1, EN+3
$$FMTE^XLFDT	HDR+2, GETCR+22, GETCR+24, HEADING+2
$$REPEAT^XLFSTR	HEADING+2, PAD+2
DISP^XQORM1	HELP1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("BSDCRL",$J,BDGLN,0) Line Location: PRINT+8
Function Call: WRITE	Prompt: @IOF,!,VALMHDR(1),!,VALMHDR(2) Line Location: HEADING+1
Function Call: WRITE	Prompt: !,?55,"Printed on ",$$FMTE^XLFDT(DT),!,$$REPEAT^XLFSTR("=",79),! Line Location: HEADING+2
Function Call: WRITE	Prompt: !! Line Location: HELP1+1
Routine Call	VALM Line Location: EN+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^BSDPAR - [#9009020.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	ALL+2, GETCR+3, GETCR+5, GETCR+6, GETCR+9, GETCR+19
^TMP("BSDCRL"	GATHER+3!, GATHER+22, PRINT+5, PRINT+8, EXIT+1!, SET+2
^TMP("BSDCRL1"	GATHER+3!, GATHER+9, GATHER+14, GATHER+15, GATHER+16, GATHER+17, GATHER+23!, GETCR+28*

Label References

Name	Line Occurrences
$$PAD	GETCR+21, GETCR+22, GETCR+23, GETCR+24, GETCR+25, SP+1
$$SP	HDR+1, HDR+2, GATHER+12, GATHER+22
@(	GATHER+5
EN	START+1
EXIT	CLINIC+3, SORTS+5, DEVICE+4, PRINT+10
GATHER	START+2
GETCR	ALL+6, SOME+6
HDR	HEADING+1
HEADING	PRINT+3, PRINT+6
PRINT	START+2
SET	GATHER+12, GATHER+17, GATHER+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	GATHER+8~, GATHER+9*, GATHER+12, GATHER+14, GATHER+15, GATHER+16, GATHER+17
B	GATHER+8~, GATHER+14*, GATHER+15, GATHER+16, GATHER+17
BDGLN	PRINT+3~, PRINT+5*, PRINT+8
BSDCL	SOME+1~, SOME+2*, SOME+3
BSDCLN	ALL+1~, ALL+2, ALL+3, ALL+4, ALL+5, SOME+1~, SOME+3, SOME+4, SOME+5, GETCR+3 , GETCR+5, GETCR+6, GETCR+9, GETCR+10, GETCR+11, GETCR+12, GETCR+14, GETCR+19, GETCR+21
BSDCNT	GATHER+1~, GATHER+4, GATHER+19, GETCR+27
BSDDT	BSDCRL+3~, DATES+1*, HDR+2, ALL+4, SOME+5, GETCR+2
BSDEND	GETCR+1~, GETCR+2*, GETCR+3
BSDLN	GATHER+8*, GATHER+12, GATHER+17, GATHER+19, GATHER+21, EXIT+1!
BSDN	GETCR+1~, GETCR+4, GETCR+5, GETCR+6, GETCR+9, GETCR+19
BSDNP	GATHER+1~, GATHER+4, GATHER+19, GETCR+27
BSDSRT	BSDCRL+3~, SORTS+4*, SORTS+5, GATHER+11, GETCR+9, GETCR+10, GETCR+11, GETCR+16
BSDT	GETCR+1~, GETCR+2, GETCR+3, GETCR+5, GETCR+6, GETCR+9, GETCR+19, GETCR+28
C	GATHER+8~, GATHER+15*, GATHER+16, GATHER+17
D	GATHER+8~, GATHER+16*, GATHER+17, PAD~, PAD+2
DATA	SET~, SET+2
DGVAR	DEVICE+1~, DEVICE+3*
DIR0	SORTS+1~, SORTS+2*, SORTS+4
DIRA	SORTS+1~, SORTS+3*, SORTS+4
DIRB	SORTS+1~
DT	HEADING+2
HRCN	GETCR+1~, GETCR+12*, GETCR+13, GETCR+15, GETCR+20
IO	PRINT+3
IO("Q"	DEVICE+5
IOF	HEADING+1
IOSL	PRINT+6
IOST	START+1
L	PAD~, PAD+2
LINE	GETCR+1~, GETCR+20, GETCR+21, GETCR+22, GETCR+23, GETCR+24, GETCR+25, GETCR+28, SET~, SET+1* , SET+2
N	SP~, SP+1
NODE	GETCR+1~, GETCR+19*, GETCR+22, GETCR+23, GETCR+24, GETCR+25, GETCR+27
PAT	GETCR+1~, GETCR+6*, GETCR+12, GETCR+20, GETCR+28, DOB~, DOB+1
PGM	DEVICE+1~, DEVICE+3*
POP	DEVICE+1~, DEVICE+4
SORT	GETCR+1~, GETCR+9, GETCR+10, GETCR+11, GETCR+16, GETCR+28
TERM	GETCR+1~, GETCR+13, GETCR+15, GETCR+16, GETCR+28
U	GETCR+23, GETCR+24, GETCR+25, GETCR+27
VALMCNT	EN+1~, GATHER+21, GATHER+22
>> VALMHDR(1	HDR+1*, HEADING+1
>> VALMHDR(2	HDR+2*, HEADING+1
VAUTC	BSDCRL+3~, GATHER+5
VAUTC(	SOME+2, SOME+3
VAUTD	BSDCRL+3~, ALL+5
VAUTD(	ALL+5
X	GATHER+5, GETCR+1~, HELP1+1, DOB+1~*, DOB+2
>> Y	CLINIC+3

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDCRL

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: