Routine: ABMDTFED

Package	Total	Call Graph
Third Party Billing	5	$$CPT^ABMCVAPI WHD^ABMDRHD PAZ^ABMDRUTL $$SDT^ABMDUTL RANGE^ABMFEAPI
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^DIC ^DIR
IHS VA Utilities	1	^XBFMK

Package

Total

Call Graph

Third Party Billing

$$CPT^ABMCVAPI WHD^ABMDRHD PAZ^ABMDRUTL $$SDT^ABMDUTL RANGE^ABMFEAPI

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^DIC ^DIR

IHS VA Utilities

^XBFMK

Name	Field # of Occurrence
^%ZIS	W1+13, W1+15
HOME^%ZIS	W1+14
^%ZISC	XIT
^%ZTLOAD	QUE+13
$$CPT^ABMCVAPI	S2+32, S2+33
WHD^ABMDRHD	HDB+1
PAZ^ABMDRUTL	HD
$$SDT^ABMDUTL	SEL+28, S2+13
RANGE^ABMFEAPI	S2+15
^DIC	FEE+5
^DIR	SEL+4, SEL+33, W1+14
^XBFMK	SEL+30

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FEE+0
Function Call: WRITE	Prompt: !!,"======== FEE SCHEDULE CATEGORIES ========",! Line Location: SEL+0
Function Call: WRITE	Prompt: !,"Looking for effective dates..." Line Location: SEL+20
Function Call: WRITE	Prompt: !!,"Possible effective dates:" Line Location: SEL+26
Function Call: WRITE	Prompt: !?3,$$SDT^ABMDUTL(ABMEFFDT) Line Location: SEL+28
Function Call: WRITE	Prompt: !!! Line Location: W1+1
Function Call: WRITE	Prompt: !!,"As specified in the 3P Site Parameters File FORCED QUEUEING is in effect!",! Line Location: W1+9
Function Call: WRITE	Prompt: " (cont)" Line Location: S2+20
Function Call: WRITE	Prompt: ?10 Line Location: S2+39
Function Call: WRITE	Prompt: ?15 Line Location: S2+40
Function Call: WRITE	Prompt: ?60,+$P($G(^TMP("ABM-FS",$J,ABMCD)),U,2) Line Location: S2+49
Function Call: WRITE	Prompt: !?44,"GLOBAL",?56,"TECH",?68,"PROF" Line Location: HDB+2
Function Call: WRITE	Prompt: !?44,"GLOBAL",?56,"TECH",?68,"PROF" Line Location: HDB+3
Function Call: WRITE	Prompt: !,"CPT CODE",?10,"SHORT NAME",?44,"CHARGE",?56,"CHARGE",?68,"CHARGE" Line Location: HDB+4
Function Call: WRITE	Prompt: !,"ADA CODE",?15,"SHORT NAME",?44,"CHARGE",?56,"CHARGE",?68,"CHARGE" Line Location: HDB+5
Function Call: WRITE	Prompt: !,"DRUG",?44,"PRICE PER DISPENSING UNIT" Line Location: HDB+6
Function Call: WRITE	Prompt: !,"NDC",?18,"DRUG",?55,"PRICE PER DISPENSING UNIT" Line Location: HDB+7
Function Call: WRITE	Prompt: !,"REV CODE",?10,"STANDARD ABBREV.",?44,"CHARGE",?56,"CHARGE",?68,"CHARGE" Line Location: HDB+8
Function Call: WRITE	Prompt: !,"CHARGE MASTER",?44,"CHARGE",?56,"CHARGE",?68,"CHARGE" Line Location: HDB+9
Function Call: WRITE	Prompt: !,ABM("LINE") Line Location: HDB+10
Routine Call	%ZIS Line Location: W1+14
Routine Call	DIC Line Location: FEE+5
Routine Call	DIR Line Location: SEL+4 SEL+33 W1+14
Routine Call	%ZIS Line Location: W1+13 W1+15

