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

Package: Outpatient Pharmacy

Routine: PSOSUCHG


Information

PSOSUCHG ;BIR/RTR-CHANGE SUSPENSE AND FILL AND REFILL DATES ;4/29/93

Source Information

Source file <PSOSUCHG.m>

Entry Points

Name Comments DBIA/ICR reference
LU
EXIT
SPEC
  • ICR #1972
    • Status: Active
    • Usage: Private
    RTN
  • ICR #1972
    • Status: Active
    • Usage: Private
    ALL
  • ICR #1972
    • Status: Active
    • Usage: Private
    BC
    NAM
    TEST
    BEG
    DEL
    EXPCAN
    TST
    RF ;
    RFPS
    DATE
    DATEX
    IS
    SI ;
    DEL1 ;
    ULK ;Unlock prescriptions
    PAUSE ;
    LMES ;
    DELONE ;
    EXPCAN1 ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: LU+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: SPEC+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: SPEC+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: SPEC+1
    Function Call: WRITE
    • Prompt: !,"Rx number: "_$P($G(^PSRX(RXREC,0)),"^")_" cannot be changed because"
    • Line Location: SPEC+5
    Function Call: WRITE
    • Prompt: !!,"Currently, Bypass 3/4 Day Supply is set to YES. If you continue, the"
    • Line Location: RTN+9
    Function Call: WRITE
    • Prompt: !,"prescription fill will transmit to CMOP on the new Suspense Date entered.",!
    • Line Location: RTN+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: RTN+13
    Function Call: WRITE
    • Prompt: !!,"Suspense date cannot be before Issue Date of Rx!",!
    • Line Location: RTN+14
    Function Call: WRITE
    • Prompt: !
    • Line Location: ALL+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: BC+0
    Function Call: WRITE
    • Prompt: $C(7),!!?5,"Invalid Barcode!"
    • Line Location: BC+1
    Function Call: WRITE
    • Prompt: " ",$P($G(^DPT(DFN,0)),"^")
    • Line Location: BC+2
    Function Call: WRITE
    • Prompt: $C(7),!!?5,"Invalid Barcode!",!
    • Line Location: BC+4
    Function Call: WRITE
    • Prompt: !!?3,"This patient has no Rx's in suspense that have not already been printed!",!
    • Line Location: BC+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: NAM+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: NAM+15
    Function Call: WRITE
    • Prompt: !,"Rx #: ",$$GET1^DIQ(52,RXREC,.01,"E")
    • Line Location: NAM+16
    Function Call: WRITE
    • Prompt: !,"Currently, Bypass 3/4 Day Supply is set to YES. If you continue, the"
    • Line Location: NAM+20
    Function Call: WRITE
    • Prompt: !,"prescription fill(s) will transmit to CMOP on the new Suspense Date entered.",!
    • Line Location: NAM+21
    Function Call: WRITE
    • Prompt: !!,"Rx number: "_$P($G(^PSRX(RXREC,0)),"^")_" cannot be changed because"
    • Line Location: TEST+1
    Function Call: WRITE
    • Prompt: !!,"Deleting Rx's from suspense..",!
    • Line Location: DEL+1
    Function Call: WRITE
    • Prompt: !,"Rx number: "_$P($G(^PSRX(RXREC,0)),"^")_" cannot be deleted from suspense because"
    • Line Location: DEL+4
    Function Call: WRITE
    • Prompt: $C(7),!,"Rx# "_$P($G(^PSRX(RXREC,0)),"^")_" expired "_$G(PSOSSTP)_"."
    • Line Location: EXPCAN+0
    Function Call: WRITE
    • Prompt: !!,"Suspense date cannot be before Issue Date for Rx# ",$P($G(^PSRX(RXREC,0)),"^")
    • Line Location: IS+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+1
    Function Call: WRITE
    • Prompt: !,"Rx number: "_$P($G(^PSRX(RXREC,0)),"^")_" cannot be deleted from suspense because"
    • Line Location: DELONE+1
    Function Call: WRITE
    • Prompt: $C(7),!,"Rx# "_$P($G(^PSRX(RXREC,0)),"^")_" expired "_$G(PSOSSTP)_"."
    • Line Location: EXPCAN1+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    ^PSRX - [#52] GET1^DIQ
    ^PS(52.5 - [#52.5] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call