Routine: ABMER70A

Information

ABMER70A ; IHS/ASDST/DMJ - UB92 EMC RECORD 70-1 (Medical) cont'd ;

Source file <ABMER70A.m>

Package	Total	Call Graph
Third Party Billing	3	$$DX^ABMCVAPI $$EX^ABMER20 ($$FMT,$$RCID)^ABMERUTL

Package	Total	Caller Graph
Third Party Billing	1	ABMER70

Name	Comments	DBIA/ICR reference
150	;Other Diagnosis Code #11 (SOURCE: FILE=9002274.4017, FIELD=.01)
EX(ABMX,ABMY)
190	;Other Diagnosis Code #15 (SOURCE: FILE=9002274.4017, FIELD=.01)
60	;Other Diagnosis Code #2 (SOURCE: FILE=9002274.4017, FIELD=.01) ; from locator #69
130	;Other Diagnosis Code #9 (SOURCE: FILE=9002274.4017, FIELD=.01)
110	;Other Diagnosis Code #7 (SOURCE: FILE=9002274.4017, FIELD=.01) ; from locator #74
80	;Other Diagnosis Code #4 (SOURCE: FILE=9002274.4017, FIELD=.01) ; from locator #71
170	;Other Diagnosis Code #13 (SOURCE: FILE=9002274.4017, FIELD=.01)
20	;Sequence
40	;Principle Diagnosis Code (SOURCE: FILE=9002274.4017 FIELD=.01) ; from locator #67
180	;Other Diagnosis Code #14 (SOURCE: FILE=9002274.4017, FIELD=.01)
200	;Other Diagnosis Code #16 (SOURCE: FILE=9002274.4017, FIELD=.01)
140	;Other Diagnosis Code #10 (SOURCE: FILE=9002274.4017, FIELD=.01)
120	;Other Diagnosis Code #8 (SOURCE: FILE=9002274.4017, FIELD=.01) ; from locator #75
70	;Other Diagnosis Code #3 (SOURCE: FILE=9002274.4017, FIELD=.01) ; from locator #70
90	;Other Diagnosis Code #5 (SOURCE: FILE=9002274.4017, FIELD=.01) ; from locator #72
100	;Other Diagnosis Code #6 (SOURCE: FILE=9002274.4017, FIELD=.01) ; from locator #73
160	;Other Diagnosis Code #12 (SOURCE: FILE=9002274.4017, FIELD=.01)
10	;Record type
GET17	;GET DIAGNOSES CODES FROM BILL FILE
30	;Patient Control Number, (SOURCE: FILE=9000001.41,FIELD=.02)
50	;Other Diagnosis Code #1 (SOURCE: FILE=9002274.4017, FIELD=.01) ; from locator #68
LOOP	;LOOP HERE

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	GET17+4, GET17+6, GET17+8, GET17+11
^ABMDEXP - [#9002274.08]	GET17+16
^ABMEXLM("AA"	LOOP+3

Name	Line Occurrences
@(	LOOP+2, LOOP+3, EX+8
GET17	40+2, 50+2, 60+2, 70+2, 80+2, 90+2, 100+2, 110+2, 120+2, 130+1 , 140+1, 150+1, 160+1, 170+1, 180+1, 190+1, 200+1

Name	Field # of Occurrence
^(	LOOP+3

Name	Field # of Occurrence
>> ABM(17	40+3, 40+4, 50+3, 50+4, 60+3, 60+4, 70+3, 70+4, 80+3, 80+4 , 90+3, 90+4, 100+3, 100+4, 110+3, 110+4, 120+3, 120+4, 130+2, 130+3 , 140+2, 140+3, 150+2, 150+3, 160+2, 160+3, 170+2, 170+3, 180+2, 180+3 , 190+2, 190+3, 200+2, 200+3, GET17+1, GET17+8, GET17+9, GET17+11, GET17+18, GET17+19*
>> ABMP("BDFN"	30+1, GET17+4, GET17+6, GET17+8, GET17+11
>> ABMP("EXP"	LOOP+3, GET17+11, GET17+16
>> ABMP("FMT"	EX+7, EX+10
>> ABMP("INS"	LOOP+3, GET17+16
>> ABMP("NOFMT"	LOOP+4, EX+7
>> ABMP("VDT"	GET17+9, GET17+16
>> ABMR(70	LOOP+4, 10+1, 20+1, 30+1, 30+2, 40+3, 40+4, 40+6, 50+3, 50+4* , 50+6, 60+3, 60+4, 60+6, 70+3, 70+4, 70+6, 80+3, 80+4, 80+6 , 90+3, 90+4, 90+6, 100+3, 100+4, 100+6, 110+3, 110+4, 110+6, 120+3 , 120+4, 120+6, 130+2, 130+3, 130+5, 140+2, 140+3, 140+5, 150+2, 150+3 , 150+5, 160+2, 160+3, 160+5, 170+2, 170+3, 170+5, 180+2, 180+3, 180+5 , 190+2, 190+3, 190+5, 200+2, 200+3, 200+5, EX+9, EX+11!
>> ABMREC(70	LOOP+4*
ABMX	EX~, EX+8, EX+9, EX+11!
ABMY	EX~, EX+11!
>> CNT	GET17+3, GET17+7, GET17+8, GET17+9, GET17+11, GET17+18
DUZ(2	GET17+4, GET17+6, GET17+8, GET17+11
I	LOOP+1, LOOP+2, LOOP+3, LOOP+4, GET17+2~, GET17+3, GET17+4, GET17+6, GET17+19
J	GET17+2~, GET17+5, GET17+6, GET17+8, GET17+11, GET17+16
U	GET17+8, GET17+9, GET17+11, GET17+16
>> Y	EX+9*, EX+12