FileNo	Call Tags
^ABMDFEE - [#9002274.01]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMCM - [#9002274.75]	S2+27
^ABMDFEE - [#9002274.01]	SEL+22, SEL+24
^ABMDPARM(	FEE+4
^AUTTADA - [#9999999.31]	S2+35
^AUTTREVN - [#9999999.72]	S2+36
^PSDRUG - [#50]	S2+24, S2+25
^TMP("ABM-FS"	S2+14!, S2+18, S2+24, S2+25, S2+35, S2+43, S2+44, S2+45, S2+48, S2+49

Name	Line Occurrences
FEE	FEE+7
HD	S2+20
HDB	S2+16
QUE	W1+14
XIT	FEE+6, SEL+5

Name	Field # of Occurrence
^(0	FEE+4

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	W1+11*
>> %ZIS("A"	W1+12*
ABM	SEL+6*, XIT+1!
ABM("CAT"	SEL+9, SEL+10, SEL+11, SEL+12, SEL+13, SEL+14, SEL+15, SEL+16, SEL+17, SEL+18 , SEL+22, SEL+24, S2+15, S2+23, S2+27, S2+28, S2+31, S2+35, S2+36, S2+39 , S2+40, S2+42, S2+46, S2+47, S2+49, HDB+3, HDB+4, HDB+5, HDB+7, HDB+8 , HDB+9
ABM("EFFDT"	SEL+36*, S2+13, S2+15, S2+32
ABM("FEE"	FEE+8*, SEL+22, SEL+24, S2+13, S2+15
ABM("HD"	S2+12, S2+13
ABM("LINE"	HDB+10*!
ABM("PG"	S2+11, HDB
ABM("S"	SEL+2, SEL+7, SEL+9, SEL+10, SEL+11, SEL+12, SEL+13, SEL+14, SEL+15, SEL+16 , SEL+17, SEL+18, S2+12
>> ABMCD	S2+17, S2+18, S2+24, S2+25, S2+27, S2+28, S2+32, S2+33, S2+36, S2+43 , S2+44, S2+45, S2+48, S2+49
>> ABMCODE	SEL+21, SEL+22, SEL+24, S2+19, S2+24, S2+27, S2+28, S2+35, S2+37
>> ABMDESC	S2+19, S2+25, S2+32, S2+33, S2+35, S2+36, S2+41
>> ABMEFFDT	SEL+23, SEL+24, SEL+25, SEL+27, SEL+28
>> ABMELST(	SEL+25*, SEL+28
DIC	FEE!, FEE+1*
DIC("A"	FEE+3*
DIC("B"	FEE+4*
DIC(0	FEE+2*
DIR	SEL+1!, SEL+34!, W1+14!
DIR("A"	SEL+3, SEL+32
DIR(0	SEL+2, SEL+31, W1+14*
>> DIROUT	SEL+5, SEL+35, S2+18, S2+20, HD
>> DIRUT	SEL+5
DT	S2+33
>> DTOUT	FEE+6, SEL+35, S2+18, S2+20, HD
>> DUOUT	FEE+6, SEL+35, S2+18, S2+20, HD
DUZ(2	FEE+4
IO	W1+14
IO("S"	W1+15
IO(0	W1+14
ION	W1+15
>> IOP	W1+15*
IOSL	S2+20
>> POP	W1+13
U	ABMDTFED+10*, FEE+4, SEL+7, S2+24, S2+25, S2+27, S2+32, S2+33, S2+35, S2+36 , S2+43, S2+44, S2+45, S2+48, S2+49
>> Y	FEE+7, FEE+8, SEL+6, SEL+7, SEL+36
>> ZTDESC	QUE+10*
>> ZTRTN	QUE+9*
>> ZTSAVE("ABM*"	QUE+11*
ZTSK	QUE+12!, QUE+14

Customize PDF page

Package: Third Party Billing

Routine: ABMDTFED

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
FEE
S2	;start old code abm2.63 FIXPMS10008
PRQUE	;EP - Entry Point for Taskman
XIT
HDB
W1	;EP
QUE	;EP
SEL
HD