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 |