Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSOREJU4

Package: Outpatient Pharmacy

Routine: PSOREJU4


Information

PSOREJU4 ;BIRM/LE - Pharmacy Reject Overrides ;06/26/08

Source Information

Source file <PSOREJU4.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Outpatient Pharmacy 8 $$LSTRFL^PSOBPSU1  $$RXSITE^PSOBPSUT  ^PSOORUT2  LOAD^PSOPMPPF  $$TRIC^PSOREJP1  ($$CLEAN,$$DUP)^PSOREJU1  GET^PSOREJU2  ($$FIND,SYNC2)^PSOREJUT  
E Claims Management Engine 2 ($$AMT,$$ELIG)^BPSBUTL  DUR1^BPSNCPD3  
List Manager 1 EN^VALM  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
E Claims Management Engine 3 BPSSCRRJ  BPSSCRRS  BPSWRKLS  
Outpatient Pharmacy 2 PSOREJU3  PSOREJUT  

Entry Points

Name Comments DBIA/ICR reference
AUTOREJ(CODES,PSODIV) ;API to evaluate an array of reject codes to see if they are allowed to be passed to OP reject Worklist
  • ICR #5063
    • Status: Active
    • Usage: Private
    WRKLST(RX,RFL,COMMTXT,USERID,DTTIME,OPECC,RXCOB,RESP) ;External API to store reject codes other than 79/88/943/TRICARE/CHAMPVA on the OP Reject Worklist
  • ICR #5063
    • Status: Active
    • Usage: Private
    EXIT ;
    EVAL(PSODIV,CODE,OPECC,RX,RFNBR,COB,RRRDATA) ;Evaluates whether the reject codes other than 79/88/TRICARE/CHAMPVA is allowed to be passed to OP Reject Worklist
    INLIST(RX,RFL,RXCOB) ;Returns whether a prescription/fill contains UNRESOLVED rejects
  • ICR #5063
    • Status: Active
    • Usage: Private
    MULTI(RX,RFL,REJDATA,CODE,REJS,RRRFLG) ;due to routine size, called from FIND^PSOREJUT
    SINGLE(RX,RFL,REJDATA,CODE,REJS,RRRFLG) ;due to routine size, called from FIND^PSOREJUT
    RRRCHK(SPDIV,REJ,RX,RFNBR,COB) ; Test a reject for valid Resolution Required Reject code
    ; INPUT
    ; SPDIV = required - IEN in site parameter file for the selected division
    ; REJ = required - IEN of the Reject code to test
    ; RX = required - IEN from prescription file
    ; RFNBR = required - prescription refill number
    ; COB = optional - coordination of benefits
    REJCOM(RX,FIL,COB,RET) ; Gather PSO reject comments and return
    ; Input
    ; RX - prescription IEN required
    ; FIL - fill# required - will match with the 52.25,5 field
    ; COB - coordination of benefits# (optional). If present, will match with the 52.25,27 field
    ; Output
    ; RET - return array, pass by reference
    ; RET(external reject code,date/time of comment,incremental counter) =
    ; [1] date/time of comment
    ; [2] user pointer 200
    ; [3] comment text 1-150 characters
  • ICR #6227
    • Status: Active
    • Usage: Private
    REJCOMX ;
    MP(RX,FIL) ; Entry point for PSO API to display Medication Profile List Manager screen given an Rx and Fill
  • ICR #6228
    • Status: Active
    • Usage: Private
    MPX ;
    PI(RX,FIL) ; Entry point for PSO API to display Patient Information List Manager screen given an Rx and Fill
  • ICR #6228
    • Status: Active
    • Usage: Private
    PIX ;

    External References

    Name Field # of Occurrence
    $$AMT^BPSBUTL RRRCHK+51
    $$ELIG^BPSBUTL RRRCHK+44
    DUR1^BPSNCPD3 WRKLST+6
    $$GET1^DIQ EVAL+32, RRRCHK+41, RRRCHK+52, MP+12, PI+11
    $$LSTRFL^PSOBPSU1 WRKLST+5
    $$RXSITE^PSOBPSUT WRKLST+3, MP+10, PI+9
    ^PSOORUT2 PI+12
    LOAD^PSOPMPPF MP+13
    $$TRIC^PSOREJP1 WRKLST+18
    $$CLEAN^PSOREJU1 WRKLST+27
    $$DUP^PSOREJU1 WRKLST+27
    GET^PSOREJU2 MULTI+4, MULTI+6, SINGLE+3, SINGLE+5
    $$FIND^PSOREJUT INLIST+8
    SYNC2^PSOREJUT WRKLST+32
    EN^VALM MP+14, PI+13

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSRX - [#52] GET1^DIQ
    52.865 GET1^DIQ
    52.8651 GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^BPSF(9002313.93 - [#9002313.93] EVAL+22, RRRCHK+28
    ^PS(52.86 - [#52.86] AUTOREJ+13, AUTOREJ+21, EVAL+19, EVAL+29, EVAL+30, RRRCHK+26, RRRCHK+47
    ^PS(59 - [#59] AUTOREJ+11, MP+11, PI+10
    ^PS(59.7 - [#59.7] MP+11, PI+10
    ^PSRX - [#52] MULTI+5, SINGLE+4, RRRCHK+30, REJCOM+19, REJCOM+20, REJCOM+26, REJCOM+27
    ^PSRX("REJ" WRKLST+4, WRKLST+29, EXIT+1
    ^TMP("PSOPI" MP+9!, MP+15!, PI+8!, PI+14!
    ^TMP("PSOPMP0" MP+15!
    ^TMP("PSOPMPSR" MP+15!

    Label References

    Name Line Occurrences
    $$EVAL WRKLST+25
    $$RRRCHK EVAL+26
    EXIT WRKLST+30
    MPX MP+6, MP+7
    PIX PI+5, PI+6
    REJCOMX REJCOM+14, REJCOM+15

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ALLOW AUTOREJ+9~, EVAL+15~, EVAL+32*, EVAL+33, EVAL+34
    ALLOWA EVAL+15~
    AMT RRRCHK+33~, RRRCHK+51*, RRRCHK+53, RRRCHK+54
    AUTO AUTOREJ+9~, WRKLST+19*, WRKLST+20, WRKLST+25*, WRKLST+26*, WRKLST+27*, WRKLST+29*, WRKLST+30, WRKLST+33*, EXIT+2
    , EVAL+21*, EVAL+31*, EVAL+32*, EVAL+35*, EVAL+36*, EVAL+37
    CIEN EVAL+15~, EVAL+30*, EVAL+31, EVAL+32
    CLOSECHK WRKLST+2~, WRKLST+8*, WRKLST+16*, WRKLST+27
    CMT REJCOM+12~, REJCOM+26*, REJCOM+27
    COB EVAL~, EVAL+26, RRRCHK~, RRRCHK+44, RRRCHK+51, REJCOM~, REJCOM+16*, REJCOM+22
    COD AUTOREJ+9~, AUTOREJ+20*, AUTOREJ+21, AUTOREJ+22
    CODE WRKLST+2~, WRKLST+23*, WRKLST+24, WRKLST+25, WRKLST+28, EVAL~, EVAL+16, EVAL+22, EVAL+36, MULTI~
    , MULTI+4, MULTI+6, SINGLE~, SINGLE+3, SINGLE+5
    CODES AUTOREJ~
    CODES( AUTOREJ+20, AUTOREJ+21*, AUTOREJ+22*
    CODES(0 AUTOREJ+12*, AUTOREJ+14*, AUTOREJ+17*
    COL MP+3~, PI+2~
    COMMTXT WRKLST~
    CTRLCOL MP+3~, PI+2~
    D MP+3~, PI+2~
    DAT MP+5~, PI+4~
    DATA WRKLST+2~
    DDER MP+5~, PI+4~
    DFN MP+2~, MP+12*, PI+1~, PI+11*
    DIW MP+5~, PI+4~
    DIWF MP+5~, PI+4~
    DIWI MP+5~, PI+4~
    DIWT MP+5~, PI+4~
    DIWTC MP+5~, PI+4~
    DIWX MP+5~, PI+4~
    DN MP+5~, PI+4~
    DTTIME WRKLST~
    DUZ MP+13
    FIL REJCOM~, REJCOM+15, REJCOM+21, MP~, MP+7, MP+10, PI~, PI+6, PI+9
    G0 REJCOM+12~, REJCOM+20*, REJCOM+21, REJCOM+23
    G2 REJCOM+12~, REJCOM+20*, REJCOM+22
    GMRAL MP+3~, PI+2~
    H0 REJCOM+12~, REJCOM+27*, REJCOM+29
    HDR MP+3~, PI+2~
    HIGHLN MP+3~, PI+2~
    I WRKLST+2~, WRKLST+22*, WRKLST+23, MULTI+2~, MULTI+4*, MULTI+6*
    ICOD EVAL+15~, EVAL+22*, EVAL+23, EVAL+26, EVAL+29, EVAL+30
    IDX WRKLST+2~, WRKLST+19*, WRKLST+20*, WRKLST+21, WRKLST+27, WRKLST+28
    LASTLINE MP+3~, PI+2~
    LENGTH MP+3~, PI+2~
    LIST MP+5~, PI+4~
    OPECC WRKLST~, WRKLST+25, EVAL~, EVAL+17*, EVAL+35, EVAL+36
    OUT MP+5~, PI+4~
    PATIENT MP+2~, MP+12*, PI+1~, PI+11*
    POP MP+5~, PI+4~
    POS MP+5~, PI+4~
    PSNDIY MP+5~, PI+4~
    PSOBM MP+5~, PI+4~
    PSOCHNG MP+5~, PI+4~
    PSODFN MP+2~, MP+12*, PI+1~, PI+11*
    PSODIV AUTOREJ~, AUTOREJ+11*, AUTOREJ+12, AUTOREJ+13, WRKLST+2~, WRKLST+3*, WRKLST+25, EVAL~, EVAL+18, EVAL+19
    PSOEXDCE MP+3~, PI+2~
    PSOEXPDC MP+3~, PI+2~
    PSOHD MP+3~, PI+2~
    PSOPAR MP+2~, MP+11*, PI+1~, PI+10*
    PSOPAR7 MP+2~, MP+11*, PI+1~, PI+10*
    PSOPI MP+3~, PI+2~
    PSOPINST MP+2~, MP+11*, PI+1~, PI+10*
    PSOQFLG MP+5~, PI+4~
    PSOQUIT MP+5~, PI+4~
    PSORDCNT MP+3~, PI+2~
    PSORDER MP+3~, PI+2~
    PSORDSEQ MP+3~, PI+2~
    PSORJCNT REJCOM+12~, REJCOM+17*, REJCOM+28*, REJCOM+29
    PSOSIGDP MP+3~, PI+2~
    PSOSITE MP+2~, MP+10*, MP+11, PI+1~, PI+9*, PI+10
    PSOSRTBY MP+3~, PI+2~
    PSOSTSEQ MP+4~, PI+3~
    PSOSTSGP MP+4~, PI+3~
    PSOSYS MP+2~, MP+11*, PI+1~, PI+10*
    PSOTEL MP+4~, PI+3~
    PSOTMP MP+4~, PI+3~
    PSOTRIC WRKLST+2~, WRKLST+18*, WRKLST+25, WRKLST+26
    PSOX INLIST+7~, INLIST+8*
    PSOX1 INLIST+7~, INLIST+10*
    PSOX2 INLIST+7~, INLIST+10*, INLIST+11
    RCODE MULTI+2~, MULTI+4*, MULTI+6*
    REJ WRKLST+2~, WRKLST+6, RRRCHK~, RRRCHK+27, RRRCHK+28, RRRCHK+47, REJCOM+12~, REJCOM+19*, REJCOM+20, REJCOM+26
    , REJCOM+27
    REJ( WRKLST+20, WRKLST+21, WRKLST+27
    REJ(1 WRKLST+13*, WRKLST+14*, WRKLST+15*
    REJCD WRKLST+2~, WRKLST+8*, WRKLST+12*, WRKLST+13
    REJCODE REJCOM+12~, REJCOM+23*, REJCOM+24, REJCOM+29
    REJDATA MULTI~, MULTI+4, MULTI+5, MULTI+6, SINGLE~, SINGLE+3, SINGLE+4, SINGLE+5, SINGLE+6
    REJDATA1 INLIST+7~, INLIST+8
    REJDATA1( INLIST+10
    REJIDX WRKLST+2~
    REJLST WRKLST+2~
    REJS WRKLST+2~, WRKLST+19!, WRKLST+29, MULTI~, MULTI+4*, MULTI+5, MULTI+6*, MULTI+7, SINGLE~, SINGLE+6*
    , SINGLE+7
    REJS( WRKLST+28*
    RESP WRKLST~, WRKLST+9, WRKLST+10, WRKLST+11, WRKLST+12, WRKLST+14, WRKLST+15
    RET REJCOM~, REJCOM+13!
    RET( REJCOM+29*
    RFL WRKLST~, WRKLST+3, WRKLST+5*, WRKLST+6, WRKLST+18, INLIST~, INLIST+8, MULTI~, MULTI+3, MULTI+4
    , MULTI+5*, MULTI+6, SINGLE~, SINGLE+2, SINGLE+3, SINGLE+4*, SINGLE+5
    RFNBR EVAL~, EVAL+26, RRRCHK~, RRRCHK+31
    RRRC RRRCHK+33~, RRRCHK+47*, RRRCHK+48, RRRCHK+52
    RRRDATA EVAL~, EVAL+26*
    RRRFLG MULTI~, MULTI+4, MULTI+6, SINGLE~, SINGLE+3, SINGLE+5
    RSLT MP+4~, PI+3~
    RX WRKLST~, WRKLST+3, WRKLST+4, WRKLST+5, WRKLST+6, WRKLST+18, WRKLST+27, WRKLST+29, EXIT+1, EVAL~
    , EVAL+26, INLIST~, INLIST+8, MULTI~, MULTI+4, MULTI+5, MULTI+6, SINGLE~, SINGLE+3, SINGLE+4
    , SINGLE+5, RRRCHK~, RRRCHK+29, RRRCHK+30, RRRCHK+41, RRRCHK+44, RRRCHK+51, REJCOM~, REJCOM+14, REJCOM+19
    , REJCOM+20, REJCOM+26, REJCOM+27, MP~, MP+6, MP+10, MP+12, PI~, PI+5, PI+9
    , PI+11
    RXCOB WRKLST~, WRKLST+6, INLIST~, INLIST+9*, INLIST+10
    SEQ AUTOREJ+9~, AUTOREJ+20*, AUTOREJ+21, AUTOREJ+22
    SITE MP+2~, MP+10*, MP+13, PI+1~, PI+9*
    SORT MP+4~, PI+3~
    SPDIV AUTOREJ+9~, AUTOREJ+13*, AUTOREJ+14, AUTOREJ+21, EVAL+15~, EVAL+19*, EVAL+20, EVAL+26, EVAL+29, EVAL+30
    , EVAL+32, RRRCHK~, RRRCHK+25, RRRCHK+26, RRRCHK+47, RRRCHK+52
    SPDVI WRKLST+2~
    THRSHLD RRRCHK+33~, RRRCHK+52*, RRRCHK+53, RRRCHK+54
    TXT WRKLST+2~, WRKLST+21*, WRKLST+22, WRKLST+23
    U WRKLST+14, RRRCHK+54, REJCOM+21, REJCOM+22, REJCOM+23, REJCOM+29, MP+11, PI+10
    USERID WRKLST~
    VA MP+4~, PI+3~
    VACNTRY MP+4~, PI+3~
    VADM MP+4~, PI+3~
    VAEL MP+4~, PI+3~
    VAERR MP+4~, PI+3~
    VAPA MP+4~, PI+3~
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All