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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ABMER70

Package: Third Party Billing

Routine: ABMER70


Information

ABMER70 ; IHS/ASDST/DMJ - UB92 EMC RECORD 70-1 (Medical) ;

Source Information

Source file <ABMER70.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Third Party Billing 3 ($$CPT,$$DX,$$ICDOP)^ABMCVAPI  ^ABMER70A  ($$FMT,DFMT,S90,SET)^ABMERUTL  
VA Fileman 1 EN^DIQ1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Local Area Programs 1 AZAXSND  
Third Party Billing 1 ABMEF10  

Entry Points

Name Comments DBIA/ICR reference
150 ;Other Surgical Procedure Code #1 (SOURCE: FILE=9002274.4)
; form locator #81
210 ;Other Surgical Procedure Code #4 (SOURCE: FILE=9002274.4)
; form locator #81
EX(ABMX,ABMY) ;EXTRINSIC FUNCTION HERE
190 ;Other Surgical Procedure Code #3 (SOURCE: FILE=9002274.4)
; form locator #81
270 ;Procedure Coding Method Used (SOURCE: FILE=9999999.18, FIELD=)
; form locator #79
POA(ABMDX) ;EP
130 ;Principle Surgical Procedure Code (SOURCE: FILE=9002274.4 FIELD=)
; form locator #80
250 ;Admitting Diagnosis (SOURCE: FILE=9002274.4, FIELD=.59)
; form locator #76
230 ;Other Surgical Procedure Code #5 (SOURCE: FILE=9002274.4)
; form locator #81
170 ;Other Surgical Procedure Code #2 (SOURCE: FILE=9002274.4)
; form locator #81
180 ;Other Surgical Procedure Date #2 (SOURCE: FILE=9002274.4)
; form locator #81
SCODE ;SURGICAL PROCEDURE CODES
280 ;Filler
200 ;Other Surgical Procedure Date #3 (SOURCE: FILE=9002274.4)
; form locator #81
140 ;Principle Surgical Procedure Date (SOURCE: FILE=9002274.4 FIELD=)
; form locator #80
300 ;External Cause of Injury (3) (SOURCE: FILE=9002274.4, FIELD=)
; form locator #77
START ;START HERE
260 ;External Cause of Injury (SOURCE: FILE=9002274.4, FIELD=)
; form locator #77
240 ;Other Surgical Procedure Date #5 (SOURCE: FILE=9002274.4)
; form locator #81
160 ;Other Surgical Procedure Date #1 (SOURCE: FILE=9002274.4)
; form locator #81
220 ;Other Surgical Procedure Date #4 (SOURCE: FILE=9002274.4)
; form locator #81
DIQ1 ;GET INFO FROM FILE 9002274.4
LOOP ;LOOP HERE
290 ;External Cause of Injury (2) (SOURCE: FILE=9002274.4, FIELD=)
; form locator #77

External References

