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* |