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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSOBPSU1

Package: Outpatient Pharmacy

Routine: PSOBPSU1


Information

PSOBPSU1 ;BIRM/MFR - BPS (ECME) Utilities 1 ;10/15/04

Source Information

Source file <PSOBPSU1.m>

Call Graph

Call Graph

Call Graph Total: 21

Package Total Call Graph
Outpatient Pharmacy 10 EN^PSOBORP2  $$LSTRFL^PSOBPSU1  (ELIG,ELOG,RXACT)^PSOBPSU2  ($$CMOP,$$RXRLDT,$$RXSITE,$$STATUS)^PSOBPSUT  ($$GETNDC,$$GPPDU,SAVNDC)^PSONDCUT  $$TRIC^PSOREJP1  $$PSOET^PSOREJP3  RETRXF^PSOREJU2  
TRICCHK^PSOREJU3  CLSALL^PSOREJUT  
E Claims Management Engine 6 $$CLAIM^BPSBUTL  $$EN^BPSNCPDP  $$RESPONSE^BPSOS03  LOG^BPSOSL  $$IEN59^BPSOSRX  ($$CMOPON,$$ECMEON)^BPSUTIL  
VA FileMan 2 ($$GET1,GETS)^DIQ  ^DIR  
Integrated Billing 1 $$STORESP^IBNCPDP  
Kernel 1 $$DT^XLFDT  
Pharmacy Data Management 1 ($$GETNDC,$$NDCFMT)^PSSNDCUT  

Caller Graph

Caller Graph Total: 78

Package Total Caller Graph
Outpatient Pharmacy 64 PSOATRF  PSOATRF1  PSOATRFC  PSOATRFV  PSOAUTOC  PSOBORP3  PSOBPSU1  PSOBPSU2  
PSOBPSU3  PSOBPSUT  PSOCAN3  PSOCMOP  PSODAWUT  PSODISPS  PSOERBT  PSOERUT  
PSOERUT6  PSOHLD  PSOHLDA  PSOHLDC  PSOHLEXP  PSOHLNEW  PSOLLLH  PSOMAUEX  
PSON52  PSONDCUT  PSONDCV  PSOORED1  PSOORED2  PSOORED6  PSOORED7  PSOOREDT  
PSOORUT1  PSOORUTL  PSOPKIV1  PSOPMP1  PSOPRK  PSOPRKA  PSOR52  PSOREJP1  
PSOREJP2  PSOREJP3  PSOREJU1  PSOREJU2  PSOREJU3  PSOREJU4  PSOREJUT  PSORESK  
PSORN52  PSORREF  PSORRPA1  PSORXDL  PSORXED1  PSORXL1  PSORXPA1  PSORXRP2  
PSOSULB1  PSOSULBL  PSOSUPAT  PSOSUPOE  PSOSUPRX  PSOTRI  PSOVER1  PSOVERC  
E Claims Management Engine 7 BPSBCKJ  BPSPRRX2  BPSPSOU1  BPSRES  BPSSCRRS  BPSSCRRV  BPSSCRU2  
CMOP 2 PSXRPPL1  PSXRPPL2  
Integrated Billing 2 IBJTPE  IBNCPDPU  
Controlled Substances 1 PSDDSOR1  
Electronic Health Modernization 1 EHMPSRXDC  
My HealtheVet 1 MHVPRNA  

Entry Points

