Routine: ABMEH63

Package	Total	Call Graph
Third Party Billing	3	($$FNM,$$LNM,$$MI,$$UPIN)^ABMEEPRV WRITE^ABMEF19 ($$FMT,S90,SET)^ABMERUTL
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Third Party Billing	1	ABMEH61

Entry Points

Name	Comments	DBIA/ICR reference
150	;189^12^X^RENDERING PROVIDER FIRST NAME
210	;250^15^X^SUPERVISING PROVIDER NPI
190	;237^12^X^SUPERVISING PROVIDER FIRST NAME
TOS()	;EP - type of service (where x=multiple from 3P Bill File) ; Called from ABMEH61 and put here because we have $S well <10000 ; Modified from TOS^ABMERUTL - some added precision ; We have J, K, and ABMRV(J,K)
60	;73^20^X^ORDERING PROVIDER LAST NAME
TOSTSTL	; Loop to test all
130	;154^15^X^REFERRING PROVIDER UPIN
110	;141^12^X^REFERRING PROVIDER FIRST NAME
80	;105^1^X^ORDERING PROVIDER MI
230	;280^20^X^FILLER-FB1-280
250	;315^6^X^FILLER-FB1-315
170	;202^15^X^RENDERING PROVIDER UPIN
20	;4-5 Sequence
TOSTST(CPT,J)	; devel - test $$TOS logic
40	;23-39 Line Item Control #
180	;217^20^X^SUPERVISING PROVIDER LAST NAME
200	;249^1^X^SUPERVISING PROVIDER MI
140	;169^20^X^RENDERING PROVIDER LAST NAME
120	;153^1^X^REFERRING PROVIDER MI
START	;START HERE
240	;300^15^X^RENDERING PROVIDER NETWORK ID (ENVOY SPECIAL)
70	;93^12^X^ORDERING PROVIDER FIRST NAME
90	;106^15^X^ORDERING PROVIDER UPIN
100	;121^20^X^REFERRING PROVIDER LAST NAME
160	;201^1^X^RENDERING PROVIDER MI
220	;265^15^X^SUPERVISING PROVIDER UPIN
10	;1-3 Record type
30	;6-22 Patient Control Number
50	;40^33^X^PLACE OF SVC NAME
EX(ABMX,ABMY,ABMZ)	;EXTRINSIC FUNCTION HERE
LOOP	;LOOP HERE

External References

Name	Field # of Occurrence
$$FNM^ABMEEPRV	150+1
$$LNM^ABMEEPRV	140+1
$$MI^ABMEEPRV	160+1
$$UPIN^ABMEEPRV	170+1
WRITE^ABMEF19	START+5
$$FMT^ABMERUTL	20+2, 30+2, 40+2, 50+2, 60+2, 70+2, 80+2, 90+2, 100+2, 110+2 , 120+2, 130+2, 140+3, 150+3, 160+3, 170+3, 180+2, 190+2, 200+2, 210+2 , 220+2, 230+2, 240+2, 250+2
S90^ABMERUTL	START+3
SET^ABMERUTL	EX+2
$$GET1^DIQ	TOSTST+5, TOSTST+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "CPT=",CPT Line Location: TOSTST+1
Function Call: WRITE	Prompt: " " Line Location: TOSTST+2
Function Call: WRITE	Prompt: $$GET1^DIQ(81,X_",","SHORT NAME") Line Location: TOSTST+5
Function Call: WRITE	Prompt: " ",$$GET1^DIQ(81,X_",","CPT CATEGORY") Line Location: TOSTST+6
Function Call: WRITE	Prompt: " -> TOS=" Line Location: TOSTST+7
Function Call: WRITE	Prompt: $$TOS,! Line Location: TOSTST+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ICPT - [#81]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMEXLM("AA"	LOOP+7
^DIC(81.1 - [#81.1]	TOS+16, TOS+19
^ICPT - [#81]	TOS+8
^ICPT("B"	TOSTSTL+3, TOSTST+4, TOS+7

Label References

Name	Line Occurrences
$$TOS	TOSTST+10
@(	LOOP+6, LOOP+7, EX+4
LOOP	START+2
TOSTST	TOSTSTL+1, TOSTSTL+3

Naked Globals

Name	Field # of Occurrence
^(	LOOP+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABM	EX+7!
>> ABMAPRV	LOOP+3
ABME	EX+7!
ABME("RTYPE"	START+3*
ABME("S#"	20+1
>> ABMEF("LINE"	START+4*
ABMEH63	LOOP+1~
ABMEH63("RENDERING"	LOOP+4*, 140+1, 150+1, 160+1, 170+1
>> ABMP("BDFN"	EX+2*
>> ABMP("EXP"	LOOP+7
>> ABMP("FMT"	EX+3, EX+6
>> ABMP("INS"	LOOP+7
>> ABMP("NOFMT"	LOOP+8, EX+3
>> ABMP("PCN"	30+1
>> ABMR(63	START+1!, LOOP+8, 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, 130+1, 130+2, 140+1, 140+2, 140+3 , 150+1, 150+2, 150+3, 160+1, 160+2, 160+3, 170+1, 170+2, 170+3, 180+1 , 180+2, 190+1, 190+2, 200+1, 200+2, 210+1, 210+2, 220+1, 220+2, 230+1 , 230+2, 240+1, 240+2, 250+1, 250+2*, EX+5, EX+7!
>> ABMREC(63	START+1!, START+4, LOOP+8*
ABMRV	TOSTST+9~
ABMRV(	LOOP+3, TOSTST+9*, TOS+4
ABMX	EX~, EX+4, EX+5, EX+7!
ABMY	EX~, EX+2, EX+7!
ABMZ	EX~, EX+7!
CAT	TOS+15~*, TOS+16
CPT	TOSTST~, TOSTST+1, TOSTST+3, TOSTST+4, TOSTST+9, TOS+4~*, TOS+5, TOS+6, TOS+7
>> CPTD0	TOS+7*, TOS+8
>> I	LOOP+5*, LOOP+6, LOOP+7, LOOP+8
J	LOOP+3, TOSTST~, TOSTST+8*, TOSTST+9, TOS+4, TOS+26, TOS+27, TOS+28, TOS+29, TOS+30
K	LOOP+3, TOSTST+9~*, TOS+4
>> L	LOOP+3, TOSTST+9, TOS+4
MAJ	TOS+18~*, TOS+19
TOS	TOS+4~, TOS+5, TOS+6, TOS+9, TOS+10, TOS+11, TOS+12, TOS+13, TOS+14, TOS+20* , TOS+21, TOS+22, TOS+23, TOS+24
U	LOOP+3, TOSTST+9, TOS+4, TOS+15, TOS+17, TOS+18
X	LOOP+3~, LOOP+4, TOSTSTL+2~, TOSTSTL+3, TOSTST+4~, TOSTST+5, TOSTST+6, TOS+8~, TOS+9, TOS+10 , TOS+11, TOS+12, TOS+13, TOS+14, TOS+15, TOS+16, TOS+17, TOS+18, TOS+19, TOS+20 , TOS+21, TOS+22, TOS+23, TOS+24
>> Y	EX+5*, EX+8

Customize PDF page

Package: Third Party Billing

Routine: ABMEH63

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: