PSOREJU1 ;BIRM/MFR - BPS (ECME) - Clinical Rejects Utilities (1) ;10/15/04
Source file <PSOREJU1.m>
Package | Total | Call Graph |
---|---|---|
Outpatient Pharmacy | 13 | ($$LSTRFL,ECMESND)^PSOBPSU1 $$STATUS^PSOBPSUT (CAN,YN)^PSOCAN COM^PSOCAN1 REQ^PSOCAN4 $$GETNDC^PSONDCUT $$TRIC^PSOREJP1 ($$PSOET,$$TCOM)^PSOREJP3 OVRDSP^PSOREJU1 (DISPLAY,TRICCHK)^PSOREJU3 ($$FIND,CLOSE)^PSOREJUT ECME^PSORXL1 AUDIT^PSOTRI |
Kernel | 3 | $$HL7TFM^XLFDT $$UP^XLFSTR SIG^XUSESIG |
VA FileMan | 3 | ^DIC $$GET1^DIQ ^DIR |
E Claims Management Engine | 1 | $$AMT^BPSBUTL |
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 |
---|---|---|
ACTION(RX,REJ,OPTS,DEF,RRR) | ;
; Input: (r) RX - Rx IEN (#52) ; (r) REJ - REJECT ID (IEN) ; (r) OPTS - Available options ("QIDO" for QUIT/IGNORE/DISCONTINUE/OVERRIDE) ; (o) DEF - Default Option ("O", "I" or "Q") ; (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 ; Output: ACTION: "I^Comments" - Ignore Reject ; "O^COD1^COD2^COD3" - Override with the Override codes COD1(Prof.),COD2(Reason) and COD3(Result) ; "D" - Discontinue ; "Q" - Quit ; "^" - Up-arrow entered or timed out |
|
ASK | ||
DC1 | ;Discontinue
|
|
DC(RX,ACTION,DC1) | ; - Discontinue inside and outside call
; DC1 Indicates that DIRUT needs to be returned if applicable |
|
CONT() | ;- Ask to continue for bypassing claims processing ;PSO*7.0*358
|
|
SIG() | ; - Get electronic signature
|
|
COM() | ; - Ask for CLOSE comments
|
|
OVR() | ; - Ask for OVERRIDE codes
; Called by ASK above (Reject Notification Screen) |
|
OVRDSP(LST) | ; - Display the Override Codes
|
|
CLA() | ; - Ask for up to 3 Clarification Codes
; Called by SMA^PSOREJP1 (SMA action) and CLA^PSOREJP1 (CLA action) |
|
CLADIC | ;
; DIC variables, PSOI, PSOSCC, and DUP newed and set by CLA |
|
HDLG(RX,RFL,CODES,FROM,OPTS,DEF) | ; - REJECT Handling
|
|
HDLGRRR(RRRDATA,OPTS,DEF,RRR,CODES) | ||
HDLGTC(REJDATA,OPTS,DEF,CODES,DUZ) | ; Check for TRICARE/CHAMPVA open rejects, new tag PSO*421
; Input: (r) REJDATA - reject array returned by $$FIND ; (r) OPTS - Available options ("QIDO" for QUIT/IGNORE/DISCONTINUE/OVERRIDE) ; - possibly modified by subroutine ; (r) DEF - Default Option ("O", "I" or "Q") ; - possibly modified by subroutine ; (r) CODES - Open reject codes ; - modified by subroutine ; (r) DUZ - Internal IEN of user |
|
OVRX(TYPE,CODE) | ; - Returns the extended code/description of the NCPDP DUR override codes
; Input: (r) TYPE - 1 (REASON FOR SERVICE), 2 (PROFESSIONAL SERVICE) or 3 (RESULT OF SERVICE) ; (r) CODE - Table IEN ; Output: "CODE - DESCRIPTION" |
|
OVRCOD(TYPE,VALUE) | ; - Prompt for NCPDP Override Codes
; Called by OVR above (reject notification screen), OVR^PSOREJP1 (OVR action) |
|
OVRCOD1(VALUE,NUM) | ; - Prompt for Reason for Service Code - PSO*7*421
; Called by SMAOVR (SMA action) only |
|
OVRCOD2(TYPE,VALUE,NUM) | ; - Prompt for NCPDP Override Codes - PSO*7*421
; Called by SMAOVR (SMA action) only |
|
SEL(FIELD,FILE,ARRAY,DEFAULT) | ; - Provides field selection (one, multiple or ALL)
|
|
LMREJ(RX,RFL,MSG,BCK) | ; Used by ListManager hidden actions to detect unresolved 3rd Party Rejects
|
|
DUP(RX,RSP,CLOSED) | ; Checks if REJECT has already been logged in the PRESCRIPTION file
; Input: (r) RX - Rx IEN (#52) ; (o) RSP - Response IEN ; (o) CLOSED - If CLOSED=1 and Reject is closed, then do not count as duplicate ; Output: DUP - 1: Already logged (duplicate) ; 0: Not yet logged on PRESCRIPTION file |
|
OTH(CODE,LST) | ; Removes the current Reject code from the list
; Input: (r) CODE - Current Reject Code (79 or 88) ; (o) LST - List of all Reject codes with response (comma separated) ; Output: OTH - List of OTHER Reject codes (w/out 79 or 88) |
|
DAT(DAT) | ; - External Date
|
|
CLEAN(STR) | ; Remove blanks from the end of a string and replaces ";" with ","
|
|
DSC(FILE,VALUE,FIELD) | ;Look up code descriptions
|
|
SMAOVR(RSC,NUM) | ; - Ask for OVERRIDE codes - allows deletion of defaults - PSO*7*421
; Called by SMA^PSOREJP1 (SMA action) |
|
IGNORE(RX,RFL) | ;
; RX = Prescription IEN ; RFL = Refill ; Return value 1 = Allow IGNORE. ; Return value 0 = Don't allow IGNORE. ; Return value 0^GrossAmtDue = Don't allow. Return amt for user msg. |
Name | Field # of Occurrence |
---|---|
$$AMT^BPSBUTL | IGNORE+10 |
^DIC | CLADIC+2, OVRX+6, OVRCOD+8, OVRCOD2+8, SEL+6 |
$$GET1^DIQ | DC+24, OVR+3, OVRX+7, OVRX+8, OVRX+9, DUP+10, DUP+11, DSC+6, IGNORE+13, IGNORE+15 |
^DIR | ASK+7, CONT+3, COM+2, OVR+10, OVRCOD1+8, IGNORE+37 |
$$LSTRFL^PSOBPSU1 | HDLG+11, LMREJ+7 |
ECMESND^PSOBPSU1 | HDLG+40 |
$$STATUS^PSOBPSUT | HDLG+22 |
CAN^PSOCAN | DC+18 |
YN^PSOCAN | DC+9 |
COM^PSOCAN1 | DC+12 |
REQ^PSOCAN4 | DC+14 |
$$GETNDC^PSONDCUT | HDLG+40 |
$$TRIC^PSOREJP1 | DC+6, HDLG+16 |
$$PSOET^PSOREJP3 | HDLG+35 |
$$TCOM^PSOREJP3 | ASK+26 |
OVRDSP^PSOREJU1 | OVR+7 |
DISPLAY^PSOREJU3 | ACTION+19, DC1+1 |
TRICCHK^PSOREJU3 | HDLG+22 |
$$FIND^PSOREJUT | HDLG+14, HDLG+28, HDLG+45, HDLG+51, LMREJ+8 |
CLOSE^PSOREJUT | HDLG+35, HDLG+36, HDLG+37, HDLG+53, HDLG+54 |
ECME^PSORXL1 | DC+25 |
AUDIT^PSOTRI | HDLG+35, HDLG+53 |
$$HL7TFM^XLFDT | DAT+1 |
$$UP^XLFSTR | SEL+7 |
SIG^XUSESIG | SIG+5 |
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 |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^PSRX - [#52] | GET1^DIQ |
52.25 | GET1^DIQ |
^PS(52.86 - [#52.86] | GET1^DIQ |
^BPS(9002313.21 - [#9002313.21] | GET1^DIQ |
^BPS(9002313.22 - [#9002313.22] | GET1^DIQ |
^BPS(9002313.23 - [#9002313.23] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BPS( | DSC+3, DSC+4, DSC+5 |
^PS(52.86 - [#52.86] | IGNORE+14 |
^PSRX - [#52] | ACTION+16, DC+13, DC+15, LMREJ+6, DUP+9 |
^VA(200 - [#200] | SIG+2 |
^XUSEC("PSO EPHARMACY SITE MANAGER" | IGNORE+31 |
^XUSEC("PSO TRICARE/CHAMPVA" | HDLGTC+18 |
Name | Line Occurrences |
---|---|
$$ACTION | HDLG+32, HDLG+52 |
$$COM | ASK+26 |
$$CONT | ASK+24 |
$$DC | DC1+1 |
$$IGNORE | ASK+18 |
$$OVR | ASK+30 |
$$OVRCOD | OVR+3, OVR+4, OVR+5 |
$$OVRCOD1 | SMAOVR+7 |
$$OVRCOD2 | SMAOVR+8, SMAOVR+9, SMAOVR+10 |
$$OVRX | OVRDSP+4 |
$$SIG | ASK+26 |
ASK | ASK+19, ASK+24, ASK+26, ASK+29, DC1+1 |
CLADIC | CLA+4, CLADIC+7 |
HDLGRRR | HDLG+25, HDLG+49 |
HDLGTC | HDLG+19, HDLG+47 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACTION | ACTION+13~, ASK!, ASK+12*, ASK+18, ASK+24, ASK+26*, ASK+29, ASK+30*, DC1+1*, DC1+3 , DC~, DC+9*, DC+12*, DC+14*, DC+26, HDLG+9~, HDLG+10*, HDLG+14, HDLG+22, HDLG+28 , HDLG+32*, HDLG+35, HDLG+36, HDLG+37, HDLG+39, HDLG+40, HDLG+45, HDLG+52*, HDLG+53, HDLG+54 , HDLG+55 |
ARRAY | SEL~, SEL+4!, SEL+7!*, SEL+8!*, SEL+11* |
ARRAY( | SEL+9, SEL+10* |
BCK | LMREJ~, LMREJ+9* |
CLOSED | DUP~, DUP+7*, DUP+11 |
COD1 | OVR+2~, OVR+3*, OVR+7, OVR+12, SMAOVR+6~, SMAOVR+7*, SMAOVR+8*, SMAOVR+11 |
COD2 | OVR+2~, OVR+4*, OVR+7, OVR+12, SMAOVR+6~, SMAOVR+9*, SMAOVR+11 |
COD3 | OVR+2~, OVR+5*, OVR+7, OVR+12, SMAOVR+6~, SMAOVR+10*, SMAOVR+11 |
CODE | SIG+1~, SIG+2*, OVRX~, OVRX+6, OVRX+7, OVRX+8, OVRX+9, OTH~, OTH+7 |
CODES | HDLG~, HDLG+19, HDLG+25, HDLG+28, HDLG+47, HDLG+49, HDLG+51, HDLGRRR~, HDLGRRR+12, HDLGRRR+13* , HDLGRRR+17*, HDLGRRR+20*, HDLGRRR+22*, HDLGTC~, HDLGTC+10*, HDLGTC+12*, HDLGTC+14*, HDLGTC+16 |
COM | ACTION+13~, ASK+26*, COM+1!, COM+3*, COM+4 |
DA | DC+3~, DC+4*, DC+13, DC+15, DC+17, DC+24 |
DAT | DAT~, DAT+1 |
DC1 | DC~, DC+2*, DC+9 |
DEF | ACTION~, ASK+7, HDLG~, HDLG+19, HDLG+25, HDLG+32, HDLG+47, HDLG+49, HDLG+52, HDLGRRR~ , HDLGRRR+24*, HDLGTC~, HDLGTC+16* |
DEFAULT | SEL~, SEL+5 |
DIC | CLA+2~, CLA+3*, OVRX+4~, OVRX+6*, OVRCOD+2~, OVRCOD+6*, OVRCOD2+2~, OVRCOD2+6*, SEL+1~, SEL+4* |
DIC("A" | CLA+4*, OVRCOD+6*, OVRCOD2+6*, SEL+4*, SEL+10* |
DIC("B" | OVRCOD+7*, OVRCOD2+7*, SEL+5*, SEL+10! |
DIC(0 | CLA+3*, OVRCOD+6*, OVRCOD2+6*, SEL+4* |
DIR | ACTION+13~, ASK!, ASK+15!, DC+11!, CONT+1~, COM+1!, OVR+2~, OVRCOD1+2~, IGNORE+7~ |
DIR("??" | ASK+6* |
DIR("A" | ASK+1*, ASK+2*, ASK+3*, ASK+4*, ASK+5*, ASK+6*, CONT+2*, COM+2*, OVR+9*, OVRCOD1+4* , IGNORE+35* |
DIR("B" | ASK+7*, CONT+2*, OVR+9*, OVRCOD1+5*, IGNORE+36* |
DIR("PRE" | OVRCOD1+6* |
DIR(0 | ASK+1*, ASK+2*, ASK+3*, ASK+4*, ASK+5*, ASK+6*, CONT+2*, COM+2*, OVR+9*, OVRCOD1+3* , IGNORE+34* |
DIROUT | OVRCOD1+2~, OVRCOD1+9 |
DIRUT | ACTION+13~, ASK!, ASK+7, ASK+15!, DC1+1, DC+9*, DC+12, DC+14, CONT+1~, CONT+3 , COM+1!, COM+3, OVR+2~, OVR+10, OVRCOD1+2~, OVRCOD1+9, IGNORE+7~, IGNORE+38 |
DTOUT | CLA+2~, CLADIC+3, OVRCOD+2~, OVRCOD+9, OVRCOD1+2~, OVRCOD2+2~, OVRCOD2+9, SEL+1~, SEL+8 |
DUOUT | CLA+2~, CLADIC+3, OVRCOD+2~, OVRCOD+9, OVRCOD2+2~, OVRCOD2+9, SEL+1~, SEL+8 |
DUP | CLA+2~, CLADIC+5*, CLADIC+6*, CLADIC+7, DUP+6~, DUP+8*, DUP+9, DUP+10*, DUP+11*, DUP+12 |
DUZ | SIG+2, HDLG+19, HDLG+35, HDLG+36, HDLG+37, HDLG+47, HDLG+53, HDLG+54, HDLGTC~, HDLGTC+18 , IGNORE+31 |
EX7988 | HDLGRRR+11~, HDLGRRR+13*, HDLGRRR+15, HDLGRRR+19* |
FIELD | SEL~, SEL+2, SEL+3, SEL+4, DSC~, DSC+2, DSC+6 |
FILE | OVRX+4~, OVRX+5*, OVRX+6, OVRCOD+2~, OVRCOD+3*, OVRCOD+4*, OVRCOD+5*, OVRCOD+6, OVRCOD2+2~, OVRCOD2+3* , OVRCOD2+4*, OVRCOD2+5*, OVRCOD2+6, SEL~, SEL+4, DSC~, DSC+2, DSC+3, DSC+4, DSC+5 , DSC+6 |
FROM | HDLG~, HDLG+22, HDLG+40 |
I | OVRDSP+1~, OVRDSP+2*, OVRDSP+3, OVRDSP+4, CLA+2~, CLADIC+6*, OTH+5~, OTH+6*, OTH+7 |
IDX | DUP+6~, DUP+8*, DUP+9*, DUP+10, DUP+11 |
IEN | DSC+1~, DSC+5*, DSC+6 |
KFLAG | OVRCOD1+2~, OVRCOD1+7*, OVRCOD1+8 |
LEN | CLEAN+1~*, CLEAN+3 |
LST | OVRDSP~, OVRDSP+4, OTH~, OTH+6, OTH+7 |
MSG | DC+3~, DC+16*, LMREJ~, LMREJ+9* |
NEWDATA | HDLG+9~, HDLG+45!, HDLG+47, HDLG+49, HDLG+51 |
NEWDATA("" | HDLG+52 |
NUM | OVRCOD1~, OVRCOD1+4, OVRCOD2~, OVRCOD2+3, OVRCOD2+4, OVRCOD2+5, SMAOVR~, SMAOVR+7, SMAOVR+8, SMAOVR+9 , SMAOVR+10 |
OPTS | ACTION~, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, HDLG~, HDLG+19, HDLG+25, HDLG+32 , HDLG+47, HDLG+49, HDLG+50*, HDLG+52, HDLGRRR~, HDLGRRR+24*, HDLGTC~, HDLGTC+16*, HDLGTC+18* |
>> ORN | DC+24* |
OTH | OTH+5~, OTH+7*, OTH+8*, OTH+9 |
OVR | ACTION+13~, ASK+29, ASK+30* |
PKIR | DC+10~ |
>> PPL | DC+25* |
PRPT | OVRCOD+2~, OVRCOD+3*, OVRCOD+4*, OVRCOD+5*, OVRCOD+6, OVRCOD2+2~, OVRCOD2+3*, OVRCOD2+4*, OVRCOD2+5*, OVRCOD2+6 |
PS | DC+7~, DC+8* |
PSCAN | DC+3~ |
PSCAN( | DC+17* |
PSOAMT | IGNORE+7~, IGNORE+10*, IGNORE+20, IGNORE+26*, IGNORE+31, IGNORE+35 |
PSOCANRD | DC+13~* |
PSOCKDC | DC+25~* |
PSODIV | IGNORE+7~, IGNORE+13*, IGNORE+14 |
PSODIVIEN | IGNORE+7~, IGNORE+14*, IGNORE+15 |
>> PSOFDR | DC+16 |
PSOI | CLA+2~, CLA+4*, CLADIC+6, CLADIC+8 |
PSOIGNORE | IGNORE+7~, IGNORE+15*, IGNORE+20 |
PSOIT | ASK+9~, ASK+17*, ASK+18*, ASK+19, ASK+20, ASK+21 |
>> PSOLST(1 | DC+24* |
>> PSONBILL | ACTION+16 |
PSOQ | CLA+2~, CLA+3*, CLA+4, CLA+5, CLADIC+3*, CLADIC+4* |
>> PSORX("DFLG" | DC+9*, DC+12*, DC+14* |
PSOSCC | CLA+2~, CLA+3*, CLA+5, CLADIC+6, CLADIC+8* |
PSOTRIC | ASK+24, ASK+26, DC+6~*, HDLG+9~, HDLG+16*, HDLG+19, HDLG+22, HDLG+25, HDLG+35, HDLG+47 , HDLG+49, HDLG+53 |
QT | SEL+1~, SEL+6, SEL+7*, SEL+8* |
REA | DC+3~, DC+15* |
REJ | ACTION~, ACTION+15, ACTION+16, ACTION+19, DC1+1, OVR+3, HDLG+9~, HDLG+31*, HDLG+32, HDLG+53 , HDLG+54 |
REJDATA | HDLG+9~, HDLG+14, HDLG+19, HDLG+25, HDLG+28, HDLGTC~ |
REJDATA( | HDLG+34, HDLGTC+12 |
REJDATA("" | HDLG+31 |
REJI | HDLG+9~, HDLG+34*, HDLG+35, HDLG+36, HDLG+37 |
REJIEN | HDLG+9~, HDLGRRR+11~, HDLGRRR+13*, HDLGRRR+15*, HDLGRRR+17, HDLGRRR+19, HDLGTC+9~, HDLGTC+10*, HDLGTC+12* |
RESP | HDLG+9~, HDLG+40, HDLG+41, HDLG+43 |
RESPI | HDLG+9~ |
RESPREJ | HDLG+9~ |
RFL | ASK+18, ASK+26, HDLG~, HDLG+11*, HDLG+14, HDLG+16, HDLG+22, HDLG+28, HDLG+35, HDLG+36 , HDLG+37, HDLG+40, HDLG+45, HDLG+51, HDLG+53, HDLG+54, LMREJ~, LMREJ+7*, LMREJ+8, IGNORE~ , IGNORE+10 |
RRR | ACTION~, ACTION+19, HDLG+9~, HDLG+10*, HDLG+25, HDLG+32, HDLG+49, HDLG+52, HDLGRRR~, HDLGRRR+13* , HDLGRRR+17*, HDLGRRR+19*, HDLGRRR+20 |
RRRDATA | HDLGRRR~ |
RRRDATA( | HDLGRRR+15, HDLGRRR+17, HDLGRRR+19 |
RSC | SMAOVR~, SMAOVR+7, SMAOVR+8 |
RSP | DUP~, DUP+10 |
RX | ACTION~, ACTION+15, ACTION+16, ACTION+19, ASK+18, ASK+26, DC1+1, DC~, DC+4, DC+6 , OVR+3, HDLG~, HDLG+11, HDLG+14, HDLG+16, HDLG+22, HDLG+28, HDLG+32, HDLG+35, HDLG+36 , HDLG+37, HDLG+40, HDLG+45, HDLG+51, HDLG+52, HDLG+53, HDLG+54, LMREJ~, LMREJ+6, LMREJ+7 , LMREJ+8, DUP~, DUP+9, DUP+10, DUP+11, IGNORE~, IGNORE+10, IGNORE+13 |
RXN | DC+3~ |
RXNUM | DC+3~, DC+4*, DC+15*, DC+17 |
SAVECODES | HDLGRRR+11~, HDLGRRR+12*, HDLGRRR+20 |
STR | CLEAN~, CLEAN+1, CLEAN+2*, CLEAN+3 |
TYPE | OVRX~, OVRX+5, OVRX+7, OVRX+8, OVRX+9, OVRCOD~, OVRCOD+3, OVRCOD+4, OVRCOD+5, OVRCOD+11 , OVRCOD2~, OVRCOD2+3, OVRCOD2+4, OVRCOD2+5, OVRCOD2+11 |
U | SIG+2, CLADIC+6, CLADIC+8, HDLGRRR+17, SMAOVR+11 |
VALMBCK | DC+7~, DC+8*, DC+9 |
VALUE | OVRCOD~, OVRCOD+7, OVRCOD1~, OVRCOD1+5, OVRCOD2~, OVRCOD2+7, DSC~, DSC+2, DSC+4, DSC+5 |
X | ACTION+13~, ASK+15!, SIG+1~, COM+1!, COM+3, CLA+2~, OVRX+4~, OVRX+6*, OVRCOD+2~, OVRCOD1+2~ , OVRCOD2+2~, SEL+1~, SEL+6, SEL+7, DAT+1*, DAT+2 |
X1 | SIG+1~, SIG+5 |
Y | ACTION+13~, ASK+12, CONT+1~, CONT+3*, CONT+4, SIG+1~, SIG+2*, SIG+5*, SIG+6, OVR+10 , CLA+2~, CLADIC+4, CLADIC+6, CLADIC+8, OVRX+4~, OVRX+7, OVRX+8, OVRX+9, OVRCOD+2~, OVRCOD+11 , OVRCOD+12, OVRCOD1+2~, OVRCOD1+10, OVRCOD2+2~, OVRCOD2+11, OVRCOD2+12, SEL+1~, SEL+9, SEL+10, IGNORE+39 |