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: ABMER60

Package: Third Party Billing

Routine: ABMER60


Information

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

Source Information

Source file <ABMER60.m>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Third Party Billing 10 ABME3FA0  ABME561  ABME661  ABMEE61  ABMEF10  ABMEF13  ABMEF16  ABMEFA0  
ABMEH61  ABMER61  
Local Area Programs 1 AZAXSND  

Entry Points

Name Comments DBIA/ICR reference
10 ;Record type
20 ;Sequence
120 ;Filler (National Use)
30 ;Patient Control Number, (SOURCE: FILE=9000001.41,FIELD=.02)
50 ;HCPCS Procedure Code 1
40 ;Outpatient Revenue Code 1 (SOURCE: FILE=, FIELD=)
EX(ABMX,ABMY,ABMZ) ;EXTRINSIC FUNCTION HERE
60 ;Modifier 1 (CPT-4 and HCPCS) 1 (SOURCE: FILE=, FIELD=)
START ;START HERE
ADD ;ADD TO RECORD
ADTT ; EP
; Add to totals
110 ;Form Locator 49 1 (SOURCE: FILE= FIELD=)
70 ;Modifier 2 (CPT-4 and HCPCS) 1 (SOURCE: FILE=, FIELD=)
90 ;Charges Total 1 (SOURCE: FILE= FIELD=)
80 ;Units of Service 1 (SOURCE: FILE= FIELD=)
100 ;Charges Non-Covered 1
LOOP ;LOOP HERE

External References

Name Field # of Occurrence
FRATE^ABMDF11 START+9
$$ENVOY^ABMEF16 START+5
$$EX^ABMER20 30+1
^ABMERGRV START+10
$$FMT^ABMERUTL 20+2, 30+2, 40+2, 50+2, 60+2, 70+2, 80+2, 90+2, 100+2, 110+2
, 120+2
$$RCID^ABMERUTL LOOP+1
S90^ABMERUTL START+12
SET^ABMERUTL START+8, EX+2

Label References

Name Line Occurrences
@( LOOP+10, LOOP+11, EX+4
ADD LOOP+10, LOOP+11
ADTT LOOP+15
LOOP START+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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