©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
ABSPOSQJ ; IHS/FCS/DRS - subroutines of ABSPOSQ2 ;
Source file <ABSPOSQJ.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Point of Sale | 5 | LOG^ABSPOSL TASKAT^ABSPOSQ2 SETSTAT^ABSPOSU $$TADDNOWS^ABSPOSUD IMPOSS^ABSPOSUE |
| VA Fileman | 2 | NOW^%DTC ^DIE |
| Package | Total | Caller Graph |
|---|---|---|
| Pharmacy Point of Sale | 2 | ABSPOS2D ABSPOSQ3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETSTAT(ABSBRXI,STAT) | ||
| ANY2SA | ; DIALOUT not given, so look for any DIALOUTs that need work
|
|
| TSTAMP(DA) | ||
| ANY2SEND(DIALOUT) | ;EP - from ABSPOS2D,ABSPOSQ3
; are there any claims waiting to be sent? ; also called from POKE^ABSPOSUD ; I called with an DIALOUT, look for just that DIALOUT ; Return TRUE (=DIALOUT) if there are, FALSE if there aren't ; Also: Return false if this DIALOUT is currently in an ERROR WAIT ; state. |
|
| EWAIT55(DEST,OPER) | ;EP - ABSPOSQ3
|
|
| NOW() | ||
| EWAIT55A() | ; given DEST, OPER
|
|
| INCRWAIT(DEST) | ||
| MARKWAIT(DEST) |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSP(9002313.55 - [#9002313.55] | ANY2SA+2, EWAIT55+1, EWAIT55+4, EWAIT55A+1, EWAIT55A+15, EWAIT55A+26*, EWAIT55A+27, EWAIT55A+33, EWAIT55A+38*, MARKWAIT+8 , INCRWAIT+5 |
| ^ABSPECX("POS" | ANY2SEND+13, MARKWAIT+12, INCRWAIT+7 |
| ^ABSPT - [#9002313.59] | MARKWAIT+11, MARKWAIT+15*, INCRWAIT+10*, INCRWAIT+13* |
| ^ABSPT("AD" | MARKWAIT+10 |
| ^ABSPT("AE" | INCRWAIT+9 |
| ^ABSPT("AER" | INCRWAIT+12 |
| Name | Line Occurrences |
|---|---|
| $$ANY2SEND | ANY2SA+2 |
| $$EWAIT55 | ANY2SEND+15, ANY2SEND+16 |
| $$EWAIT55A | EWAIT55+2 |
| $$NOW | EWAIT55A+10, EWAIT55A+17 |
| ANY2SA | ANY2SEND+12 |
| EWAIT55A | EWAIT55+3 |
| INCRWAIT | EWAIT55A+31 |
| MARKWAIT | ANY2SEND+22, EWAIT55A+29 |
| SETSTAT | MARKWAIT+13 |
| TSTAMP | INCRWAIT+11, INCRWAIT+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | NOW~ |
| %H | NOW~ |
| %I | NOW~ |
| ABSBRXI | SETSTAT~ |
| DA | TSTAMP~ |
| DEST | EWAIT55~, EWAIT55+1, EWAIT55+4, EWAIT55A+1, EWAIT55A+15, EWAIT55A+26, EWAIT55A+27, EWAIT55A+29, EWAIT55A+31, EWAIT55A+32 , EWAIT55A+38, MARKWAIT~, MARKWAIT+8, MARKWAIT+12, MARKWAIT+15, INCRWAIT~, INCRWAIT+5, INCRWAIT+7, INCRWAIT+10, INCRWAIT+13 |
| DIALOUT | ANY2SEND~, ANY2SEND+12, ANY2SEND+13, ANY2SEND+15, ANY2SEND+16, ANY2SEND+17, ANY2SEND+22, EWAIT55A+32~*, EWAIT55A+33 |
| DIE | TSTAMP~* |
| DR | TSTAMP~* |
| FIRST | EWAIT55A+16~*, EWAIT55A+17, EWAIT55A+21, EWAIT55A+28 |
| IEN59 | MARKWAIT+9~*, MARKWAIT+10*, MARKWAIT+11, MARKWAIT+13, MARKWAIT+15, INCRWAIT+8~*, INCRWAIT+9*, INCRWAIT+10, INCRWAIT+11, INCRWAIT+12* , INCRWAIT+13, INCRWAIT+14 |
| OPER | EWAIT55~, EWAIT55A+6, EWAIT55A+10, EWAIT55A+14, EWAIT55A+16, EWAIT55A+28, EWAIT55A+36, EWAIT55A+41 |
| PACKET | MARKWAIT+11~*, MARKWAIT+12, INCRWAIT+6~*, INCRWAIT+7*, INCRWAIT+9, INCRWAIT+12 |
| RET | ANY2SEND+11~, ANY2SA+1~*, ANY2SA+2*, ANY2SA+3, EWAIT55+2~*, EWAIT55+5 |
| SET | ANY2SA+1~*, ANY2SA+2* |
| STAT | SETSTAT~ |
| TIME | MARKWAIT+8~*, MARKWAIT+15, INCRWAIT+5~*, INCRWAIT+10, INCRWAIT+13 |
| U | EWAIT55A+6, EWAIT55A+10, EWAIT55A+16, EWAIT55A+17, EWAIT55A+18, EWAIT55A+19, EWAIT55A+20, EWAIT55A+21, EWAIT55A+22, EWAIT55A+23 , EWAIT55A+24, EWAIT55A+25, EWAIT55A+33, EWAIT55A+37, MARKWAIT+8, MARKWAIT+11, MARKWAIT+15, INCRWAIT+5, INCRWAIT+10, INCRWAIT+13 |
| X | TSTAMP~, NOW~, EWAIT55A+1~*, EWAIT55A+6, EWAIT55A+10, EWAIT55A+16, EWAIT55A+17, EWAIT55A+18*, EWAIT55A+19*, EWAIT55A+20* , EWAIT55A+21*, EWAIT55A+22*, EWAIT55A+23*, EWAIT55A+24*, EWAIT55A+25*, EWAIT55A+26, EWAIT55A+37*, EWAIT55A+38 |
| Name | Field # of Occurrence |
|---|---|
| $T( | ANY2SEND+17, EWAIT55A+41 |