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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSOORDRG

Package: Outpatient Pharmacy

Routine: PSOORDRG


Information

PSOORDRG ;BIR/SAB - order entry drug selection ;11/13/97

Source Information

Source file <PSOORDRG.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Outpatient Pharmacy 3 EN^PSOHLSN1  REMOTE^PSOORRDI  ECAN^PSOUTL  
VA FileMan 3 C^%DTC  ^DIE  $$GET1^DIQ  
Inpatient Medications 1 (DDRUG,ENCHK)^PSJORUT2  
National Drug File 1 $$DDIEX^PSNAPIS  
Order Entry Results Reporting 1 ($$HAVEHDR,HAVEHDR)^ORRDI1  
Pharmacy Data Management 1 $$GETNDC^PSSNDCUT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Outpatient Pharmacy 8 PSODDPR4  PSODDPR8  PSOORCPY  PSOORED1  PSOORFI1  PSOORNE3  PSOORNEW  PSORENW1  
Inpatient Medications 3 PSIVEDRG  PSJDCHK  PSJLIFN  

Entry Points

Name Comments DBIA/ICR reference
NVA ;checks existing nva
DRGCHK(PSODFN,DREN,DDRUG)
  • ICR #2190
    • Status: Active
    • Usage: Controlled Subscription
    SETTMP ;Create ^TMP($J,"ORDERS"
    GET ;data for profiles
    NVA1
    OIDRG(PSODFN,PSOI) ;checks every drug tied to orderable item passed by package use
    BUILDX
    BLDOI ;If no DD/non-standard dose, get all drugs for OI
    GETX ;
    REMOTE ;
    EN(PSODFN,DREN) ;
  • ICR #2190
    • Status: Active
    • Usage: Controlled Subscription
    EXIT
    BUILD ;build profiles
    CLOZ ;
    BLD
    DRG ;S X=DREN,DIC="^PSDRUG(",DIC(0)="MQNZO" D ^DIC K DIC,PSOY Q:Y<1 S PSOY=Y,PSOY(0)=Y(0) K X,Y

    External References

    Name Field # of Occurrence
    C^%DTC BLD+1
    ^DIE GET+7
    $$GET1^DIQ DRG+8
    $$HAVEHDR^ORRDI1 REMOTE+2
    HAVEHDR^ORRDI1 REMOTE+1
    DDRUG^PSJORUT2 DRGCHK+7
    ENCHK^PSJORUT2 EN+3, OIDRG+3
    $$DDIEX^PSNAPIS DRG+25, DRG+26
    EN^PSOHLSN1 GET+9
    REMOTE^PSOORRDI REMOTE+3
    ECAN^PSOUTL GET+8
    $$GETNDC^PSSNDCUT DRG+7

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSDRUG - [#50] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" CLOZ+2
    ^PS(50.416 - [#50.416] DRG+35
    ^PS(50.605 - [#50.605] DRG+17, DRG+19
    ^PS(50.7 - [#50.7] DRG+4
    ^PS(52.41 - [#52.41] BUILD+4, BUILD+5, BUILD+6, BUILD+7, BUILD+9, SETTMP+3
    ^PS(55 - [#55] BUILD+2, NVA+1, NVA+2, NVA+3
    ^PS(56 - [#56] DRG+24, DRG+27, DRG+29, DRG+34, DRG+35
    ^PSDRUG - [#50] DRG+2, DRG+4, DRG+5, DRG+6, DRG+9, SETTMP+2, SETTMP+3, GET+3, GET+4, GET+11
    , CLOZ+1, OIDRG+4, NVA+4, NVA+5, NVA1, NVA1+1
    ^PSDRUG("ASP" BLDOI+2, OIDRG+4, NVA+5
    ^PSDRUG("B" DRG+19, DRG+34
    ^PSRX - [#52] BUILD+2, GET+1, GET+2
    ^TMP($J EN+1!, DRG+12, DRG+13, DRG+14*, DRG+15, DRG+16, DRG+18*, DRG+19*, DRG+22, DRG+33
    , DRG+34*, DRG+35*, EXIT!, BLD!, SETTMP+3*, GET+11*, DRGCHK+5!, OIDRG+1!, NVA1+2*, REMOTE+4!

    Label References

    Name Line Occurrences
    @( CLOZ+2
    BLD EN+3, OIDRG+3
    BLDOI BUILD+9
    BUILD BLD+1
    BUILDX BUILD+11
    DRG DRGCHK+8, OIDRG+4
    EXIT BLD, OIDRG+5
    GET BUILD+2
    GETX BLD+1
    NVA EN+3, OIDRG+3
    NVA1 NVA+4, NVA+5
    REMOTE DRG+36
    SETTMP BUILD+10, BLDOI+2

    Naked Globals

    Name Field # of Occurrence
    ^( DRG+14, DRG+19, DRG+33
    ^("ND" DRG+5, DRG+6, SETTMP+3, GET+11, NVA1+1
    ^("OR1" GET+2
    ^("STA" GET+1
    ^(0 NVA+3
    ^(2 DRG+4
    ^(3 GET+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ANQRTN CLOZ+1*, CLOZ+2, CLOZ+3!
    ANQX CLOZ+1*, CLOZ+2, CLOZ+3!
    COD DRGCHK+6~*
    >> COMM GET+9*
    DA EXIT!, GET+7~*!, GET+8*, GET+9
    DC DRG+18*, DRG+19, EXIT!, OIDRG+1!
    DD DRG+14*, EXIT!, OIDRG+1!
    DDRUG DRGCHK~, DRGCHK+7*
    DDRUG( DRGCHK+7
    DDRUG0 DRGCHK+6~
    DDRUGND DRGCHK+6~
    DFN EXIT!, CLOZ+1*
    DI DRG+34*, DRG+35, EXIT!, OIDRG+1!
    DIC GET+7~!
    DIE GET+7~*!
    DNM DRG+12*, DRG+13, DRG+14, DRG+15, DRG+16, DRG+19, EXIT!
    DR GET+7~*!
    DREN EN~, DRG+2, DRGCHK~, OIDRG+1~, OIDRG+4*, REMOTE+3
    DRG DRG+21*, DRG+22*, DRG+33, EXIT!, SETTMP+2*, SETTMP+3, NVA+3*, NVA+4!, NVA+5!*, NVA+6!
    , NVA1, NVA1+1
    DRGN NVA+6!, NVA1*, NVA1+2
    DRNM DRG+13*, DRG+14, DRG+15, DRG+19, DRG+33*, DRG+34, EXIT!
    DT DRG+27, BLD, BLD+1, GET+6
    DUPRX0 EXIT!
    EN BUILD+3*, BUILD+5*, BUILD+6, BUILD+7, BUILD+9, SETTMP+3, BUILDX!
    EXPDT EXIT+1!, BUILD+1*, BUILD+2*, GET+6, GETX+1!
    I NVA+1*, NVA+2, NVA+3, NVA+6!, NVA1+2
    >> INDX EN+1*, EN+3, SETTMP+3*, GET+10*, GET+11, OIDRG+1*, OIDRG+3, NVA1+2*
    IT DRG+23*, DRG+24*, DRG+27, DRG+28, DRG+29, DRG+32*, DRG+34, DRG+35, EXIT!
    NDF DRG+22*, DRG+24, DRG+25, NVA+6!, NVA1+1*, NVA1+2
    >> O OIDRG+4
    ORN DRG+33*, DRG+35, EXIT!, GET+2*, GET+11, GETX+1!, NVA+3*, NVA+6!, NVA1+2
    >> P(5 CLOZ+1*, CLOZ+3!
    >> PHARMST GET+9*
    >> POERR DRG+10
    PSJINX DRGCHK+6~*
    PSOCLOZ EXIT!
    >> PSODC DRG+17*, DRG+19*
    PSODD BUILD+10*, BLDOI+2*, SETTMP+2, SETTMP+3, BUILDX!
    PSODFN EN~, EN+1, EN+3, BLD, BUILD+2, BUILD+4, BUILD+5, CLOZ+1, DRGCHK~, OIDRG~
    , OIDRG+3, NVA+1, NVA+2, NVA+3, REMOTE+3, REMOTE+4
    PSODRUG EXIT!, GET+3*, GET+4, GET+11, GETX+1!
    PSODRUG("CLN" DRG+6*
    PSODRUG("COST" DRG+9*
    PSODRUG("DAW" DRG+8*
    PSODRUG("DEA" DRG+6*
    PSODRUG("EXPI RATION DATE" , DRG+9*
    PSODRUG("IEN" DRG+3*, DRG+14, CLOZ+1
    PSODRUG("MAXDOSE" DRG+6*
    PSODRUG("NAME" DRG+3*, DRG+14, DRG+15
    PSODRUG("NDC" DRG+7*
    PSODRUG("NDF" DRG+5*, DRG+24, DRG+26
    PSODRUG("OI" DRG+4*
    PSODRUG("OIN" DRG+4*
    PSODRUG("SIG" DRG+7*
    PSODRUG("UNIT" DRG+9*
    PSODRUG("VA C LASS" , DRG+3*, DRG+15, DRG+16, DRG+17, DRG+18
    PSODRUG0 EXIT+1!, GET+4*, GETX+1!
    >> PSODTCUT BLD+1*, BUILD+1
    PSOEN BUILD+4*, BUILD+5, BUILDX!
    PSOI BLDOI+1~*, BLDOI+2, OIDRG~, OIDRG+4, NVA+3*, NVA+5, NVA+6!
    PSOICT DRG+1~*, DRG+23*, DRG+28*, DRG+29*, DRG+31, DRG+32
    PSOOI BUILD+7*, BUILD+8, BUILD+10, BLDOI+1, SETTMP+1, BUILDX!
    PSOOTC NVA+6!
    PSOPHI EN+1!, DRG+14, DRG+37, OIDRG+1*, OIDRG+5!
    >> PSORX("DFLG" CLOZ+2*
    PSORX0 EXIT+1!, GET+1*, GET+3, GETX+1!
    PSORX2 EXIT+1!, GET+2*, GETX+1!
    PSORX3 EXIT+1!, GET+2*, GETX+1!
    >> PSOSITE DRG+7
    PSOST0 EXIT+1!, GET+1*, GETX+1!
    PSOVACL EXIT+1!, GET+4*, GET+11, GETX+1!
    PSOX EXIT+1!, GETX+1!
    PSOX1 DRG+9*, DRG+10!
    PSOY DRG+2*, DRG+3, DRG+4, DRG+5, DRG+6, DRG+7, DRG+8, DRG+9, DRG+10!, EXIT!
    , NVA+6!, NVA1*
    PSOY(0 DRG+2*, DRG+3, DRG+6, DRG+7
    RX EXIT!, BUILD+1*, BUILD+2*, GET+1, GET+2, GET+7, GET+8, GET+11
    RXN DRG+33*, DRG+35, EXIT+1!
    >> STAT GET+7*, GET+9
    VACL NVA+6!, NVA1*, NVA1+2
    X DRG+2!, EXIT+1!, BLD+1, GETX+1!, CLOZ+1*, CLOZ+3!
    X1 EXIT+1!, BLD+1*, GETX+1!
    X2 EXIT+1!, BLD+1*, GETX+1!
    Y DRG+2!, EXIT!, EXIT+1!, GETX+1!
    ZZ EXIT!

    Marked Items

    Name Field # of Occurrence
    $T(HAVEHDR^ORRDI1 REMOTE+1
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All