Routine: BPSOS57

Information

BPSOS57 ;BHAM ISC/FCS/DRS/FLS - BPS Log of Transactions Utils ;06/01/2004

Source file <BPSOS57.m>

Name	Comments	DBIA/ICR reference
DRGDFN()	; EP - BPS Log of Transaction field
DRGNAME()	; EP - BPS Log of Transaction field
RELDATE()	;EP - BPS Log of Transaction field
RXI()
RXR()
NDC()
QTY()
AMT()
CHG()
INSIEN()
PATIENT()
HRN()	; Health record number and facility abbreviation ; Called by BPS Log of Transaction field
USER()
NOW()
ISREVERS(N)	;EP - BPSOSIY ; Returns reversal claim #, else false
REVACC(N)	;EP - BPSOSIY ; was this an accepted reversal? return true or false ; Treat Duplicate of Accepted Reversal ("S") as accepted
REVRESP(N)	;
POSITION()	; return pointer to position within claim (D1)
IEN02()	; return pointer to claim
IEN03()	; return pointer to response
REVIEN02()	; return pointer to reversal claim
REVIEN03()	; return pointer to reversal response
FIELD(F,REV)	; EP - BPS Log of Transaction fields ; Retrieve field F from claim or response - Given IEN57 ; Returns value ; Special for reject codes: F=511 gets ","-delimited string of codes ; F=511.01 gets first code, F=511.02 gets second one, etc.
REJCODES	; rejection codes for IEN03 ; X = ","-delimited string of two-char codes ; X(j)=code_" "_description
STRIPID	; some fields have two-character field ID
MONEY	; some fields are money fields in signed overpunch format
OTHER	; other special conversions