PSOREJU3 ;BIRM/LJE - BPS (ECME) - Clinical Rejects Utilities (3) ;04/25/08
Source file <PSOREJU3.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 12 | ($$BYPASS,$$LSTRFL,ECMESND)^PSOBPSU1 RXACT^PSOBPSU2 ($$RXSITE,$$STATUS,$$SUBMIT)^PSOBPSUT ($$CLOSED,$$ELIGDISP,$$ELIGTCV,$$EXP,$$TRIC)^PSOREJP1 ($$PSOET,$$TCOM)^PSOREJP3 $$PSOETEC^PSOREJP5 ($$CONT,$$DC,$$HDLG,$$IGNORE,$$SIG)^PSOREJU1 ($$PTINFO,GET,PRT)^PSOREJU2 WRKLST^PSOREJU4 ($$FIND,CLOSE)^PSOREJUT SUS^PSORXL1 AUDIT^PSOTRI |
| VA FileMan | 5 | DD^%DT NOW^%DTC ($$GET1,GETS)^DIQ ^DIR ^DIWP |
| E Claims Management Engine | 4 | ($$CLAIM,$$DIVNCPDP)^BPSBUTL LOG^BPSOSL $$IEN59^BPSOSRX $$CSNPI^BPSUTIL |
| Kernel | 1 | $$FMTE^XLFDT |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TRICCHK(RX,RFL,RESP,FROM,RVTX) | ;check to see if Rx is non-billable or in an "In Progress" state on ECME
; Input: (r) RX - Rx IEN (#52) ; (r) RFL - REFILL ; (o) RESP - Response from $$EN^BPSNCPDP api ; TRICCHK assumes that the calling routine has validated that the fill is TRICARE or CHAMPVA. |
|
| TRIC2 | ;
|
|
| TRIC3 | ;
|
|
| TRIC4 | ||
| MSG | ;
|
|
| SUSP | ;Suspense Rx due to IN PROGRESS status in ECME
|
|
| TACT | ;
|
|
| DISPLAY(RX,REJ,KEY,RRR) | ; - Displays REJECT information
; Input: (r) RX - Rx IEN (#52) ; (r) REJ - REJECT ID (IEN) ; (o) KEY - Display "Press any KEY to continue..." (1-YES/0-NO) (Default: 0) ; (o) RRR - Reject Resolution Required information Flag(0/1)^Threshold Amt^Gross Amt Due (Default: 0) ; If Flag = 0, there is no Reject Resolution Required reject code. Parameter added with PSO*421 ; |
|
| DISP2 | ;
|
|
| TYPE | ;
|
|
| WRAP(PSOTXT,INDENT) | ;
|
|
| W1 | ||
| HDR | ; Display the reject notification screen header
|
|
| SUBMIT(RXIEN,RFCNT,PSOTRIC) | ;called from PSOCAN2 (routine size exceeded)
|
|
| TRISTA(RX,RFL,RESP,FROM,RVTX) | ;called from suspense
|
|
| TRIAUD(RXIEN,RXFILL) | ;is RXIEN in the TRICARE/CHAMPVA audit and no open rejects ;cnf
; RXIEN will only be in TRICARE/CHAMPVA audit if a bypass or override has occurred and rejects are closed ; returns 0 if RXIEN is not in TRICARE/CHAMPVA audit at all or not in audit for right fill number ; rejects must be closed for 0 to be returned ; 1 if RXIEN is in TRICARE/CHAMPVA audit for the right fill number and rejects are closed |
|
| ECMECHK(RX,FILL) | ;
; This function returns a '1' if any of the conditions below are met: ; - RX has an unresolved DUR or Refill Too Soon reject ; - RX has an unresolved Reject Resolution Required (RRR) reject (only for Veteran and original fill) ; - RX is TRICARE/CHAMPVA and has any unresolved reject ; - RX is TRICARE/CHAMPVA and IN PROGRESS ; This is used by functions such as PPLADD^PSOSUPOE to determine if ; a label should be printed (we do not want a label for the conditions) |
|
| DVINFO(RX,RFL,LM) | ; Returns header displayable Division Information
|
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | TYPE+2 |
| NOW^%DTC | TYPE+2 |
| $$CLAIM^BPSBUTL | DISPLAY+22 |
| $$DIVNCPDP^BPSBUTL | DVINFO+14 |
| LOG^BPSOSL | TRICCHK+16, TRICCHK+17, TRICCHK+18, TRIC2+4, TRIC2+18, SUSP+1, TACT+1, TRISTA+8, TRISTA+10, TRISTA+19 , TRISTA+21 |
| $$IEN59^BPSOSRX | TRICCHK+16, TRICCHK+17, TRICCHK+18, TRIC2+4, TRIC2+18, SUSP+1, TACT+1, TRISTA+8, TRISTA+10, TRISTA+19 , TRISTA+21 |
| $$CSNPI^BPSUTIL | DVINFO+10 |
| $$GET1^DIQ | TRICCHK+22, DISPLAY+12, DISPLAY+21, DISPLAY+38, TRIAUD+13, DVINFO+6 |
| GETS^DIQ | DISPLAY+48 |
| ^DIR | TRIC4+10 |
| ^DIWP | DISPLAY+77 |
| $$BYPASS^PSOBPSU1 | TRISTA+9 |
| $$LSTRFL^PSOBPSU1 | TRIAUD+10, ECMECHK+17 |
| ECMESND^PSOBPSU1 | SUBMIT+4 |
| RXACT^PSOBPSU2 | TRICCHK+27, TACT+4 |
| $$RXSITE^PSOBPSUT | DVINFO+5 |
| $$STATUS^PSOBPSUT | SUBMIT+9, TRISTA+5, TRISTA+14, ECMECHK+30 |
| $$SUBMIT^PSOBPSUT | SUBMIT+1 |
| $$CLOSED^PSOREJP1 | TRIAUD+19 |
| $$ELIGDISP^PSOREJP1 | TRICCHK+14, MSG+1, TACT+2 |
| $$ELIGTCV^PSOREJP1 | HDR+2 |
| $$EXP^PSOREJP1 | TYPE+8, TYPE+10 |
| $$TRIC^PSOREJP1 | TRISTA+3, ECMECHK+24 |
| $$PSOET^PSOREJP3 | SUBMIT+6 |
| $$TCOM^PSOREJP3 | TRIC4+19 |
| $$PSOETEC^PSOREJP5 | TRIC4+21 |
| $$CONT^PSOREJU1 | TRIC4+19 |
| $$DC^PSOREJU1 | TRIC4+13 |
| $$HDLG^PSOREJU1 | SUBMIT+7 |
| $$IGNORE^PSOREJU1 | TRIC4+15 |
| $$SIG^PSOREJU1 | TRIC4+19 |
| $$PTINFO^PSOREJU2 | DISPLAY+18 |
| GET^PSOREJU2 | DISPLAY+13 |
| PRT^PSOREJU2 | DISPLAY+24, TYPE+6 |
| WRKLST^PSOREJU4 | TRIC2+11, TRISTA+18 |
| $$FIND^PSOREJUT | TRIC2+12, SUBMIT+7, ECMECHK+20, ECMECHK+27 |
| CLOSE^PSOREJUT | TRIC4+20 |
| SUS^PSORXL1 | SUSP+4 |
| AUDIT^PSOTRI | TRIC4+21 |
| $$FMTE^XLFDT | TYPE+3, TYPE+11 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | GET1^DIQ |
| 52.25 | GET1^DIQ |
| ^PS(52.87 - [#52.87] | GET1^DIQ |
| 55.17 | GETS^DIQ |
| ^PS(59 - [#59] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(52.87 - [#52.87] | TRIAUD+8, TRIAUD+13 |
| ^PS(55 - [#55] | DISPLAY+44, DISPLAY+46 |
| ^PSRX - [#52] | DISPLAY+9, SUBMIT+4, TRIAUD+18 |
| ^UTILITY($J | DISPLAY+73!, DISPLAY+80, DISPLAY+81, DISPLAY+83! |
| ^XUSEC("PSO TRICARE/CHAMPVA" | TRIC4+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | DISPLAY+11~, DISPLAY+72~, DISP2+1*, TYPE+2 |
| ACT | TRICCHK+27*, SUSP+2~, TACT+2*, TACT+4 |
| ACTION | TRIC2+1~, TRIC3+4~, TRIC4+12*, TRIC4+13*, TRIC4+15, TRIC4+19, SUBMIT+3~, SUBMIT+6*, SUBMIT+7* |
| AUDIEN | TRIAUD+6~, TRIAUD+7*, TRIAUD+13* |
| >> CMOP | TRICCHK+26, TRIC2+4, TRIC2+5, TRIC2+17 |
| COM | TRIC3+4~, TRIC4+19*, TRIC4+20, TRIC4+21 |
| COMM | SUSP+2~ |
| DA | TRIC2+1~, SUSP+2~, SUSP+4* |
| DATA | DISPLAY+11~, DISPLAY+13 |
| DATA( | DISPLAY+13, DISPLAY+24, DISPLAY+25, DISPLAY+26, DISPLAY+27, DISPLAY+28, DISPLAY+29, DISPLAY+30, DISPLAY+31, DISPLAY+32 , TYPE+6, TYPE+8, TYPE+9, TYPE+11 |
| DD | SUSP+2~ |
| DEF | TRIC3+4~, TRIC4*, TRIC4+2*, TRIC4+3*, TRIC4+10 |
| DFLG | SUSP+2~ |
| DIC | SUSP+2~ |
| DIK | SUSP+2~ |
| DIR | TRIC2+1~, TRIC3+4~ |
| DIR("??" | TRIC4+9* |
| DIR("A" | TRIC4*, TRIC4+6*, TRIC4+7*, TRIC4+8*, TRIC4+9* |
| DIR("B" | TRIC4+10* |
| DIR(0 | TRIC4*, TRIC4+6*, TRIC4+7*, TRIC4+8*, TRIC4+9* |
| DIRUT | TRIC2+1~, TRIC3+4~, TRIC4+10 |
| DIW | DISPLAY+72~ |
| DIWF | DISPLAY+72~ |
| DIWI | DISPLAY+72~ |
| DIWL | DISPLAY+72~, DISPLAY+75* |
| DIWR | DISPLAY+72~, DISPLAY+76* |
| DIWT | DISPLAY+72~ |
| DIWTC | DISPLAY+72~ |
| DIWX | DISPLAY+72~ |
| DN | DISPLAY+72~ |
| DO | SUSP+2~ |
| DT | TRIC2+11, TRISTA+18 |
| DTIME | DISP2+1 |
| DUZ | TRICCHK+27, TRIC2+11, TRIC4+5, TRIC4+20, TACT+3~*, TACT+4, TRISTA+18 |
| DVIEN | DVINFO+4~, DVINFO+5*, DVINFO+6, DVINFO+14 |
| DVINFO | DVINFO+4~, DVINFO+6*, DVINFO+15*, DVINFO+16*, DVINFO+17 |
| ELDSP | HDR+1~, HDR+2*, HDR+3*, HDR+5, HDR+6, HDR+7 |
| ESTAT | TRICCHK+8~, TRICCHK+10*, TRICCHK+13, TRICCHK+17, TRICCHK+18, TRICCHK+20, TRICCHK+29, TRISTA+1~, TRISTA+3*, TRISTA+5* , TRISTA+6, TRISTA+11, TRISTA+20, TRISTA+21 |
| ETOUT | TRICCHK+8~, TRISTA+1~ |
| FILL | ECMECHK~, ECMECHK+17*, ECMECHK+20, ECMECHK+24, ECMECHK+27, ECMECHK+30 |
| FROM | TRICCHK~, TRICCHK+9*, TRICCHK+12, TRICCHK+17, TRICCHK+18, TRICCHK+20, TRICCHK+34, TRIC3+2, TRISTA~ |
| I | DISPLAY+72~, TYPE+7~, TYPE+9*, WRAP+1~, W1* |
| INDENT | WRAP~, WRAP+2, W1+1 |
| IOM | WRAP+2 |
| K | WRAP+1~, W1+1* |
| KEY | DISPLAY~, DISP2+1 |
| LFD | SUSP+2~ |
| LINE | DISPLAY+11~, DISPLAY+16*, DISP2+1 |
| LM | DVINFO~, DVINFO+16 |
| NCPNPI | DVINFO+4~, DVINFO+10*, DVINFO+14*, DVINFO+15, DVINFO+16 |
| NFROM | TRICCHK+8~, TRICCHK+11*, TRICCHK+12*, TRICCHK+21, TRICCHK+26, TRIC2+18, TRIC2+19, TRIC2+20, TRIC2+24, TRIC2+25 , DISPLAY+7 |
| OCODE | TYPE+7~, TYPE+8*, TYPE+9*, TYPE+10 |
| OPTS | TRIC3+4~, TRIC4*, TRIC4+5*, TRIC4+6, TRIC4+7, TRIC4+8, TRIC4+9 |
| OTXT | TYPE+7~, TYPE+8*, TYPE+10*, TYPE+11, TYPE+12* |
| PSCAN | TRIC2+1~ |
| PSOAR | DISPLAY+34~, DISPLAY+43!, DISPLAY+62 |
| PSOAR( | DISPLAY+59*, DISPLAY+68, DISPLAY+74 |
| PSOBEI | TRICCHK+8~, TRICCHK+14*, TRICCHK+22, TRICCHK+26, TRICCHK+27 |
| PSOCNT | DISPLAY+34~, DISPLAY+42*, DISPLAY+58*, DISPLAY+59, DISPLAY+67*, DISPLAY+68*, DISPLAY+74 |
| >> PSOCOM | DISPLAY+81*, DISPLAY+82 |
| PSOCOMMENT | DISPLAY+34~, DISPLAY+56*, DISPLAY+57 |
| PSODATA | DISPLAY+34~, DISPLAY+47! |
| PSODATA( | DISPLAY+51, DISPLAY+54, DISPLAY+55, DISPLAY+56 |
| PSODATE | DISPLAY+34~, DISPLAY+41*, DISPLAY+44*, DISPLAY+46 |
| PSODATE1 | DISPLAY+34~, DISPLAY+54*, DISPLAY+57 |
| PSODFN | DISPLAY+35~, DISPLAY+38*, DISPLAY+44, DISPLAY+46, DISPLAY+48, DISPLAY+51, DISPLAY+54, DISPLAY+55, DISPLAY+56 |
| PSOIT | TRIC2+1~, TRIC4+14*, TRIC4+15*, TRIC4+16, TRIC4+17, TRIC4+18 |
| PSOKSPPL | SUSP+3~ |
| >> PSOLAST | DISPLAY+79* |
| PSOMARG | WRAP+1~, WRAP+2*, W1 |
| PSONBILL | TRICCHK+28~*, TACT+1, TACT+2, DISPLAY+9, DISPLAY+13, DISPLAY+22, DISPLAY+23, TYPE+1, TYPE+4, HDR+5 |
| PSONPROG | TRICCHK+38~*, TRIC2+4, TRIC2+5, TRIC2+20, TRIC2+24, TACT+1, TACT+2, DISPLAY+9, DISPLAY+13, DISPLAY+22 , DISPLAY+23, TYPE+1, TYPE+4, HDR+6 |
| PSOPC | DISPLAY+35~, DISPLAY+45*, DISPLAY+46*, DISPLAY+48, DISPLAY+51, DISPLAY+54, DISPLAY+55, DISPLAY+56 |
| PSOQFLAG | SUSP+3~ |
| PSORESP | TRIC2+1~, TRIC4+1*, TRIC4+2, TRIC4+3 |
| >> PSORM | WRAP+2 |
| PSORXZD | SUSP+3~ |
| PSOSTATUS | DISPLAY+35~, DISPLAY+51*, DISPLAY+52 |
| PSOSTR | DISPLAY+35~, DISPLAY+57*, DISPLAY+59 |
| PSOTRIC | TRIC2+1~, TRIC2+3*, SUBMIT~, SUBMIT+8, TRISTA+1~, TRISTA+3*, TRISTA+4 |
| PSOTXT | WRAP~, W1* |
| PSOUSER | DISPLAY+35~, DISPLAY+55*, DISPLAY+57 |
| PSOWFLG | SUSP+2~ |
| PSOWRAP | WRAP+1~, WRAP+2*, W1*, W1+1 |
| PSOWRAP( | W1*, W1+1 |
| >> PSOY | DISPLAY+80*, DISPLAY+81 |
| PSOZXPI | SUSP+3~ |
| PSOZXPPL | SUSP+3~ |
| PTINFO | DISPLAY+11~, DISPLAY+18*, DISPLAY+19, DISPLAY+20 |
| REA | TRIC2+2~ |
| REJ | TRIC2+2~, TRIC2+3*, TRIC2+13*, TRIC2+14*, TRIC2+19, TRIC4+20, DISPLAY~, DISPLAY+8, DISPLAY+9, DISPLAY+12 , DISPLAY+13, DISPLAY+24, DISPLAY+25, DISPLAY+26, DISPLAY+27, DISPLAY+28, DISPLAY+29, DISPLAY+30, DISPLAY+31, DISPLAY+32 , TYPE+6, TYPE+8, TYPE+9, TYPE+11 |
| REJCOD | TRIC2+2~ |
| REJDATA | TRIC2+2~, TRIC2+12 |
| REJDATA( | TRIC2+14 |
| REJIEN | TRIAUD+6~, TRIAUD+17*, TRIAUD+18*, TRIAUD+19 |
| RESP | TRICCHK~, TRICCHK+10, TRICCHK+16, TRICCHK+25, TRICCHK+26, TRICCHK+28, TRICCHK+29, TRIC2+10, TRIC2+11, TRIC4+1 , TRIC4+21, TRISTA~, TRISTA+2*, TRISTA+5, TRISTA+9, TRISTA+13, TRISTA+18 |
| RFCNT | SUBMIT~, SUBMIT+9 |
| RFL | TRICCHK~, TRICCHK+14, TRICCHK+16, TRICCHK+17, TRICCHK+18, TRICCHK+27, TRIC2+4, TRIC2+11, TRIC2+12, TRIC2+18 , TRIC4+15, TRIC4+19, TRIC4+20, TRIC4+21, MSG+1, SUSP+1, TACT+1, TACT+2, TACT+4, DISPLAY+11~ , DISPLAY+12*, DISPLAY+13, DISPLAY+17, DISPLAY+21, DISPLAY+22, HDR+2, TRISTA~, TRISTA+3, TRISTA+5, TRISTA+7 , TRISTA+8, TRISTA+10, TRISTA+14, TRISTA+18, TRISTA+19, TRISTA+21, DVINFO~, DVINFO+5, DVINFO+10 |
| RRR | DISPLAY~, DISPLAY+85, DISPLAY+87, DISPLAY+88 |
| RTXT | TYPE+7~, TYPE+8*, TYPE+11*, TYPE+13 |
| RVTX | TRICCHK~, TRICCHK+20, TRISTA~ |
| RX | TRICCHK~, TRICCHK+14, TRICCHK+16, TRICCHK+17, TRICCHK+18, TRICCHK+22, TRICCHK+27, TRIC2+4, TRIC2+11, TRIC2+12 , TRIC2+18, TRIC2+19, TRIC4+13, TRIC4+15, TRIC4+19, TRIC4+20, TRIC4+21, MSG+1, SUSP+1, SUSP+4 , TACT+1, TACT+2, TACT+4, DISPLAY~, DISPLAY+8, DISPLAY+9, DISPLAY+12, DISPLAY+13, DISPLAY+17, DISPLAY+18 , DISPLAY+21, DISPLAY+22, DISPLAY+38, HDR+2, TRISTA~, TRISTA+3, TRISTA+5, TRISTA+7, TRISTA+8, TRISTA+10 , TRISTA+14, TRISTA+18, TRISTA+19, TRISTA+21, ECMECHK~, ECMECHK+16, ECMECHK+17, ECMECHK+20, ECMECHK+24, ECMECHK+27 , ECMECHK+30, DVINFO~, DVINFO+5, DVINFO+10 |
| RX0 | SUSP+2~ |
| RXCMOP | SUSP+2~ |
| RXFILL | TRIAUD~, TRIAUD+10*, TRIAUD+13 |
| RXIEN | SUBMIT~, SUBMIT+1, SUBMIT+4, SUBMIT+6, SUBMIT+7, SUBMIT+9, TRIAUD~, TRIAUD+8, TRIAUD+10, TRIAUD+13 , TRIAUD+18, TRIAUD+19 |
| RXLTOP | SUSP+3~ |
| RXN | SUSP+2~ |
| RXP | SUSP+2~ |
| RXS | SUSP+2~ |
| SD | SUSP+2~ |
| SUBMITE | SUBMIT+1~*, SUBMIT+2, SUBMIT+8 |
| TAB | HDR+1~, HDR+5*, HDR+6*, HDR+7* |
| TRESP | TRISTA+1~, TRISTA+5*, TRISTA+14*, TRISTA+15*, TRISTA+17, TRISTA+20, TRISTA+21 |
| TSTAT | TRISTA+1~, TRISTA+14*, TRISTA+15 |
| TXT | DVINFO+4~ |
| U | TRIC4+1, DISPLAY+19, DISPLAY+20, DISPLAY+22, DISPLAY+87, DISPLAY+88, ECMECHK+30, DVINFO+15, DVINFO+16 |
| VALMSG | SUSP+2~ |
| X | TRIC2+2~, TRIC2+12*, SUSP+2~, DISPLAY+74*, TRIAUD+6~, TRIAUD+7*, TRIAUD+8, TRIAUD+13*, TRIAUD+14, TRIAUD+18 , TRIAUD+19*, TRIAUD+21 |
| XFLAG | SUSP+2~ |
| Y | TRIC4+10*, TRIC4+12, SUSP+2~, TYPE+2*, TYPE+3 |
| Z | DISPLAY+72~ |
| ZZZ | TRIC2+2~, TRIC2+23* |