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: PSOREJP1

Package: Outpatient Pharmacy

Routine: PSOREJP1


Information

PSOREJP1 ;BIRM/MFR - Third Party Reject Display Screen ;04/29/05

Source Information

Source file <PSOREJP1.m>

Entry Points

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
  • ICR #6763
    • Status: Active
    • Usage: Controlled Subscription
    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

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: OVR+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: RES+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: CLA+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: CLA+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: PA+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: PA+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: MP+4
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: CLOSED+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: SMA+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: SMA+14
    Function Call: WRITE
    • Prompt: !!,?6,"RECAP:"
    • Line Location: SMA+29
    Function Call: WRITE
    • Prompt: !,?6,"Prior Authorization Type : ",$P(PA,"^")," ",$$DSC^PSOREJU1(9002313.26,$P(PA,"^"),.02)
    • Line Location: SMA+30
    Function Call: WRITE
    • Prompt: !,?6,"Prior Authorization Number : ",$P(PA,"^",2)
    • Line Location: SMA+31
    Function Call: WRITE
    • Prompt: !,?6,"Submission Clarification Code 1: ",$P(CLA,"~",1)," ",$$DSC^PSOREJU1(9002313.25,$P(CLA,"~",1),.02)
    • Line Location: SMA+32
    Function Call: WRITE
    • Prompt: !,?6,"Submission Clarification Code 2: ",$P(CLA,"~",2)," ",$$DSC^PSOREJU1(9002313.25,$P(CLA,"~",2),.02)
    • Line Location: SMA+33
    Function Call: WRITE
    • Prompt: !,?6,"Submission Clarification Code 3: ",$P(CLA,"~",3)," ",$$DSC^PSOREJU1(9002313.25,$P(CLA,"~",3),.02)
    • Line Location: SMA+34
    Function Call: WRITE
    • Prompt: !,?6,"Reason for Service Code 1 : ",$P($P(OVRSTR,"~",1),U,1)," ",$$DSC^PSOREJU1(9002313.23,$P($P(OVRSTR,"~",1),U,1),1)
    • Line Location: SMA+35
    Function Call: WRITE
    • Prompt: !,?6,"Professional Service Code 1 : ",$P($P(OVRSTR,"~",1),U,2)," ",$$DSC^PSOREJU1(9002313.21,$P($P(OVRSTR,"~",1),U,2),1)
    • Line Location: SMA+36
    Function Call: WRITE
    • Prompt: !,?6,"Result of Service Code 1 : ",$P($P(OVRSTR,"~",1),U,3)," ",$$DSC^PSOREJU1(9002313.22,$P($P(OVRSTR,"~",1),U,3),1)
    • Line Location: SMA+37
    Function Call: WRITE
    • Prompt: !,?6,"Reason for Service Code 2 : ",$P($P(OVRSTR,"~",2),U,1)," ",$$DSC^PSOREJU1(9002313.23,$P($P(OVRSTR,"~",2),U,1),1)
    • Line Location: SMA+38
    Function Call: WRITE
    • Prompt: !,?6,"Professional Service Code 2 : ",$P($P(OVRSTR,"~",2),U,2)," ",$$DSC^PSOREJU1(9002313.21,$P($P(OVRSTR,"~",2),U,2),1)
    • Line Location: SMA+39
    Function Call: WRITE
    • Prompt: !,?6,"Result of Service Code 2 : ",$P($P(OVRSTR,"~",2),U,3)," ",$$DSC^PSOREJU1(9002313.22,$P($P(OVRSTR,"~",2),U,3),1)
    • Line Location: SMA+40
    Function Call: WRITE
    • Prompt: !,?6,"Reason for Service Code 3 : ",$P($P(OVRSTR,"~",3),U,1)," ",$$DSC^PSOREJU1(9002313.23,$P($P(OVRSTR,"~",3),U,1),1)
    • Line Location: SMA+41
    Function Call: WRITE
    • Prompt: !,?6,"Professional Service Code 3 : ",$P($P(OVRSTR,"~",3),U,2)," ",$$DSC^PSOREJU1(9002313.21,$P($P(OVRSTR,"~",3),U,2),1)
    • Line Location: SMA+42
    Function Call: WRITE
    • Prompt: !,?6,"Result of Service Code 3 : ",$P($P(OVRSTR,"~",3),U,3)," ",$$DSC^PSOREJU1(9002313.22,$P($P(OVRSTR,"~",3),U,3),1)
    • Line Location: SMA+43
    Function Call: WRITE
    • Prompt: !
    • Line Location: SMA+44
    Function Call: WRITE
    • Prompt: !
    • Line Location: REQ+3

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSRX - [#52] GET1^DIQ
    52.1 GET1^DIQ
    52.25 GET1^DIQ
    ^BPS(9002313.25 - [#9002313.25] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call