Routine: ABMDEMLB

Information

ABMDEMLB ; IHS/ASDST/DMJ - DSD/JLG - Edit Utility - MULTIPLES - PART 3 ;

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE ^DIK ^DIR
Third Party Billing	2	$$HDT^ABMDUTL $$ONE^ABMFEAPI

Package	Total	Caller Graph
Third Party Billing	3	ABMDE9 ABMDEML ABMDEMLE

Name	Comments	DBIA/ICR reference
CONT	;EP for setting Contract Provider procedures to zero
RX	;EP for entering Prescription Number
LAB	;EP for Outside Labs
XIT
D2	;
D3	;
RXW	;EP - for displaying PRESCRIPTION FILE identifiers
D1	; EP - Delete Multiple

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: D2+1
Function Call: WRITE	Prompt: !!,"Either the Attending or Operating Provider's affiliation is Contract, depending",!,"upon local policy, procedures done by a Contract Provider may be unbillable." Line Location: CONT+1
Function Call: WRITE	Prompt: ! Line Location: CONT+2
Function Call: WRITE	Prompt: !!,"============================ OUTSIDE LAB CHARGES ==============================" Line Location: LAB+1
Function Call: WRITE	Prompt: !,"Outside Laboratory activity has occurred for this visit as indicated on Page 3.",!,"If a lab test is indicated as being performed by an outside entity than, the" Line Location: LAB+2
Function Call: WRITE	Prompt: !,"CPT Code for these tests will be appended with a modifier of 90 (outside lab),",!,"and the billing fee will become editable." Line Location: LAB+3
Function Call: WRITE	Prompt: ! Line Location: LAB+4
Function Call: WRITE	Prompt: ! Line Location: RX+2
Function Call: WRITE	Prompt: ?17,$P(^PSDRUG($P(ABMP(0),U,6),0),U),?50,$$HDT^ABMDUTL($P(ABMP(0),U,13)) Line Location: RXW+1
Routine Call	DIE Line Location: D3+9 D3+14 D3+24
Routine Call	DIC Line Location: RX+4
Routine Call	DIR Line Location: D1+8 D2+7 CONT+2 LAB+4

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

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	D3+5, D3+10, D3+19, D3+20
^ICD9 - [#80]	D3+20
^PSDRUG - [#50]	RXW+1

Name	Line Occurrences
D2	D1+1, D1+2
XIT	D1+3, D1+9

Name	Field # of Occurrence
^(0	CONT+5, LAB+9
^(11	CONT+5

Name	Field # of Occurrence
>> ABM	D2+3, D2+4, D2+5, D3+3, D3+4, D3+5, D3+10, D3+17, D3+20, D3+28
>> ABM("I"	D2+3, D3+3
>> ABM("I2"	D3+18*, D3+19, D3+20, D3+23
>> ABMP("CDFN"	D3+5, D3+7, D3+10, D3+12, D3+19, D3+20, D3+22, D3+27
>> ABMP("FEE"	LAB+6, LAB+9
>> ABMP("VDT"	LAB+6, LAB+9
>> ABMP(0	RXW+1
ABMX	XIT!
ABMX("ANS"	D2+4, D2+5, D2+6
ABMX("EDIT"	CONT+2, CONT+4, LAB+6, LAB+7
ABMX("P"	RX+1!
ABMX("Y"	CONT+2, CONT+5, LAB+6, LAB+9
>> ABMXANS	D2+2*, D2+3, D3+3
>> ABMZ(	D2+4, D2+5, D3+4, D3+5, D3+10, D3+17, D3+20, D3+28, CONT+2, CONT+5
>> ABMZ("CAT"	LAB+6, LAB+9
>> ABMZ("CHRG"	CONT+3, LAB+6
>> ABMZ("DIC"	CONT+5
>> ABMZ("DR"	CONT+3, CONT+5, LAB+6, LAB+9
>> ABMZ("ITEM"	D1+4, D1+7
>> ABMZ("MOD"	LAB+6
>> ABMZ("NUM"	D1+1, D1+2, D1+3, D1+6
>> ABMZ("RX"	RX+3
>> ABMZ("SUB"	D3+4, D3+5, D3+10, D3+29
>> DA	D3+7, D3+12, D3+22, D3+28
>> DA(1	D3+27*, D3+29
DIC	RX+2!, RX+3*, RX+4!
DIC("B"	RX+3*
DIC("S"	RX+3*
DIC(0	RX+3*
>> DIE	D3+6, D3+11, D3+21*
>> DIK	D3+29*
DIR	D1+6!, D1+8!, D2+6!, D2+7!, CONT+2!, LAB+4!
DIR("?"	D1+7*
DIR("A"	D1+7, D2+6, CONT+2, LAB+4
DIR("B"	CONT+2*
DIR(0	D1+6, D2+6, CONT+2, LAB+4
>> DIROUT	D1+9, D2+8
>> DIW	RXW+2*
>> DR	D3+8, D3+13, D3+23*
>> DTOUT	D1+9, D2+8
>> DUOUT	D1+9, D2+8
DUZ(2	D3+5, D3+10, D3+19, D3+20
U	D2+4, D2+5, D3+4, D3+5, D3+10, D3+17, D3+19, D3+20, D3+28, CONT+2 , CONT+5, LAB+6, LAB+9, RXW+1
>> Y	D1+1, D1+2, D1+9, D2+2, D3+1, CONT+3, LAB+6