PSOREJP3 ;ALB/SS - Third Party Reject Display Screen - Comments ;10/27/06
Source file <PSOREJP3.m>
Package | Total | Call Graph |
---|---|---|
Outpatient Pharmacy | 15 | ECMESND^PSOBPSU1 $$ECMENUM^PSOBPSU2 ($$RXSITE,$$STATUS)^PSOBPSUT DQ^PSOLBL LBL^PSOLSET $$GETNDC^PSONDCUT ADDPC^PSOPTC0 ($$CLOSED,$$ELIGDISP,$$TRIC,INIT,SETLN)^PSOREJP1 $$PTLBL^PSOREJP2 $$PSOCOB^PSOREJP3 $$PSOETEC^PSOREJP5 ($$DC,$$SIG)^PSOREJU1 GET^PSOREJU2 ($$FIND,CLOSE)^PSOREJUT AUDIT^PSOTRI |
VA FileMan | 6 | NOW^%DTC (FILE,UPDATE)^DIE ($$GET1,GETS)^DIQ ^DIR ^DIWP ^DIWW |
Kernel | 5 | ^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT BMES^XPDUTL |
E Claims Management Engine | 4 | GETDAT^BPSBUTL $$IEN59^BPSOSRX ($$GETPL59,$$GETRTP59)^BPSPRRX5 COM^BPSSCRU3 |
List Manager | 1 | (FULL,WAIT)^VALM1 |
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 |
---|---|---|
COM | ; Builds the Comments section in the Reject Information Screen.
; The following variables are assumed to exist: ; RX - Pointer to file# 52, Prescription. ; FILL - Pointer to the Refill sub-file of the Prescription. ; REJ - Pointer to the Reject Info sub-file of the Prescription. |
|
PTC | ; Patient Comments
|
|
ADDCOM | ; - Add comment worklist action
|
|
COMMENT(PSOTR,PSMLEN) | ;*/
|
|
YESNO(PSQSTR,PSDFL) | ; Default - YES
|
|
SAVECOM(PSRXIEN,PSREJIEN,PSCOMNT,DATETIME,USER) | ;
|
|
INSITEM(PSSFILE,PSIEN0,PSIEN1,PSVAL01) | ;*/
|
|
PRINT(RX,RFL) | ; Print Label for specific Rx/Fill
|
|
RXINFO(RX,FILL,LINE,REJ) | ; Returns header displayable Rx Information
|
|
FILL | ;Fill payable TRICARE or CHAMPVA Rx
|
|
PSOCOB(RX,FILL,REJ) | ; Returns RXCOB indicator for Worklist
|
|
DC | ;Discontinue TRICARE Rx
|
|
FILLTR | ;TRICARE/CHAMPVA specific logic ;cnf, PSO*7*358
|
|
FILLTR2 | ;Use for looping if user enters ^ in required comment field ;cnf, PSO*7*358
|
|
TCOM(RX,RFL) | ; - Ask for TRICARE or CHAMPVA Justification
|
|
PSOET(RX,FILL) | ; Returns flag for TRICARE or CHAMPVA non-billable and no claim submitted
; Return 1 if rejection code is eT or eC (pseudo-reject code) ; 0 otherwise |
|
TRIREJCD | ;TRICARE or CHAMPVA Reject Code, non-billable Rx ;cnf, PSO*7*358
|
|
SEND(OVRCOD,CLA,PA,PSOET) | ; - Sends Claim to ECME and closes Reject
; Input: OVRCOD - Up to three ~-pieces, and each populated would be ; Reason for Service Code ^ Prof Srvc Cd ^ Result of Srvc Cd ; CLA - Submission Clarification Code #1 ~ SCC #2 ~ SCC #3 ; PA - Prior Auth Type ^ Prior Auth Number ; PSOET - 1 if eT/eC pseudo-reject on claim |
Name | Field # of Occurrence |
---|---|
NOW^%DTC | SAVECOM+2 |
^%ZIS | PRINT+32, PRINT+45 |
^%ZISC | PRINT+40, PRINT+46, PRINT+48 |
^%ZTLOAD | PRINT+40 |
GETDAT^BPSBUTL | RXINFO+3 |
$$IEN59^BPSOSRX | SEND+23 |
$$GETPL59^BPSPRRX5 | SEND+24 |
$$GETRTP59^BPSPRRX5 | SEND+25 |
COM^BPSSCRU3 | COM+20 |
FILE^DIE | SAVECOM+9 |
UPDATE^DIE | INSITEM+4 |
$$GET1^DIQ | COM+34, COM+48, COM+49, COM+50, COM+52, PTC+5, ADDCOM+24, PRINT+17, PRINT+21, RXINFO+4 , RXINFO+10, RXINFO+11, FILL+5, FILL+6, FILL+12, FILL+25, FILL+27, FILL+28, SEND+48, SEND+54 |
GETS^DIQ | PTC+16 |
^DIR | ADDCOM+8, COMMENT+9, YESNO+5, PRINT+26, PRINT+41, PRINT+46, TCOM+2, SEND+13 |
^DIWP | COM+80, PTC+45, SEND+39 |
^DIWW | SEND+40 |
ECMESND^PSOBPSU1 | SEND+30 |
$$ECMENUM^PSOBPSU2 | RXINFO+7 |
$$RXSITE^PSOBPSUT | PRINT+20, SEND+46 |
$$STATUS^PSOBPSUT | FILL+19, FILL+20, SEND+55 |
DQ^PSOLBL | PRINT+48 |
LBL^PSOLSET | PRINT+25 |
$$GETNDC^PSONDCUT | RXINFO+12, SEND+30 |
ADDPC^PSOPTC0 | ADDCOM+25 |
$$CLOSED^PSOREJP1 | FILL+15 |
$$ELIGDISP^PSOREJP1 | TCOM+2 |
$$TRIC^PSOREJP1 | FILL+2, SEND+53 |
INIT^PSOREJP1 | ADDCOM+21, ADDCOM+26 |
SETLN^PSOREJP1 | COM+64, COM+65, COM+97, PTC+31, PTC+60 |
$$PTLBL^PSOREJP2 | FILL+30, SEND+52 |
$$PSOCOB^PSOREJP3 | SEND+22 |
$$PSOETEC^PSOREJP5 | FILLTR2+18 |
$$DC^PSOREJU1 | DC+3 |
$$SIG^PSOREJU1 | FILLTR2+12 |
GET^PSOREJU2 | PSOCOB+2 |
$$FIND^PSOREJUT | PSOET+8 |
CLOSE^PSOREJUT | FILL+29 |
AUDIT^PSOTRI | FILLTR2+19 |
FULL^VALM1 | ADDCOM+2, FILL+14, DC+2 |
WAIT^VALM1 | ADDCOM+14 |
$$FMTE^XLFDT | COM+35, RXINFO+8 |
BMES^XPDUTL | INSITEM+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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^PSRX - [#52] | GET1^DIQ |
52.032 | GET1^DIQ |
52.1 | GET1^DIQ |
52.25 | GET1^DIQ |
52.2551 | GET1^DIQ |
^PS(52.86 - [#52.86] | GET1^DIQ |
55.17 | GETS^DIQ |
^BPSF(9002313.93 - [#9002313.93] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(52.86 - [#52.86] | SEND+47 |
^PS(55 - [#55] | PTC+6, PTC+12, PTC+14 |
^PS(59 - [#59] | PRINT+20 |
^PS(59.7 - [#59.7] | PRINT+21 |
^PSDRUG("AQ" | RXINFO+10 |
^PSRX - [#52] | COM+47, SAVECOM+5, PRINT+17, FILL+23, SEND+28 |
^UTILITY($J | COM+76!, COM+86, COM+87, COM+93, PTC+41!, PTC+48, PTC+49, PTC+56, PTC+62! |
^XUSEC("PSO EPHARMACY SITE MANAGER" | ADDCOM+12 |
^XUSEC("PSO TRICARE/CHAMPVA" | FILLTR2+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | COM+75~, PTC+40~, SAVECOM+2 |
%ZIS | PRINT+8~, PRINT+32*, PRINT+45! |
ACTION | DC+1~*, DC+3*, DC+4 |
ALTXT | SEND+6~, SEND+15*, SEND+17*, SEND+18*, SEND+19*, SEND+20*, SEND+30 |
>> CHANGE | FILL+31*, DC+5*, SEND+60* |
CLA | SEND~, SEND+14, SEND+19, SEND+30 |
CMOP | RXINFO+1~, RXINFO+10*, RXINFO+11 |
COM | FILL+1~, FILL+18*, FILL+21*, FILL+29, FILLTR2+15*, FILLTR2+19, TCOM+1~, TCOM+3*, TCOM+4, SEND+6~ |
CONT | FILLTR+2~, FILLTR2+8*, FILLTR2+9 |
DATA1 | PSOCOB+1~, PSOCOB+2 |
DATA1( | PSOCOB+3, PSOCOB+4 |
DATETIME | SAVECOM~, SAVECOM+2*, SAVECOM+4, SAVECOM+5 |
DCSTAT | FILL+1~, FILL+12*, FILL+13 |
DFN | PRINT+7~, PRINT+21* |
DIR | ADDCOM+1~, COMMENT+1~, YESNO+1~, PRINT+7~, PRINT+26!, PRINT+41!, PRINT+46!, TCOM+1~, SEND+6~, SEND+13! |
DIR("?" | ADDCOM+6*, ADDCOM+7*, COMMENT+6* |
DIR("A" | ADDCOM+5*, COMMENT+5*, YESNO+3*, PRINT+26*, PRINT+41*, PRINT+46*, TCOM+2*, SEND+8*, SEND+9*, SEND+10* , SEND+11*, SEND+12* |
DIR("B" | COMMENT+13*, YESNO+4*, SEND+8* |
DIR(0 | ADDCOM+4*, COMMENT+4*, YESNO+2*, PRINT+26*, PRINT+41*, PRINT+46*, TCOM+2*, SEND+8* |
DIROUT | PRINT+7~ |
DIRUT | ADDCOM+9, PRINT+7~, TCOM+1~, TCOM+3, SEND+13 |
DIW | COM+75~, PTC+40~ |
DIWF | COM+75~, PTC+40~, SEND+7~, SEND+36* |
DIWI | COM+75~, PTC+40~ |
DIWL | COM+75~, COM+78*, PTC+40~, PTC+43*, SEND+7~, SEND+37* |
DIWR | COM+75~, COM+79*, PTC+40~, PTC+44*, SEND+7~, SEND+38* |
DIWT | COM+75~, PTC+40~ |
DIWTC | COM+75~, PTC+40~ |
DIWX | COM+75~, PTC+40~ |
DN | COM+75~, PTC+40~ |
DRG | RXINFO+1~, RXINFO+10* |
DTOUT | COMMENT+1~, COMMENT+10, PRINT+7~ |
DUOUT | COMMENT+1~, COMMENT+10, YESNO+1~, YESNO+6, PRINT+7~ |
DUZ | ADDCOM+12, SAVECOM+3, PRINT+21, FILL+29, FILLTR2+4 |
FILL | COM+20, RXINFO~, RXINFO+3, RXINFO+4, RXINFO+6, RXINFO+7, RXINFO+12, FILL+2, FILL+5, FILL+6 , FILL+19, FILL+20, FILL+29, FILL+30, PSOCOB~, PSOCOB+2, FILLTR2+15, FILLTR2+18, FILLTR2+19, PSOET~ , PSOET+8, SEND+22, SEND+23, SEND+30, SEND+46, SEND+52, SEND+53, SEND+55 |
I | COM+75~, PTC+40~, FILL+1~, FILL+26* |
IEN5286 | SEND+45~, SEND+47*, SEND+48 |
IO("Q" | PRINT+35 |
IOP | PRINT+8~, PRINT+32*, PRINT+45* |
LBL | RXINFO+1~ |
LINE | RXINFO~, RXINFO+2, RXINFO+9 |
OPNREJ | FILL+1~, FILL+22*, FILL+23*, FILL+24*, FILL+26 |
OPNREJ2 | FILL+1~, FILL+22*, FILL+23*, FILL+24*, FILL+26*, FILL+27, FILL+29 |
OPNREJ3 | FILL+1~, FILL+22*, FILL+27*, FILL+28 |
OVRCOD | SEND~, SEND+14, SEND+18, SEND+30 |
PA | SEND~, SEND+14, SEND+20, SEND+30 |
PAUSE | SEND+45~, SEND+48*, SEND+49*, SEND+50 |
PDUZ | PRINT+7~, PRINT+21* |
POP | PRINT+8~, PRINT+46 |
PPL | PRINT+5~, PRINT+22* |
PSCOM | ADDCOM+1~, ADDCOM+16*, ADDCOM+19, ADDCOM+20, ADDCOM+23, ADDCOM+25 |
PSCOMNT | SAVECOM~, SAVECOM+8 |
PSDA | SAVECOM+1~ |
PSDA( | SAVECOM+7*, SAVECOM+8* |
PSDFL | YESNO~, YESNO+4 |
PSER | INSITEM+1~, INSITEM+5 |
PSER("DIERR" | INSITEM+5 |
PSERR | SAVECOM+1~ |
PSFDA | INSITEM+1~ |
PSFDA( | INSITEM+3* |
PSIEN0 | INSITEM~, INSITEM+2 |
PSIEN1 | INSITEM~, INSITEM+2 |
PSIENS | INSITEM+1~, INSITEM+2*, INSITEM+3 |
PSMLEN | COMMENT~, COMMENT+3*, COMMENT+11, COMMENT+13 |
PSO55 | ADDCOM+1~, ADDCOM+24*, ADDCOM+25 |
PSO59 | SEND+6~, SEND+23*, SEND+24, SEND+25 |
PSOAR | PTC+11! |
PSOARRAY | COM+6~, PTC+2!, PTC+30 |
PSOARRAY( | COM+37, COM+38*, COM+39*, COM+53, COM+54*, COM+55*, COM+68, COM+70, COM+77, COM+93 , PTC+27*, PTC+36, PTC+42 |
PSOARRAY("" | COM+63 |
PSOBAR0 | PRINT+5~ |
PSOBAR1 | PRINT+5~ |
PSOBARS | PRINT+5~ |
PSOBFLAG | PRINT+5~, PRINT+25* |
PSOCLBL | PRINT+5~, PRINT+13*, PRINT+14* |
PSOCNT | COM+6~, PTC+10*, PTC+26*, PTC+27, PTC+35*, PTC+36*, PTC+42, PTC+56 |
PSOCOB | SEND+6~, SEND+22*, SEND+23, SEND+30 |
PSOCOM | COM+6~, COM+32*, COM+36*, COM+39, COM+50*, COM+51*, COM+55, COM+87*, COM+97, PTC+24* , PTC+25, PTC+49*, PTC+60 |
PSOCOMTYPE | ADDCOM+1~, ADDCOM+10*, ADDCOM+12, ADDCOM+19, ADDCOM+23 |
PSODATA | COM+6~, PTC+15! |
PSODATA( | PTC+19, PTC+22, PTC+23, PTC+24 |
PSODATE | COM+6~, COM+22*, COM+23*, COM+25, COM+30, COM+32, COM+33, COM+35, COM+37, COM+38 , COM+39, COM+48*, COM+51, COM+52*, COM+53, COM+54, COM+55, COM+67*, COM+68*, COM+70 , COM+77, COM+93, PTC+9*, PTC+12*, PTC+14 |
PSODATE1 | COM+6~, PTC+22*, PTC+25 |
PSODFN | COM+6~, PTC+5*, PTC+6, PTC+12, PTC+14, PTC+16, PTC+19, PTC+22, PTC+23, PTC+24 |
PSOET | RXINFO+1~, RXINFO+6*, RXINFO+7, RXINFO+8, SEND~, SEND+30 |
PSOETEC | FILLTR+2~, FILLTR2+18*, FILLTR2+19, SEND+6~, SEND+27*, SEND+28*, SEND+32 |
PSOIOS | PRINT+5~ |
PSOLAP | PRINT+13~*, PRINT+14~, PRINT+26, PRINT+32, PRINT+36, PRINT+45 |
PSOLAST | COM+6~, COM+85*, COM+93*, COM+97, PTC+47*, PTC+56*, PTC+60 |
PSOLTEST | PRINT+6~ |
PSOPAR | PRINT+5~, PRINT+20* |
PSOPC | COM+6~, PTC+13*, PTC+14*, PTC+16, PTC+19, PTC+22, PTC+23, PTC+24 |
PSOPFLAG | COM+7~, COM+30*, COM+31 |
PSOPIOST | PRINT+6~ |
PSOPLAN | SEND+6~, SEND+24*, SEND+30 |
PSOQUIT | PRINT+6~, PRINT+25 |
PSOREL | FILL+1~, FILL+4*, FILL+5*, FILL+6*, FILL+7 |
PSORTYPE | SEND+6~, SEND+25*, SEND+30 |
PSORX | PRINT+47, PRINT+49!* |
PSORXT | PRINT+6~, PRINT+47!*, PRINT+49 |
PSOSITE | PRINT+5~, PRINT+20*, SEND+46~*, SEND+47 |
PSOSTATUS | COM+7~, PTC+19*, PTC+20 |
>> PSOSTFLT | SEND+60 |
PSOSTR | COM+7~, PTC+25*, PTC+27 |
PSOSYS | PRINT+5~, PRINT+21* |
PSOTEMP | COM+7~, COM+20 |
PSOTEMP( | COM+23, COM+25, COM+30, COM+32, COM+33 |
PSOTLBL | PRINT+6~, PRINT+13* |
PSOTR | COMMENT~, COMMENT+2*, COMMENT+5 |
PSOTRIC | FILL+2*, FILL+4, FILL+19, FILL+20, FILLTR2+19, SEND+53~*, SEND+54 |
PSOUSER | COM+7~, COM+33*, COM+34*, COM+36, COM+49*, COM+51, PTC+23*, PTC+25 |
PSOX | COM+7~, COM+24*, COM+25*, COM+30, COM+32, COM+33, COM+46*, COM+47*, COM+48, COM+49 , COM+50, COM+52, COM+69*, COM+70*, COM+77, COM+93 |
PSOY | COM+7~, COM+35*, COM+36, COM+37*, COM+38, COM+39, COM+53*, COM+54, COM+55, COM+86* , COM+87, COM+93, COM+97, PTC+48*, PTC+49, PTC+56, PTC+60 |
PSQ | COMMENT+1~, COMMENT+7*, COMMENT+8, COMMENT+10*, COMMENT+11*, COMMENT+14, COMMENT+16*, COMMENT+17, COMMENT+18 |
PSQSTR | YESNO~, YESNO+3, FILLTR+2~, FILLTR2+7*, FILLTR2+8 |
PSREC | SAVECOM+1~, SAVECOM+5*, SAVECOM+6, SAVECOM+7, SAVECOM+8 |
PSREJIEN | SAVECOM~, SAVECOM+4, SAVECOM+5, SAVECOM+7, SAVECOM+8 |
PSRXIEN | SAVECOM~, SAVECOM+4, SAVECOM+5, SAVECOM+7, SAVECOM+8 |
PSSFILE | INSITEM~, INSITEM+3 |
PSSSI | INSITEM+1~ |
PSVAL01 | INSITEM~, INSITEM+3 |
REJ | COM+47, COM+48, COM+49, COM+50, COM+52, ADDCOM+20, RXINFO~, FILL+15, PSOCOB~, PSOCOB+2 , PSOCOB+3, PSOCOB+4, SEND+22 |
REJLBL | PRINT+7~, PRINT+17* |
REPRINT | PRINT+7~, PRINT+17* |
RESP | SEND+6~, SEND+30, SEND+32, SEND+34, SEND+35 |
RFL | PRINT~, PRINT+2, PRINT+17, PRINT+20, PRINT+22, TCOM~, TCOM+2 |
RX | COM+20, COM+47, COM+48, COM+49, COM+50, COM+52, PTC+5, ADDCOM+20, ADDCOM+24, PRINT~ , PRINT+1, PRINT+17, PRINT+20, PRINT+21, PRINT+22, RXINFO~, RXINFO+3, RXINFO+4, RXINFO+6, RXINFO+7 , RXINFO+10, RXINFO+11, RXINFO+12, FILL+2, FILL+5, FILL+6, FILL+12, FILL+15, FILL+19, FILL+20 , FILL+23, FILL+25, FILL+27, FILL+29, FILL+30, PSOCOB~, PSOCOB+2, DC+3, FILLTR2+15, FILLTR2+18 , FILLTR2+19, TCOM~, TCOM+2, PSOET~, PSOET+4, PSOET+8, SEND+22, SEND+23, SEND+28, SEND+30 , SEND+46, SEND+52, SEND+53, SEND+54, SEND+55 |
RXDOS | RXINFO+3~, RXINFO+8 |
RXFL | PRINT+7~ |
RXFL( | PRINT+22* |
RXINFO | RXINFO+1~, RXINFO+4*, RXINFO+7*, RXINFO+8*, RXINFO+11*, RXINFO+12*, RXINFO+13 |
SMA | SEND+6~, SEND+14*, SEND+16 |
TRIREJCD | PSOET+5~, PSOET+7*, PSOET+8 |
TXT | RXINFO+1~ |
U | COM+30, COM+32, COM+33 |
USER | SAVECOM~, SAVECOM+3*, SAVECOM+7 |
>> VALMBCK | ADDCOM+9*, ADDCOM+12*, ADDCOM+27*, FILL+7*, FILL+13*, FILL+16*, FILL+19*, FILL+20, DC+4*, FILLTR2+4* , FILLTR2+9*, FILLTR2+12*, SEND+13* |
>> VALMSG | FILL+7*, FILL+13*, FILL+16*, FILL+19*, FILL+20, DC+4*, FILLTR2+4*, FILLTR2+9* |
VAR | PRINT+8~, PRINT+37* |
X | COM+7~, COM+77*, PTC+42*, PRINT+7~, TCOM+1~, TCOM+3, PSOET+5~, PSOET+6*, PSOET+8*, PSOET+9 , SEND+7~, SEND+34*, SEND+35* |
XXX | SEND+56~*, SEND+59* |
Y | ADDCOM+10, COMMENT+11, COMMENT+13, COMMENT+15, COMMENT+19, YESNO+1~, YESNO+6, PRINT+7~, SEND+13 |
Z | COM+75~, PTC+40~ |
ZTDESC | PRINT+8~, PRINT+39* |
ZTDTH | PRINT+8~, PRINT+36* |
ZTIO | PRINT+8~, PRINT+36* |
ZTRTN | PRINT+8~, PRINT+36* |
ZTSAVE | PRINT+8~ |
ZTSAVE( | PRINT+37* |
ZTSAVE("PCOMH(" | PRINT+38* |
ZTSAVE("PSORX(" | PRINT+38* |
ZTSAVE("RXFL(" | PRINT+38* |
ZTSAVE("RXPR(" | PRINT+38* |
ZTSAVE("RXRP(" | PRINT+38* |
ZTSAVE("RXRS(" | PRINT+38* |
ZTSK | PRINT+8~, PRINT+41 |
Name | Field # of Occurrence |
---|---|
$T(TRIREJCD+1 | PSOET+7 |