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

Package: Pharmacy Data Management

Routine: PSSPOIDT


Information

PSSPOIDT ;BIR/RTR/WRT-Date update in Orderable Item File ;02/14/00

Source Information

Source file <PSSPOIDT.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 DD^%DT  ^DIE  $$GET1^DIQ  ^DIR  
Pharmacy Data Management 3 DRG^PSSDGUPD  EN2^PSSHL1  DRG^PSSHUIDG  
Kernel 1 ^%ZTLOAD  

Caller Graph

Caller Graph Total: 17

Package Total Caller Graph
Pharmacy Data Management 16 PSSADDIT  PSSDEE  PSSPOID1  PSSPOID3  PSSPOIM1  PSSPOIM2  PSSPOIMO  PSSPOST2  
PSSPRUTL  PSSSOLI1  PSSSOLIT  PSSUNMSI  ^PSDRUG  PSSSUTIL  ^PS(52.6  ^PS(52.7  
Order Entry Results Reporting 1 ORY176  

Entry Points

Name Comments DBIA/ICR reference
SET
EN(PSPOINT) ;
DTEX
REST(PSSREST) ;Ask to reactivate or inactivate others
LDIS ;list dispense drugs
DTE
DHEAD
SUP(PSSORDIT) ;Supply at Orderable Item
EN1
  • ICR #4098
    • Status: Active
    • Usage: Private
    QREST
    ENT ;Enter here if coming from Inactive date, or from queued job
    MSSG
    NONVA ; Evaluates the Non-VA Med Indicator of the Orderable Item
    ASKQ
    ENTZ
    NONFORM ;

    External References

    Name Field # of Occurrence
    DD^%DT DTE, DTEX
    ^%ZTLOAD ENT+12
    ^DIE ASKQ+16
    $$GET1^DIQ ASKQ+14, ASKQ+15, ASKQ+19, ASKQ+20
    ^DIR ASKQ+1, DHEAD
    DRG^PSSDGUPD ASKQ+15, ASKQ+20
    EN2^PSSHL1 ENTZ
    DRG^PSSHUIDG ASKQ+11, ASKQ+16

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASKQ+0
    Function Call: WRITE
    • Prompt: !,"Please wait..",!
    • Line Location: ASKQ+4
    Function Call: WRITE
    • Prompt: !,"Finished!",!
    • Line Location: ASKQ+4
    Function Call: WRITE
    • Prompt: !,$P($G(^PSDRUG(ZZ,0)),"^")
    • Line Location: LDIS+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: LDIS+10
    Function Call: WRITE
    • Prompt: ?50,Y
    • Line Location: DTE+0
    Function Call: WRITE
    • Prompt: ?50,$G(Y)
    • Line Location: DTEX+0
    Function Call: WRITE
    • Prompt: !!,"This Orderable Item is "_$S($P($G(^PS(50.7,PSSORDIT,0)),"^",12):"Non-Formulary.",1:"Formulary."),!
    • Line Location: MSSG+0
    Function Call: WRITE
    • Prompt: !!,"The Pharmacy Orderable Item ",$P($G(^PS(50.7,PSSORDIT,0)),"^")
    • Line Location: NONVA+13
    Routine Call
    • DIE
    • Line Location:
      • ASKQ+16
    Routine Call
    • DIR
    • Line Location:
      • ASKQ+1
      • DHEAD

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(59 - [#59] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(50.606 - [#50.606] EN1+4, ENT+9, ENT+10, DHEAD+1, NONFORM+14
    ^PS(50.7 - [#50.7] EN1, EN1+2, EN1+3, EN1+4, EN1+7, EN1+13, EN1+15*, ENT+1, ENT+2, ENT+5
    , ENT+9*, ENT+10*, ASKQ+5, ASKQ+11, DHEAD+1, NONFORM+5, NONFORM+6, NONFORM+11*, NONFORM+12*, NONFORM+13
    , NONFORM+14, MSSG, NONVA+4, NONVA+5, NONVA+9*, NONVA+10*, NONVA+12, NONVA+13
    ^PS(52.6 - [#52.6] EN1+9, ASKQ+7*, ASKQ+10*, LDIS+5, LDIS+7, LDIS+8
    ^PS(52.7 - [#52.7] EN1+11, ASKQ+6*, ASKQ+9*, LDIS+11, LDIS+12, LDIS+13
    ^PS(59 - [#59] ASKQ+13, ASKQ+18
    ^PSDRUG - [#50] EN1+8, ENT+6, ASKQ+11*, ASKQ+16, LDIS+2, DTE, NONFORM+7, NONFORM+8, NONFORM+9, NONVA+6
    , NONVA+7
    ^PSDRUG("A526" EN1+9
    ^PSDRUG("A527" EN1+11
    ^PSDRUG("ASP" ASKQ+11, ASKQ+16, LDIS+2

    Label References

    Name Line Occurrences
    ASKQ ASKQ+3
    DHEAD LDIS+2, LDIS+5, LDIS+11
    DTE LDIS+2
    DTEX LDIS+8, LDIS+13
    ENT EN1+3, EN1+16
    ENTZ ENT+2
    LDIS ASKQ+3
    NONFORM ENT+2, ENT+4
    NONVA ENT+4
    QREST ASKQ+3
    SET EN1+3, EN1+16

    Naked Globals

    Name Field # of Occurrence
    ^("I" ENT+6, ASKQ+9, ASKQ+10, NONFORM+8, NONVA+6
    ^(0 EN1+4, ENT+9, ENT+10, LDIS+12, NONFORM+14
    ^(2 ENT+6, NONFORM+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA EN1+1~, ASKQ+16*, ASKQ+21!
    DIE EN1+1~, ASKQ+16*, ASKQ+21!
    DIR ASKQ!, ASKQ+1!, DHEAD!
    DIR("A" ASKQ*, DHEAD*
    DIR("B" ASKQ+1*
    DIR(0 ASKQ+1*, DHEAD*
    >> DIRUT ASKQ+1
    DMFU ASKQ+12~, ASKQ+14*, ASKQ+15, ASKQ+17~, ASKQ+19*, ASKQ+20
    DNSNAM ASKQ+12~, ASKQ+15*, ASKQ+17~, ASKQ+20*
    DNSPORT ASKQ+12~, ASKQ+15*, ASKQ+17~, ASKQ+20*
    DR EN1+1~, ASKQ+16*, ASKQ+21!
    DT EN1+5, EN1+14, EN1+15, ENT+8, NONFORM+8, NONVA+6
    >> DTOUT ASKQ+1
    >> DUOUT ASKQ+1
    DVER ASKQ+12~, ASKQ+14*, ASKQ+15, ASKQ+17~, ASKQ+19*, ASKQ+20
    FLAG LDIS+1~, LDIS+2*, LDIS+4*, DHEAD, DHEAD+1
    HLDCROSS ENT+3~, ENT+12*
    II ASKQ+6*, ASKQ+7*, ASKQ+9*, ASKQ+10*, ASKQ+11*, ASKQ+15, ASKQ+16*, ASKQ+20, ASKQ+22!
    INACFLAG EN1+1~, EN1+6*, EN1+8*, EN1+10*, EN1+12*, EN1+13, EN1+15
    INCDATE EN1+1~
    IOF DHEAD+1
    IOSL LDIS+2, LDIS+5, LDIS+11
    PSACDATE EN1+1~, EN1+5*
    PSDRG NONVA+1~, NONVA+4*, NONVA+5*, NONVA+6, NONVA+7
    PSIDATEX ASKQ+5*, ASKQ+6, ASKQ+7, ASKQ+11*, ASKQ+22!
    >> PSINORDE ASKQ, ASKQ+5, ASKQ+8, ASKQ+11, ASKQ+16
    PSLATEST EN1+1~, EN1+5*, EN1+8*, EN1+10*, EN1+12*, EN1+14, EN1+15*
    PSNFX NONFORM+3~, NONFORM+6*, NONFORM+7, NONFORM+8, NONFORM+9
    PSNFX1 NONFORM+3~, NONFORM+4*, NONFORM+9*, NONFORM+11
    PSNFX2 NONFORM+3~, NONFORM+4*, NONFORM+10*, NONFORM+11, NONFORM+12
    PSNFXB NONFORM+3~, NONFORM+5*, NONFORM+13
    PSNONVA NONVA+1~, NONVA+4*, NONVA+12, NONVA+14
    PSNVADG NONVA+1~, NONVA+4*, NONVA+5, NONVA+7*, NONVA+9, NONVA+10
    PSPOINT EN~, EN1*, EN1+2, EN1+3, EN1+4, EN1+7, EN1+13, EN1+15, SET
    PSSCDATE LDIS+1~, LDIS+8*, LDIS+13*, DTEX
    PSSCFLAG LDIS+1~, LDIS+4*, LDIS+6*
    PSSCOUT ASKQ+3!, QREST!, LDIS+2*, LDIS+3, LDIS+5, LDIS+9, LDIS+11, DHEAD*
    PSSCROSS EN1, EN1+14, ENT+9, ENT+10, ENT+12*!, ENTZ, NONFORM+13, MSSG, NONVA+12
    PSSCXXX ASKQ+3!, QREST!, LDIS+2*, LDIS+6*
    >> PSSHUIDG ASKQ+11, ASKQ+16
    PSSINA ENT+3~, ENT+6*, ENT+7, ENT+8
    PSSORDIT EN1+1~, SUP~, ENT+1, ENT+2, ENT+5, ENT+9, ENT+10, ENTZ, SET*, NONFORM+2
    , NONFORM+5, NONFORM+6, NONFORM+11, NONFORM+12, NONFORM+13, NONFORM+14, MSSG, NONVA+3, NONVA+4, NONVA+5
    , NONVA+9, NONVA+10, NONVA+12, NONVA+13
    PSSQDATE ENT+3~
    PSSQDATE( ENT+8*, ENT+11
    PSSQDATE(0 ENT+11
    PSSQYES ENT+3~, ENT+5*, ENT+7*, ENT+11
    PSSREST REST~, ASKQ+5, ASKQ+6, ASKQ+7, ASKQ+9, ASKQ+10, ASKQ+11, ASKQ+16, LDIS+2, LDIS+5
    , LDIS+11, DHEAD+1
    PSSSAP ENT+3~, ENT+6*, ENT+7, ENT+8
    PSSSUP ENT+3~, ENT+5*, ENT+9, ENT+10
    PSSSUYES ENT+3~, ENT+5*, ENT+7*, ENT+8*, ENT+9, ENT+10, ENT+11
    >> PSSTEST EN1
    PSSVAP EN1+1~, EN1+8*, EN1+9*, EN1+10, EN1+11*, EN1+12
    PSSVDOSE EN1+1~, EN1+4*, EN1+14
    PSSVNAME EN1+1~, EN1+4*, EN1+14
    PSUAPP EN1+1~, EN1+8*
    WWWW EN1+1~
    X EN1+1~
    XX ASKQ+12~*, ASKQ+13*, ASKQ+14, ASKQ+15, ASKQ+17~*, ASKQ+18*, ASKQ+19, ASKQ+20
    Y EN1+1~, ASKQ+3, ASKQ+4, DHEAD, DTE*!, DTEX*!
    >> ZTDESC ENT+12*
    >> ZTDTH ENT+12*
    >> ZTIO ENT+12*
    >> ZTQUEUED EN1, ENT+1, ENTZ+1
    >> ZTREQ EN1*, ENT+1*, ENTZ+1*
    >> ZTRTN ENT+12*
    >> ZTSAVE("PSSCROSS" ENT+12*
    >> ZTSAVE("PSSORDIT" ENT+12*
    ZZ LDIS+1~, LDIS+2*, LDIS+5*, LDIS+7, LDIS+8, LDIS+11*, LDIS+12, LDIS+13, DTE
    ZZZ EN1+1~, EN1+7*, EN1+8, EN1+9, EN1+11, ENT+3~, ENT+5*, ENT+6
    ZZZA EN1+1~, EN1+9*
    ZZZS EN1+1~, EN1+11*
    ZZZZ ENT+3~, ENT+11*, ENT+12
    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