Routine: AGMBIR2

Package	Total	Call Graph
IHS Patient	2	($$ADDMBI,$$DELMBI,$$FORMOK)^AUPNMBI KILL^AUPNPAT
IHS Patient Registration	2	PTLK^AG ($$ASKMBI,$$GETMBIS)^AGUTL
IHS VA Utilities	1	^XBFMK
Kernel	1	$$RJ^XLFSTR
VA Fileman	1	^DIR

Entry Points

Name	Field # of Occurrence
PTLK^AG	PAT+2
$$ASKMBI^AGUTL	ADD+8
$$GETMBIS^AGUTL	PRINT+2
$$ADDMBI^AUPNMBI	EDIT+28
$$DELMBI^AUPNMBI	DELETE+10
$$FORMOK^AUPNMBI	EDIT+19
KILL^AUPNPAT	END+6
^DIR	ASK+5, ADD+6, EDIT+6, EDIT+14, EDIT+20, EDIT+24, DELETE+6, END+4
^XBFMK	END+6
$$RJ^XLFSTR	PRINT+8

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Patient has no MBI history on file." Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,?10,"Eff Date",?26,"MBI",?40,"Source" Line Location: PRINT+6
Function Call: WRITE	Prompt: !,$$RJ^XLFSTR(CNT_")",6),?10,$P(AGRES(CNT,0),U,2),?26,$P(AGRES(CNT,0),U,3),?40,$P(AGRES(CNT,0),U,4) Line Location: PRINT+8
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: !,$P(RES,U,2),! Line Location: EDIT+20
Routine Call	DIR Line Location: ASK+5 ADD+6 EDIT+6 EDIT+14 EDIT+20 EDIT+24 DELETE+6 END+4

Name	Field # of Occurrence
AGANS	ASK+2~, ASK+7*, ASK+8, ASK+9, ASK+10
AGENTRY	EDIT+1~, EDIT+8, EDIT+13, EDIT+24, EDIT+28, DELETE+1~, DELETE+8, DELETE+10
AGPATDFN	PAT+1~
AGRES	PRINT+1~, PRINT+2, PRINT+3, PRINT+4, ASK+9, ASK+10, EDIT~, EDIT+1, EDIT+4, EDIT+5 , DELETE~, DELETE+1, DELETE+4, DELETE+5
AGRES(	PRINT+7, PRINT+8, EDIT+13, EDIT+24, EDIT+28, DELETE+10
CNT	PRINT+7~*, PRINT+8
DFN	PAT+1~, PAT+3, PRINT+2, ADD+8, EDIT+28, DELETE+10
>> DFOUT	PAT+3, ASK+6, ADD+7, EDIT+7, EDIT+15, EDIT+21, EDIT+25, DELETE+7
DIR	ASK+2!, ADD+3!, EDIT+3!, EDIT+10!, EDIT+18!, EDIT+23!, DELETE+3!, END+1!, END+5!
DIR("A"	ASK+3, ADD+5, EDIT+5, EDIT+12, DELETE+5, END+2
DIR("B"	EDIT+13, EDIT+20, EDIT+24*
DIR(0	ASK+4, ADD+4, EDIT+4, EDIT+11, EDIT+20, EDIT+24, DELETE+4, END+3
>> DIRUT	PAT+3, ASK+6, ADD+7, EDIT+7, EDIT+15, EDIT+21, EDIT+25, DELETE+7
>> DTOUT	PAT+3, ASK+6, ADD+7, EDIT+7, EDIT+15, EDIT+21, EDIT+25, DELETE+7
>> DUOUT	PAT+3, ASK+6, ADD+7, EDIT+7, EDIT+15, EDIT+21, EDIT+25, DELETE+7
MBI	EDIT+1~, EDIT+16, EDIT+19, EDIT+20, EDIT+28
POL	ADD+1~, ADD+8*, EDIT+1~
REC	PAT+1~
RES	EDIT+1~, EDIT+19, EDIT+20, EDIT+28, DELETE+1~, DELETE+10*
RHIFLAG	PAT+1~
SRC	EDIT+1~, EDIT+26*, EDIT+28
U	PRINT+8, EDIT+13, EDIT+20, EDIT+24, EDIT+28, DELETE+10
>> X	ADD+8
>> Y	ASK+7, EDIT+8, EDIT+16, EDIT+20, EDIT+26, DELETE+8