Routine: FBNHEDAT

Package	Total	Call Graph
Fee Basis	7	(CLOSE,SITEP,ZIS)^FBAAUTL (GETAUTH,GETAUTHK,GETVET)^FBAAUTL1 DATES^FBAAUTL2 FBO^FBCHP78 END^FBNHEAU1 ^FBNHEDA1 $$ADDUA^FBUTL9
VA FileMan	2	^DIE ^DIR

Package	Total	Caller Graph
Fee Basis	1	FBCNH EDIT AUTHORIZATION

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"No 7078 on file!",! Line Location: DR+12
Function Call: WRITE	Prompt: !,"Error adding record in User Audit. Please contact IRM." Line Location: GO+4
Function Call: WRITE	Prompt: ! Line Location: CHEKP78+0
Function Call: WRITE	Prompt: ! Line Location: CHEKP78+1
Function Call: WRITE	Prompt: !,*7,"From Date cannot be greater than the To Date.",! Line Location: ER+0
Function Call: WRITE	Prompt: !,*7,"This patient has movements after the authorization to date. You must",!,"edit the patient's movements first.",! Line Location: ER1+0
Routine Call	DIE Line Location: DR+4 DR+8 DR+10 GO
Routine Call	DIR Line Location: RD2

FileNo	Call Tags
^FB7078 - [#162.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^FB7078 - [#162.4]	GO+5!*
^FBAAA - [#161]	RD1+2, DR+6, GO+5

Name	Field # of Occurrence
^(0	DR+6

Name	Field # of Occurrence
>> %ZIS("B"	CHEKP78*
A	END+1!
CNT	RD1+1, RD1+2!
D0	RD1+2*, END!
DA	RD1+2, DR+6, DR+10, DR+12*, END!
DA(1	RD1+2, DR+10
>> DFN	RD1, RD1+2, DR+6, DR+10, GO+5
DIC	END+1!
DIE	RD1+2, DR+10, DR+12*, END+1!
DIR	RD2!, END+1!
DIR("A"	RD2*
DIR("B"	RD2*
DIR(0	RD2*
>> DIRUT	RD1+1, CHEKP78
DR	DR, DR+6!, DR+8!, DR+10, DR+12, CHANGED, CHANGED+1
DR(1	DR+3, DR+4
>> FB("SITE"	CHEKP78*, CHEKP78+1, END+1!
FB1	RD1+2*, RD1+3, END!
FB7078	DR+10, DR+12, CHEKP78*, CHEKP78+1, END!
FBAA	END+1!
FBAA(1	RD1+3*
FBAA(2	RD1+2, RD1+3
FBAA78	DR+10!, DR+12, GO+3, GO+5, CHEKP78, END!
FBAAADA	RD1+2*, GO+5, END+1!
FBAABDT	END+1!
FBAADA	END!
FBAADDYS	END!
FBAAEDT	END+1!
FBAALT	END!
FBAAOUT	END+1!
FBAAP79	END!
FBAASKV	END!
FBAATT	END!
FBASSOC	END+1!
FBAUT	RD1+2!, END!
FBBDT	END+1!
FBBEGDT	RD1+3, END!
FBCOUNTY	END!
FBDEV	END!
FBDX	END!
FBENDDT	RD1+3, END!
FBERR	RD1+1*, DR+10, END!
FBI	END!
FBIFN	END!
FBLOC	END+1!
FBNEW	RD1+1, DR+6, DR+7, DR+8, DR+13, RD2, END!, CHANGED, CHANGED+1
FBNUM	CHEKP78*, CHEKP78+1, END!
FBO	RD1+2, RD1+3, CHEKP78, CHEKP78+1, END!
FBOLD	RD1+1, RD1+2, DR+7, DR+8, DR+13, RD2, END!, CHANGED, CHANGED+1
FBOUT	END!
FBPOP	END+1!
FBPOV	END+1!
FBPROG	RD1+1, RD1+3, END+1!
FBPSA	END+1!
FBPSADF	END!
FBPT	END+1!
FBRR	END!
FBSITE	END+1!
FBSITE(1	CHEKP78
FBT	CHEKP78*, CHEKP78+1, END!
FBTDAYS	END+1!
FBTT	END+1!
FBTYPE	END!
FBVEN	END!
FBX	GO+2~, GO+3*, GO+4
FBXX	END!
FBZ	END!
FTP	RD1+1, RD1+2, DR+10, END+1!
HOLDX	END+1!
I	END!
>> IOP	CHEKP78*
J	END!
K	END!
PGM	CHEKP78+1*, END+1!
PI	END!
PTYPE	END+1!
T	END+1!
U	RD1*
VAL	CHEKP78+1*, END+1!
VAR	CHEKP78+1*, END+1!
X	END+1!
Y	DR+7, RD2, END+1!
Z	GO+5*, END+1!
ZZ	END+1!