Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ABME660

Package: Third Party Billing

Routine: ABME660


Information

ABME660 ; IHS/ASDST/DMJ - UB92 EMC RECORD 60 (Inpatient Ancillary Services) ;

Source Information

Source file <ABME660.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Third Party Billing 4 FRATE^ABMDF11  $$EX^ABMER20  ^ABMERGRV  ($$FMT,S90,SET)^ABMERUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Third Party Billing 1 ABMEF17  

Entry Points

Name Comments DBIA/ICR reference
10 ;1-2 Record type
ADTT ; EP
; Add to totals
20 ;3-5 Sequence
120 ;72-79 Assessment Date (CCYYMMDD)
30 ;6-25 Patient Control Number, (SOURCE: FILE=9000001.41,FIELD=.02)
50 ;32-36 HCPCS Procedure Code 1
35 ;26-27 Filler (National Use)
EX(ABMX,ABMY,ABMZ) ;EXTRINSIC FUNCTION HERE
60 ;37-38 Modifier 1 (CPT-4 and HCPCS) 1
START ;START HERE
ADD ;ADD TO RECORD
130 ;80-82 Filler (National Use)
40 ;28-31 Outpatient Revenue Code 1
70 ;39-40 Modifier 2 (CPT-4 and HCPCS) 1
90 ;48-57 Charges Total 1
80 ;41-47 Units of Service 1
100 ;58-67 Charges Non-Covered 1
LOOP ;LOOP HERE
110 ;68-71 Form Locator 49 1

External References

Name Field # of Occurrence
FRATE^ABMDF11 START+4
$$EX^ABMER20 30+1
^ABMERGRV START+5
$$FMT^ABMERUTL 20+2, 30+2, 35+2, 40+2, 50+2, 60+2, 70+2, 80+2, 90+2, 100+2
, 110+2, 120+2, 130+2
S90^ABMERUTL START+7
SET^ABMERUTL START+3, EX+2

Label References

Name Line Occurrences
@( LOOP+8, LOOP+9, EX+4
ADD LOOP+8, LOOP+9
ADTT LOOP+13
LOOP START+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABM START+8!, EX+7!
ABM("ACTOT" LOOP+11*, ADTT+2, ADTT+4, ADTT+6
ABM("NCTOT" LOOP+12*, ADTT+3, ADTT+5, ADTT+7
ABME START+8!, EX+7!
ABME("RTYPE" START+2*
ABME("S#" START+2*, LOOP+7*, LOOP+14, LOOP+15, ADD+1, 20+1
>> ABMP("BDFN" 30+1, EX+2*
>> ABMP("FLAT" START+4!
>> ABMP("FMT" EX+3*, EX+6*
>> ABMP("NOFMT" LOOP+14, ADD+1, EX+3
>> ABMR(60 START+1!, ADD+1, 10+1*, 20+1*, 20+2*, 30+1*, 30+2*, 35+1*, 35+2*, 40+1*
, 40+2*, 50+1*, 50+2*, 60+1*, 60+2*, 70+1*, 70+2*, 80+1*, 80+2*, 90+1*
, 90+2*, 100+1*, 100+2*, 110+1*, 110+2*, 120+1*, 120+2*, 130+1*, 130+2*, EX+5
, EX+7!
>> ABMREC(60 START+1!, START+7, LOOP+14, LOOP+15*, ADD+1*
>> ABMRT(90 ADTT+2*, ADTT+3*
>> ABMRT(95 ADTT+4*, ADTT+5*
>> ABMRT(99 ADTT+6*, ADTT+7*
ABMRV START+8!
ABMRV( LOOP+2, LOOP+3, LOOP+5, LOOP+11, LOOP+12, 40+1, 50+1, 60+1, 70+1, 80+1
, 90+1
ABMX EX~, EX+4, EX+5, EX+7!
ABMY EX~, EX+2, EX+7!
ABMZ EX~, EX+7!
>> I LOOP+8*, LOOP+9*, ADD+1
>> J LOOP+2*, LOOP+3, LOOP+5, LOOP+10, LOOP+11, LOOP+12, 40+1, 50+1, 60+1, 70+1
, 80+1, 90+1
>> K LOOP+3*, LOOP+5, LOOP+11, LOOP+12, 40+1, 50+1, 60+1, 70+1, 80+1, 90+1
>> L START+7*, LOOP+1*, LOOP+6*
>> M LOOP+4*, LOOP+5*, LOOP+11, LOOP+12, 40+1, 50+1, 60+1, 70+1, 80+1, 90+1
U LOOP+11, LOOP+12, 40+1, 50+1, 60+1, 70+1, 80+1, 90+1
>> Y EX+5*, EX+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Label References |  Local Variables |  All