Routine: BSDALL

Package	Total	Call Graph
Kernel	4	^%ZISC ($$DOW,$$FMTE)^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	1	($$CONF,INIT,PRTKL)^BDGF
IHS Changes To Scheduling	1	START^BSDAL2

Package

Total

Call Graph

^%ZISC ($$DOW,$$FMTE)^XLFDT $$REPEAT^XLFSTR DISP^XQORM1

EN^VALM TERM^VALM0 CLEAR^VALM1

($$CONF,INIT,PRTKL)^BDGF

START^BSDAL2

Package	Total	Caller Graph
IHS Changes To Scheduling	2	BSDAL BSDAL1

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
EN	;EP; -- main entry point for appt list list template
HDR	;EP; -- header code
PAD(D,L)	; -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
EXPND	;EP; -- expand code
HDG	;Print report header
CNTD()	;-- count number of days in BSDD array
INIT	;EP; -- init variables and list array
EXIT	;EP; -- exit code
PRINT	; -- print list to paper
HELP	;EP; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !,BSDLN Line Location: PRINT+11
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !?11,"***",$$CONF^BDGF,"***",?70,$J(BDGTIME,9) Line Location: HDG+2
Function Call: WRITE	Prompt: !?(80-$L(BDGFAC)\2),BDGFAC,?67,BDGDATE Line Location: HDG+3
Function Call: WRITE	Prompt: !,BDGUSR,?(80-$L(X)\2),X,?71,"Page: ",$J(BSDPG,2) Line Location: HDG+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+7
Function Call: WRITE	Prompt: !?2,"Time",?7,"Patient Name",?30,"HRCN",?40,"DOB(Age)" Line Location: HDG+8
Function Call: WRITE	Prompt: ?53," Lab@",?62,"X-Ray@",?74,"EKG@" Line Location: HDG+9
Function Call: WRITE	Prompt: !?9,"Insurance & Appointment Information" Line Location: HDG+10
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+11
Function Call: WRITE	Prompt: !!,BSDSAV,!,$$REPEAT^XLFSTR("=",80) Line Location: HDG+12
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+20

Name	Line Occurrences (* Changed, ! Killed)
^TMP("BSDAL"	INIT+1!, PRINT+6, PRINT+7, EXIT+1!

Name	Field # of Occurrence
>> BDGDATE	HDG+3
>> BDGFAC	HDG+3
BDGLNS	PRINT+1~
>> BDGTIME	HDG+2
>> BDGUSR	HDG+6
>> BSDAMB	PRINT+3
>> BSDCOPY	EN+5
>> BSDD	EN+18*, HDG+4, HDG+5
>> BSDD(	EN+18, CNTD+3
>> BSDD(""	EN+18
BSDI	EN+5*, EXIT+1!
BSDLN	PRINT+1~, PRINT+7*, PRINT+8, PRINT+9, PRINT+11
>> BSDLNS	PRINT+4*, PRINT+9
BSDN	PRINT+1~, PRINT+5, PRINT+6, PRINT+7
>> BSDPCMM	PRINT+3
BSDPG	PRINT+1~, HDG+1*, HDG+6
>> BSDPH	PRINT+3
BSDPRT	EN+3~, EN+4*
BSDSAV	PRINT+1~, PRINT+8*, HDG+12
BSDT	PRINT+1~, HDG+4*, HDG+5
CCNT	CNTD+1~, CNTD+2, CNTD+4, CNTD+5
CDA	CNTD+1~, CNTD+3*
D	PAD~, PAD+2
IO	PRINT+2
IOF	EN+5, HDG+1
IOSL	PRINT+9, PRINT+10
IOST	EN+2, EN+17
L	PAD~, PAD+2
N	SP~, SP+1
VALMCNT	EN+19~, INIT+1*, EXIT+1!
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+4*
>> VALMHDR(3	HDR+5*
>> VALMNOFF	EXIT+3*
X	HDR+2, HDR+4, PRINT+3, PRINT+4, HDG+5~, HDG+6, HELP+1

Information