Name Field # of Occurrence
$$CPT^ABMCVAPI SCODE+32
$$DX^ABMCVAPI 260+4, 290+4, 300+4
$$ICDOP^ABMCVAPI SCODE+9, SCODE+28
^ABMER70A LOOP+1
$$FMT^ABMERUTL 130+4, 140+4, 150+4, 160+6, 170+4, 180+6, 190+4, 200+6, 210+4, 220+6
, 230+4, 240+6, 250+6, 260+8, 270+4, 280+2, 290+8, 300+8
DFMT^ABMERUTL 140+3, 160+4, 180+4, 200+4, 220+4, 240+4
S90^ABMERUTL START+4
SET^ABMERUTL START+3
EN^DIQ1 DIQ1+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDBILL( 260+2, 270+2, 290+2, 300+2, SCODE+4, SCODE+6, SCODE+8, SCODE+20, SCODE+24, SCODE+26
, POA+4, POA+5
^ABMDEXP - [#9002274.08] SCODE+10, SCODE+29
^ABMEXLM("AA" LOOP+4
^ABMNINS( 270+3, SCODE+16
^ICD9 - [#80] POA+5

Label References

Name Line Occurrences
$$POA 260+5, 290+5, 300+5
@( LOOP+3, LOOP+4, EX+8
DIQ1 250+2
LOOP START+3
SCODE 130+2, 140+2, 150+2, 160+2, 170+2, 180+2, 190+2, 200+2, 210+2, 220+2
, 230+2, 240+2

Naked Globals

Name Field # of Occurrence
^( LOOP+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABM START+5!
ABM( 250+2, 250+3
ABM("SC" 130+3, 140+3, 150+3, 160+3, 170+3, 180+3, 190+3, 200+3, 210+3, 220+3
, 230+3, 240+3, SCODE+1, SCODE+9*, SCODE+11*, SCODE+12*, SCODE+13, SCODE+28*, SCODE+30*, SCODE+32*
, SCODE+33*
ABM("SUB" SCODE+16*, SCODE+20, SCODE+24, SCODE+26, SCODE+27, SCODE+32
ABM("ZERO" SCODE+8*, SCODE+9, SCODE+26*, SCODE+28, SCODE+32
ABMDX POA~, POA+5
ABME START+5!
ABME("RTYPE" START+2*
>> ABMP("BDFN" 250+2, 250+3, 260+2, 270+2, 290+2, 300+2, SCODE+4, SCODE+6, SCODE+8, SCODE+20
, SCODE+24, SCODE+26, DIQ1+2, POA+4, POA+5
>> ABMP("EXP" LOOP+4, SCODE+10, SCODE+29
>> ABMP("FMT" EX+7*, EX+10*
>> ABMP("INS" LOOP+4, 270+3, SCODE+16
>> ABMP("NOFMT" LOOP+5, EX+7
>> ABMP("VDT" 260+4, 290+4, 300+4, SCODE+9, SCODE+28, SCODE+32
>> ABMP("VTYP" 270+3, SCODE+16
>> ABMR(70 START+1!, LOOP+5, 130+3*, 130+4*, 140+3*, 140+4*, 150+3*, 150+4*, 160+5*, 160+6*
, 170+3*, 170+4*, 180+5*, 180+6*, 190+3*, 190+4*, 200+5*, 200+6*, 210+3*, 210+4*
, 220+5*, 220+6*, 230+3*, 230+4*, 240+5*, 240+6*, 250+3*, 250+4*, 250+6*, 260+2*
, 260+4*, 260+5*, 260+6*, 260+8*, 270+2*, 270+3*, 270+4*, 280+1*, 280+2*, 290+2*
, 290+4*, 290+5*, 290+6*, 290+8*, 300+2*, 300+4*, 300+5*, 300+6*, 300+8*, EX+9
, EX+11!
>> ABMREC(70 START+1!, LOOP+5*
>> ABMRPOA POA+3*, POA+5*, POA+6
ABMX EX~, EX+8, EX+9, EX+11!
ABMY EX~, EX+11!
>> CNT SCODE+3*, SCODE+7*, SCODE+9, SCODE+11, SCODE+18*, SCODE+25*, SCODE+28, SCODE+30, SCODE+32
>> DA DIQ1+2*
>> DIC DIQ1+6*
DIQ DIQ1+4*, DIQ1+8!
DIQ(0 DIQ1+5*
>> DR DIQ1+3*
DUZ(2 260+2, 270+2, 270+3, 290+2, 300+2, SCODE+4, SCODE+6, SCODE+8, SCODE+16, SCODE+20
, SCODE+24, SCODE+26, POA+4, POA+5
I LOOP+2*, LOOP+3, LOOP+4, LOOP+5, SCODE+2~, SCODE+3*, SCODE+4*, SCODE+6, SCODE+12*, SCODE+17~
, SCODE+18*, SCODE+20*, SCODE+24, SCODE+33*, DIQ1+1~, POA+1~, POA+2*, POA+4*, POA+5
J SCODE+5*, SCODE+6*, SCODE+8, SCODE+21~, SCODE+22*, SCODE+24*, SCODE+26
U 130+3, 150+3, 170+3, 190+3, 210+3, 230+3, 260+4, 270+3, 290+2, 290+4
, 300+2, 300+4, SCODE+9, SCODE+10, SCODE+28, SCODE+32, POA+5
>> Y 140+3*, 160+3*, 160+5, 180+3*, 180+5, 200+3*, 200+5, 220+3*, 220+5, 240+3*
, 240+5, EX+9*, EX+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All