Routine: ABMDE4A

Package	Total	Call Graph
Third Party Billing	4	SUM^ABMDE1 ^ABMDERR $$PTAX^ABMEEPRV $$SLN^ABMERUTL
Kernel	1	$$NPI^XUSNPI

Entry Points

Name	Comments	DBIA/ICR reference
OPER
PNUM
PCCPRV
DD
V1	; view
OPNUM
PRV	;
XIT
PCC
ATTN

External References

Name	Field # of Occurrence
SUM^ABMDE1	ABMDE4A+14
^ABMDERR	ABMDE4A+15
$$PTAX^ABMEEPRV	DD+5, OPNUM+7
$$SLN^ABMERUTL	PNUM, OPNUM
$$NPI^XUSNPI	DD+3, OPNUM+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Attn Prov..: ",$P(ABM("A"),U) Line Location: ATTN+1
Function Call: WRITE	Prompt: ?50,"Phone #....: " Line Location: ATTN+2
Function Call: WRITE	Prompt: $P(^(.13),U) Line Location: ATTN+2
Function Call: WRITE	Prompt: !,"Discipline.: " Line Location: ATTN+3
Function Call: WRITE	Prompt: $P($G(^DIC(7,+$P($G(^VA(200,$P(ABM("A"),U,2),"PS")),U,5),0)),U) Line Location: ATTN+4
Function Call: WRITE	Prompt: ?50,"MCR/MCD #..: " Line Location: ATTN+5
Function Call: WRITE	Prompt: ?50,"Licensure #: " Line Location: ATTN+6
Function Call: WRITE	Prompt: $$SLN^ABMERUTL($P(ABM("A"),"^",2),ABMA("ST")) Line Location: PNUM+0
Function Call: WRITE	Prompt: !,"Affilliation: " Line Location: PNUM+1
Function Call: WRITE	Prompt: ABMA("Y0") Line Location: DD+1
Function Call: WRITE	Prompt: ?50,"DEA #......: ",$P($G(^VA(200,$P(ABM("A"),U,2),"PS")),U,2) Line Location: DD+2
Function Call: WRITE	Prompt: !,"NPI.........: ",$S(+ABMNPI>0:ABMNPI,1:"") Line Location: DD+4
Function Call: WRITE	Prompt: ?50,"Provider Taxonomy:",$$PTAX^ABMEEPRV($P(ABM("A"),U,2)) Line Location: DD+5
Function Call: WRITE	Prompt: ! Line Location: DD+6
Function Call: WRITE	Prompt: !,"Oper Prov..: ",$P(ABM("O"),U) Line Location: OPER+1
Function Call: WRITE	Prompt: ?50,"Phone #....: " Line Location: OPER+2
Function Call: WRITE	Prompt: $P(^(.13),U) Line Location: OPER+2
Function Call: WRITE	Prompt: !,"Discipline.: " Line Location: OPER+3
Function Call: WRITE	Prompt: $P($G(^DIC(7,+$P($G(^VA(200,$P(ABM("O"),U,2),"PS")),U,5),0)),U) Line Location: OPER+4
Function Call: WRITE	Prompt: ?50,"MCR/MCD #..: " Line Location: OPER+5
Function Call: WRITE	Prompt: ?50,"Licensure #: " Line Location: OPER+6
Function Call: WRITE	Prompt: $$SLN^ABMERUTL($P(ABM("O"),"^",2),ABMA("ST")) Line Location: OPNUM+0
Function Call: WRITE	Prompt: !,"Afilliation: " Line Location: OPNUM+1
Function Call: WRITE	Prompt: ABMA("Y0") Line Location: OPNUM+3
Function Call: WRITE	Prompt: ?50,"DEA #......: ",$P($G(^VA(200,$P(ABM("O"),U,2),"PS")),U,2) Line Location: OPNUM+4
Function Call: WRITE	Prompt: !,"NPI.........: ",$S(+ABMNPI>0:ABMNPI,1:"") Line Location: OPNUM+6
Function Call: WRITE	Prompt: ?50,"Provider Taxonomy:",$$PTAX^ABMEEPRV($P(ABM("O"),U,2)) Line Location: OPNUM+7
Function Call: WRITE	Prompt: !,ABMA("D") Line Location: PCC+0
Function Call: WRITE	Prompt: !?13,"*** Provider Information Entered Through PCC ***" Line Location: PCC+2
Function Call: WRITE	Prompt: !,"PRI",?11,"PROVIDER",?50,"DISCIPLINE" Line Location: PCC+3
Function Call: WRITE	Prompt: !,"===",?4,"====================================",?43,"==============================" Line Location: PCC+4
Function Call: WRITE	Prompt: *7,!," There are no PCC visits to view." Line Location: PCC+6
Function Call: WRITE	Prompt: !,$S($P(ABMA(0),U,4)="P":" P",1:" S") Line Location: PCCPRV+10
Function Call: WRITE	Prompt: ?4,ABMA("PRV"),?43,ABMA("DISC") Line Location: PCCPRV+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	PCC+5
^AUPNVPRV - [#9000010.06]	PCCPRV
^AUPNVPRV("AD"	V1+1
^AUTNINS - [#9999999.18]	ATTN+5, OPER+5
^AUTTLOC - [#9999999.06]	ATTN+7, ATTN+8, OPER+7
^DD(200	DD+1, OPNUM+3
^DD(9000010.06	PCCPRV+2, PCCPRV+5
^DIC(16 - [#16]	PCCPRV+6
^DIC(6 - [#6]	PCCPRV+7
^DIC(7 - [#7]	ATTN+4, OPER+4, PCCPRV+8
^VA(200 - [#200]	ATTN+2, ATTN+4, DD, DD+2, OPER+2, OPER+4, OPNUM+2, OPNUM+4, PCCPRV+3, PCCPRV+4

Label References

Name	Line Occurrences
OPER	ATTN
PCC	ABMDE4A+15
PCCPRV	V1+1
PRV	ABMDE4A+15
V1	PCC+5
XIT	ABMDE4A+16

Naked Globals

Name	Field # of Occurrence
^(	ATTN+2, OPER+2
^(0	OPER+7, PCCPRV, PCCPRV+8
^(2	ATTN+5, OPER+5
^(9999999	DD, OPNUM+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABM("A"	ATTN, ATTN+1, ATTN+2, ATTN+4, PNUM, DD, DD+2, DD+3, DD+5
>> ABM("O"	OPER, OPER+1, OPER+2, OPER+4, OPNUM, OPNUM+2, OPNUM+4, OPNUM+5, OPNUM+7
ABMA	PCC+5*, V1+1, XIT!
ABMA("C"	PCC+1, PCCPRV+9
ABMA("D"	ABMDE4A+12*, PCC
ABMA("DISC"	PCCPRV+4, PCCPRV+7, PCCPRV+8*, PCCPRV+11
ABMA("I"	PCC+5*, PCC+6
ABMA("J"	V1+1*
ABMA("PRV"	PCCPRV+3, PCCPRV+6, PCCPRV+11
ABMA("ST"	ATTN+7, ATTN+8, ATTN+9, PNUM, OPER+7*, OPER+8, OPNUM
ABMA("V"	V1+1*, PCCPRV
ABMA("Y"	DD, DD+1, OPNUM+2, OPNUM+3
ABMA("Y0"	DD+1, OPNUM+3
ABMA(0	PCCPRV*, PCCPRV+3, PCCPRV+4, PCCPRV+6, PCCPRV+7, PCCPRV+10
>> ABME(120	ATTN+9, OPER+8
>> ABMNPI	DD+3, DD+4, OPNUM+5, OPNUM+6
>> ABMP("CDFN"	PCC+5
>> ABMP("INS"	ATTN+5, OPER+5
>> ABMP("LDFN"	ATTN+7, ATTN+8, ATTN+9, OPER+7, OPER+8
>> ABMZ("TITL"	ABMDE4A+13*
DUZ(2	PCC+5
U	ATTN+1, ATTN+2, ATTN+4, ATTN+5, ATTN+7, ATTN+8, DD, DD+1, DD+2, DD+3 , DD+5, OPER+1, OPER+2, OPER+4, OPER+5, OPER+7, OPNUM+2, OPNUM+3, OPNUM+4, OPNUM+5 , OPNUM+7, PCCPRV+3, PCCPRV+4, PCCPRV+6, PCCPRV+7, PCCPRV+8, PCCPRV+10

Customize PDF page

Package: Third Party Billing

Routine: ABMDE4A

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: