Routine: BDGSVS

Package	Total	Call Graph
Kernel	3	^%ZISC ($$REPEAT,$$RJ)^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	1	($$BROWSE,$$CONF,ZIS)^BDGF
VA Fileman	1	$$GET1^DIQ

Package

Total

Call Graph

Kernel

^%ZISC ($$REPEAT,$$RJ)^XLFSTR DISP^XQORM1

Registration

EN^VALM TERM^VALM0 CLEAR^VALM1

IHS Changes To ADT

($$BROWSE,$$CONF,ZIS)^BDGF

VA Fileman

$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGSVE

Package

Total

Caller Graph

IHS Changes To ADT

BDGSVE

Entry Points

Name	Comments	DBIA/ICR reference
A	; process admission fields
SET(DATA,NUM)	; put display data into array
EN	; -- main entry point for BDG SCHED VISIT SUMMARY
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
TRAVEL	; set up travel fields for display
DATA(FLD,LEN)	; process one field
O	; process outpatient visit fields
HDG	; heading for paper report
INIT	; -- init variables and list array
HELP	; -- help code
TITLE(F)	; return field F name or title
PRINT	; print report to paper
EXIT	; -- exit code
EXPND	; -- expand code
D	; process day surgery fields

External References

Name	Field # of Occurrence
^%ZISC	PRINT+8
$$BROWSE^BDGF	BDGSVS+4
$$CONF^BDGF	HDR+2
ZIS^BDGF	BDGSVS+5
$$GET1^DIQ	HDR+3, HDR+4, HDR+5, HDR+6, INIT+5, INIT+10, DATA+2
EN^VALM	EN+4
TERM^VALM0	EN+3
CLEAR^VALM1	EN+3, EN+5
$$REPEAT^XLFSTR	PAD+2, HDG+3
$$RJ^XLFSTR	DATA+3
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BDGSVS",$J,BDGX,0) Line Location: PRINT+7
Function Call: WRITE	Prompt: @IOF,?15,"Scheduled Visit Summary" 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
Routine Call	VALM Line Location: EN+4

FileNo	Call Tags
^BDGSV - [#9009016.7]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD(9009016.7	TITLE+1, TITLE+2
^TMP("BDGSVS"	INIT+2!, SET+2*, EXIT+1!, PRINT+5, PRINT+7

Label References

Name	Line Occurrences
$$PAD	HDR+4, HDR+5, HDR+6, SP+1
$$SP	HDR+2, INIT+6
$$TITLE	DATA+3
@(	INIT+10
DATA	INIT+14, A+2, D+2, O+2, TRAVEL+2, TRAVEL+4
EN	BDGSVS+4
EXIT	PRINT+8
HDG	PRINT+6
HDR	PRINT+2, HDG+1
INIT	EN+2
PRINT	EN+2
SET	INIT+7, INIT+11, INIT+13, DATA+3, TRAVEL+3
TRAVEL	INIT+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BDGN	HDR+3, HDR+4, HDR+5, HDR+6, INIT+5, INIT+10, DATA+2
BDGX	PRINT+1~, PRINT+5*, PRINT+7
D	PAD~, PAD+2
DATA	SET~, SET+2
DFN	INIT+1~
F	TITLE~, TITLE+1, TITLE+2
FIELD	A+1~, A+2, D+1~, D+2, O+1~, O+2, TRAVEL+1~, TRAVEL+2, TRAVEL+4*
FLD	DATA~, DATA+2, DATA+3
>> I	HDG+2*
IO	PRINT+2
IOF	HDG+1
>> IORVOFF	INIT+6
>> IORVON	INIT+6
IOSL	PRINT+6
IOST	EN+2
L	PAD~, PAD+2
LEN	DATA~, DATA+3
LINE	INIT+1~, INIT+6*, INIT+7, DATA+1~
N	SP~, SP+1
NUM	SET~, SET+1*, SET+2
U	TITLE+2
VALMCNT	EN+1~, INIT+3*, INIT+7, INIT+11, INIT+13, DATA+3, TRAVEL+3
>> VALMHDR(	HDG+2
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+7*
X	HDR+1~, HDR+3, HDR+4, HDR+5, HDR+6, HDR+7, INIT+1~, INIT+5, INIT+6, INIT+10 , DATA+1~, DATA+2, DATA+3, TITLE+1~, TITLE+2, HELP+1*

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGSVS

Information

Source Information

Call Graph

Call Graph Total: 8

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: