Routine: ABMDE8D

Information

ABMDE8D ; IHS/SD/SDR - Page 8 - MEDICATIONS ; APR 05, 2002

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Third Party Billing	8	$$CPT^ABMCVAPI (PAUSE,SUM)^ABMDE1 (D,MODE)^ABMDE8X (DX,MOD3)^ABMDEMLC ^ABMDERR ($$CDT,$$GETREV,$$SDT)^ABMDUTL ^ABMDWRAP $$ONE^ABMFEAPI
VA Fileman	6	^DIC FILE^DICN ^DIE ^DIK EN^DIQ1 ^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Third Party Billing	1	ABMDEML

Entry Points

Name	Comments	DBIA/ICR reference
DISP
A	;EP ADD ENTRY
E	;EDIT EXISTING ENTRY
PROV	;
PC1
NARR	;
DFEE	;GET DISPENSE FEE
EOP
XIT
HD
PPDU	;PRICE PER DISPENSE UNIT
LOOP

External References

Name	Field # of Occurrence
$$CPT^ABMCVAPI	EOP+9
PAUSE^ABMDE1	DISP+2, EOP
SUM^ABMDE1	DISP+3
D^ABMDE8X	DISP+5
MODE^ABMDE8X	E+8
DX^ABMDEMLC	E+63
MOD3^ABMDEMLC	E+13
^ABMDERR	LOOP+2
$$CDT^ABMDUTL	EOP+4, EOP+5
$$GETREV^ABMDUTL	EOP+3
$$SDT^ABMDUTL	E+45, E+46
^ABMDWRAP	EOP+29
$$ONE^ABMFEAPI	PPDU+4
^DIC	A+5, PROV+9
FILE^DICN	A+11
^DIE	E+18, E+29, E+31, E+32, E+38, E+48, E+49, E+52, E+53, E+58 , E+63, NARR+5, PROV+18
^DIK	E+23
EN^DIQ1	EOP+35
^DIR	E+1, E+5, E+64, PPDU+8, PPDU+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"REVN",?11,"CHARGE",?60,"DAYS",?74,"TOTAL" Line Location: HD+0
Function Call: WRITE	Prompt: !?5,"CODE",?11,"DATE",?30,"MEDICATION",?60,"SUPPLY",?68,"QTY",?74,"CHARGE" Line Location: HD+1
Function Call: WRITE	Prompt: !,ABMZ("=") Line Location: HD+2
Function Call: WRITE	Prompt: !,?72,"========",!?5,"TOTAL",?71,$J("$"_($FN(ABMZ("TOTL"),",",2)),9) Line Location: LOOP+1
Function Call: WRITE	Prompt: !,"[",ABM("I"),"]" Line Location: EOP+1
Function Call: WRITE	Prompt: "-",$$CDT^ABMDUTL($P(ABM("X0"),U,28)) Line Location: EOP+5
Function Call: WRITE	Prompt: " (+)" Line Location: EOP+6
Function Call: WRITE	Prompt: " (*)" Line Location: EOP+7
Function Call: WRITE	Prompt: ?40,"CPT: ",$P($$CPT^ABMCVAPI(+$P(ABM("X0"),U,29),ABMP("VDT")),U,2) Line Location: EOP+9
Function Call: WRITE	Prompt: ! Line Location: EOP+19
Function Call: WRITE	Prompt: ?4,$S($P($G(ABM("X0")),U,24)]"":$P(ABM("X0"),U,24)_" ",1:"<NO NDC> ") Line Location: EOP+20
Function Call: WRITE	Prompt: ?60,$J($P(ABM("X0"),U,20),3) Line Location: EOP+30
Function Call: WRITE	Prompt: ?68,$J(ABMZ("UNIT"),3) Line Location: EOP+31
Function Call: WRITE	Prompt: ?72,$J($FN(($P(ABM("X0"),U,4)*ABMZ("UNIT"))+$P(ABM("X0"),U,5),",",2),8) Line Location: EOP+32
Function Call: WRITE	Prompt: *7,!!,"There are no entries to edit, you must first ADD an entry.",! Line Location: E+1
Routine Call	DIE Line Location: E+18 E+29 E+31 E+32 E+38 E+48 E+49 E+52 E+53 E+58 E+63 NARR+5 PROV+18
Routine Call	DIC Line Location: A+5 PROV+9
Routine Call	DIR Line Location: E+1 E+5 E+64 PPDU+8 PPDU+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^PSRX - [#52]	Classic Fileman Calls
^ABMDCLM - [#9002274.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	LOOP, PC1, PC1+1, EOP+13, EOP+14, EOP+18, E+7, E+17, E+19, E+25 , E+26, E+44, E+45, E+46, E+50, NARR+1, NARR+2, NARR+4, PPDU+7, PPDU+10
^ABMDEXP - [#9002274.08]	E+62, NARR+3, PPDU+2
^ABMDPARM(	DFEE+2, DFEE+3, DFEE+4
^ABMNINS(	NARR+2, NARR+4, NARR+5
^DD(	PROV+7
^DD(9002274.3	A+4
^PS(52.6 - [#52.6]	EOP+26
^PS(52.7 - [#52.7]	EOP+26
^PSDRUG - [#50]	PC1+4, E+55, PPDU+5
^PSRX - [#52]	EOP+8, E+29, E+33, E+34, E+36
^PSRX("B"	EOP+34
^VA(200 - [#200]	EOP+18

Label References

Name	Line Occurrences
DFEE	E+30, E+51
HD	DISP+10, EOP
LOOP	DISP+10
NARR	E+39, E+59
PC1	LOOP
PPDU	E+15
PROV	E+40, E+60
XIT	DISP+2, LOOP+3

Naked Globals

Name	Field # of Occurrence
^(0	PC1+4, EOP+26, E+45, PPDU+10
^(2	E+55
^(7	E+45

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABM	LOOP*, XIT!
ABM("FEE"	DISP+9, EOP+38
ABM("I"	LOOP*, PC1+4, EOP+1, EOP+21
ABM("M"	EOP+11*
ABM("X"	LOOP*, PC1, PC1+1, PC1+4, EOP+13, EOP+14, EOP+18
ABM("X0"	PC1, PC1+2, PC1+4, EOP+2, EOP+3, EOP+4, EOP+5, EOP+6, EOP+7, EOP+8 , EOP+9, EOP+20, EOP+23, EOP+24, EOP+25, EOP+30, EOP+32, EOP+33, EOP+34, EOP+38 , EOP+39, EOP+41, E+50, E+55, DFEE+3, DFEE+4
ABM("X2"	PC1+1*, EOP+11
ABM(52	EOP+36, EOP+37
>> ABMCNCK	NARR+4*, NARR+5
>> ABME("CONT"	LOOP+2*!
>> ABME(0	LOOP+2
>> ABMFLNM	PROV+6*, PROV+7
>> ABMIEN	E+26*, E+29, E+33, E+34, E+36
ABMMODE	XIT!
ABMMODE(4	E+62, PPDU+2
>> ABMP("CDFN"	LOOP, PC1, PC1+1, EOP+13, EOP+14, EOP+18, A+7, E+3, E+17, E+19 , E+21, E+25, E+26, E+44, E+45, E+46, NARR+1, NARR+2, NARR+4, PROV+2 , PROV+13, PROV+20
>> ABMP("DDL"	DISP+2
>> ABMP("EXP"	NARR+3
>> ABMP("FEE"	PPDU+4
>> ABMP("INS"	NARR+2, NARR+4, NARR+5
>> ABMP("LDFN"	NARR+2, NARR+4, NARR+5
>> ABMP("VDT"	EOP+9, PPDU+4
>> ABMP("VTYP"	DFEE+2
>> ABMRPRV	EOP+13, EOP+14, EOP+15, EOP+18
>> ABMSCRIP	E+17*, E+19
>> ABMSIEN	PROV+3*, PROV+14
>> ABMU("LM"	EOP+28*
>> ABMU("RM"	EOP+27*
>> ABMU("TXT"	EOP+21, EOP+26, EOP+37*
>> ABMX("Y"	A+9, E+11
ABMZ	DISP!
ABMZ(	PC1+4, EOP+21, A+9, E+6, E+11*
ABMZ("="	DISP+6*, HD+2
ABMZ("CHARGE"	EOP+39*, EOP+41
ABMZ("DIAG"	DISP+7*
ABMZ("DIC"	DISP+8*
ABMZ("DISPFEE"	E+30, E+32, E+51, E+53, DFEE+1, DFEE+2, DFEE+3, DFEE+4
ABMZ("DRUG"	A+6, E+2, E+7, PPDU+4, PPDU+5
ABMZ("ITEM"	DISP+8*
ABMZ("IV"	PPDU+8*
ABMZ("LNUM"	LOOP*
ABMZ("MOD"	EOP+10, EOP+11, EOP+12, E+12*
ABMZ("NUM"	LOOP, LOOP+1, A+13, E+1, E+4, E+5
ABMZ("PG"	DISP+1*
ABMZ("PPDU"	E+29, E+47, PPDU+4, PPDU+5, PPDU+9, PPDU+11*
ABMZ("SUB"	DISP+7*, PROV+4, PROV+6, PROV+15
ABMZ("TITL"	DISP+1*
ABMZ("TOTL"	DISP+9, LOOP+1, EOP+41
ABMZ("UNIT"	PC1+2, PC1+3, EOP+31, EOP+32, EOP+41
ABMZ("X"	DISP+9*
ABMZ(1	LOOP*
DA	EOP+34~, EOP+36, EOP+37, A+12, E+6, E+7, E+11, E+17, E+19, E+25 , E+26, E+44, E+45, E+46, E+50, NARR+1, NARR+2, NARR+4, PPDU+7, PPDU+10 , PROV+3, PROV+12!, PROV+16, PROV+19*
DA(1	A+7, E+3, E+7, E+21, E+22, E+50, PPDU+7, PPDU+10, PROV+3, PROV+4 , PROV+14, PROV+15, PROV+19, PROV+20
DA(2	PROV+2, PROV+4, PROV+13, PROV+15
DD	A+10!
DIC	DISP!, EOP+35, A+1!, A+2, A+8, E+20!, PROV+1~, PROV+4, PROV+10!
DIC("DR"	PROV+8*
DIC("P"	A+4, PROV+7
DIC(0	A+3, PROV+5
DIE	E+9, E+20!, PROV+1~, PROV+10!, PROV+12!, PROV+15
>> DIK	E+22*
DIQ	EOP+35*!
DIQ(0	EOP+35*
DIR	E+1!, E+5!, E+20!, E+64!, PPDU+8!, PPDU+11!
DIR("A"	E+64, PPDU+6, PPDU+9*
DIR("B"	PPDU+7, PPDU+9, PPDU+10*
DIR(0	E+1, E+5, E+64, PPDU+6, PPDU+9*
>> DIROUT	DISP+2
>> DIRUT	E+15
DO	A+10!
DR	EOP+35, E+16, E+27!, E+28, E+29, E+30, E+32, E+33, E+34, E+36* , E+37, E+45, E+46, E+47, E+49, E+51, E+53, E+54, E+55, E+56 , E+57, E+63, NARR+5, PPDU+1, PPDU+2, PPDU+12, PROV+1~, PROV+10!, PROV+12!, PROV+17*
>> DTOUT	DISP+2
>> DUOUT	DISP+2
DUZ(2	LOOP, PC1, PC1+1, EOP+13, EOP+14, EOP+18, E+7, E+17, E+19, E+25 , E+26, E+44, E+45, E+46, E+50, NARR+1, NARR+2, NARR+4, PPDU+7, PPDU+10 , DFEE+2, DFEE+3, DFEE+4
IOSL	DISP+2, EOP
M7	EOP+22~, EOP+23*, EOP+26
M8	EOP+22~, EOP+24*, EOP+26
M9	EOP+22~, EOP+25*, EOP+26
U	PC1+2, PC1+4, EOP+2, EOP+3, EOP+4, EOP+5, EOP+6, EOP+7, EOP+8, EOP+9 , EOP+11, EOP+18, EOP+20, EOP+21, EOP+23, EOP+24, EOP+25, EOP+26, EOP+30, EOP+32 , EOP+33, EOP+38, EOP+39, EOP+41, A+4, A+9, E+6, E+7, E+11, E+12 , E+17, E+19, E+25, E+26, E+29, E+33, E+34, E+36, E+44, E+45 , E+46, E+55, NARR+1, NARR+2, NARR+3, NARR+4, NARR+5, PPDU+4, PPDU+5, PPDU+10 , DFEE+2, DFEE+3, DFEE+4, PROV+7, PROV+11
>> X	A+8*, A+9, E+32, E+53
>> Y	A+6, A+8, A+12, E+2, E+4*, E+5, E+6, E+31, E+48, E+52 , PPDU+8, PPDU+11, PROV+11, PROV+16
>> Y(0	E+63

Customize PDF page

Package: Third Party Billing

Routine: ABMDE8D

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: