Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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) ; - Sends Rx Release
  • 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

    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

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call