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* |
