©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
ABSPOSU ; IHS/FCS/DRS - utilities ;
Source file <ABSPOSU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETCSTAT(CLAIM,STATUS) | ||
| DORECEI() | ; Should we print a receipt?
; Site-specific conditions needed. ; example: electronic claims only; ; only claims with co-pay; ; etc. |
|
| NEW57(RXI) | ;EP - copy this ^ABSPT(RXI) into ^ABSPTL(N)
|
|
| SETCOMMS(CLAIM,POINTER) | ;EP - ABSPOSAM
|
|
| SETSTAT(STATUS) | ;EP - from many places
; set ^ABSPT( status for ABSBRXI |
|
| ISREVERS(CLAIM) | ;EP - ABSPOSP2
; is this a reversal claim? $$ returns 1 or 0 |
|
| SETCRESU(CLAIM,RESULT,TEXT) | ;
|
|
| STATUS99 | ; special activity when a claim reaches status 99
; Transaction log in .57 (but not if it's a canceled transaction!) |
|
| RESULTI(X) | ||
| NEW57A | ||
| RECEIPT(IEN57) | ; This is where the receipt would go - taskman it to print in
; background, somewhere, somehow |
|
| STATI(X) | ;EP - from many places ; perhaps should be a Fileman file
|
|
| SETRESU(RESULT,TEXT) | ||
| PREV57(N57) | ; EP -
|
|
| RXI4REV(REVCLAIM) |
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | STATUS99+32 |
| RESUB1^ABSPOS6D | STATUS99+22 |
| TRANSACT^ABSPOSBC | STATUS99+7 |
| TASK^ABSPOSIZ | STATUS99+23 |
| $$GETSLOT^ABSPOSL | STATUS99+11 |
| LOG^ABSPOSL | STATUS99+4, STATUS99+13, STATUS99+18, STATUS99+21 |
| RELSLOT^ABSPOSL | STATUS99+24 |
| SETSLOT^ABSPOSL | STATUS99+12, STATUS99+25 |
| $$CATEG^ABSPOSUC | STATUS99+15 |
| $$TADD^ABSPOSUD | STATUS99+31 |
| $$IMPOSS^ABSPOSUE | SETSTAT+10, NEW57+1 |
| IMPOSS^ABSPOSUE | NEW57A+23, RXI4REV+6, RXI4REV+7 |
| ^DIE | SETSTAT+14 |
| IX1^DIK | NEW57A+9 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^ABSPTL - [#9002313.57] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSPC - [#9002313.02] | ISREVERS+2 |
| ^ABSPT - [#9002313.59] | SETSTAT+10, SETSTAT+23, SETSTAT+5, STATUS99+2, STATUS99+10, STATUS99+20*, NEW57A+5, SETCOMMS+3*, SETRESU+1*, SETRESU+3 , SETRESU+7* |
| ^ABSPT("AD" | SETSTAT+20, SETSTAT+21! |
| ^ABSPT("AE" | SETCSTAT+5, SETCOMMS+2, SETCRESU+2 |
| ^ABSPT("AER" | RXI4REV+3 |
| ^ABSPTL - [#9002313.57] | NEW57+1, NEW57A+4, NEW57A+3, NEW57A+5*, NEW57A+15, NEW57A+16, NEW57A+19, NEW57A+20, PREV57+1, PREV57+2 |
| ^ABSPTL("NON-FILEMAN" | NEW57A+24*, PREV57+4 |
| ^ABSPTL(0 | NEW57A, NEW57A+1, NEW57A+2* |
| ^ABSVCPT(9002301 | NEW57A+21 |
| Name | Line Occurrences |
|---|---|
| $$DORECEI | RECEIPT+2 |
| $$ISREVERS | SETCSTAT+2 |
| $$NEW57 | STATUS99+6 |
| $$RXI4REV | SETCSTAT+3 |
| NEW57A | NEW57A+3 |
| RECEIPT | STATUS99+8 |
| SETRESU | SETCRESU+3 |
| SETSTAT | SETCSTAT+3, SETCSTAT+6 |
| STATUS99 | SETSTAT+22 |
| Name | Field # of Occurrence |
|---|---|
| ^( | RXI4REV+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | NEW57A+13~, NEW57A+15*, NEW57A+19*, NEW57A+24 |
| ABSBRXI | SETSTAT+5, SETSTAT+11, SETSTAT+21, STATUS99+2, STATUS99+6, STATUS99+10, STATUS99+12, STATUS99+15, STATUS99+20, STATUS99+22 , SETCSTAT+1~, SETCSTAT+3*, SETCSTAT+4*, SETCSTAT+5*, SETCOMMS+1~*, SETCOMMS+2*, SETCOMMS+3, SETRESU+1, SETRESU+3, SETRESU+7 , SETCRESU+1~*, SETCRESU+2* |
| ABSP57 | STATUS99+6~*, STATUS99+7, STATUS99+8 |
| B | NEW57A+13~, NEW57A+16*, NEW57A+20*, NEW57A+21*, NEW57A+24 |
| C | NEW57A+1~*, NEW57A+2 |
| CLAIM | SETCSTAT~, SETCSTAT+2, SETCSTAT+3, SETCSTAT+5, ISREVERS~, ISREVERS+2, SETCOMMS~, SETCOMMS+2, SETCRESU~, SETCRESU+2 |
| DA | SETSTAT+11~*, NEW57A+9~* |
| DIE | SETSTAT+11~* |
| DIK | NEW57A+9~* |
| DR | SETSTAT+11~*, SETSTAT+12* |
| DT | STATUS99+31 |
| IEN57 | RECEIPT~ |
| INDEX | NEW57A+13~, NEW57A+17*, NEW57A+22*, NEW57A+24 |
| MBN | RXI4REV+2~, RXI4REV+3*, RXI4REV+7 |
| N | NEW57A~*, NEW57A+2, NEW57A+3, NEW57A+5, NEW57A+9~, NEW57A+15, NEW57A+16, NEW57A+19, NEW57A+20, NEW57A+24 , NEW57A+25 |
| N57 | PREV57~, PREV57+1, PREV57+2, PREV57+4 |
| OLDSLOT | STATUS99+11~*, STATUS99+25 |
| POINTER | SETCOMMS~, SETCOMMS+3 |
| RESULT | SETRESU~, SETRESU+1, SETRESU+8, SETCRESU~, SETCRESU+3 |
| RET | RXI4REV+2~, RXI4REV+3*, RXI4REV+6, RXI4REV+8 |
| REVCLAIM | RXI4REV~, RXI4REV+3, RXI4REV+6, RXI4REV+7 |
| RXI | NEW57~, NEW57A+5, NEW57A+13, NEW57A+23, PREV57+1~*, PREV57+3, PREV57+4 |
| RXR | PREV57+1~, PREV57+2*, PREV57+3, PREV57+4 |
| SLOT | STATUS99+11~, STATUS99+12* |
| STATUS | SETSTAT~, SETSTAT+5, SETSTAT+11, SETSTAT+12, SETSTAT+21, SETSTAT+22, SETCSTAT~, SETCSTAT+3, SETCSTAT+6 |
| TEXT | SETRESU~, SETRESU+2, SETRESU+5, SETRESU+6, SETCRESU~, SETCRESU+3 |
| TYPE | NEW57A+13~*, NEW57A+14, NEW57A+17, NEW57A+18, NEW57A+23 |
| U | SETSTAT+5, STATUS99+2, STATUS99+10, STATUS99+20, NEW57A, NEW57A+1, NEW57A+2, NEW57A+15, NEW57A+16, NEW57A+19 , NEW57A+20, NEW57A+21, PREV57+1, PREV57+2, SETRESU+1, SETRESU+4, SETRESU+7 |
| X | SETSTAT+11~, SETSTAT+20~*, SETSTAT+21, STATUS99+15~*, STATUS99+17, STATUS99+18, SETRESU+3~*, SETRESU+4*, SETRESU+5*, SETRESU+6* , SETRESU+7, STATI~, STATI+1, STATI+2, STATI+3, STATI+4, STATI+5, STATI+6, STATI+7, STATI+8 , STATI+9, STATI+10, STATI+11, STATI+12, STATI+13, STATI+15, RESULTI~, RESULTI+1, RESULTI+2 |
| Y | SETRESU+3~, SETRESU+4*, SETRESU+5, SETRESU+6, SETRESU+7 |
| ZTDTH | STATUS99+28~, STATUS99+31* |
| ZTIO | STATUS99+28~, STATUS99+31* |
| ZTRTN | STATUS99+28~, STATUS99+30* |
| ZTSAVE | STATUS99+28~ |
| Name | Field # of Occurrence |
|---|---|
| $T( | SETSTAT+10, STATUS99+4, STATUS99+13, STATUS99+18, STATUS99+21, NEW57+1, NEW57A+23, RXI4REV+6, RXI4REV+7 |