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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ABMER30

Package: Third Party Billing

Routine: ABMER30


Information

ABMER30 ; IHS/SD/SDR - UB92 EMC RECORD 30 (Third Party Payor) ;

Source Information

Source file <ABMER30.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Third Party Billing 4 ^ABMER30A  ^ABMER31  ISET^ABMERINS  ($$FMT,$$RCID,PAYED,S90,SET)^ABMERUTL  
VA Fileman 1 EN^DIQ1  

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Third Party Billing 9 ABMDF11X  ABMDF11Y  ABMDF28R  ABMDF28X  ABMDF51X  ABMDF51Y  ABMEF10  ABMEF13  
ABMEF16  
Local Area Programs 1 AZAXSND  
Phoenix Devel Center 1 AZXDF11X  

Entry Points

Name Comments DBIA/ICR reference
200 ;EP - Covered Days (SOURCE: FILE=9002274.4, FIELD=.73)
; form locator #7
210 ;EP - Non-Covered Days (SOURCE: FILE=9002274.4 FIELD=.66)
; form locator #8
230 ;EP - Lifetime Reserve Days (SOURCE: FILE=9002274.4, FIELD=.68)
; form locator #10
DIQ2 ;POLICY HOLDER INFORMATION
190 ;EP - Employment Status Code (SOURCE: FILE=9000003.1, FIELD=.15)
DIQ1 ;PULL BILL DATA VIA DIQ1
START ;START HERE
180 ;EP - Patient's Relationship to Insured (SOURCE: FILE=, FIELD=)
; form locator #59
260 ;EP - Estimated Third Party Amount Due (SOURCE: FILE= FIELD=)
; form locator #55
240 ;EP - Provider I.D. Number
; form locator #51
DIQ3 ;PATIENT IS INSURED
LOOP2 ;LOOP HERE
250 ;EP - Third Party Payments Received (SOURCE: FILE= FIELD=)
; form locator #54
220 ;EP - Coinsurance Days (SOURCE: FILE=9002274.4, FIELD=.67)
; form locator #9
160 ;EP - Release Code (SOURCE: FILE=9002274.4 FIELD=.74)
; form locator #52
EX(ABMX,ABMY,ABMZ) ;EXTRINSIC FUNCTION HERE
LOOP ;FIRST LOOP
; Loop thru INS priorities
170 ;EP - Benefits Assigned Indicator (SOURCE: FILE=9002274.4, FIELD=.75)
; form locator #53

External References

Name Field # of Occurrence
^ABMER30A LOOP2+1
^ABMER31 LOOP+11
ISET^ABMERINS LOOP+8, EX+13
$$FMT^ABMERUTL 160+5, 170+5, 180+5, 190+12, 200+5, 210+5, 220+5, 230+5, 240+9, 250+6
, 260+8
$$RCID^ABMERUTL LOOP+13
PAYED^ABMERUTL 250+2, 260+2
S90^ABMERUTL LOOP+10
SET^ABMERUTL START+3, EX+9
EN^DIQ1 DIQ1+8, DIQ2+9, DIQ3+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUPN3PPH - [#9000003.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDBILL( 250+5, 260+5, 260+6, EX+11
^ABMEXLM("AA" LOOP2+4
^ABMNINS( 180+2, 240+2, 240+3
^AUTNINS - [#9999999.18] 240+4, 240+5
^AUTTLOC - [#9999999.06] 240+7

Label References

Name Line Occurrences
@( LOOP2+3, LOOP2+4, EX+15
DIQ1 160+3, 170+3, 200+3, 210+3, 220+3, 230+3
DIQ2 190+9
DIQ3 190+4
LOOP START+3
LOOP2 LOOP+9

Naked Globals

Name Field # of Occurrence
^( LOOP2+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABM START+1!, START+4!, EX+18!
ABM( 160+4, 170+4, 190+10, 200+4, 210+4, 220+4, 230+4, DIQ1+1, DIQ2+2
ABM(9000001 190+5, DIQ3+1
ABME START+1!, START+4!, EX+18!
ABME("FLD" 160+2*, 170+2*, 190+3*, 190+8*, 200+2*, 210+2*, 220+2*, 230+2*, DIQ1+1, DIQ2+2
, DIQ3+1
ABME("INS" LOOP+4*, LOOP+13, 240+2, 240+3, 240+4, 240+5, 250+3, 260+5, EX+10*, EX+11
ABME("INSIEN" LOOP+5*, 260+5
ABME("ITYPE" 240+6, 250+5
ABME("PH" 180+3, 180+4, 190+7, 190+10, DIQ2+1, DIQ2+2, DIQ2+7
ABME("PPP" 190+2, 190+5
ABME("REL" 180+4
ABME("RTYPE" LOOP+6*
ABME("S#" LOOP+2*, LOOP+3*, LOOP+4, LOOP+5, LOOP+13*, LOOP2+5, EX+12*
>> ABMP("BDFN" 160+4, 170+4, 200+4, 210+4, 220+4, 230+4, 250+5, 260+5, 260+6, DIQ1+1
, DIQ1+6, EX+8*, EX+11
>> ABMP("EXP" LOOP2+4
>> ABMP("FMT" EX+14*, EX+17*
>> ABMP("INS" LOOP+3, LOOP+4, LOOP+5, LOOP2+4, 180+2, 260+5
>> ABMP("LDFN" 180+2, 240+2, 240+5, 240+7
>> ABMP("NOFMT" LOOP2+5, EX+14
>> ABMP("PAYED" START+1!, 250+2, 250+3, 260+2
>> ABMP("PDFN" DIQ3+1, DIQ3+6
>> ABMP("SET" START+2!
>> ABMP("VTYP" 180+2, 240+2, 240+3, 240+4
>> ABMPBAL 260+7*
>> ABMR(30 LOOP+7!, LOOP2+5, 160+4*, 160+5*, 170+4*, 170+5*, 180+3*, 180+4*, 180+5*, 190+1*
, 190+5*, 190+7, 190+10*, 190+12*, 200+4*, 200+5*, 210+4*, 210+5*, 220+4*, 220+5*
, 230+4*, 230+5*, 240+2*, 240+3*, 240+4*, 240+5*, 240+7*, 240+8*, 240+9*, 250+3*
, 250+5*, 250+6*, 260+3*, 260+6*, 260+7, 260+8*, EX+16, EX+18!
>> ABMR(31 LOOP+7!
>> ABMREC(30 START+1!, LOOP2+5*
>> ABMREC(31 START+1!
>> ABMRELC 180+2*, 180+3
ABMX EX~, EX+15, EX+16, EX+18!
ABMY EX~, EX+8, EX+18!
ABMZ EX~, EX+10, EX+18!
>> DA DIQ1+6*, DIQ2+7*, DIQ3+6*
>> DIC DIQ1+5*, DIQ2+6*, DIQ3+5*
DIQ DIQ1+3*, DIQ1+9!, DIQ2+4*, DIQ2+10!, DIQ3+3*, DIQ3+9!
DIQ(0 DIQ1+4*, DIQ2+5*, DIQ3+4*
>> DR DIQ1+7*, DIQ2+8*, DIQ3+7*
DUZ(2 240+3, 250+5, 260+5, 260+6, EX+11
I LOOP2+2*, LOOP2+3, LOOP2+4, LOOP2+5, DIQ1+2~, DIQ2+3~, DIQ3+2~
U 180+2, 260+6
>> Y EX+11*, EX+16*, EX+19
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All