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 |
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. ; 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
|
|
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
; 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
; Called by SMAOVR (SMA action) only |
|
OVRCOD2(TYPE,VALUE,NUM) | ; Prompt for NCPDP Override Codes
; 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 or 943) ; (o) LST - List of all Reject codes with response (comma separated) ; Output: OTH - List of OTHER Reject codes (w/out 79 or 88 or 943) |
|
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+9, OVRCOD2+9, SEL+6 |
$$GET1^DIQ | DC+25, OVR+3, OVRX+7, DUP+10, DUP+11, DSC+6, IGNORE+13, IGNORE+15 |
^DIR | ASK+9, CONT+3, COM+2, OVR+11, OVRCOD1+9, IGNORE+37 |
$$LSTRFL^PSOBPSU1 | HDLG+11, LMREJ+7 |
ECMESND^PSOBPSU1 | HDLG+43 |
$$STATUS^PSOBPSUT | HDLG+22 |
CAN^PSOCAN | DC+19 |
YN^PSOCAN | DC+10 |
COM^PSOCAN1 | DC+13 |
REQ^PSOCAN4 | DC+15 |
$$GETNDC^PSONDCUT | HDLG+43 |
$$TRIC^PSOREJP1 | DC+7, HDLG+16 |
$$PSOET^PSOREJP3 | HDLG+36 |
$$TCOM^PSOREJP3 | ASK+29 |
OVRDSP^PSOREJU1 | OVR+7 |
DISPLAY^PSOREJU3 | ACTION+19, DC1+1 |
TRICCHK^PSOREJU3 | HDLG+22 |
$$FIND^PSOREJUT | HDLG+14, HDLG+28, HDLG+50, HDLG+58, LMREJ+8 |
CLOSE^PSOREJUT | HDLG+36, HDLG+37, HDLG+38, HDLG+60, HDLG+61 |
ECME^PSORXL1 | DC+26 |
AUDIT^PSOTRI | HDLG+36, HDLG+60 |
$$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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BPS( | DSC+3, DSC+4, DSC+5 |
^PS(52.86 - [#52.86] | IGNORE+14 |
^PSRX - [#52] | ACTION+16, DC+14, DC+16, LMREJ+6, DUP+9 |
^VA(200 - [#200] | SIG+2 |
^XUSEC("PSO EPHARMACY SITE MANAGER" | IGNORE+31 |
^XUSEC("PSO TRICARE/CHAMPVA" | HDLGTC+26 |
Name | Line Occurrences |
---|---|
$$ACTION | HDLG+32, HDLG+59 |
$$COM | ASK+29 |
$$CONT | ASK+27 |
$$DC | DC1+1 |
$$IGNORE | ASK+21 |
$$OVR | ASK+33 |
$$OVRCOD | OVR+3, OVR+4, OVR+5 |
$$OVRCOD1 | SMAOVR+7 |
$$OVRCOD2 | SMAOVR+8, SMAOVR+9, SMAOVR+10 |
$$OVRX | OVRDSP+4 |
$$SIG | ASK+29 |
ASK | ASK+22, ASK+27, ASK+29, ASK+32, DC1+1 |
CLADIC | CLA+5, CLADIC+7 |
HDLGRRR | HDLG+25, HDLG+56 |
HDLGTC | HDLG+19, HDLG+53 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACTION | ACTION+13~, ASK+1!, ASK+11*, ASK+14, ASK+21, ASK+27, ASK+29*, ASK+32, ASK+33*, DC1+1* , DC1+3, DC~, DC+10*, DC+13*, DC+15*, DC+27, HDLG+9~, HDLG+10*, HDLG+14, HDLG+22 , HDLG+28, HDLG+32*, HDLG+36, HDLG+37, HDLG+38, HDLG+42, HDLG+43, HDLG+50, HDLG+59*, HDLG+60 , HDLG+61, HDLG+65 |
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+14, SMAOVR+6~, SMAOVR+7*, SMAOVR+8*, SMAOVR+11 |
COD2 | OVR+2~, OVR+4*, OVR+7, OVR+14, SMAOVR+6~, SMAOVR+9*, SMAOVR+11 |
COD3 | OVR+2~, OVR+5*, OVR+7, OVR+14, SMAOVR+6~, SMAOVR+10*, SMAOVR+11 |
CODE | SIG+1~, SIG+2*, OVRX~, OVRX+6, OVRX+7, OTH~, OTH+7 |
CODES | HDLG~, HDLG+19, HDLG+25, HDLG+28, HDLG+53, HDLG+56, HDLG+58, HDLGRRR~, HDLGRRR+12, HDLGRRR+13* , HDLGRRR+21*, HDLGRRR+28*, HDLGRRR+31*, HDLGTC~, HDLGTC+10*, HDLGTC+13*, HDLGTC+16*, HDLGTC+21, HDLGTC+22, HDLGTC+23 |
COM | ACTION+13~, ASK+29*, COM+1!, COM+3*, COM+4*, COM+5 |
DA | DC+3~, DC+4*, DC+14, DC+16, DC+18, DC+25 |
DAT | DAT~, DAT+1 |
DC1 | DC~, DC+2*, DC+10 |
DEF | ACTION~, ASK+8, HDLG~, HDLG+19, HDLG+25, HDLG+32, HDLG+53, HDLG+56, HDLG+59, HDLGRRR~ , HDLGRRR+34*, HDLGTC~, HDLGTC+19* |
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+5*, OVRCOD+6*, OVRCOD2+6*, SEL+4*, SEL+10* |
DIC("B" | OVRCOD+7*, OVRCOD2+7*, SEL+5*, SEL+10! |
DIC("S" | CLA+4*, OVRCOD+8*, OVRCOD2+8* |
DIC(0 | CLA+3*, OVRCOD+6*, OVRCOD2+6*, SEL+4* |
DIR | ACTION+13~, ASK+1!, ASK+17!, DC+12!, CONT+1~, COM+1!, OVR+2~, OVRCOD1+2~, IGNORE+7~ |
DIR("??" | ASK+7* |
DIR("A" | ASK+2*, ASK+3*, ASK+4*, ASK+5*, ASK+6*, ASK+7*, CONT+2*, COM+2*, OVR+10*, OVRCOD1+4* , IGNORE+35* |
DIR("B" | ASK+8*, CONT+2*, OVR+10*, OVRCOD1+5*, IGNORE+36* |
DIR("PRE" | OVRCOD1+6* |
DIR("S" | OVRCOD1+8* |
DIR(0 | ASK+2*, ASK+3*, ASK+4*, ASK+5*, ASK+6*, ASK+7*, CONT+2*, COM+2*, OVR+10*, OVRCOD1+3* , IGNORE+34* |
DIROUT | OVRCOD1+2~, OVRCOD1+10 |
DIRUT | ACTION+13~, ASK+1!, ASK+10, ASK+17!, DC1+1, DC+10*, DC+13, DC+15, CONT+1~, CONT+4 , COM+1!, COM+4, OVR+2~, OVR+12, OVRCOD1+2~, OVRCOD1+10, IGNORE+7~, IGNORE+38 |
DTOUT | CLA+2~, CLADIC+3, OVRCOD+2~, OVRCOD+10, OVRCOD1+2~, OVRCOD2+2~, OVRCOD2+10, SEL+1~, SEL+8 |
DUOUT | CLA+2~, CLADIC+3, OVRCOD+2~, OVRCOD+10, OVRCOD2+2~, OVRCOD2+10, 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+36, HDLG+37, HDLG+38, HDLG+53, HDLG+60, HDLG+61, HDLGTC~, HDLGTC+26 , IGNORE+31 |
EX7988 | HDLGRRR+11~, HDLGRRR+13*, HDLGRRR+16, HDLGRRR+25* |
FIELD | SEL~, SEL+2, SEL+3, SEL+4, DSC~, DSC+2, DSC+6 |
FILE | OVRX+4~, OVRX+5*, OVRX+6, OVRX+7, 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+43 |
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+9 |
LEN | CLEAN+1~*, CLEAN+3 |
LST | OVRDSP~, OVRDSP+4, OTH~, OTH+6, OTH+7 |
MSG | DC+3~, DC+17*, LMREJ~, LMREJ+9* |
NEWDATA | HDLG+9~, HDLG+50!, HDLG+53, HDLG+56, HDLG+58 |
NEWDATA("" | HDLG+59 |
NUM | OVRCOD1~, OVRCOD1+4, OVRCOD2~, OVRCOD2+3, OVRCOD2+4, OVRCOD2+5, SMAOVR~, SMAOVR+7, SMAOVR+8, SMAOVR+9 , SMAOVR+10 |
OPTS | ACTION~, ASK+3, ASK+4, ASK+5, ASK+6, ASK+7, HDLG~, HDLG+19, HDLG+25, HDLG+32 , HDLG+53, HDLG+56, HDLG+57*, HDLG+59, HDLGRRR~, HDLGRRR+34*, HDLGTC~, HDLGTC+20*, HDLGTC+21*, HDLGTC+22* , HDLGTC+23*, HDLGTC+26* |
>> ORN | DC+25* |
OTH | OTH+5~, OTH+7*, OTH+8*, OTH+9 |
OVR | ACTION+13~, ASK+32, ASK+33* |
PKIR | DC+11~ |
>> PPL | DC+26* |
PRPT | OVRCOD+2~, OVRCOD+3*, OVRCOD+4*, OVRCOD+5*, OVRCOD+6, OVRCOD2+2~, OVRCOD2+3*, OVRCOD2+4*, OVRCOD2+5*, OVRCOD2+6 |
PS | DC+8~, DC+9* |
PSCAN | DC+3~ |
PSCAN( | DC+18* |
PSOAMT | IGNORE+7~, IGNORE+10*, IGNORE+20, IGNORE+26*, IGNORE+31, IGNORE+35 |
PSOCANRD | DC+14~* |
PSOCKDC | DC+26~* |
PSODIV | IGNORE+7~, IGNORE+13*, IGNORE+14 |
PSODIVIEN | IGNORE+7~, IGNORE+14*, IGNORE+15 |
>> PSOFDR | DC+17 |
PSOI | CLA+2~, CLA+5*, CLADIC+6, CLADIC+8 |
PSOIGNORE | IGNORE+7~, IGNORE+15*, IGNORE+20 |
PSOIT | ASK+19~, ASK+20*, ASK+21*, ASK+22, ASK+23, ASK+24 |
>> PSOLST(1 | DC+25* |
>> PSONBILL | ACTION+16 |
PSOQ | CLA+2~, CLA+3*, CLA+5, CLA+6, CLADIC+3*, CLADIC+4* |
>> PSORX("DFLG" | DC+10*, DC+13*, DC+15* |
PSOSCC | CLA+2~, CLA+3*, CLA+6, CLADIC+6, CLADIC+8* |
PSOTRIC | ASK+27, ASK+29, DC+7~*, HDLG+9~, HDLG+16*, HDLG+19, HDLG+22, HDLG+25, HDLG+36, HDLG+53 , HDLG+56, HDLG+60 |
QT | SEL+1~, SEL+6, SEL+7*, SEL+8* |
REA | DC+3~, DC+16* |
REJ | ACTION~, ACTION+15, ACTION+16, ACTION+19, DC1+1, OVR+3, HDLG+9~, HDLG+31*, HDLG+32, HDLG+60 , HDLG+61 |
REJDATA | HDLG+9~, HDLG+14, HDLG+19, HDLG+25, HDLG+28, HDLGTC~ |
REJDATA( | HDLG+35, HDLGTC+13 |
REJDATA("" | HDLG+31 |
REJI | HDLG+9~, HDLG+35*, HDLG+36, HDLG+37, HDLG+38 |
REJIEN | HDLG+9~, HDLGRRR+11~, HDLGRRR+13*, HDLGRRR+16*, HDLGRRR+19, HDLGRRR+20, HDLGRRR+21, HDLGRRR+25, HDLGTC+9~, HDLGTC+10* , HDLGTC+13* |
RESP | HDLG+9~, HDLG+43, HDLG+44, HDLG+46 |
RESPI | HDLG+9~ |
RESPREJ | HDLG+9~ |
RFL | ASK+21, ASK+29, HDLG~, HDLG+11*, HDLG+14, HDLG+16, HDLG+22, HDLG+28, HDLG+36, HDLG+37 , HDLG+38, HDLG+43, HDLG+50, HDLG+58, HDLG+60, HDLG+61, LMREJ~, LMREJ+7*, LMREJ+8, IGNORE~ , IGNORE+10 |
RRR | ACTION~, ACTION+19, HDLG+9~, HDLG+10*, HDLG+25, HDLG+32, HDLG+56, HDLG+59, HDLGRRR~, HDLGRRR+13* , HDLGRRR+20*, HDLGRRR+25*, HDLGRRR+28 |
RRRDATA | HDLGRRR~ |
RRRDATA( | HDLGRRR+16, HDLGRRR+19, HDLGRRR+20, HDLGRRR+21, HDLGRRR+25 |
RSC | SMAOVR~, SMAOVR+7, SMAOVR+8 |
RSP | DUP~, DUP+10 |
RX | ACTION~, ACTION+15, ACTION+16, ACTION+19, ASK+21, ASK+29, DC1+1, DC~, DC+4, DC+7 , OVR+3, HDLG~, HDLG+11, HDLG+14, HDLG+16, HDLG+22, HDLG+28, HDLG+32, HDLG+36, HDLG+37 , HDLG+38, HDLG+43, HDLG+50, HDLG+58, HDLG+59, HDLG+60, HDLG+61, 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+16*, DC+18 |
SAVECODES | HDLGRRR+11~, HDLGRRR+12*, HDLGRRR+28 |
STR | CLEAN~, CLEAN+1, CLEAN+2*, CLEAN+3 |
TYPE | OVRX~, OVRX+5, OVRX+7, OVRCOD~, OVRCOD+3, OVRCOD+4, OVRCOD+5, OVRCOD+12, OVRCOD2~, OVRCOD2+3 , OVRCOD2+4, OVRCOD2+5, OVRCOD2+12 |
U | SIG+2, CLADIC+6, CLADIC+8, HDLGRRR+20, SMAOVR+11 |
VALMBCK | DC+8~, DC+9*, DC+10 |
VALUE | OVRCOD~, OVRCOD+7, OVRCOD1~, OVRCOD1+5, OVRCOD2~, OVRCOD2+7, DSC~, DSC+2, DSC+4, DSC+5 |
X | ACTION+13~, ASK+17!, 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+11, CONT+1~, CONT+4*, CONT+5, SIG+1~, SIG+2*, SIG+5*, SIG+6, OVR+12 , CLA+2~, CLADIC+4, CLADIC+6, CLADIC+8, OVRX+4~, OVRX+7, OVRCOD+2~, OVRCOD+12, OVRCOD+13, OVRCOD1+2~ , OVRCOD1+11, OVRCOD2+2~, OVRCOD2+12, OVRCOD2+13, SEL+1~, SEL+9, SEL+10, IGNORE+39 |