Routine: BMCVDV

Information

BMCVDV ; IHS/OIT/FCJ - 1/2 VIEW/EDIT PROVIDER-VENDOR FILE ;

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Referred Care Information System	5	A4^BMCVDV1 (17,EDIT)^BMCVDVA (,MESSAGE)^BMCVDVD ^BMCVUCN A1^BMCVURT
IHS VA Utilities	3	$$VAL^XBDIQ1 $$DIR^XBDIR ($$C,$$EXTSET)^XBFUNC
Kernel	1	$$REPEAT^XLFSTR
VA Fileman	1	^DIC

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Referred Care Information System	4	BMCVDV1 BMCVDVA BMCVDVD BMCVEN

Entry Points

Name	Comments	DBIA/ICR reference
END	;EP
HDR	;
A1	;EP
A3	;
A2	;EP
A1A	;EP

External References

Name	Field # of Occurrence
A4^BMCVDV1	A2+45, A3+3
17^BMCVDVA	A2+47
EDIT^BMCVDVA	A3+3
^BMCVDVD	A1+8
MESSAGE^BMCVDVD	A2+3
^BMCVUCN	A2+11
A1^BMCVURT	A2+9, A2+13
^DIC	A1+4
$$VAL^XBDIQ1	A2+31, A2+32, A2+33, A2+34
$$DIR^XBDIR	A3+2
$$C^XBFUNC	HDR+2
$$EXTSET^XBFUNC	A2+27
$$REPEAT^XLFSTR	A2+44, HDR+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," 1) ",$P(^AUTTVNDR(BMCPROV,0),U),?46," 2) EIN No: ",$P(BMC11,U),$S($P(BMC11,U,2)]"":"-"_$P(BMC11,U,2),1:"") Line Location: A2+18
Function Call: WRITE	Prompt: !," 3) Status: ",$S(+$P(BMC0,U,5):"IN",1:""),"ACTIVE" Line Location: A2+19
Function Call: WRITE	Prompt: ?46," 4) Contracts: ",$S(BMCACO="N":"NONE ACTIVE",+C>0:"ACTIVE="_+C,1:"NONE") Line Location: A2+20
Function Call: WRITE	Prompt: !," 5) UPIN: ",$P(BMC17,U),?46," 6) Rate Quotation: ",$S('$D(BMCRT("RQ")):"NONE",'$D(BMCRT("RQ","ACTIVE")):"NONE ACTIVE",BMCRT("RQ","ACTIVE")>0:"ACTIVE="_+$P(BMCRT("RQ","ACTIVE"),U,1),1:"") Line Location: A2+22
Function Call: WRITE	Prompt: !," 7) Type of Business: " Line Location: A2+23
Function Call: WRITE	Prompt: $P($G(^AUTTTOB(X,0)),U) Line Location: A2+25
Function Call: WRITE	Prompt: ?46," 8) Agreement: ",$S('$D(BMCRT("PA")):"NONE",'$D(BMCRT("PA","ACTIVE")):"NONE ACTIVE",BMCRT("PA","ACTIVE")>0:"ACTIVE="_+$P(BMCRT("PA","ACTIVE"),U,1),1:"") Line Location: A2+26
Function Call: WRITE	Prompt: ?46,"10) BPA: ",$S('$D(BMCRT("BPA")):"NONE",'$D(BMCRT("BPA","ACTIVE")):"NONE ACTIVE",BMCRT("BPA","ACTIVE")>0:"ACTIVE="_+$P(BMCRT("BPA","ACTIVE"),U,1),1:"") Line Location: A2+30
Function Call: WRITE	Prompt: !,"11) E-Mail: ",$$VAL^XBDIQ1(9999999.11,BMCPROV,2103) Line Location: A2+31
Function Call: WRITE	Prompt: ?46,"12) DUNS: ",$$VAL^XBDIQ1(9999999.11,BMCPROV,.07) Line Location: A2+32
Function Call: WRITE	Prompt: !,"13) Direct Participant: ",$$VAL^XBDIQ1(9999999.11,BMCPROV,2104) Line Location: A2+33
Function Call: WRITE	Prompt: !,"14) Direct E-Mail: ",$$VAL^XBDIQ1(9999999.11,BMCPROV,2105) Line Location: A2+34
Function Call: WRITE	Prompt: !!,"** MAILING/BILLING ADDRESS ",?44," PROVIDER LOCATION ADDRESS **" Line Location: A2+35
Function Call: WRITE	Prompt: !,"15) Street: ",$P(BMC13,U),?46,"16) Street: ",$E($P(BMC13,U,6),1,17) Line Location: A2+36
Function Call: WRITE	Prompt: !?6,"City: ",$P(BMC13,U,2),?52,"City: ",$P(BMC13,U,7),!?5,"State: ",BMCMS,?26,"Zip: ",$P(BMC13,U,4),?51,"State: ",BMCBS Line Location: A2+38
Function Call: WRITE	Prompt: !?5,"Phone: ",$P(BMC11,U,9),?26,"Fax: ",$P(BMC11,U,14),?48,"Zip Code: ",$P(BMC13,U,9),!?7,"Attn: ",$P(BMC13,U,5) Line Location: A2+39
Function Call: WRITE	Prompt: !,"17) Vendor Type: ",BMCVT Line Location: A2+40
Function Call: WRITE	Prompt: ?46,"18) Fed/Non-Fed: ",$S($P(BMC11,U,10)=1:"NON-FED",$P(BMC11,U,10)=2:"FED",$P(BMC11,U,10)="":"") Line Location: A2+41
Function Call: WRITE	Prompt: !,"19) Specialty: ",$S($P(BMC11,U,4):$P(^DIC(7,$P(BMC11,U,4),0),U),1:"") Line Location: A2+42
Function Call: WRITE	Prompt: ?46,"20) Geographic Loc: ",$S($P(BMC11,U,25)="":"",$P(BMC11,U,25):$P(^AUTTGL($P(BMC11,U,25),0),U)) Line Location: A2+43
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("*",79) Line Location: A2+44
Function Call: WRITE	Prompt: @IOF,!,$$C^XBFUNC(X),! Line Location: HDR+2
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("*",79) Line Location: HDR+3
Routine Call	DIC Line Location: A1+4

