Routine: BDGSVL1

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	$$CONF^BDGF
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGSVL

Entry Points

Name	Comments	DBIA/ICR reference
SET(DATA,NUM)	; put display line into array
VSTTYPE(N)	; returns printable abbreviated visit type
EN	; -- main entry point for BDG SCHED VISITS
HDR	; -- header code
ESCORT(N)	; return summary of escort info
DETAIL(IEN)	;build detailed display
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
HOUSING(N)	; returns brief summary of housing data
EXPND	; -- expand code
BRIEF(IEN)
HDG	; heading for paper report
PRINT	; print report to paper
INIT	; -- init variables and list array
LOC(N)	; return hospital location (ward or clinic)
EXIT	; -- exit code
CAPD	; set up detailed caption
SRV(N)	; return service (treating specialty or surgical service)
CAPB	; set up brief caption
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRINT+6
$$CONF^BDGF	HDR+2
$$GET1^DIQ	INIT+10, INIT+14, INIT+16, INIT+17, INIT+20, INIT+21, DETAIL+2, DETAIL+3, DETAIL+4, DETAIL+5 , DETAIL+6, DETAIL+8, DETAIL+10, DETAIL+15, DETAIL+16, DETAIL+17, DETAIL+18, DETAIL+21, DETAIL+22, DETAIL+27 , DETAIL+29, DETAIL+32, DETAIL+39, BRIEF+2, BRIEF+3, BRIEF+4, BRIEF+8, BRIEF+11, BRIEF+12, BRIEF+15 , BRIEF+19, VSTTYPE+2, VSTTYPE+3, VSTTYPE+4, LOC+3, LOC+4, LOC+6, SRV+2, SRV+3, SRV+4 , HOUSING+2, HOUSING+3, HOUSING+4, ESCORT+2, ESCORT+3, ESCORT+4, ESCORT+6
EN^VALM	EN+3
TERM^VALM0	EN+2
CLEAR^VALM1	EN+2, EN+4
$$FMTE^XLFDT	HDR+3
$$REPEAT^XLFSTR	HDG+3, PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("BSDSVL",$J,LINE,0) Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF,?30,"Scheduled Visit Listing" 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: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^DIC(45.7 - [#45.7]	GET1^DIQ
^BDGWD - [#9009016.5]	GET1^DIQ
^BDGSV - [#9009016.7]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BDGSV - [#9009016.7]	DETAIL+5
^BDGSV("D"	INIT+6, INIT+8
^TMP("BDGSVL"	INIT+2!, INIT+37, SET+2*, EXIT+1!
^TMP("BDGSVL1"	INIT+2!, INIT+25*, INIT+29, INIT+31, INIT+33, INIT+38!
^TMP("BSDSVL"	PRINT+3, PRINT+5

Label References

Name	Line Occurrences
$$ESCORT	DETAIL+35
$$HOUSING	DETAIL+24, BRIEF+16
$$LOC	DETAIL+13, BRIEF+6
$$PAD	DETAIL+3, DETAIL+4, DETAIL+5, DETAIL+6, DETAIL+7, DETAIL+9, DETAIL+14, DETAIL+15, DETAIL+16, DETAIL+23 , DETAIL+28, DETAIL+35, BRIEF+3, BRIEF+4, BRIEF+5, BRIEF+6, BRIEF+7, BRIEF+8, BRIEF+13, BRIEF+16 , BRIEF+19, CAPB+1, CAPB+2, CAPD+1, CAPD+2, SP+1
$$SP	HDR+2, HDR+4, HDR+7, HDR+11, DETAIL+13, DETAIL+21, DETAIL+28, DETAIL+34, DETAIL+39, BRIEF+11
$$SRV	DETAIL+14, BRIEF+7
$$VSTTYPE	DETAIL+7, BRIEF+5
@(	HDR+9
BRIEF	INIT+35
DETAIL	INIT+34
EXIT	PRINT+6
HDG	PRINT+1, PRINT+4
HDR	HDG+1
INIT	EN+1
PRINT	EN+1
SET	INIT+37, DETAIL+11, DETAIL+19, DETAIL+25, DETAIL+30, DETAIL+36, DETAIL+39, DETAIL+40, BRIEF+9, BRIEF+20 , BRIEF+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDGBD	HDR+3, INIT+5, EXIT+2!
BDGED	HDR+3, INIT+5, EXIT+2!
BDGEX	INIT+14, EXIT+2!
BDGN	INIT+1~, INIT+7, INIT+8, INIT+10, INIT+14, INIT+16, INIT+17, INIT+20, INIT+21, INIT+25 , INIT+32, INIT+33, INIT+34, INIT+35
BDGRT	HDR+9, INIT+34, INIT+35, EXIT+2!
BDGS1	HDR+6, INIT+16, INIT+17, EXIT+2!
BDGS2	HDR+6, INIT+20, INIT+21, EXIT+2!
BDGVT	HDR+5, INIT+11, EXIT+2!, LOC+8
D	PAD~, PAD+2
DATA	SET~, SET+2
DATE	INIT+1~, INIT+5, INIT+6, INIT+8
END	INIT+1~, INIT+5*, INIT+6
I	HDG+2~*
IEN	DETAIL~, DETAIL+2, DETAIL+3, DETAIL+4, DETAIL+5, DETAIL+6, DETAIL+7, DETAIL+8, DETAIL+10, DETAIL+13 , DETAIL+14, DETAIL+15, DETAIL+16, DETAIL+17, DETAIL+18, DETAIL+21, DETAIL+22, DETAIL+24, DETAIL+27, DETAIL+29 , DETAIL+32, DETAIL+35, DETAIL+39, BRIEF~, BRIEF+2, BRIEF+3, BRIEF+4, BRIEF+5, BRIEF+6, BRIEF+7 , BRIEF+8, BRIEF+11, BRIEF+12, BRIEF+15, BRIEF+16, BRIEF+19, HOUSING+2, HOUSING+3, HOUSING+4
IO	PRINT+1
IOF	HDG+1
IOSL	PRINT+4
IOST	EN+1
L	PAD~, PAD+2
LINE	DETAIL+1~, DETAIL+2, DETAIL+3, DETAIL+4, DETAIL+5, DETAIL+6, DETAIL+7, DETAIL+9, DETAIL+10, DETAIL+11 , DETAIL+13, DETAIL+14, DETAIL+15, DETAIL+16, DETAIL+17, DETAIL+18, DETAIL+19, DETAIL+21, DETAIL+23, DETAIL+24* , DETAIL+25, DETAIL+28, DETAIL+29, DETAIL+30, DETAIL+34, DETAIL+35, DETAIL+36, BRIEF+1~, BRIEF+2, BRIEF+3 , BRIEF+4, BRIEF+5, BRIEF+6, BRIEF+7, BRIEF+8, BRIEF+9, BRIEF+11, BRIEF+13, BRIEF+15, BRIEF+16* , BRIEF+19, BRIEF+20, PRINT+2~, PRINT+3, PRINT+5
N	SP~, SP+1, VSTTYPE~, VSTTYPE+2, VSTTYPE+3, VSTTYPE+4, LOC~, LOC+3, LOC+6, SRV~ , SRV+2, SRV+3, SRV+4, HOUSING~, ESCORT~, ESCORT+2, ESCORT+3, ESCORT+4, ESCORT+6
NUM	SET~, SET+1*, SET+2
SORT1	INIT+1~, INIT+16, INIT+17, INIT+18, INIT+25, INIT+28, INIT+29*, INIT+31, INIT+33
SORT2	INIT+1~, INIT+20, INIT+21, INIT+22, INIT+25, INIT+30, INIT+31*, INIT+33
TYPE	INIT+1~, INIT+10*, INIT+11
U	HDR+6, INIT+17, INIT+21
>> VALMCAP	CAPB+1, CAPB+2, CAPD+1, CAPD+2
VALMCNT	EN+2~, INIT+3*, INIT+37, DETAIL+11, DETAIL+19, DETAIL+25, DETAIL+30, DETAIL+36, DETAIL+39, DETAIL+40 , BRIEF+9, BRIEF+20, BRIEF+21
>> VALMHDR(	HDG+2
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+4*
>> VALMHDR(3	HDR+7*
>> VALMSG	HDR+11*
X	HDR+1~, HDR+3, HDR+4, HDR+5, HDR+6, HDR+7, HDR+9, INIT+1~, INIT+14, INIT+17 , INIT+21, DETAIL+1~, DETAIL+8, DETAIL+9, DETAIL+22, DETAIL+23, DETAIL+27, DETAIL+28, DETAIL+32, DETAIL+33 , DETAIL+34, DETAIL+39, BRIEF+1~, BRIEF+12, BRIEF+13, HELP+1, VSTTYPE+1~, VSTTYPE+2, VSTTYPE+5, LOC+1~ , LOC+3, LOC+4, LOC+8, SRV+1~, SRV+2, SRV+5, HOUSING+1~, HOUSING+2, HOUSING+5, ESCORT+1~ , ESCORT+2, ESCORT+6
Y	DETAIL+32, DETAIL+33, DETAIL+34, BRIEF+1~, VSTTYPE+1~, VSTTYPE+3, VSTTYPE+5, LOC+1~, LOC+6, LOC+8 , SRV+1~, SRV+3, SRV+5, HOUSING+1~, HOUSING+3, HOUSING+5, ESCORT+1~, ESCORT+3, ESCORT+5*, ESCORT+6
>> Y1	ESCORT+3*, ESCORT+5
>> Y2	ESCORT+4*, ESCORT+5
Z	BRIEF+1~, VSTTYPE+1~, VSTTYPE+4, VSTTYPE+5, SRV+1~, SRV+4, SRV+5, HOUSING+4*, HOUSING+5

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGSVL1

Information

Source Information

Call Graph

Call Graph Total: 9

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: