BPSOS57 ;BHAM ISC/FCS/DRS/FLS - BPS Log of Transactions Utils ;06/01/2004
Source file <BPSOS57.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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
|
FileNo | Call Tags |
---|---|
^BPSC - [#9002313.02] | GET1^DIQ |
9002313.0201 | GET1^DIQ |
^BPSR - [#9002313.03] | GET1^DIQ |
9002313.0301 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BPSF(9002313.93 - [#9002313.93] | REJCODES+7, REJCODES+8 |
^BPSR - [#9002313.03] | REJCODES+5, REJCODES+6 |
^BPSTL - [#9002313.57] | RXI, RXR, NDC, QTY, AMT, CHG, INSIEN, PATIENT, USER, ISREVERS+2 , REVRESP+1, POSITION+1, IEN02+1, IEN03+1, REVIEN02+1, REVIEN03+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | NOW~ |
%H | NOW~ |
%I | NOW~ |
A | REJCODES+6~*, REJCODES+7*, REJCODES+8*, REJCODES+9, REJCODES+10 |
>> D0 | FIELD+5 |
DUZ | USER |
F | FIELD~, FIELD+11, FIELD+12, FIELD+15, FIELD+16, FIELD+17, FIELD+18, FIELD+19, STRIPID+1, STRIPID+2 , STRIPID+3, MONEY+1, MONEY+2, MONEY+3, OTHER+1 |
I | REJCODES+4~*, REJCODES+5*, REJCODES+6 |
IEN02 | FIELD+5~, FIELD+6*, FIELD+7*, FIELD+10, FIELD+15, FIELD+16 |
IEN03 | FIELD+5~, FIELD+6*, FIELD+7*, FIELD+12, FIELD+17, FIELD+19, REJCODES+5, REJCODES+6 |
IEN57 | RXI, RXR, NDC, QTY, AMT, CHG, INSIEN, PATIENT, USER, POSITION+1 , IEN02+1, IEN03+1, REVIEN02+1, REVIEN03+1, FIELD+5~* |
J | REJCODES+4~*, REJCODES+10* |
N | ISREVERS~, ISREVERS+2, REVACC~, REVACC+4, REVRESP~, REVRESP+1 |
POS | FIELD+5~, FIELD+6*, FIELD+11, FIELD+16, FIELD+19, REJCODES+5, REJCODES+6 |
RESP | REVRESP+1~*, REVRESP+2, REVRESP+3 |
REV | FIELD~, FIELD+7 |
RXI | DRGDFN+1~, DRGDFN+2*, DRGDFN+3, DRGDFN+4, DRGNAME+1~, DRGNAME+2*, DRGNAME+3, DRGNAME+4, RELDATE+1~, RELDATE+2* , RELDATE+3, RELDATE+4, RELDATE+5 |
RXR | RELDATE+1~, RELDATE+2*, RELDATE+4 |
U | RXI, RXR, NDC, QTY, AMT, CHG, INSIEN, PATIENT, USER, ISREVERS+3 , REVRESP+1, POSITION+1, IEN02+1, IEN03+1, REVIEN02+1, REVIEN03+1, REJCODES+6, REJCODES+9, REJCODES+10 |
X | USER~*, NOW~, ISREVERS+2~*, ISREVERS+3, REVACC+3~, REVACC+4*, REVACC+5, REVRESP+3~*, REVRESP+4, FIELD+5~ , FIELD+15*, FIELD+16*, FIELD+17*, FIELD+18*, FIELD+19*, FIELD+22*, FIELD+26, REJCODES+3!*, REJCODES+9*, STRIPID+4* , MONEY+4*, MONEY+5*, OTHER+1* |
X( | FIELD+18, REJCODES+10* |