©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
PSOREJU4 ;BIRM/LE - Pharmacy Reject Overrides ;06/26/08
Source file <PSOREJU4.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 7 | $$LSTRFL^PSOBPSU1 $$RXSITE^PSOBPSUT $$TRIC^PSOREJP1 SAVECOM^PSOREJP3 ($$CLEAN,$$DUP)^PSOREJU1 GET^PSOREJU2 ($$FIND,SYNC2)^PSOREJUT |
| VA Fileman | 2 | NOW^%DTC $$GET1^DIQ |
| Uncategorized | 1 | DUR1^BPSNCPD3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| WRKLST(RX,RFL,COMMTXT,USERID,DTTIME,OPECC) | ;External API to store reject codes other that 79/88/Tricare on the OP Reject Worklist
; |
|
| MULTI(RX,RFL,REJDATA,CODE,REJS) | ;due to routine size, called from FIND^PSOREJUT
|
|
| EVAL(PSODIV,CODE,OPECC,AUTO) | ;Evaluates whether the reject codes other than 79/88/Tricare is allowed to be passed to OP Reject Worklist
|
|
| AUTOREJ(CODES,PSODIV) | ;API to evaluate an array of reject codes to see if they are allowed to be passed to OP reject Worklist
|
|
| INLIST(RX,RFL) | ;Returns whether a prescription/fill contains UNRESOLVED rejects
|
|
| SINGLE(RX,RFL,REJDATA,CODE,REJS) | ;due to routine size, called from FIND^PSOREJUT
|
|
| EXIT | ;
|
|
| OVRMSG(RX,RFL,OVRMSG,REJDAT) | ;
|
|
| OVER | ;due to size of PSOREJU1 this subroutine was needed. also used by OVERMSG
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | OVRMSG+4 |
| DUR1^BPSNCPD3 | WRKLST+6 |
| $$GET1^DIQ | AUTOREJ+19, EVAL+17, EVAL+21 |
| $$LSTRFL^PSOBPSU1 | WRKLST+5 |
| $$RXSITE^PSOBPSUT | WRKLST+3, OVER+5 |
| $$TRIC^PSOREJP1 | WRKLST+8 |
| SAVECOM^PSOREJP3 | OVRMSG+7 |
| $$CLEAN^PSOREJU1 | WRKLST+15 |
| $$DUP^PSOREJU1 | WRKLST+15 |
| GET^PSOREJU2 | MULTI+3, MULTI+5, SINGLE+3, SINGLE+5 |
| $$FIND^PSOREJUT | INLIST+7 |
| SYNC2^PSOREJUT | WRKLST+21 |
| FileNo | Call Tags |
|---|---|
| ^PS(52.86 - [#52.86] | GET1^DIQ |
| 52.8651 | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BPSF(9002313.93 | EVAL+15 |
| ^PS(52.86 - [#52.86] | AUTOREJ+15, AUTOREJ+23, EVAL+12, EVAL+18, EVAL+19 |
| ^PS(59 - [#59] | AUTOREJ+13 |
| ^PSRX - [#52] | OVER+6, MULTI+4, SINGLE+4 |
| ^PSRX("REJ" | WRKLST+4, WRKLST+17, EXIT+1 |
| Name | Line Occurrences |
|---|---|
| $$EVAL | WRKLST+14, OVER+8 |
| EXIT | WRKLST+19 |
| OVER | OVRMSG+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | OVRMSG+4 |
| ALLOW | AUTOREJ+11~, EVAL+8~, EVAL+21*, EVAL+22, EVAL+23 |
| ALLOWA | EVAL+8~, EVAL+17* |
| AUTO | AUTOREJ+11~, WRKLST+9*, WRKLST+10, WRKLST+14*, WRKLST+15*, WRKLST+17*, WRKLST+19, WRKLST+22*, EXIT+2, EVAL~ , EVAL+14*, EVAL+20*, EVAL+21*, EVAL+24*, EVAL+25*, EVAL+26, OVER+3~*, OVER+8*, OVER+9 |
| CIEN | EVAL+8~, EVAL+19*, EVAL+20, EVAL+21 |
| COD | AUTOREJ+11~, AUTOREJ+22*, AUTOREJ+23, AUTOREJ+24, OVRMSG+1~, OVRMSG+6*, OVRMSG+7 |
| CODE | WRKLST+2~, WRKLST+13*, WRKLST+14, WRKLST+16, EVAL~, EVAL+9, EVAL+15, EVAL+25, MULTI~, MULTI+3 , MULTI+5, SINGLE~, SINGLE+3, SINGLE+5 |
| CODES | AUTOREJ~, OVER+4*, OVER+7*, OVER+10*, OVER+11*, OVER+12*, OVRMSG+1~, OVRMSG+2* |
| CODES( | AUTOREJ+22, AUTOREJ+23*, AUTOREJ+24* |
| CODES(0 | AUTOREJ+14*, AUTOREJ+16*, AUTOREJ+19* |
| COMMTXT | WRKLST~ |
| DATA | WRKLST+2~ |
| DCODE | OVER+3~*, OVER+6*, OVER+7, OVER+8, OVER+10 |
| DTTIME | WRKLST~ |
| DUZ | OVRMSG+7 |
| I | WRKLST+2~, WRKLST+12*, WRKLST+13, MULTI+3*, MULTI+5* |
| ICOD | EVAL+8~, EVAL+15*, EVAL+16, EVAL+18, EVAL+19 |
| IDX | WRKLST+2~, WRKLST+9*, WRKLST+10*, WRKLST+11, WRKLST+15, WRKLST+16 |
| OCODES | OVER+3~*, OVER+4*, OVER+12 |
| OPECC | WRKLST~, WRKLST+14, EVAL~, EVAL+10*, EVAL+24, EVAL+25 |
| OVRARR | OVER+3*, OVRMSG+1~, OVRMSG+5 |
| OVRARR( | OVER+10*, OVRMSG+6 |
| OVRMSG | OVRMSG~, OVRMSG+7 |
| PSODIV | AUTOREJ~, AUTOREJ+13*, AUTOREJ+14, AUTOREJ+15, WRKLST+2~, WRKLST+3*, WRKLST+14, EVAL~, EVAL+11, EVAL+12 , OVER+3~*, OVER+5*, OVER+8 |
| PSOTRIC | WRKLST+2~, WRKLST+7*, WRKLST+8*, WRKLST+14 |
| >> RCODE | MULTI+3*, MULTI+5* |
| REJ | WRKLST+2~, WRKLST+6 |
| REJ( | WRKLST+10, WRKLST+11, WRKLST+15 |
| REJ(1 | WRKLST+7 |
| REJDAT | OVRMSG~, OVRMSG+4*, OVRMSG+7 |
| REJDATA | MULTI~, MULTI+3, MULTI+4, MULTI+5, SINGLE~, SINGLE+3, SINGLE+4, SINGLE+5, SINGLE+6 |
| REJLST | WRKLST+2~ |
| REJS | WRKLST+2~, WRKLST+9!, WRKLST+17, MULTI~, MULTI+3*, MULTI+4, MULTI+5*, MULTI+6, SINGLE~, SINGLE+6* , SINGLE+7 |
| REJS( | WRKLST+16* |
| RFL | WRKLST~, WRKLST+3, WRKLST+5*, WRKLST+6, WRKLST+8, OVER+5, OVRMSG~, INLIST~, INLIST+7, MULTI~ , MULTI+2, MULTI+3, MULTI+4*, MULTI+5, SINGLE~, SINGLE+2, SINGLE+3, SINGLE+4*, SINGLE+5 |
| RX | WRKLST~, WRKLST+3, WRKLST+4, WRKLST+5, WRKLST+6, WRKLST+8, WRKLST+15, WRKLST+17, EXIT+1, OVER+5 , OVER+6, OVRMSG~, OVRMSG+7, INLIST~, INLIST+7, MULTI~, MULTI+3, MULTI+4, MULTI+5, SINGLE~ , SINGLE+3, SINGLE+4, SINGLE+5 |
| SEQ | AUTOREJ+11~, AUTOREJ+22*, AUTOREJ+23, AUTOREJ+24 |
| SPDIV | AUTOREJ+11~, AUTOREJ+15*, AUTOREJ+16, AUTOREJ+19, AUTOREJ+23, EVAL+8~, EVAL+12*, EVAL+13, EVAL+17, EVAL+18 , EVAL+19, EVAL+21 |
| SPDVI | WRKLST+2~ |
| TXT | WRKLST+2~, WRKLST+11*, WRKLST+12, WRKLST+13 |
| USERID | WRKLST~ |