Routine: FBNHAMI2

Package	Total	Call Graph
Fee Basis	3	($$DATX,$$SSN,CLOSE,ZIS)^FBAAUTL $$NAME^FBCHREQ2 $$DTC^FBUCUTL
VA FileMan	2	^%DT ^DIR
Registration	1	DEM^VADPT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Automated Medical Information Exchange	1	DVBAB82
Fee Basis	1	FBCNH ADMISSIONS > 90 DAYS

Entry Points

Name	Comments	DBIA/ICR reference
START
END	;
SET	;SETS UP TMP GLOBAL
PRINT	;
HED	;

External References

Name	Field # of Occurrence
^%DT	FBNHAMI2+4
^DIR	START+11, PRINT+1
$$DATX^FBAAUTL	START+10, PRINT+5, HED+1
$$SSN^FBAAUTL	SET+4
CLOSE^FBAAUTL	END+2
ZIS^FBAAUTL	FBNHAMI2+5
$$NAME^FBCHREQ2	SET+4
$$DTC^FBUCUTL	SET+2
DEM^VADPT	PRINT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Use of this option will provide you with all 'ACTIVE' stays that are in excess",!,"of 90 days. The active stays are as of the date you choose.",! Line Location: FBNHAMI2+3
Function Call: WRITE	Prompt: !!?5,"***LOS = Length of Stay as of ",$$DATX^FBAAUTL(FBDT) Line Location: START+10
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+2
Function Call: WRITE	Prompt: !,$E(FBNAME,1,15),?18,FBID Line Location: PRINT+3
Function Call: WRITE	Prompt: ?32,FBMS,?35,$$DATX^FBAAUTL($E(FBADT,1,7)),?45,$J(FBLOS,6),?53,$E(FBVNAME,1,27) Line Location: PRINT+5
Function Call: WRITE	Prompt: !?22,"ACTIVE CNH STAYS IN EXCESS OF 90 DAYS",!?33,"AS OF ",$$DATX^FBAAUTL(FBDT),!?22,FBUL,!! Line Location: HED+1
Function Call: WRITE	Prompt: ?28,"MARITAL",!,"VETERAN",?20,"Pt. ID",?30,"ST.",?35,"ADM. DATE",?48,"LOS",?60,"VENDOR",!,FBHD Line Location: HED+2
Routine Call	DIR Line Location: START+11 PRINT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FBAACNH - [#162.3]	START+5, SET+1, SET+4
^FBAACNH("AC"	START+2, START+3
^FBAAV - [#161.2]	SET+4
^TMP($J	START!, START+7, START+8, END+1!, SET+5*

Label References

Name	Line Occurrences
END	FBNHAMI2+4, FBNHAMI2+5, START+9
HED	START, PRINT+2
PRINT	START+8
SET	START+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	FBNHAMI2+4*, END+1!
%DT("A"	FBNHAMI2+4*
DFN	START+7, START+8, END+1!, SET+4, SET+5, SET+6!
DIR	START+11!, PRINT+1!
DIR(0	START+11, PRINT+1
FBAAOUT	START+7, START+9, END+1!, PRINT+1*
FBADM	START+1, START+2, START+3, START+4, END+1!, SET+1, SET+4
FBADT	START+8, END+1!, SET+1, SET+2, SET+5, PRINT+5
FBASSOC	START+1, START+3, START+4, START+5, END+1!
FBCHK	START+2, START+5, END+1!
FBDDT	START+5*, END+1!
FBDT	FBNHAMI2+4*, FBNHAMI2+5, START+5, START+10, END+1!, SET+2, HED+1
FBHD	START*, END+1!, HED+2
FBI	START+5, START+8, END+1!, SET+4*
FBID	START+8, END+1!, SET+4, SET+5, SET+6!, PRINT+3
FBLOS	START+8, END+1!, SET+2, SET+3, SET+5, SET+6!, PRINT+5
FBMS	END+1!, PRINT+4*, PRINT+5
FBNAME	START+6, START+7, START+8, END+1!, SET+4*, SET+5, SET+6!, PRINT+3
FBPOP	FBNHAMI2+5, END+1!
FBTYPE	START+5*, END+1!
FBUL	START*, END+1!, HED+1
FBVNAME	START+8, END+1!, SET+4, SET+5, SET+6!, PRINT+5
IO	START
IOF	START, PRINT+2
IOSL	PRINT+1, PRINT+2
IOST	START, START+11, PRINT+1
PGM	FBNHAMI2+5*, END+1!
VA	END+1!, PRINT+4!
VADM	END+1!, PRINT+4!
VADM(10	PRINT+4
VAL	FBNHAMI2+5*, END+1!
VAR	FBNHAMI2+5*, END+1!
>> Y	FBNHAMI2+4, PRINT+1

Customize PDF page

Package: Fee Basis

Routine: FBNHAMI2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: