©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ABSPOSBF ; IHS/FCS/DRS - ILC/AR comments in 9002302 ;
Source file <ABSPOSBF.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Point of Sale | 4 | $$DFF2EXT^ABSPECFM $$FORMTNDC^ABSPOS9 (LOG,LOGARRAY)^ABSPOSL LOG^ABSPOSL2 |
| VA Fileman | 1 | (UPDATE,WP)^DIE |
| Package | Total | Caller Graph |
|---|---|---|
| Pharmacy Point of Sale | 3 | ABSPOSBM ABSPOSBW ABSPOSBX |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LIST57(PCNDFN,COMMENT,ARR57) | ;EP -
; Comment is a list of file 9002313.57 transaction ; numbers. This paragraph is a copy of what's at REJECTS |
|
| COMMENT(PCNDFN,COMMENT,DATE) | ;EP - add a brief comment
; If you call it with $$, it returns pointer to the comment ; If it fails, the $$ returns false ; in ^ABSBITMS(9002302,PCNDFN,"MSG",*) |
|
| REJX(X) | ||
| LIST571 | ;
|
|
| ADDPAY(CATEG,AMOUNT) | ||
| PAY1 | ; payment details for transaction N57
|
|
| REJ1 | ||
| REJECTS(PCNDFN,COMMENT,ARRAY57) | ||
| COMMWP(PCNDFN,COMMIEN,ROOT) | ||
| PAY2(CATEG,AMTSPCE) | ||
| PAYABLE(PCNDFN,COMMENT,ARR57) | ;EP - comment on what was paid and how much $$
; this paragraph is a copy of what's a REJECTS ; with a little bit extra for $ amounts ; Also, order of things is switched a little |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSPC - [#9002313.02] | REJ1+8, LIST571+7 |
| ^ABSPF(9002313.93 - [#9002313.93] | REJ1+20 |
| ^ABSPR - [#9002313.03] | REJ1+11, REJ1+14, REJ1+16, REJ1+19, PAY1+5 |
| ^ABSPTL - [#9002313.57] | REJ1, LIST571+1, PAY1+1 |
| ^AUTNINS - [#9999999.18] | REJ1+2 |
| ^DD("DD" | REJ1+11 |
| ^PSDRUG - [#50] | REJ1+5 |
| ^PSRX - [#52] | REJ1+4 |
| ^TMP($J | REJECTS+7!, REJX*, LIST57+7!, PAYABLE+4! |
| Name | Line Occurrences |
|---|---|
| $$COMMENT | REJECTS+4, LIST57+4, PAYABLE+11 |
| $$COMMWP | REJECTS+11, LIST57+11, PAYABLE+24 |
| ADDPAY | PAY1+2, PAY2+3 |
| LIST571 | LIST57+9 |
| PAY1 | PAYABLE+7 |
| PAY2 | PAY1+6, PAY1+7, PAY1+9 |
| REJ1 | REJECTS+9 |
| REJX | REJ1+12, REJ1+13, REJ1+15, REJ1+17, REJ1+21, LIST571+14, PAYABLE+21 |
| Name | Field # of Occurrence |
|---|---|
| ^(1 | REJ1, PAY1+1 |
| ^(5 | PAY1+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | PAYABLE+17~*, PAYABLE+18*, PAYABLE+20*, PAYABLE+21 |
| AMOUNT | ADDPAY~ |
| AMT | PAY2+1~*, PAY2+2*, PAY2+3, PAY2+4 |
| AMTS | PAY1+5~*, PAY2+1 |
| AMTSPCE | PAY2~, PAY2+1 |
| ARR57 | LIST57~, PAYABLE~ |
| ARR57( | LIST57+9, LIST571+3, LIST571+11, LIST571+12, PAYABLE+7 |
| ARRAY57 | REJECTS~ |
| ARRAY57( | REJECTS+9 |
| CATEG | PAY2~, PAY2+3, ADDPAY~ |
| CLAIM | REJ1+7~*, REJ1+8, LIST571+4~*, LIST571+6, LIST571+7 |
| CLAIMID | REJ1+8~*, REJ1+12, LIST571+5~, LIST571+7*, LIST571+8*, LIST571+10 |
| COMM | REJECTS+3~, REJECTS+4*, REJECTS+5, REJECTS+11, LIST57+3~, LIST57+4*, LIST57+5, LIST57+11, PAYABLE+10~, PAYABLE+11* , PAYABLE+12, PAYABLE+24 |
| COMMENT | COMMENT~, COMMENT+8*, COMMENT+9, REJECTS~, REJECTS+4, LIST57~, LIST57+4, PAYABLE~, PAYABLE+11 |
| COMMIEN | COMMWP~, COMMWP+2, COMMWP+5 |
| DATE | COMMENT~, COMMENT+10 |
| DRGDFN | REJ1+4~*, REJ1+5 |
| DRGNAME | REJ1+5~*, REJ1+12 |
| FDA | COMMENT+4~, COMMWP+1~ |
| FDA( | COMMENT+6*, COMMENT+9*, COMMENT+10* |
| FIRST | REJECTS+8~*, REJECTS+9*, LIST57+8~*, LIST57+9*, PAYABLE+5~*, PAYABLE+7*, PAYABLE+15~*, PAYABLE+19* |
| FN | COMMENT+4~*, COMMENT+6, COMMENT+9, COMMENT+10, COMMWP+1~*, COMMWP+2 |
| IEN | COMMENT+4~, COMMWP+1~ |
| IEN(1 | COMMENT+19 |
| INSDFN | REJ1+1~*, REJ1+2 |
| INSNAME | REJ1+2~*, REJ1+13 |
| LAST | LIST571+3~*, LIST571+13 |
| LINE | REJECTS+7~*, REJX*, LIST57+7~*, PAYABLE+4~* |
| MAX | COMMENT+7~*, COMMENT+8 |
| MSG | COMMENT+4~, COMMENT+12, COMMENT+16, COMMWP+1~, COMMWP+3, COMMWP+5, COMMWP+6, REJ1+20~*, REJ1+21 |
| MSG1 | REJ1+14~*, REJ1+15 |
| MSG2 | REJ1+16~*, REJ1+17 |
| N57 | REJECTS+8~*, REJECTS+9*, REJ1, LIST57+8~*, LIST57+9*, LIST571+1, LIST571+3, LIST571+9, LIST571+11, LIST571+12 , PAYABLE+5~*, PAYABLE+7*, PAY1+1 |
| NDC | REJ1+6~*, REJ1+12 |
| OK | REJECTS+11~*, REJECTS+12, LIST57+11~*, LIST57+12, PAYABLE+24~*, PAYABLE+25 |
| PAY | PAYABLE+6~, PAYABLE+8 |
| PAY( | PAYABLE+15, PAYABLE+16, PAYABLE+18, ADDPAY* |
| PAY("00 POS B | illed" , PAYABLE+13, PAYABLE+14! |
| PAY("00.09 PO | S Paid" , PAYABLE+13 |
| PCNDFN | COMMENT~, COMMENT+5, COMMENT+17, COMMWP~, COMMWP+2, COMMWP+5, REJECTS~, REJECTS+4, REJECTS+11, LIST57~ , LIST57+4, LIST57+11, PAYABLE~, PAYABLE+9, PAYABLE+11, PAYABLE+24 |
| POS | REJ1+10~*, REJ1+12, REJ1+14, REJ1+16, REJ1+19, LIST571+5~, LIST571+7*, LIST571+8*, LIST571+10, PAY1+4~* , PAY1+5 |
| R0 | REJ1~*, REJ1+3, REJ1+7, REJ1+9, REJ1+10, LIST571+1~*, LIST571+4, LIST571+7, PAY1+1~*, PAY1+3 , PAY1+4 |
| R1 | REJ1~*, REJ1+1, REJ1+6, LIST571+1~*, PAY1+1~* |
| R5 | PAY1+1~*, PAY1+2 |
| REJ | REJ1+18~*, REJ1+19*, REJ1+20 |
| RESP | REJ1+9~*, REJ1+11, REJ1+14, REJ1+16, REJ1+19, PAY1+3~*, PAY1+5 |
| ROOT | COMMWP~, COMMWP+2 |
| RXI | REJ1+3~*, REJ1+4 |
| TIME | REJ1+11~*, REJ1+13 |
| U | REJ1+1, REJ1+2, REJ1+3, REJ1+4, REJ1+5, REJ1+6, REJ1+7, REJ1+8, REJ1+9, REJ1+10 , REJ1+11, REJ1+14, REJ1+16, REJ1+20, LIST571+4, LIST571+7, PAY1+2, PAY1+3, PAY1+4, PAY2+1 |
| X | COMMENT+5~*, COMMENT+6, COMMENT+9, COMMENT+10, REJX~, LIST571+9~*, LIST571+10*, LIST571+12*, LIST571+13*, LIST571+14 , PAYABLE+15~*, PAYABLE+16, PAYABLE+17, PAYABLE+18 |
| Y | REJ1+11~* |
| Name | Field # of Occurrence |
|---|---|
| $T( | COMMENT+17, COMMWP+5, REJECTS+7, REJECTS+11, REJX, LIST57+7, LIST57+11, PAYABLE+4, PAYABLE+24 |