©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
ABSPOSBX ; IHS/FCS/DRS - Billing - FSI/ILC A/R v1,2;
Source file <ABSPOSBX.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Point of Sale | 11 | $$NOW^ABSPOS ($$DRGNAME,$$PREVIOUS,LOG59)^ABSPOS57 ($$LOCK,UNLOCK)^ABSPOSBD COMMENT^ABSPOSBF $$CHGLIST^ABSPOSBM $$DELAY2^ABSPOSBW (DONE,INIT,LOG,LOGARRAY)^ABSPOSL LOG^ABSPOSL2 ($$NEWBATCH,ADJUST)^ABSPOSP ($$TADDNOWS,$$TIMEDIFI)^ABSPOSUD $$IMPOSS^ABSPOSUE |
| VA Fileman | 3 | ^%DTC FILE^DIE $$GET1^DIQ |
| Kernel | 1 | ^%ZTLOAD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADJBATCH() | ||
| REBILLED | ; if anything in CHGLIST() was previously posted to A/R,
; write off the old charges and make comments on both old and new bills |
|
| RESCHED(DELTA) | ;
|
|
| BLASTDT() | ||
| F | ||
| LIST57() | ; given IEN57 ; return "CHGLIST" or "REVLIST"
; "CHGLIST" - this is a charge which should be posted to a/r ; "REVLIST" - this charge was subsequently reversed; do not post it |
|
| BLIFE() | ||
| GET235() | ||
| LOG(X) | ||
| EN | ; Taskman routine begins here
; with KEY15=visit/insurer/time sched for ; Does posting for just this one visit and insurer |
|
| SETTLED() | ; has the flow of new charges for this KEY15 settled?
; yes, if all of them are at least $$DELAY2^ABSPOSBW seconds old |
|
| NEEDREL() | ||
| ADJUST(PCNDFN,AMTOLD,REASON) | ; EP - used by reversals handling in ABSPOSBW
|
|
| ENABLED() | ||
| LOGCLAIM(X) | ||
| SET235(PIECE,VALUE) | ||
| AB |
| Name | Field # of Occurrence |
|---|---|
| ^%DTC | NEEDREL+2 |
| ^%ZTLOAD | RESCHED+5 |
| $$NOW^ABSPOS | SETTLED+6 |
| $$DRGNAME^ABSPOS57 | REBILLED+10 |
| $$PREVIOUS^ABSPOS57 | REBILLED+4 |
| LOG59^ABSPOS57 | LOGCLAIM |
| $$LOCK^ABSPOSBD | EN+14 |
| UNLOCK^ABSPOSBD | F+9 |
| COMMENT^ABSPOSBF | REBILLED+13 |
| $$CHGLIST^ABSPOSBM | EN+44 |
| $$DELAY2^ABSPOSBW | EN+37, SETTLED+7 |
| DONE^ABSPOSL | F+8 |
| INIT^ABSPOSL | EN+15 |
| LOG^ABSPOSL | EN+64, F+3, AB+2, AB+6, LOG |
| LOGARRAY^ABSPOSL | F+4, F+5 |
| LOG^ABSPOSL2 | F+1 |
| $$NEWBATCH^ABSPOSP | AB+1 |
| ADJUST^ABSPOSP | AB+5 |
| $$TADDNOWS^ABSPOSUD | RESCHED+2 |
| $$TIMEDIFI^ABSPOSUD | SETTLED+6 |
| $$IMPOSS^ABSPOSUE | F+2, AB+4 |
| FILE^DIE | F |
| $$GET1^DIQ | LIST57+6 |
| FileNo | Call Tags |
|---|---|
| ^ABSPTL - [#9002313.57] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSBITMS(9002302 | REBILLED+7, REBILLED+11 |
| ^ABSBPMNT( | NEEDREL+1, ADJBATCH+1 |
| ^ABSP(9002313.99 - [#9002313.99] | GET235, SET235* |
| ^ABSPTL - [#9002313.57] | LIST57+3, REBILLED+5, REBILLED+6, SETTLED+5 |
| ^ABSPTL("AR" | EN+27, EN+29, SETTLED+4 |
| ^ABSPTL("B" | LIST57+4, LIST57+5 |
| Name | Line Occurrences |
|---|---|
| $$ADJBATCH | ADJUST+1 |
| $$BLASTDT | NEEDREL+2 |
| $$BLIFE | NEEDREL+3 |
| $$ENABLED | EN+19 |
| $$GET235 | ADJBATCH, BLASTDT, BLIFE |
| $$LIST57 | EN+30 |
| $$NEEDREL | ADJUST+3 |
| $$SETTLED | EN+36 |
| AB | AB+4 |
| ADJUST | REBILLED+12 |
| F | F+2 |
| LOG | EN+38 |
| REBILLED | EN+50 |
| RESCHED | EN+14, EN+19, EN+37 |
| SET235 | AB+3, AB+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %Y | NEEDREL+2~ |
| AMTOLD | ADJUST~, AB+5 |
| B | ADJBATCH~*, ADJBATCH+1 |
| BATCH | ADJUST+1~*, ADJUST+3, ADJUST+6*, AB, AB+1*, AB+2, AB+3, AB+4, AB+5, AB+6 , NEEDREL, NEEDREL+1 |
| CHGLIST | EN+25~, EN+43 |
| CHGLIST( | EN+59, REBILLED+2 |
| DELTA | RESCHED~, RESCHED+2 |
| DIF | SETTLED+6~*, SETTLED+7 |
| DRUG | REBILLED+10~*, REBILLED+12, REBILLED+13 |
| DT | EN+15, EN+36, AB+7, NEEDREL+2 |
| FDA | EN+58~, F |
| FDA( | EN+60*, EN+61*, EN+63* |
| IEN57 | EN+28~*, EN+29*, EN+30, EN+59*, EN+60, EN+61, EN+62*, EN+63, EN+64, LIST57+3 , LIST57+4, LIST57+5, REBILLED+2*, REBILLED+4, SETTLED+3~*, SETTLED+4*, SETTLED+5 |
| >> KEY15 | EN+26, EN+27, EN+38, SETTLED+4 |
| MSG | EN+58~, F+1, F+2 |
| NEWPCNE | REBILLED+9~, REBILLED+11*, REBILLED+12 |
| NEWPCNI | REBILLED+9~, REBILLED+11*, REBILLED+13 |
| NXT57 | LIST57+5~*, LIST57+6 |
| OLD57 | REBILLED+3~, REBILLED+4*, REBILLED+5, REBILLED+6 |
| OLDAMT | REBILLED+3~, REBILLED+6*, REBILLED+12 |
| OLDPCNE | REBILLED+3~, REBILLED+7*, REBILLED+13 |
| OLDPCNI | REBILLED+3~, REBILLED+5*, REBILLED+7, REBILLED+12 |
| PCNDFN | EN+9~, EN+44*, EN+57~*, EN+60, EN+61, EN+63, REBILLED+11, ADJUST~, AB+5 |
| PIECE | SET235~ |
| REASON | ADJUST~, AB+5 |
| RET | SETTLED+2~*, SETTLED+4, SETTLED+7*, SETTLED+8 |
| REVLIST | EN+25~ |
| REVLIST( | EN+62 |
| T1 | SETTLED+5~*, SETTLED+6 |
| U | LIST57+3, REBILLED+5, REBILLED+6, REBILLED+7, REBILLED+11, NEEDREL+1, ADJBATCH, ADJBATCH+1, BLASTDT, BLIFE , SET235, SETTLED+5 |
| VALUE | SET235~ |
| X | EN+26~*, EN+27*, EN+29, LIST57+3~*, LIST57+4, LIST57+5, LIST57+6*, LIST57+7, LIST57+8, NEEDREL+2~ , NEEDREL+3, LOG~, LOGCLAIM~ |
| X1 | NEEDREL+2~* |
| X2 | NEEDREL+2~* |
| ZTDTH | RESCHED+1~, RESCHED+2* |
| ZTIO | RESCHED+1~, RESCHED+3* |
| ZTRTN | RESCHED+1~, RESCHED+4* |
| ZTSAVE | RESCHED+1~ |
| ZTSAVE("KEY15" | RESCHED+3* |
| Name | Field # of Occurrence |
|---|---|
| $T( | F+2, AB+4 |