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

Package: Outpatient Pharmacy

Routine: PSOREJP2


Information

PSOREJP2 ;BIRM/MFR - Third Party Rejects View/Process ;04/28/05

Source Information

Source file <PSOREJP2.m>

Entry Points

Name Comments DBIA/ICR reference
SEL ; - Field Selection (Patient/Drug/Rx)
EXIT
CLO ; - Ignore a REJECT hidden action
OPN ; - Re-open a Closed/Resolved Reject
SDC ; - Suspense Date Calculation
CSD ;CSD - Change Suspense Date action entry point
CHG(SDC) ; - Change Suspense Date action
SUDT ; Asks for the new Suspense Date
PTLBL(RX,RFL) ; Conditionally prompts user with 'Print Label?' prompt.
; If User responds YES to 'Print Label' value of 1 is returned.
; If User responds NO to 'Print Label' value of 0 is returned.
DTRNG(BGN,END) ; Date Range Selection
CALCSD(RX,FIL,COB) ;
; CALCSD - Prompt the user for Last Date of Service, Last Days Supply and
; then calculate the suspense date based on these input.
; Input
; RX - Prescription IEN
; FIL - Fill Number
; COB - Coordination of Benefits
; Return
; The calculated suspense date
PREVRX(RX,RFL,COB,LDOS,LDAYS,PREVRX) ; Gather last date of service and last days supply from previous rx
; input: RX - Current RX
; RFL - Refill
; COB - Coordination of benefits
; output: LDOS - (pass by reference) Last date of service in fileman format, or ""
; LDAYS - (pass by reference) Last days supply in numeric format, or ""
; PREVRX - (pass by reference) Previous Rx for same drug, if any
  • ICR #5912
    • Status: Active
    • Usage: Private
    PREVRXQ ;
    LAST120(RX,COB) ;
    ; For the original fill, get the default DOS/Days Supply by getting
    ; most recent DOS from the other RXs within a time window for the same
    ; patient and drug and dosage Time window - Prescription has an
    ; expiration date that is in the future or within the last 120 days
    ; Input
    ; RX - Prescription IEN
    ; COB - coordination of benefits indicator (defaults to 1 if not passed)
    ; Output
    ; Last Date of Service ^ Last Days Supply ^ Previous Rx
    CHECKIT(RX,FL,COB,LDOS,LDAYS)

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: PSOREJP2+15
    Function Call: WRITE
    • Prompt: !
    • Line Location: SEL+27
    Function Call: WRITE
    • Prompt: " ??"
    • Line Location: SEL+36
    Function Call: WRITE
    • Prompt: ?31,PSORX_" "_PSODRUG
    • Line Location: SEL+41
    Function Call: WRITE
    • Prompt: !?40,"Prescription does not have rejects!",$C(7)
    • Line Location: SEL+44
    Function Call: WRITE
    • Prompt: !!,"Gross Amount Due is $"_$P(PSOIT,"^",2)_". IGNORE requires EPHARMACY SITE MANAGER key."
    • Line Location: CLO+15
    Function Call: WRITE
    • Prompt: !
    • Line Location: CLO+25
    Function Call: WRITE
    • Prompt: !
    • Line Location: CLO+28
    Function Call: WRITE
    • Prompt: ?40,"[Closing..."
    • Line Location: CLO+33
    Function Call: WRITE
    • Prompt: "OK]",!,$C(7)
    • Line Location: CLO+33
    Function Call: WRITE
    • Prompt: !
    • Line Location: OPN+16
    Function Call: WRITE
    • Prompt: ?40,"[Re-opening..."
    • Line Location: OPN+22
    Function Call: WRITE
    • Prompt: "OK]",!,$C(7)
    • Line Location: OPN+33
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: CHG+8
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: CHG+15
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: CHG+16
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: CHG+21
    Function Call: WRITE
    • Prompt: !!,"Currently, Bypass 3/4 Day Supply is set to YES. If you continue, the"
    • Line Location: CHG+35
    Function Call: WRITE
    • Prompt: !,"prescription fill will transmit to CMOP on the new Suspense Date entered.",!
    • Line Location: CHG+36
    Function Call: WRITE
    • Prompt: !,*7," **CALCULATED SUSPENSE DATE IS IN THE PAST: ",$$FMTE^XLFDT(SUSDT),"**"
    • Line Location: SUDT+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: SUDT+6
    Function Call: WRITE
    • Prompt: !,"ACTION NOT TAKEN!"
    • Line Location: SUDT+6
    Function Call: WRITE
    • Prompt: !!?5,"Suspense Date cannot be before Issue Date: ",$$FMTE^XLFDT(ISSDT),".",$C(7)
    • Line Location: SUDT+8
    Function Call: WRITE
    • Prompt: !!?5,"Suspense Date cannot be after Expiration Date: ",$$FMTE^XLFDT(EXPDT),".",$C(7)
    • Line Location: SUDT+10
    Function Call: WRITE
    • Prompt: !!?5,"Suspense Date cannot be after fill date plus 90 days: "_$$FMTE^XLFDT(CUTDT),".",$C(7)
    • Line Location: SUDT+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: SUDT+15
    Function Call: WRITE
    • Prompt: ?40,"[Closing..."
    • Line Location: SUDT+50
    Function Call: WRITE
    • Prompt: !
    • Line Location: PTLBL+48
    Function Call: WRITE
    • Prompt: !
    • Line Location: DTRNG+10
    Function Call: WRITE
    • Prompt: !,"ACTION NOT TAKEN!"
    • Line Location: CALCSD+20
    Function Call: WRITE
    • Prompt: " ("_$$FMTE^XLFDT($G(LDOS))_")"
    • Line Location: CALCSD+21
    Function Call: WRITE
    • Prompt: !,"ACTION NOT TAKEN!"
    • Line Location: CALCSD+29

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSRX - [#52] GET1^DIQ
    52.01 GET1^DIQ
    52.032 GET1^DIQ
    52.1 GET1^DIQ
    52.25 GET1^DIQ
    52.3 GET1^DIQ
    ^PS(52.5 - [#52.5] Classic Fileman Calls,  GET1^DIQ
    ^PS(59 - [#59] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call