FileNo	Call Tags
^AUTTVNDR - [#9999999.11]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTGL - [#9999999.79]	A2+43
^AUTTTOB - [#9999999.76]	A2+25
^AUTTVNDR - [#9999999.11]	A1A+1, A1A+2, A2+2, A2+3, A2+18, A2+27, A2+28
^AUTTVTYP - [#9999999.34]	A2+6
^DIC(5 - [#5]	A2+15, A2+17
^DIC(7 - [#7]	A2+42
^XUSEC("BMCZVEN"	A1+2, A2+45

Label References

Name	Line Occurrences
A1	A2+47, A3+3
A2	A2+47
A3	A3+4
END	A1+6, A3+3
HDR	A1+1, A2+4

Naked Globals

Name	Field # of Occurrence
^(11	A2+2
^(13	A2+2
^(17	A2+2
^(23	A2+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BMC0	A2+2*, A2+19, END+2!
BMC11	A2+2*, A2+5, A2+18, A2+24, A2+39, A2+41, A2+42, A2+43, END+2!
BMC13	A2+2*, A2+14, A2+16, A2+36, A2+38, A2+39, END+2!
BMC17	A2+2*, A2+22, END+2!
BMCACO	A2+10*, A2+20, END+2!
BMCBPFL	A3+1!
BMCBS	A2+16, A2+17, A2+38, END+2!
BMCCTFL	A3+1!
BMCCTNA	A2+8!, A2+12!, END+2!
BMCDISP	A2+5*, END+2!
BMCEDOS	A2+7*, END+2!
BMCEIN	END+2!
BMCEINS	END+2!
BMCI	END+2!
BMCMP	A2+27, A2+28, A2+29, END+2!
BMCMS	A2+14, A2+15, A2+38, END+3!
BMCPAFL	A3+1!
BMCPROV	A1+7*, A1A+1, A1A+2, A2+1, A2+2, A2+3, A2+10, A2+18, A2+27, A2+28 , A2+31, A2+32, A2+33, A2+34, END+3!
BMCRQFL	A3+1!
BMCRT	A2+8!, A2+12!, END+3!
BMCRT("BPA"	A2+30
BMCRT("PA"	A2+26
BMCRT("RQ"	A2+21*, A2+22
BMCSUFF	END+3!
BMCVT	A2+5, A2+6, A2+40, A2+47, END+3!
BMCYAYA	END+3!
C	A2+20, END+1!
D	END+1!
D0	END+1!
DA	END+1!
DI	END+1!
DIC	A1+2*, A1+5!, END+1!
DIC("A"	A1+2*
DIC(0	A1+2*, A1+3
DLAYGO	A1+3*, A1+5!
DR	END+1!
DT	A2+7
>> DTOUT	A3+3
>> DUOUT	A3+3
DUZ	A1+2, A2+45
IOF	HDR+2
L	END+1!
P	A2+10*, END+1!
S	END+1!
U	A2+3, A2+5, A2+6, A2+14, A2+15, A2+16, A2+17, A2+18, A2+19, A2+22 , A2+24, A2+25, A2+26, A2+27, A2+30, A2+36, A2+38, A2+39, A2+41, A2+42 , A2+43
X	A2+24, A2+25, END+1!, HDR+1, HDR+2
>> Y	A1+6, A1+7, A2+47, A3+2, A3+3, HDR+1

Customize PDF page

Package: Referred Care Information System

Routine: BMCVDV

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: