PSOREJP1 ;BIRM/MFR - Third Party Reject Display Screen ;04/29/05
Source file <PSOREJP1.m>
Package | Total | Call Graph |
---|---|---|
Outpatient Pharmacy | 10 | $$LSTRFL^PSOBPSU1 ($$RXSITE,$$STATUS)^PSOBPSUT LST^PSOPMP0 ($$PSOET,$$RXINFO,COM,SEND)^PSOREJP3 ($$ISDUR,REJ)^PSOREJP5 ($$CLA,$$DSC,$$OVRCOD,$$OVRX,$$SMAOVR,OVRDSP)^PSOREJU1 ($$DVINFO,$$PA,$$PTINFO,GET)^PSOREJU2 $$FIND^PSOREJUT EPH^PSORXEDT DP^PSORXVW |
E Claims Management Engine | 3 | ($$BBILL,$$RESUBMIT)^BPSBUTL DURRESP^BPSNCPD3 ^BPSVRX |
List Manager | 3 | EN^VALM FULL^VALM1 (CNTRL,RESTORE,SAVE)^VALM10 |
VA FileMan | 3 | ^DIC $$GET1^DIQ ^DIR |
Kernel | 1 | $$FMTE^XLFDT |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(RX,REJ,CHANGE) | ; Entry point
|
|
HDR | ; Builds the Header section
|
|
TRIC(RX,RFL,PSOTRIC) | ; Return 1 for TRICARE, 2 for CHAMPVA or 0 (zero) for not TRICARE or CHAMPVA
|
|
ELIGDISP(RX,RFL) | ; Return either CHAMPVA or TRICARE for display
; purposes, or null if neither |
|
ELIGTCV(RX,RFL,CAPS) | ; Return either CHAMPVA, TRICARE, or Veteran/VETERAN for eligibility display
; if CAPS=1 then return "Veteran" in all caps ; Note if the requested refill has been deleted, then the message "N/A - Fill Deleted" will be returned |
|
INIT | ; Builds the Body section
|
|
REJ | ; Reject Information
|
|
OTH | ; Other Rejects Information
|
|
INS | ; Insurance Information
|
|
CLS | ; Resolution Information
|
|
SET(FIELD,L,UND) | ; Sets the lines for fields that require text wrapping
|
|
LABEL(FIELD) | ; Sets the label for the field
|
|
VIEW | ; Rx View hidden action
|
|
EDT | ; Rx Edit hidden action
|
|
OVR | ; Override a REJECT action
|
|
RES | ; Re-submit a claim action
|
|
CLA | ; Submit Clarification Code
|
|
PA | ; Submit Prior Authorization
|
|
MP | ; Patient Medication Profile
|
|
EXIT | ;
|
|
SETLN(TEXT,REV,UND,HIG) | ; Sets a line to be displayed in the Body section
|
|
HELP | ;
|
|
CLOSED(RX,REJ,MSG) | ; Returns whether the REJECT is RESOLVED or NOT
|
|
REOPN(RX,REJ) | ; Returns whether the REJECT was RE-OPENED or NOT
|
|
EXP(CODE) | ; Returns the explanation field (.02) for a reject code
; Input: (r) CODE - .01 field (Code) value from file 9002313.93 ; Output: .02 field (Explanation) value from file 9002313.93 |
|
OUT(RX) | ; Supported call by outside PROTOCOLs to act on specific REJECTs
|
|
SMA | ; Submit multiple actions
|
|
VRX | ; View ePharmacy Prescription - invoked from the Reject Information screen
|
|
VER | ; View ePharmacy Prescription - invoked from the Rx view hidden action of Medication Profile
|
|
REQ() | ;Prompt if DUR Rejects are required
|
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: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^PSRX - [#52] | GET1^DIQ |
52.1 | GET1^DIQ |
52.25 | GET1^DIQ |
^BPS(9002313.25 - [#9002313.25] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BPS(9002313.25 - [#9002313.25] | CLS+12 |
^PS(59 - [#59] | EDT+10 |
^PSRX - [#52] | ELIGTCV+6, OUT+7, SMA+6 |
^TMP("BPSVRX-PSO VIEW RX" | VER+2!, VER+6*, VER+7*, VER+13, VER+14, VER+17! |
^TMP("BPSVRX1-PSO VIEW RX" | VRX+2!, VRX+6*, VRX+13, VRX+16! |
^TMP("PSOAL" | VER+7, VER+14* |
^TMP("PSOHDR" | VRX+6, VRX+13*, VER+6, VER+13* |
^TMP("PSOREJP1" | INIT+6!, EXIT+1!, SETLN+4* |
^XUSEC("PSORPH" | OUT+2 |
Name | Line Occurrences |
---|---|
$$CLOSED | EN+5, EN+6, EN+7, INIT+3, INIT+4, CLS+2, EDT+16, OVR+2, RES+2, CLA+2 , PA+2, SMA+2 |
$$ELIGDISP | OVR+4, CLA+4, PA+4, SMA+4 |
$$ELIGTCV | INIT+3, REJ+11 |
$$EXP | REJ+22, OTH+7 |
$$LABEL | SET+2, SET+4 |
$$REQ | SMA+19 |
$$TRIC | EN+4, ELIGDISP+3, ELIGTCV+5 |
CLS | INIT+12 |
EN | OUT+10 |
INS | INIT+11 |
OTH | INIT+9 |
REJ | INIT+8 |
SET | CLS+7 |
SETLN | REJ+11, REJ+15, REJ+16, REJ+17, REJ+24, REJ+25, REJ+28, REJ+29, OTH+3, OTH+4 , OTH+7, INS+1, INS+2, INS+8, INS+9, INS+11, INS+12, INS+13, CLS+3, CLS+4 , CLS+5, CLS+6, CLS+8, CLS+9, CLS+10, CLS+14, CLS+17, CLS+18, SET+2, SET+4 , SET+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BPSVRX | VRX+1~, VER+1~ |
BPSVRX("FILL#" | VRX+9* |
BPSVRX("RXIEN" | VRX+8*, VER+9* |
CAPS | ELIGTCV~, ELIGTCV+5 |
CHANGE | EN~, EDT+16* |
CLA | CLA+1~, CLA+7*, CLA+8, SMA+1~, SMA+15*, SMA+16, SMA+32, SMA+33, SMA+34, SMA+45 |
CLAPNTR | CLS+12~*, CLS+13 |
COD1 | OVR+5~, OVR+7*, OVR+10, OVR+11 |
COD2 | OVR+5~, OVR+8*, OVR+10, OVR+11 |
COD3 | OVR+5~, OVR+9*, OVR+10, OVR+11 |
CODE | EXP~, EXP+4 |
DA | VIEW+8~, VIEW+9* |
DATA | INIT+1~, INIT+7, OUT+1~, OUT+8 |
DATA( | REJ+8, REJ+18*, REJ+21, REJ+22, REJ+24, REJ+29, OTH+2, INS+4, INS+6, INS+9 , INS+10, INS+12, INS+13, CLS+5, CLS+6, CLS+7, CLS+8, CLS+9, CLS+10, CLS+11 , CLS+12, CLS+13, CLS+15, CLS+16, CLS+17, CLS+18, SET+2 |
DATA("" | OUT+8 |
DELMSG | ELIGTCV+3~, ELIGTCV+4*, ELIGTCV+7 |
DIC | EXP+3~, EXP+4* |
DIC(0 | EXP+4* |
DIR | REQ+1~ |
DIR("?" | REQ+2* |
DIR("A" | REQ+3* |
DIR("B" | REQ+3* |
DIR(0 | REQ+3* |
DIROUT | REQ+1~, REQ+4 |
DIRUT | REQ+1~, REQ+4 |
DTOUT | REQ+1~ |
DUR | SMA+1~, SMA+7 |
DUR(1 | SMA+24, SMA+25 |
DURIEN | SMA+1~, SMA+6*, SMA+7 |
DUZ | OUT+2 |
FIELD | SET~, SET+2, SET+4, LABEL~, LABEL+1, LABEL+2, LABEL+3, LABEL+4 |
FILL | EN+2~, EN+3*, EN+4, HDR+2, HDR+6, HDR+7, INIT+2*, INIT+3, INIT+7, REJ+9 , REJ+10, REJ+11, REJ+13, REJ+27, VIEW+10~, EDT+9, EDT+12, EDT+13~, OVR+3, OVR+4 , RES+3, CLA+3, CLA+4, PA+3, PA+4, MP+5, SMA+3, SMA+4, VRX+9 |
HIG | SETLN~, SETLN+12, SETLN+13 |
I | INIT+5*, OTH+1~, OTH+5*, OTH+6, INS+3~, INS+5*, SET+3*, SET+4, OUT+1~, OUT+7* , SMA+1~ |
>> IOINHI | SETLN+13 |
>> IOINORM | SETLN+9, SETLN+10, SETLN+11, SETLN+13 |
>> IORVON | SETLN+9 |
>> IOUON | SETLN+10, SETLN+11, SETLN+13 |
J | OTH+1~, OTH+6* |
L | SET~, SET+2, SET+4, SET+5 |
LAST | OTH+1~, OTH+6*, OTH+7 |
LASTLN | EN+2~, INIT+5, SETLN+6* |
LINE | INIT+1~, INIT+6*, INIT+13, VIEW+10~, EDT+13~, SETLN+4*, SETLN+6, SETLN+9, SETLN+10, SETLN+11 , SETLN+13 |
LINE1 | HDR+1~ |
LINE2 | HDR+1~ |
LST | OTH+1~, OTH+2*, OTH+5, OTH+6 |
MSG | CLOSED~, CLOSED+1 |
ORN | EDT+8~, EDT+9*, EDT+10 |
OVR | SMA+1~, SMA+22*, SMA+23, SMA+26*, SMA+27 |
OVRSTR | SMA+1~, SMA+22*, SMA+23*, SMA+35, SMA+36, SMA+37, SMA+38, SMA+39, SMA+40, SMA+41 , SMA+42, SMA+43, SMA+45 |
PA | PA+1~, PA+7*, PA+8, SMA+1~, SMA+10*, SMA+11, SMA+30, SMA+31, SMA+45 |
PATIENT | MP+3~, MP+6*, MP+7 |
PFLDT | REJ+1~ |
PS | VIEW+8~, VIEW+9*, OUT+4 |
PSOADD | REJ+1~ |
PSOBACK | VIEW+2, EDT+2, MP+1, OUT+1~, OUT+6* |
PSOBINPCN | INS+3~, INS+10*, INS+11 |
PSOCOB | REJ+1~, REJ+8*, REJ+9, REJ+10, REJ+13 |
PSOCODE | EN+2~, EN+4* |
PSOECME | REJ+1~, REJ+13*, REJ+14, REJ+29 |
PSOELIG | ELIGDISP+2~, ELIGDISP+3*, ELIGDISP+4, ELIGTCV+3~, ELIGTCV+5*, ELIGTCV+6*, ELIGTCV+7 |
PSOET | REJ+1~, REJ+27*, REJ+28, REJ+29, OVR+1~, OVR+3*, OVR+4, OVR+11, RES+1~, RES+3* , RES+5, CLA+1~, CLA+3*, CLA+4, CLA+8, PA+1~, PA+3*, PA+4, PA+8, SMA+1~ , SMA+3*, SMA+4, SMA+45 |
PSOINS | INS+3~, INS+4*, INS+5*, INS+7*, INS+8 |
PSOINS1 | INS+3~, INS+6*, INS+7 |
PSOLIST | EDT+8~ |
PSOLIST(1 | EDT+10* |
PSONAF | REJ+1~ |
PSOPAR | EDT+8~, EDT+10* |
PSOREJCT | EDT+8~, EDT+12* |
PSOSITE | EDT+8~, EDT+9*, EDT+10, MP+5 |
>> PSOSTFLT | EDT+16 |
PSOTRIC | EN+2~, EN+4*, EN+6, EN+7, TRIC~, TRIC+2*, TRIC+3 |
PSOTXT | REJ+1~, REJ+7*, REJ+9*, REJ+10*, REJ+11 |
PSOVDA | VIEW+8~, VIEW+9* |
PTINFO | HDR+1~, HDR+3*, HDR+4, HDR+5 |
REJ | EN~, EN+3, EN+4, EN+5, EN+6, EN+7, HDR+7, INIT+2, INIT+3, INIT+4 , INIT+7, REJ+8, REJ+18, REJ+21, REJ+22, REJ+24, REJ+29, OTH+2, INS+4, INS+6 , INS+9, INS+10, INS+12, INS+13, CLS+2, CLS+5, CLS+6, CLS+7, CLS+8, CLS+9 , CLS+10, CLS+11, CLS+12, CLS+13, CLS+15, CLS+16, CLS+17, CLS+18, SET+2, LABEL+3 , VIEW+10~, EDT+13~, EDT+16, OVR+2, OVR+7, RES+2, CLA+2, PA+2, CLOSED~, CLOSED+1 , REOPN~, REOPN+1, OUT+1~, OUT+8*, OUT+9, OUT+10, SMA+2, SMA+6 |
REJIEN | SMA+1~, SMA+23*, SMA+24*, SMA+25 |
REQ | SMA+1~, SMA+19*, SMA+23 |
REV | SETLN~, SETLN+8 |
RFL | TRIC~, TRIC+1*, TRIC+2, ELIGDISP~, ELIGDISP+3, ELIGTCV~, ELIGTCV+5, ELIGTCV+6, OUT+1~, OUT+7* , OUT+8 |
RJC | OTH+1~, OTH+5*, OTH+7 |
RSC | SMA+1~, SMA+25*, SMA+26 |
RSUB | SMA+1~, SMA+23*, SMA+26 |
RX | EN~, EN+3, EN+4, EN+5, EN+6, EN+7, HDR+2, HDR+3, HDR+6, HDR+7 , TRIC~, TRIC+1, TRIC+2, ELIGDISP~, ELIGDISP+3, ELIGTCV~, ELIGTCV+5, ELIGTCV+6, INIT+2, INIT+3 , INIT+4, INIT+7, REJ+9, REJ+10, REJ+11, REJ+13, REJ+27, CLS+2, CLS+16, LABEL+3 , VIEW+9, VIEW+10~, EDT+9, EDT+12, EDT+13~, EDT+16, OVR+2, OVR+3, OVR+4, OVR+7 , RES+2, RES+3, CLA+2, CLA+3, CLA+4, PA+2, PA+3, PA+4, MP+5, MP+6 , CLOSED~, CLOSED+1, REOPN~, REOPN+1, OUT~, OUT+7, OUT+8, OUT+10, SMA+2, SMA+3 , SMA+4, SMA+6, VRX+8 |
RXN | OUT+1~, VER+9 |
SITE | MP+3~, MP+5*, MP+7 |
T | SET+1~, SET+5* |
TEXT | SETLN~, SETLN+2*, SETLN+3*, SETLN+4, SETLN+9, SETLN+10 |
TITLE | VIEW+1~, VIEW+4*, VIEW+10~, VIEW+13, EDT+1~, EDT+4*, EDT+13~, EDT+17 |
TREJ | REJ+1~ |
TXT | SET+1~, SET+2*, SET+3, SET+4*, SET+5* |
TYPE | REJ+1~, REJ+21*, REJ+22*, REJ+23*, REJ+25 |
U | HDR+4, HDR+5, EDT+12, SMA+6, SMA+35, SMA+36, SMA+37, SMA+38, SMA+39, SMA+40 , SMA+41, SMA+42, SMA+43 |
UND | SET~, SET+2, SET+5, SETLN~, SETLN+10, SETLN+11, SETLN+13 |
>> VALM("TITLE" | INIT+3*, INIT+4*, VIEW+4, VIEW+13*, EDT+4, EDT+17* |
VALMBCK | VIEW+3*, VIEW+13*, EDT+3*, EDT+16!, EDT+17*, OVR+4*, OVR+7*, OVR+8*, OVR+9*, CLA+4* , CLA+7*, PA+4*, PA+7*, MP+2*, MP+7*, CLOSED+2*, OUT+3*, OUT+5*, OUT+9*, OUT+10* , SMA+4*, SMA+11*, SMA+16*, SMA+19*, SMA+27*, VRX+15*, VER+16* |
VALMCNT | INIT+6*, INIT+13*, VIEW+1~, EDT+1~, OUT+1~ |
>> VALMHDR(1 | HDR+2* |
>> VALMHDR(2 | HDR+4* |
>> VALMHDR(3 | HDR+5* |
>> VALMHDR(4 | HDR+6* |
>> VALMHDR(5 | HDR+7* |
>> VALMSG | VIEW+3*, EDT+3*, OVR+4*, CLA+4*, PA+4*, MP+2*, CLOSED+2*, OUT+3*, OUT+5*, OUT+9* , SMA+4* |
VET | ELIGTCV+3~, ELIGTCV+5*, ELIGTCV+7 |
X | HDR+1~, CLS+1~, CLS+13*, CLS+14, CLS+16*, CLS+17, SETLN+1~, EXP+3~, EXP+4*, OUT+8* , REQ+1~ |
Y | EXP+3~, REQ+1~, REQ+5 |
Y(0 | EXP+5 |