Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Outpatient Pharmacy 11 REL^PSOBING1  ($$MANREL,$$STATUS,IBSEND)^PSOBPSUT  OREL^PSOCMOPB  CP^PSOCP  BC1^PSODISP  ($$WINFILL,CHKADDR,QTY,SIGMSG,STAT)^PSODISPS  ICN^PSODPT  EN^PSOHLSN1  
EN^PSOHLUP  ^PSOLSET  IBSSR^PSOUTL  
VA FileMan 6 NOW^%DTC  ^DIC  ^DIE  $$GET1^DIQ  EN^DIQ1  ^DIR  
Integrated Billing 1 $$SERV^IBARX1  
Kernel 1 ^%ZTLOAD  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Outpatient Pharmacy 5 PSO RELEASE  PSOBING1  PSODISP  PSODISP3  PSODISPS  

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

    External References

    Name Field # of Occurrence
    NOW^%DTC BATCH+18, XMIT
    ^%ZTLOAD XMIT+4
    ^DIC AC1+1, AC1+3, AC1+5
    ^DIE BATCH+18
    $$GET1^DIQ BATCH+3
    EN^DIQ1 AC1+6
    ^DIR BC+2
    $$SERV^IBARX1 AC+4
    REL^PSOBING1 BC+1, DCHK+2, DCHK+5, DCHK+8
    $$MANREL^PSOBPSUT BATCH+15
    $$STATUS^PSOBPSUT UPDATE+4
    IBSEND^PSOBPSUT BATCH+21
    OREL^PSOCMOPB BATCH+8
    CP^PSOCP UPDATE+2
    BC1^PSODISP DCHK+7
    $$WINFILL^PSODISPS UPDATE+4
    CHKADDR^PSODISPS BATCH+11
    QTY^PSODISPS REF+1
    SIGMSG^PSODISPS UPDATE+4
    STAT^PSODISPS BC1+6
    ICN^PSODPT BC1+1
    EN^PSOHLSN1 BATCH+23
    EN^PSOHLUP BC+8
    ^PSOLSET AC+3
    IBSSR^PSOUTL AC+4
    $$SITE^VASITE BC+5

    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
    Routine Call
    • DIC
    • Line Location:
      • AC1+1
      • AC1+3
      • AC1+5
    Routine Call
    • DIE
    • Line Location:
      • BATCH+18
    Routine Call
    • DIR
    • Line Location:
      • BC+2

    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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" BC1+9
    ^PS(52.5 - [#52.5] BATCH+7
    ^PS(55 - [#55] BC+8
    ^PS(59 - [#59] AC+4
    ^PS(59.7 - [#59.7] AC1
    ^PSD(58.8 - [#58.8] BC1+8
    ^PSDRUG - [#50] BATCH+17*
    ^PSDRUG("AQ" BATCH+8
    ^PSRX - [#52] BC+6, BC+7, BC+8, BC1+1, BC1+2, BC1+3, BC1+5, BC1+6, BC1+8, BC1+9
    BC1+10, BATCH+1, BATCH+4, BATCH+6, BATCH+10, UPDATEUPDATE+2, UPDATE+3, UPDATE+6, UPDATE+8
    GETFILL+1, RXPDCHK+3, DCHK+4, DCHK+6, XMIT+1
    ^PSRX("AR" BATCH+25
    ^PSRX("B" RXPDCHK+3
    ^UTILITY($J AC+2!, XMIT+2!, XMIT+3*, XMIT+4!
    ^XTMP("PSA" AC1+4, AC1+8, BATCH+25*

    Label References

    Name Line Occurrences
    AC1 BC+3
    BC AC1+3, AC1+4, AC1+5, AC1+7, BC+4, BC+5, BC+6, BC+9, BC1+2, BC1+5
    BC1+6, BC1+9, REF+3
    BC1 BC+4, BC+7
    BCI BC+4
    DCHK BC1+5, BC1+6, BC1+9, REF+2, DCHK+4, DCHK+9
    EXIT AC+3, AC+4, AC1+1
    REF BC1+10, BATCH+1, BATCH+6
    RXP RXP
    UPDATE BATCH+6
    XMIT UPDATE+8

    Naked Globals

    Name Field # of Occurrence
    ^("STA" BC1+6
    ^(0 AC1+4*, AC1+8*, BATCH+7, BATCH+10
    ^(2 BATCH+1, BATCH+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % BATCH+18, EXIT+1!, XMIT
    BFILL UPDATE+1~*
    BINGDIV BC+1!, UPDATE+6*, DCHK+2!, DCHK+5!, DCHK+8!
    BINGNAM BC+1!, UPDATE+6*, DCHK+2!, DCHK+5!, DCHK+8!
    BINGRO BC+1!, UPDATE+6*, DCHK+2!, DCHK+5!, DCHK+8!
    BINGRPR BC+1!, DCHK+2!, DCHK+5!, DCHK+8!
    BNGPDV BC+1!, DCHK+2!, DCHK+5!, DCHK+8!
    BNGRDV BC+1!, DCHK+2!, DCHK+5!, DCHK+8!
    CMOP BC+2!, BATCH+8!
    CX AC!, EXIT+1!
    DA AC!, AC1+6*, AC1+7!, AC1+8, AC1+9!, BATCH+18*!, EXIT+1!
    DIC AC1+1*!, AC1+3*!, AC1+5*!, AC1+6*, AC1+7!, AC1+9!, EXIT+1!
    DIC("A" AC1+1*
    DIC("S" AC1+1*
    DIC(0 AC1+1*, AC1+3*, AC1+5*
    DIE AC!, BATCH+18*!, EXIT+1!
    DIQ AC1+6!*, AC1+7!, AC1+9!
    DIQ(0 AC1+6*
    DIR AC!, BC+2!, EXIT+1!
    DIR("?" BC+2*
    DIR("A" BC+2*
    DIR(0 BC+2*
    DIRUT AC!, AC1+1, BC+3!, EXIT+1!
    >> DISGROUP BC+1, DCHK+2, DCHK+5, DCHK+8
    DR AC!, AC1+6*, BATCH+18*!, EXIT+1!
    DT AC1+4, AC1+8, BATCH+25
    DTOUT AC1+1, BC+3!
    DUOUT AC!, AC1+1, BC+3!, EXIT+1!
    >> FP XMIT+3
    >> FPN XMIT+3
    >> I UPDATE+8*
    >> IDGN XMIT+1*, XMIT+3
    IFN REF+1!, EXIT+1!
    ISUF BC+2!, BATCH+6, BATCH+7*, BATCH+8!, UPDATEEXIT+1!
    J EXIT+1!
    LBL BC+2!, BATCH+10*, BATCH+18!
    LBLP BC+2!, BATCH+6, BATCH+10*, BATCH+12, BATCH+15!, REF+1!, UPDATE+6
    MAN BC+1!, BC+4*, EXIT+1!, DCHK+1, DCHK+3!
    >> NFLD GETFILL+1*
    OUT BC1+9*!, REF+2, EXIT+1!
    >> PDUZ XMIT+3
    POERR BC+2, BC1+2, BC1+5, BC1+6, BC1+9, REF+2, DCHK+3!, DCHK+7*
    PSA AC1+6!, AC1+9!
    PSA(19 AC1+7, AC1+8
    PSIN AC1*, BATCH+6, EXIT+1!
    PSOCPN AC!, BATCH+4*, EXIT+1!
    PSOCPRX AC!, UPDATE+2*, EXIT+1!
    PSODA AC!, AC1+4*, AC1+8*, BATCH+25
    PSODA(1 BC1+8*, BATCH+25
    PSODISP BATCH+3~*, UPDATE+7, EXIT+1!
    PSODT AC!, BATCH+18*, BATCH+25
    >> PSODTM XMIT*, XMIT+3
    PSOIBFL AC+4, EXIT+1!
    PSOIBLP EXIT+1!
    PSOIBSS AC+4*, EXIT+1!
    PSOIBST EXIT+1!
    >> PSOLIST BC1+3*
    PSOLOUD BC+8*!
    >> PSOPAR AC+3
    PSOPARTIAL AC+1~, UPDATE+4
    PSOPID AC!, AC+2*, BATCH+15
    >> PSOSITE AC+4, BC1+8, BATCH+3, BATCH+25
    PSRH AC!, AC1+1*, BATCH+18, EXIT+1!
    PX AC!, EXIT+1!
    QDRUG AC!, BATCH+4*, BATCH+8, BATCH+17, BATCH+25, EXIT+1!
    QTY AC!, BATCH+4*, BATCH+17, BATCH+25, EXIT+1!
    RDUZ AC!, EXIT+1!
    REC AC!, EXIT+1!
    RESK BATCH+1*, EXIT+1!
    RX2 EXIT+1!
    RXFD BATCH+6*, BATCH+7, EXIT+1!
    RXP AC!, BC+1, BC+4, BC+6*, BC+7, BC+8, BC1+1, BC1+2, BC1+3, BC1+5
    BC1+6, BC1+8, BC1+9, BC1+10, BATCH+1, BATCH+4, BATCH+6, BATCH+7, BATCH+8, BATCH+10
    BATCH+11, BATCH+15, BATCH+18, BATCH+21, BATCH+23, BATCH+25, UPDATEUPDATE+2, UPDATE+3, UPDATE+4
    UPDATE+6, UPDATE+8, EXIT+1!, GETFILL+1, BCI*, RXP*, DCHK+3*, DCHK+4, DCHK+6, XMIT+1
    XMIT+3
    >> SPEED BC1+3, BC1+10
    SUB UPDATE+8*, EXIT+1!
    SUPN BATCH+7*, EXIT+1!
    TYPE AC!, EXIT+1!
    U AC1+4, AC1+8, BC1+8
    >> UU GETFILL+1*
    X AC!, AC1+1, AC1+3*!, AC1+5*!, AC1+7!, AC1+9!, BC+4, BC+5, BC+6, EXIT+1!
    RXP
    X1 AC!, EXIT+1!
    X2 AC!, EXIT+1!
    XTYPE AC!, REF+1*, EXIT+1!
    XX EXIT+1!
    Y AC!, AC+4*, AC1+1, AC1+3!, AC1+5, AC1+6, AC1+7!, AC1+9!, BC1+9*, BC1+10
    EXIT+1!
    Y(0 AC1+4
    YDT AC!, EXIT+1!
    YY AC!, EXIT+1!
    >> ZTDESC XMIT+4*
    >> ZTDTH XMIT+4*
    >> ZTIO XMIT+4*
    >> ZTRTN XMIT+4*
    >> ZTSAVE("PSOLAP" XMIT+4*
    >> ZTSAVE("PSOSITE" XMIT+4*
    >> ZTSAVE("RXP" XMIT+4*
    >> ZTSAVE("^UTILITY($J,""PSOHL""," XMIT+4*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All