Name Comments DBIA/ICR reference
ECMESND(RX,RFL,DATE,FROM,NDC,CMOP,RVTX,OVRC,CNDC,RESP,IGSW,ALTX,CLA,PA,RXCOB,PSOVRIEN,PSOPLAN,PSORTYPE,DIAG,PREG) ;
  • ICR #4702
    • Status: Active
    • Usage: Controlled Subscription
    BYPASS(PSOELIG,REASON) ;PSO*427
    ; Check if this Rx gets bypassed. Bypassed Rx show up on the TRICARE/CHAMPVA
    ; Override/Bypass Report and will not get the Reject Notification Screen.
    RRR(PSORX,PSOFILL) ; Check for an RRR reject on a Prescription/Fill.
    ; MRD;PSO*7.0*448 - New function to support display of additional
    ; information for RRR resubmits. Return '1' if this Rx has a reject
    ; with the RRR flag set, otherwise return '0'.
    ; Input: (r) PSORX - Rx IEN (#52)
    ; (o) PSOFILL - Refill#
    ; Output: '1' if RRR, '0' if not
    ADDLINFO(PSORX,PSOFILL,PSOCOB) ; Display additional information for RRR resubmits.
    ; MRD;PSO*7.0*448 - Display addition information for a paid claim.
    ; Input: (r) PSORX - Rx IEN (#52)
    ; (o) PSOFILL - Refill#
    ; (o) PSOCOB - Payer Sequence
    REVERSE(RX,RFL,FROM,RSN,RTXT,IGRL,NDC) ; - Reverse a claim and close all OPEN/UNRESOLVED Rejects
    DOS(RX,RFL,DATE) ; Return the Date Of Service for ECME
    RELEASE(RX,RFL,USR) ; - Notifies IB that the Rx was RELEASED
    LSTRFL(RX) ; - Returns the latest fill for the Rx
    ; Input: (r) RX - Rx IEN (#52)
  • ICR #4702
    • Status: Active
    • Usage: Controlled Subscription
    ECMEACT(RX,RFL,COMM,USR) ; - Add an Act to the ECME Act Log (FILE 52)
  • ICR #4702
    • Status: Active
    • Usage: Controlled Subscription
    STS(RX,RFL,RSP) ; Adds the Status to the ECME Act Log according to Rx/fill claim status Response

    External References

    Name Field # of Occurrence
    $$CLAIM^BPSBUTL RELEASE+10
    $$EN^BPSNCPDP ECMESND+69, REVERSE+28
    $$RESPONSE^BPSOS03 ADDLINFO+21
    LOG^BPSOSL ECMESND+142, ECMESND+145
    $$IEN59^BPSOSRX ECMESND+142, ECMESND+145
    $$CMOPON^BPSUTIL ECMESND+33
    $$ECMEON^BPSUTIL ECMESND+31
    $$GET1^DIQ ECMESND+39, ECMESND+113, RRR+20, RRR+21, REVERSE+23
    GETS^DIQ RELEASE+7, RELEASE+16
    ^DIR ADDLINFO+33
    $$STORESP^IBNCPDP RELEASE+20
    EN^PSOBORP2 ECMESND+88
    $$LSTRFL^PSOBPSU1 ECMEACT+5
    ELIG^PSOBPSU2 ECMESND+84
    ELOG^PSOBPSU2 ECMESND+141
    RXACT^PSOBPSU2 ECMESND+98, ECMESND+104, ECMESND+140, REVERSE+33, ECMEACT+6
    $$CMOP^PSOBPSUT REVERSE+27
    $$RXRLDT^PSOBPSUT REVERSE+21, DOS+7, RELEASE+13
    $$RXSITE^PSOBPSUT ECMESND+31, ECMESND+33, ECMESND+39
    $$STATUS^PSOBPSUT ECMESND+54, ECMESND+70, REVERSE+10, REVERSE+24, STS+2, STS+7
    $$GETNDC^PSONDCUT ECMESND+37, ECMESND+114, ECMESND+115, ECMESND+116, ECMESND+117, ECMESND+118, ECMESND+119, REVERSE+28, RELEASE+12
    $$GPPDU^PSONDCUT ECMESND+41
    SAVNDC^PSONDCUT ECMESND+40, ECMESND+71
    $$TRIC^PSOREJP1 REVERSE+29
    $$PSOET^PSOREJP3 REVERSE+9
    RETRXF^PSOREJU2 ECMESND+82, REVERSE+23
    TRICCHK^PSOREJU3 ECMESND+146
    CLSALL^PSOREJUT ECMESND+65, REVERSE+20
    $$GETNDC^PSSNDCUT ECMESND+39
    $$NDCFMT^PSSNDCUT ECMESND+38
    $$DT^XLFDT DOS+9

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Total Amount Paid: ",$P(PSORESP,U,1)
    • Line Location: ADDLINFO+24
    Function Call: WRITE
    • Prompt: ?39,"Ingredient Cost Paid: ",$P(PSORESP,U,2)
    • Line Location: ADDLINFO+25
    Function Call: WRITE
    • Prompt: !,"Amount of Copay/Coinsurance: ",$P(PSORESP,U,3)
    • Line Location: ADDLINFO+26
    Function Call: WRITE
    • Prompt: ?39,"Dispensing Fee Paid: ",$P(PSORESP,U,4)
    • Line Location: ADDLINFO+27
    Function Call: WRITE
    • Prompt: !,"Amount Applied to Periodic Deductible: ",$P(PSORESP,U,5)
    • Line Location: ADDLINFO+28
    Function Call: WRITE
    • Prompt: !,"Remaining Deductible Amount: ",$P(PSORESP,U,6)
    • Line Location: ADDLINFO+29
    Function Call: WRITE
    • Prompt: !
    • Line Location: ADDLINFO+32
    Function Call: WRITE
    • Prompt: !
    • Line Location: ADDLINFO+34
    Routine Call
    • DIR
    • Line Location:
      • ADDLINFO+33

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSRX - [#52] GET1^DIQ,  GETS^DIQ
    52.1 GET1^DIQ,  GETS^DIQ
    52.25 GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PSRX - [#52] RRR+19, LSTRFL+4

    Label References

    Name Line Occurrences
    $$BYPASS ECMESND+87
    $$DOS ECMESND+69, REVERSE+28, RELEASE+13
    $$LSTRFL ECMESND+29, REVERSE+8, DOS+5, RELEASE+5
    $$RRR ECMESND+77
    $$STS ECMESND+125, ECMESND+128, REVERSE+32
    ADDLINFO ECMESND+77

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACT ECMESND+28~, ECMESND+53*, ECMESND+54*, ECMESND+55*, ECMESND+97, ECMESND+103, ECMESND+124*, ECMESND+125*, ECMESND+128*, ECMESND+130*
    , ECMESND+131*, ECMESND+132*, ECMESND+133*, ECMESND+134*, ECMESND+135*, ECMESND+138*, ECMESND+140, REVERSE+11~, REVERSE+32*, REVERSE+33
    ACT1 ECMESND+28~, ECMESND+136*, ECMESND+137*, ECMESND+138
    ALTX ECMESND~, ECMESND+108*, ECMESND+111, ECMESND+128
    CLA ECMESND~, ECMESND+45, ECMESND+47, ECMESND+61, ECMESND+65, ECMESND+69, ECMESND+102, ECMESND+103
    CLSCOM ECMESND+58~, ECMESND+60*, ECMESND+61*, ECMESND+62*, ECMESND+63*, ECMESND+64*, ECMESND+65
    CMOP ECMESND~, ECMESND+33, ECMESND+39, ECMESND+40, ECMESND+71
    CNDC ECMESND~, ECMESND+35, ECMESND+124
    COMM ECMEACT~, ECMEACT+6
    DA ECMESND+28~, REVERSE+11~
    DATE ECMESND~, ECMESND+69, DOS~, DOS+7*, DOS+9*, DOS+10
    >> DFN RELEASE+8*, RELEASE+20
    DIAG ECMESND~, ECMESND+63, ECMESND+69
    DIR ADDLINFO+15~
    DIR("A" ADDLINFO+31*
    DIR(0 ADDLINFO+31*
    DIROUT ADDLINFO+15~
    DIRUT ADDLINFO+15~
    DT DOS+9
    DTOUT ADDLINFO+15~
    DUOUT ADDLINFO+15~
    DUZ ECMESND+65, ECMESND+98, ECMESND+104, ECMESND+140, REVERSE+20, REVERSE+33
    FROM ECMESND~, ECMESND+41, ECMESND+68, ECMESND+69, ECMESND+71, ECMESND+77, ECMESND+113, ECMESND+114, ECMESND+115, ECMESND+116
    , ECMESND+117, ECMESND+118, ECMESND+119, ECMESND+120, ECMESND+121, ECMESND+145, ECMESND+146, REVERSE~, REVERSE+27, REVERSE+28
    I LSTRFL+3~, LSTRFL+4*
    IBAR RELEASE+4~, RELEASE+20
    IBAR("CLAIMID" RELEASE+10*
    IBAR("DAYS SU PPLY" , RELEASE+14*, RELEASE+18*
    IBAR("DOS" RELEASE+13*
    IBAR("DRUG" RELEASE+12*
    IBAR("FILL NU MBER" , RELEASE+13*
    IBAR("NDC" RELEASE+12*
    IBAR("PRESCRIPTION" RELEASE+9*
    IBAR("QTY" RELEASE+14*, RELEASE+17*
    IBAR("RELEASE DATE" , RELEASE+13*
    IBAR("RX NO" RELEASE+9*
    IBAR("STATUS" RELEASE+19*
    IBAR("USER" RELEASE+11*
    IGRL REVERSE~, REVERSE+21
    IGSW ECMESND~, ECMESND+31, ECMESND+33
    LSTRFL LSTRFL+3~, LSTRFL+4*, LSTRFL+5
    MSG ECMESND+94~, ECMESND+97*, ECMESND+98, ECMESND+103*, ECMESND+104
    NDC ECMESND~, ECMESND+36, ECMESND+38, ECMESND+39*, ECMESND+40, ECMESND+41, ECMESND+69, ECMESND+71, REVERSE~, REVERSE+32
    NDCACT ECMESND+28~, ECMESND+36*, ECMESND+37*, ECMESND+124
    NOACT REVERSE+11~, REVERSE+24*, REVERSE+25*, REVERSE+31
    OVRC ECMESND~, ECMESND+45, ECMESND+46, ECMESND+60, ECMESND+65, ECMESND+69, ECMESND+96, ECMESND+97, ECMESND+123
    PA ECMESND~, ECMESND+46, ECMESND+47, ECMESND+62, ECMESND+65, ECMESND+69, ECMESND+104, ECMESND+107, ECMESND+108
    PPDU ECMESND+41*!
    PREG ECMESND~, ECMESND+64, ECMESND+69
    PSOBYPS ECMESND+28~, ECMESND+87*, ECMESND+88, ECMESND+145, ECMESND+146
    PSOCOB ADDLINFO~, ADDLINFO+19*, ADDLINFO+21
    PSOELIG ECMESND+28~, ECMESND+84*, ECMESND+87, ECMESND+134, ECMESND+135, ECMESND+145, ECMESND+146, BYPASS~, BYPASS+12, BYPASS+16
    , STS+7
    PSOET REVERSE+9~*, REVERSE+10
    PSOFILL RRR~, RRR+11*, RRR+20, ADDLINFO~, ADDLINFO+18*, ADDLINFO+21
    PSOIBN RELEASE+4~, RELEASE+20*
    PSOPLAN ECMESND~, ECMESND+69
    PSOREJ RRR+8~, RRR+18*, RRR+19*, RRR+20, RRR+21
    PSORESP ADDLINFO+15~, ADDLINFO+21*, ADDLINFO+22, ADDLINFO+24, ADDLINFO+25, ADDLINFO+26, ADDLINFO+27, ADDLINFO+28, ADDLINFO+29
    PSORRR RRR+8~, RRR+17*, RRR+19, RRR+21*, RRR+24
    PSORTYPE ECMESND~, ECMESND+69
    PSORX RRR~, RRR+10, RRR+19, RRR+20, RRR+21, ADDLINFO~, ADDLINFO+17, ADDLINFO+21
    PSOTRIC REVERSE+29~*, REVERSE+32
    PSOVRIEN ECMESND~, ECMESND+69
    REASON BYPASS~, BYPASS+13, BYPASS+19
    RESP ECMESND~, ECMESND+31*, ECMESND+33*, ECMESND+69*, ECMESND+84, ECMESND+87, ECMESND+88, ECMESND+93, ECMESND+125, ECMESND+128
    , ECMESND+129, ECMESND+130, ECMESND+131, ECMESND+132, ECMESND+133, ECMESND+137, ECMESND+141, ECMESND+142, ECMESND+146, REVERSE+11~
    , REVERSE+28*, REVERSE+32, STS+6
    REVECME REVERSE+11~*, REVERSE+27*, REVERSE+28, REVERSE+31
    RFAR RELEASE+4~
    RFAR( RELEASE+17, RELEASE+18
    RFL ECMESND~, ECMESND+29*, ECMESND+31, ECMESND+33, ECMESND+37, ECMESND+39, ECMESND+40, ECMESND+41, ECMESND+54, ECMESND+65
    , ECMESND+69, ECMESND+70, ECMESND+71, ECMESND+77, ECMESND+82, ECMESND+84, ECMESND+88, ECMESND+98, ECMESND+104, ECMESND+113
    , ECMESND+114, ECMESND+115, ECMESND+116, ECMESND+117, ECMESND+118, ECMESND+119, ECMESND+125, ECMESND+128, ECMESND+140, ECMESND+142
    , ECMESND+145, ECMESND+146, REVERSE~, REVERSE+8*, REVERSE+9, REVERSE+10, REVERSE+20, REVERSE+21, REVERSE+23, REVERSE+24
    , REVERSE+27, REVERSE+28, REVERSE+29, REVERSE+32, REVERSE+33, DOS~, DOS+5*, DOS+7, RELEASE~, RELEASE+5*
    , RELEASE+10, RELEASE+12, RELEASE+13, RELEASE+15, RELEASE+16, RELEASE+17, RELEASE+18, ECMEACT~, ECMEACT+5*, ECMEACT+6
    , STS~, STS+2, STS+7
    ROUTE ECMESND+112~*, ECMESND+113*, ECMESND+114, ECMESND+115
    RSN REVERSE~, REVERSE+11*, REVERSE+12, REVERSE+13, REVERSE+14, REVERSE+15, REVERSE+16, REVERSE+17, REVERSE+18, REVERSE+20
    , REVERSE+23
    RSP STS~, STS+3, STS+4, STS+5, STS+6, STS+7
    RTXT REVERSE~, REVERSE+11*, REVERSE+12, REVERSE+13*, REVERSE+14*, REVERSE+15*, REVERSE+16*, REVERSE+17*, REVERSE+18*, REVERSE+20
    , REVERSE+28, REVERSE+32
    RVTX ECMESND~, ECMESND+50*, ECMESND+68*, ECMESND+69, ECMESND+122, ECMESND+146
    RX ECMESND~, ECMESND+29, ECMESND+31, ECMESND+33, ECMESND+37, ECMESND+39, ECMESND+40, ECMESND+41, ECMESND+54, ECMESND+65
    , ECMESND+69, ECMESND+70, ECMESND+71, ECMESND+77, ECMESND+82, ECMESND+84, ECMESND+88, ECMESND+98, ECMESND+104, ECMESND+113
    , ECMESND+114, ECMESND+115, ECMESND+116, ECMESND+117, ECMESND+118, ECMESND+119, ECMESND+125, ECMESND+128, ECMESND+140, ECMESND+142
    , ECMESND+145, ECMESND+146, REVERSE~, REVERSE+8, REVERSE+9, REVERSE+10, REVERSE+20, REVERSE+21, REVERSE+23, REVERSE+24
    , REVERSE+27, REVERSE+28, REVERSE+29, REVERSE+32, REVERSE+33, DOS~, DOS+5, DOS+7, RELEASE~, RELEASE+5
    , RELEASE+7, RELEASE+8, RELEASE+9, RELEASE+10, RELEASE+12, RELEASE+13, RELEASE+14, RELEASE+16, RELEASE+17, RELEASE+18
    , LSTRFL~, LSTRFL+4, ECMEACT~, ECMEACT+5, ECMEACT+6, STS~, STS+2, STS+7
    RXAR RELEASE+4~
    RXAR(52 RELEASE+8, RELEASE+9, RELEASE+12, RELEASE+14
    RXCOB ECMESND~, ECMESND+69, ECMESND+77
    SMA ECMESND+28~, ECMESND+44*, ECMESND+45*, ECMESND+46*, ECMESND+47*, ECMESND+59, ECMESND+93, ECMESND+123
    STAT ECMESND+67~, REVERSE+11~
    STATUS REVERSE+11~, REVERSE+24*, REVERSE+25
    STS REVERSE+11~, STS+1~, STS+2*, STS+3*, STS+4*, STS+5*, STS+6*, STS+7*, STS+8
    U ADDLINFO+24, ADDLINFO+25, ADDLINFO+26, ADDLINFO+27, ADDLINFO+28, ADDLINFO+29, RELEASE+10
    USR RELEASE~, RELEASE+6*, RELEASE+11, ECMEACT~, ECMEACT+6
    X ECMESND+112~*, ECMESND+114*, ECMESND+115*, ECMESND+116*, ECMESND+117*, ECMESND+118*, ECMESND+119*, ECMESND+120*, ECMESND+121*, ECMESND+122*
    , ECMESND+123*, ECMESND+124*, ADDLINFO+15~
    Y ADDLINFO+15~

    Marked Items

    Name Field # of Occurrence
    $T( ECMESND+142, ECMESND+145
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All