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 ;08-Apr-2013 14:53;DU

Source Information

Source file <PSOORDRG.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Outpatient Pharmacy 3 EN^PSOHLSN1  REMOTE^PSOORRDI  ECAN^PSOUTL  
VA Fileman 3 C^%DTC  ^DIE  $$GET1^DIQ  
IHS Changes To Pharmacy 1 ($$AWP,$$COST)^APSQDAWP  
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

Caller Graph Total: 12

Package Total Caller Graph
Outpatient Pharmacy 6 PSOORCPY  PSOORED1  PSOORFI1  PSOORNE3  PSOORNEW  PSORENW1  
Inpatient Medications 4 PSGSICHK  PSIVEDRG  PSJDCHK  PSJLIFN  
IHS Changes To Pharmacy 1 APSPFNC2  
Order Entry Results Reporting 1 ORKPS  

Entry Points

Name Comments DBIA/ICR reference
NVA ;checks existing nva
DRGCHK(PSODFN,DREN,DDRUG) ;Only check DREN against drug in DDRG()
  • 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
    DOIT(DRG,NDF) ;Process the drug IHS/MSC/MGH 04/08/2013

    External References

    Name Field # of Occurrence
    C^%DTC BLD+1
    $$AWP^APSQDAWP DRG+14
    $$COST^APSQDAWP DRG+15
    ^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 DOIT+3, DOIT+4
    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] DOIT+13
    ^PS(50.605 - [#50.605] DRG+23, DRG+25
    ^PS(50.7 - [#50.7] DRG+4
    ^PS(52.41 - [#52.41] BUILD+4, BUILD+5, BUILD+6, SETTMP+3
    ^PS(55 - [#55] BUILD+2, NVA+1, NVA+2, NVA+3
    ^PS(56 - [#56] DOIT+2, DOIT+5, DOIT+7, DOIT+12, DOIT+13
    ^PSDRUG - [#50] DRG+2, DRG+4, DRG+5, DRG+6, DRG+9, DRG+35, DRG+38, DRG+39, DRG+40, 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+25, DRG+33, DOIT+12
    ^PSRX - [#52] BUILD+2, GET+1, GET+2
    ^TMP($J EN+1!, DRG+18, DRG+19, DRG+20*, DRG+21, DRG+22, DRG+24*, DRG+25*, DRG+31, DRG+32
    , DRG+43, DOIT+11, DOIT+12*, DOIT+13*, 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+6
    BUILD BLD+1
    BUILDX BUILD+7
    DOIT DRG+41, DRG+44
    DRG DRGCHK+8, OIDRG+4
    EXIT DRG+45, BLD, OIDRG+5
    GET BUILD+2
    GETX BLD+1
    NVA EN+3, OIDRG+3
    NVA1 NVA+4, NVA+5
    REMOTE DOIT+14
    SETTMP BUILD+6, BLDOI+2

    Naked Globals

    Name Field # of Occurrence
    ^( DRG+20, DRG+25, DOIT+11
    ^("ND" DRG+5, DRG+6, DRG+40, 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!
    CDRG DRG+27~, DRG+39*, DRG+40
    CMP DRG+27~, DRG+35*, DRG+36
    CMPDR DRG+27~, DRG+37*, DRG+38*, DRG+39
    CNDF DRG+27~, DRG+40*, DRG+41
    COD DRGCHK+6~*
    >> COMM GET+9*
    DA EXIT!, GET+7~*!, GET+8*, GET+9
    DC DRG+24*, DRG+25, EXIT!, OIDRG+1!
    DD DRG+20*, EXIT!, OIDRG+1!
    DDRUG DRGCHK~, DRGCHK+7*
    DDRUG( DRGCHK+7
    DDRUG0 DRGCHK+6~
    DDRUGND DRGCHK+6~
    DFN EXIT!, CLOZ+1*
    DI DOIT+12*, DOIT+13, EXIT!, OIDRG+1!
    DIC GET+7~!
    DIE GET+7~*!
    DNM DRG+18*, DRG+19, DRG+20, DRG+21, DRG+22, DRG+25, EXIT!
    DR GET+7~*!
    DREN EN~, DRG+2, DRGCHK~, OIDRG+1~, OIDRG+4*, REMOTE+3
    DRG DRG+28*, DRG+31*, DRG+32, DRG+41, DRG+43, DRG+44, DOIT~, DOIT+11, EXIT!, SETTMP+2*
    , SETTMP+3, NVA+3*, NVA+4!, NVA+5!*, NVA+6!, NVA1, NVA1+1
    DRGN NVA+6!, NVA1*, NVA1+2
    DRNM DRG+19*, DRG+20, DRG+21, DRG+25, DRG+32*, DRG+33, DOIT+11*, DOIT+12, EXIT!
    DT DOIT+5, BLD, BLD+1, GET+6
    DUPRX0 EXIT!
    EN BUILD+3*, BUILD+5*, BUILD+6, 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 DOIT+1*, DOIT+2*, DOIT+5, DOIT+6, DOIT+7, DOIT+10*, DOIT+12, DOIT+13, EXIT!
    NDF DRG+43*, DRG+44, DOIT~, DOIT+2, DOIT+3, NVA+6!, NVA1+1*, NVA1+2
    >> O OIDRG+4
    ORN DOIT+11*, DOIT+13, EXIT!, GET+2*, GET+11, GETX+1!, NVA+3*, NVA+6!, NVA1+2
    >> P(5 CLOZ+1*, CLOZ+3!
    >> PHARMST GET+9*
    >> POERR DRG+16
    PSJINX DRGCHK+6~*
    PSOCLOZ EXIT!
    >> PSODC DRG+23*, DRG+25*
    PSODD BUILD+6*, 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, DRG+15, DRG+20, CLOZ+1
    PSODRUG("MAXDOSE" DRG+6*
    PSODRUG("NAME" DRG+3*, DRG+20, DRG+21
    PSODRUG("NDC" DRG+7*, DRG+13, DRG+14, DRG+15
    PSODRUG("NDF" DRG+5*, DOIT+2, DOIT+4
    PSODRUG("OI" DRG+4*
    PSODRUG("OIN" DRG+4*
    PSODRUG("SIG" DRG+7*
    PSODRUG("UNIT" DRG+9*
    PSODRUG("VA C LASS" , DRG+3*, DRG+21, DRG+22, DRG+23, DRG+24
    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~*, DOIT+1*, DOIT+6*, DOIT+7*, DOIT+9, DOIT+10
    >> PSONEW("AWP" DRG+14*
    >> PSONEW("COST" DRG+15*
    >> PSONEW("DFLG" DRG+14, DRG+15
    >> PSONEW("NDC" DRG+13*, DRG+14, DRG+15
    >> PSONEW("QFLG" DRG+14, DRG+15
    PSOOI BUILD+6*, BLDOI+1, SETTMP+1, BUILDX!
    PSOOTC NVA+6!
    PSOPHI EN+1!, DRG+20, DOIT+15, 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, DRG+12
    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+16!
    PSOY DRG+2*, DRG+3, DRG+4, DRG+5, DRG+6, DRG+7, DRG+8, DRG+9, DRG+16!, 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 DOIT+11*, DOIT+13, EXIT+1!
    >> STAT GET+7*, GET+9
    >> TALK DRG+14, DRG+15
    TDRG DRG+27~, DRG+33*, DRG+34, DRG+35, DRG+38, DRG+39
    U DRG+35, DRG+39
    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