Routine: BSDPVW

Package	Total	Call Graph
Kernel	3	($$FMADD,$$FMTE)^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	2	($$READ,MSG)^BDGF $$NAMEPRT^BDGF2
VA Fileman	1	$$GET1^DIQ

Package

Total

Call Graph

($$FMADD,$$FMTE)^XLFDT $$REPEAT^XLFSTR DISP^XQORM1

EN^VALM TERM^VALM0 CLEAR^VALM1

($$READ,MSG)^BDGF $$NAMEPRT^BDGF2

$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To Scheduling	1	BSDPVD

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
WEEK	; -- select week by picking any date within that week
EN	; -- main entry point for BSDAM PROVIDER WEEK
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
EXPND	; -- expand code
INIT	; -- init variables and list array
EXIT	; -- exit code
DTHELP	;EP; help for date range question
SET(DATA,IENS,COUNT,LINE)	; -- put data into display array
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+3

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	INIT+10, INIT+11, INIT+14, INIT+15
^TMP("BSDPVD"	INIT+1!, EXIT+1!, SET+2, SET+3
^TMP("BSDPVD1"	INIT+1!, INIT+15*, INIT+17, INIT+22, INIT+31, INIT+32, INIT+33, INIT+51!
^TMP("BSDPVD2"	INIT+6, INIT+7, EXIT+1!

Name	Field # of Occurrence
BSDCNT	INIT+20~, INIT+21, INIT+26, INIT+28, INIT+34, INIT+44, INIT+48, INIT+49
BSDDT	WEEK+1~, WEEK+2*, WEEK+3, HDR+2, INIT+9
>> BSDPRV	HDR+1
CLN	INIT+5~, INIT+6, INIT+7, INIT+10, INIT+11, INIT+14, INIT+15, INIT+20~, INIT+31, INIT+32 , INIT+33, INIT+37
CLNM	INIT+5~, INIT+7*, INIT+15
COUNT	SET~, SET+3
D	PAD~, PAD+2
DATA	INIT+20~, INIT+33*, INIT+35, INIT+36, INIT+38, INIT+39, INIT+48, SET~, SET+2
DATE	INIT+5~, INIT+9, INIT+10, INIT+11, INIT+14, INIT+15, INIT+20~, INIT+21, INIT+22, INIT+25 , INIT+27, INIT+29, INIT+31, INIT+32, INIT+33, INIT+34, INIT+35, INIT+43, INIT+48
END	INIT+5~, INIT+9*, INIT+10
ENDTM	INIT+20~, INIT+35*, INIT+36, INIT+45
I	INIT+20~, INIT+44*
IEN	INIT+5~, INIT+11, INIT+14, INIT+15, INIT+20~, INIT+32, INIT+33
IENS	SET~, SET+3
L	PAD~, PAD+2
LASTDT	INIT+20~, INIT+21, INIT+25, INIT+26, INIT+29
LASTTM	INIT+20~, INIT+42, INIT+43, INIT+45*
LINE	INIT+20~, INIT+34, INIT+36, INIT+37, INIT+38, INIT+39, INIT+48, SET~, SET+1, SET+2 , SET+3
N	SP~, SP+1
NODE	INIT+5~, INIT+14*, INIT+15
U	INIT+15, INIT+35, INIT+36, INIT+39, INIT+48
VALMCNT	EN+1~, INIT+2*, INIT+17, INIT+26, INIT+28, INIT+44, INIT+48
>> VALMHDR(1	HDR+1, HDR+2
X	INIT+20~, INIT+27, INIT+28, INIT+43, INIT+44, HELP+1*

Information