Routine: BMCVDV2

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIE
IHS VA Utilities	1	$$DIR^XBDIR
Kernel	1	$$FMTE^XLFDT
Referred Care Information System	1	$$ZEROTH^BMC

Package	Total	Caller Graph
Referred Care Information System	2	BMCVDV1 BMCVDVA

Entry Points

Name	Comments	DBIA/ICR reference
HDR	;
AGRDSP	;EP
AGRSEL	;
A2A	;
A2C	;
A2D	;
A2E	;
AGRDSP1	;
AGRNEW	;ADD NEW AGREEMENT INFORMATION HERE
AGRDSPZ	;
MDY(X)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"None on file." Line Location: BMCVDV2+6
Function Call: WRITE	Prompt: !!,"None on file." Line Location: BMCVDV2+7
Function Call: WRITE	Prompt: !!,"FISCAL YEAR",?16,"A M O U N T",?30,"LAST PMT DATE",!! Line Location: BMCVDV2+9
Function Call: WRITE	Prompt: ?2,BMC,?14,"$",$J($FN($P(^(BMC,0),U,2),",",2),12),?30,$$FMTE^XLFDT($P(^(0),U,3)),! Line Location: BMCVDV2+10
Function Call: WRITE	Prompt: !,$J(BMCI,2),?3,BMCAGTP,?9,$E($P(^AUTTVNDR(BMCPROV,18,R,0),U,1),1,2),$S(BMCAGTP="BPA":"-A-",BMCAGTP="PA":"-PA-",BMCAGTP="RQ":"-R-",1:"") Line Location: A2A+2
Function Call: WRITE	Prompt: $E(X,2,4) Line Location: A2A+4
Function Call: WRITE	Prompt: $E(X,1,4) Line Location: A2A+5
Function Call: WRITE	Prompt: ?20,$$MDY($P(^AUTTVNDR(BMCPROV,18,R,0),U,8)),?30,$$MDY($P(^AUTTVNDR(BMCPROV,18,R,0),U,9)) Line Location: A2C+1
Function Call: WRITE	Prompt: ?40,Y,! Line Location: A2C+8
Function Call: WRITE	Prompt: ?40,Y,! Line Location: A2D+7
Function Call: WRITE	Prompt: @IOF Line Location: AGRNEW+4
Function Call: WRITE	Prompt: ! Line Location: AGRNEW+10
Function Call: WRITE	Prompt: !!," #",?3,"Type",?9,"Number",?20,"Eff-Date",?30,"Exp-Date",?40,"MCR",?45,"Description",!?3,"----",?9,"---------",?20,"--------",?30,"--------",?40,"---",?45,"----------------------------" Line Location: HDR+1
Routine Call	DIE Line Location: AGRNEW+13
Routine Call	DIC Line Location: AGRNEW+7

Name	Line Occurrences (* Changed, ! Killed)
^AUTTVNDR - [#9999999.11]	AGRDSP+1, AGRDSP1+1, A2A+2, A2A+3, A2C+1, A2C+2, A2C+3, A2C+5, A2C+7, A2D+1 , A2D+2, A2D+4, A2D+6, A2E+1, AGRNEW+5*
^BMCVPMT(	BMCVDV2+5, BMCVDV2+7, BMCVDV2+10
^XUSEC("BMCZVEN"	AGRNEW+1

Name	Field # of Occurrence
^(	BMCVDV2+10
^(0	BMCVDV2+10, A2C+7, A2D+6, A2E+1

Name	Field # of Occurrence
>> BMC	BMCVDV2+10*
BMCAGRL	AGRDSP+4!
BMCAGRL(	A2A+1*, AGRSEL+5
>> BMCAGTP	AGRDSP+1, AGRDSP1+1, A2A+2, A2A+4, AGRNEW+2
>> BMCBPFL	AGRDSPZ+1
>> BMCI	AGRDSP+3, A2A+1, A2A+2, AGRSEL+2
BMCIEN	BMCVDV2+4~, BMCVDV2+5*, BMCVDV2+6, BMCVDV2+7, BMCVDV2+10
>> BMCPAFL	AGRDSPZ+1
>> BMCPROV	BMCVDV2+5, AGRDSP+1, AGRDSP1+1, A2A+2, A2A+3, A2C+1, A2C+2, A2C+3, A2C+5, A2C+7 , A2D+1, A2D+2, A2D+4, A2D+6, A2E+1, AGRNEW+5, AGRNEW+6, AGRNEW+9
>> BMCRQFL	AGRDSPZ+1
>> DA	AGRSEL+1, AGRSEL+5, AGRNEW+4, AGRNEW+9
>> DA(1	AGRNEW+6, AGRNEW+9
>> DIC	AGRNEW+6*, AGRNEW+12
>> DIC("W"	AGRNEW+6*
>> DIC(0	AGRNEW+6*
DIE	AGRNEW+11!, AGRNEW+12*, AGRNEW+14!
DIE("NO^"	AGRNEW+12*
DR	AGRNEW+11!, AGRNEW+12*
>> DTOUT	AGRSEL+3, AGRNEW+3
>> DUOUT	AGRSEL+3, AGRNEW+3
DUZ	AGRNEW+1
DUZ(2	BMCVDV2+5, BMCVDV2+7, BMCVDV2+10
IOF	AGRNEW+4
>> R	AGRDSP+3, AGRDSP1+1, AGRDSP1+2, A2A+1, A2A+2, A2A+3, A2C+1, A2C+2, A2C+3, A2C+5 , A2C+7, A2D+1, A2D+2, A2D+4, A2D+6, A2E+1
U	BMCVDV2+10, A2A+2, A2A+3, A2C+1, A2C+2, A2C+3, A2C+5, A2C+7, A2D+1, A2D+2 , A2D+4, A2D+6, A2E+1
X	A2A+3, A2A+4, A2A+5, A2C+2, A2C+3, A2C+4, A2D+1*, A2D+2, A2D+3, MDY~ , MDY+1
>> Y	A2C+4, A2C+5, A2C+6, A2C+7, A2C+8, A2D+3, A2D+4, A2D+5, A2D+6, A2D+7 , AGRSEL+2, AGRSEL+4, AGRSEL+5, AGRNEW+2, AGRNEW+4, AGRNEW+8, AGRNEW+9