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

Package: Outpatient Pharmacy

Routine: PSODISP


Information

PSODISP ;BIR/SAB,PWC - MANUAL BARCODE RELEASE FUNCTION ;Nov 23, 2021@09:00

Source Information

Source file <PSODISP.m>

Entry Points

Name Comments DBIA/ICR reference
AC
AC1
BC ;
BC1 ;
BATCH ;
REF ;release refills and partials
UPDATE
EXIT ;
GETFILL ; get the fill number
HELP
  • ICR #980
    • Status: Active
    • Usage: Private
    BCI
    RXP
    DCHK ;checks for duplicate
    XMIT

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7),!!,?5,"Site Parameters must be defined to use the Release option!",!
    • Line Location: AC+3
    Function Call: WRITE
    • Prompt: !!
    • Line Location: AC1+0
    Function Call: WRITE
    • Prompt: !!
    • Line Location: BC+2
    Function Call: WRITE
    • Prompt: !?7,$C(7),$C(7)," INVALID STATION NUMBER !!",$C(7),$C(7),!
    • Line Location: BC+5
    Function Call: WRITE
    • Prompt: !?7,$C(7),$C(7),$C(7)," NON-EXISTENT PRESCRIPTION"
    • Line Location: BC+6
    Function Call: WRITE
    • Prompt: !?7,$C(7),$C(7),$C(7)," IMPROPER BARCODE FORMAT"
    • Line Location: BC+9
    Function Call: WRITE
    • Prompt: !!?7,$C(7),$C(7),"Rx# "_$P(^PSRX(RXP,0),"^")
    • Line Location: BC1+3
    Function Call: WRITE
    • Prompt: !?7,$C(7),$C(7)," PRESCRIPTION IS A DELETED PRESCRIPTION NUMBER"
    • Line Location: BC1+5
    Function Call: WRITE
    • Prompt: !!?5,"Rx# "_$P(^PSRX(RXP,0),"^")_" Original Fill returned to stock on "_$E(RESK,4,5)_"/"_$E(RESK,6,7)_"/"_$E(RESK,2,3),!
    • Line Location: BATCH+1
    Function Call: WRITE
    • Prompt: $C(7),!!?7,"Prescription "_$P(^PSRX(RXP,0),"^")_" - Original Fill on Suspense !",!,$C(7)
    • Line Location: UPDATE+0
    Function Call: WRITE
    • Prompt: !?7,"Prescription Number "_$P(^PSRX(RXP,0),"^")_" Released"
    • Line Location: UPDATE+3
    Function Call: WRITE
    • Prompt: !!,"Wand the barcode number of the prescription or manually key in",!,"the number below the barcode or the prescription number.",!,"The barcode number should be of the format - 'NNN-NNNNNNN'"
    • Line Location: HELP+0
    Function Call: WRITE
    • Prompt: !!,"Duplicate Rx # "_$P(^PSRX(RXP,0),"^")_" found."
    • Line Location: DCHK+6

    FileMan Files Accessed Via FileMan Db Call

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