Routine: ABMDICST

Package	Total	Call Graph
Third Party Billing	4	INCOM^ABMDRCHK ^ABMDRDBQ ^ABMDRHD ^ABMDRSEL

Name	Comments	DBIA/ICR reference
QPRT	;
EN	;EP - PENDING CLAIMS STATUS REPORT
COMPUTE	;EP - Entry Point for Setting up Data
SLOOP	;EP - LOOP TO PULL PENDING CLAIMS
TEST	;
SEL
DATA	;EP - COMPILE DATA FOR PENDING CLAIM STATUS

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	SLOOP+3, SLOOP+5, SLOOP+7, SLOOP+9, TEST+3, TEST+5, TEST+13, TEST+14, TEST+15*, QPRT+2 , QPRT+4, QPRT+5, QPRT+6, QPRT+7
^ABMPSTAT - [#9002274.33]	TEST+11
^AUPNPAT - [#9000001]	DATA+6
^DIC(4 - [#4]	DATA+7
^DPT - [#2]	DATA+9
^TMP("ABM-ICS"	COMPUTE+1!, DATA+13*
^VA(200 - [#200]	TEST+8

Name	Line Occurrences
DATA	SLOOP+5, SLOOP+9
SLOOP	COMPUTE+2

Name	Field # of Occurrence
ABM	EN+1!, SLOOP+4, SLOOP+5, SLOOP+8, SLOOP+9, DATA+2, DATA+10
ABM("ACTIVE I	NSURER" , DATA+12, DATA+14
ABM("CLINIC"	DATA+4, DATA+11
ABM("DT"	EN+5*
ABM("HD"	SEL+1*
ABM("HRN"	DATA+6*, DATA+10
ABM("L"	EN+7*, DATA+6
ABM("LOCATION	NAME" , DATA+7*, DATA+8, DATA+14
ABM("LOCATION"	DATA+7
ABM("NODX"	SEL*
ABM("PATIENT"	DATA+6, DATA+9
ABM("PG"	COMPUTE+1*
ABM("PS REASO	N" , DATA+11, DATA+14
ABM("PS UPDAT	ER" , DATA+12, DATA+14
ABM("RD"	SLOOP+2, SLOOP+3, SLOOP+5
ABM("REASON"	EN+9*
ABM("RTYP"	EN+2*, SEL+4
ABM("SORT"	EN+6, DATA+4, DATA+5*, DATA+8, DATA+14
ABM("ST"	DATA+14*
ABM("STA"	EN+3, EN+8, COMPUTE+1
ABM("SUBR"	COMPUTE+1*
ABM("VISIT DA	TE" , DATA+11
ABM("VISIT TY	PE" , DATA+4, DATA+10
>> ABMP	SLOOP+6, SLOOP+7, SLOOP+9
>> ABMP("HIT"	DATA+1*, DATA+3
>> ABMQ("NS"	SEL+3*
>> ABMQ("RC"	SEL+3*
>> ABMQ("RP"	SEL+4*
>> ABMQ("RX"	SEL+3*
ABMY	EN+1!, DATA+2
ABMY("DT"	SLOOP+1, SLOOP+2, SLOOP+3
ABMY("SORT"	DATA+4
>> CLAIM	TEST+4, TEST+5, TEST+13, TEST+14, TEST+15, TEST+16, QPRT+3, QPRT+4, QPRT+5, QPRT+6 , QPRT+7
>> CNT	TEST+1, TEST+4, TEST+5, TEST+12*
>> DIROUT	SEL
>> DTOUT	SEL
>> DUOUT	SEL
DUZ(2	EN+7, SLOOP+3, SLOOP+5, SLOOP+7, SLOOP+9
>> FAC	TEST+2, TEST+3, TEST+5, TEST+13, TEST+14, TEST+15, TEST+16, QPRT+1, QPRT+2, QPRT+4 , QPRT+5, QPRT+6, QPRT+7
>> RANDUZ	TEST+6*, TEST+7, TEST+8, TEST+14
>> RANREAS	TEST+9*, TEST+10, TEST+11, TEST+15
>> SUBSCRIP	DATA+8, DATA+9, DATA+10, DATA+11, DATA+12*, DATA+13
U	DATA+6, DATA+7, DATA+8, DATA+9, DATA+10, DATA+11, DATA+12, TEST+13, TEST+14, TEST+15 , QPRT+5, QPRT+6, QPRT+7

Information