Routine: BAR50PZ1

Information

BAR50PZ1 ; IHS/SD/LSL - AHCCCS IMPORT ROUTINE ;

Source file <BAR50PZ1.m>

Name	Comments	DBIA/ICR reference
ECHECK	;
FILE	;
DT	;EP Conversion of date to readable format
SET	;
SEP	;EP Set seperators
PN	;
ADJREA	;EP Process reason and amount into claim impda,clmda
LOAD	;EP Scan all AHCCCS imports loaded for new reason codes and stuff them ; into the Claim Level Reason Codes table for mapping.
EN	;
END	;
CHKNUM	;EP Enter Check mumber into Import
AHCCCS	;EP enter new table entries for AHCCCS
REASON	;
MAP	;EP repoint the distributed tabled reason pointers to the new ones installed
PAYAMT	;Load Claim data
SET1ADJ	; set one adjustment X\|reason, AMT
1007	;;MISSING FIELD^4^NONPAY
1008	;;DOCUMENTATION REQUIRED^4^NONPAY
PUT	; FILE NEW INTO CLAIM LEVEL MULTIPLE
1006	;;INCORRECT PROVIDER TYPE^4^NONPAY
1005	;;MISSING DATA^4^NONPAY
1004	;;OTHER TPL^4^NONPAY
1003	;;RX PROCESSING FEE^3^WO^123
1002	;;CODING ERROR^4^NONPAY
1001	;;BAD DEBT/COLLECTION AGENCY^3^WO

Name	Line Occurrences
Function Call: WRITE	Prompt: !,X,?15,VBILNM Line Location: PAYAMT+9
Function Call: WRITE	Prompt: "NO BILL NUMBER IN FILE" Line Location: PAYAMT+11
Function Call: WRITE	Prompt: !,FDA0 Line Location: FILE+3
Function Call: WRITE	Prompt: "." Line Location: REASON+2
Function Call: WRITE	Prompt: !,CODE,?10,REA Line Location: PN+4
Function Call: WRITE	Prompt: !,CODE,?10,REA Line Location: SET+5
Routine Call	DIE Line Location: PAYAMT+22 PAYAMT+25 CHKNUM+5
Routine Call	DIC Line Location: SET1ADJ+10

Name	Line Occurrences (* Changed, ! Killed)
^BAREDI("1T" - [#90056.01]	PN+3
^BAREDI("I"	EN+2, FILE+1, REASON+1
^PWTMP("AHC"	PN+5*, PUT+2, SET+3

Name	Field # of Occurrence
^(	REASON+1

Name	Field # of Occurrence
>> %DT	DT+2*
>> ADJDA	PAYAMT+26, SET1ADJ+1, SET1ADJ+5
>> CLMDA	PAYAMT+16*, SET1ADJ+4
>> CODE	PN+1, PN+3, PN+4, PN+5, PUT+1, PUT+2*, SET+2, SET+3, SET+5
>> COUNT	PAYAMT+1, PAYAMT+2, PAYAMT+3*
D0	PAYAMT+14!
DA	PAYAMT+4!, PAYAMT+17, SET1ADJ+2!, CHKNUM+1!, CHKNUM+3, SET+1!
DA(1	PAYAMT+13, SET1ADJ+4, SET+4*
DA(2	SET1ADJ+3*
DD	PAYAMT+14!
DIC	PAYAMT+4!, PAYAMT+5, PAYAMT+18, PAYAMT+19!, SET1ADJ+2!, SET1ADJ+6, SET+1!
DIC("DR"	SET1ADJ+9*
DIC("P"	PAYAMT+7, SET1ADJ+7
DIC(0	PAYAMT+6, SET1ADJ+8
DIE	PAYAMT+4!, PAYAMT+18, SET1ADJ+2!, CHKNUM+1!, CHKNUM+2
DO	PAYAMT+14!
DR	PAYAMT+4!, PAYAMT+20!, PAYAMT+21, PAYAMT+24, SET1ADJ+2!, CHKNUM+1!, CHKNUM+4*, SET+1!
>> E	SEP+1*
>> FDA	EN+1, EN+2, FILE+1, REASON+1
>> FDA0	FILE+1*, FILE+2, FILE+3
>> I	ADJREA+15*, ADJREA+16
>> IMPDA	PAYAMT+13, SET1ADJ+3, CHKNUM+3
>> L	REASON+1*, REASON+2
>> PAT	PAYAMT+23*
>> REA	PN+2, PN+4, PN+5, SET+3, SET+5
>> S	SEP+1*
>> SE	SEP+1*, ADJREA+6, ADJREA+10, ADJREA+15
U	FILE+2
>> VADJAMT	ADJREA+1, ADJREA+16
>> VADJCAT	ADJREA+3*, ADJREA+4, ADJREA+5, ADJREA+6
>> VADJREA	ADJREA+2, ADJREA+6, ADJREA+9, ADJREA+13, ADJREA+18*
>> VBILAMT	ADJREA+1
>> VBILNM	PAYAMT+8, PAYAMT+9
>> VPATFN	PAYAMT+23
>> VPATLN	PAYAMT+23
>> VPATMN	PAYAMT+23
>> VPAYAMT	ADJREA+1
X	DT+1, DT+4, PAYAMT+8, PAYAMT+9, PAYAMT+10, PAYAMT+12, ADJREA+11, ADJREA+13, ADJREA+15, ADJREA+18 , SET1ADJ+2!, SET1ADJ+5, REASON+1, REASON+3, PN+1, PN+2, SET+2*
>> XXX	ADJREA+9*, ADJREA+10, ADJREA+11, ADJREA+15
>> Y	DT+4, PAYAMT+16, PAYAMT+17