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

Package: Outpatient Pharmacy

Routine: PSODRG


Information

PSODRG ;IHS/DSD/JCM-ORDER ENTRY DRUG SELECTION ;28-Mar-2016 12:57;DU

Source Information

Source file <PSODRG.m>

Call Graph

Call Graph Total: 19

Package Total Call Graph
Outpatient Pharmacy 9 ($$RXRLDT,$$STATUS)^PSOBPSUT  ^PSOBUILD  (CHK,CHK1,CLASS)^PSODGAL  ^PSODGDGI  JUMP^PSODIR1  ($$GETNDC,NDCEDT)^PSONDCUT  TD^PSONFI  ALLERGY^PSOORUT2  
^PSORXI  
IHS Changes To Pharmacy 3 $$ERXONLY^APSPFNC6  REMMSG^APSPFUNC  PRINT^APSQLAB  
VA Fileman 3 MIX^DIC1  $$GET1^DIQ  ^DIR  
Pharmacy Data Management 2 ($$PROMPT,EN)^PSSDIN  $$GETNDC^PSSNDCUT  
Kernel 1 $$FMADD^XLFDT  
Registration 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Outpatient Pharmacy 13 PSOBKDED  PSOCAN2  PSONEW1  PSONEW3  PSOORED2  PSOORED6  PSOORED7  PSOOREDT  
PSOORNE1  PSOORNE2  PSOORNEW  PSOORNW1  PSORENW0  
Order Entry Results Reporting 1 ORKLR  

Entry Points

Name Comments DBIA/ICR reference
TRADEX
CMP(PSODRUG) ;IHS/MSC/MGH Check for compound med
SET ;
END ;D EOJ
NDC(RX,RFL,DRG,NDC) ; Editing NDC for ECME Released Rx's
POSTX ;
EOJ ;
NOALRGY ;
NFI ;display restriction/guidelines
TRADE ;
START ;
CLOZ ;
SELECTX
EN(DRG) ;returns lab test identified for clozapine order checking
  • ICR #3478
    • Status: Active
    • Usage: Private
    POST ;order checks
    SETX
    SELECT ;

    External References

    Name Field # of Occurrence
    $$ERXONLY^APSPFNC6 SELECT+20
    REMMSG^APSPFUNC START+13
    PRINT^APSQLAB POST+15
    MIX^DIC1 SELECT+15
    $$GET1^DIQ SET+10, SET+19, SET+20, SET+23, CMP+9, CMP+11
    ^DIR TRADE+2, NOALRGY+4
    $$RXRLDT^PSOBPSUT NDC+3
    $$STATUS^PSOBPSUT NDC+2
    ^PSOBUILD POST+3
    CHK^PSODGAL POST+19, CMP+10
    CHK1^PSODGAL POST+20
    CLASS^PSODGAL POST+21, CMP+12
    ^PSODGDGI POST+10, CMP+14
    JUMP^PSODIR1 SELECT+10
    $$GETNDC^PSONDCUT NDC+1, NDC+5
    NDCEDT^PSONDCUT NDC+6
    TD^PSONFI NFI+2
    ALLERGY^PSOORUT2 POST+16
    ^PSORXI POST+11, NOALRGY+6
    $$PROMPT^PSSDIN NFI+1
    EN^PSSDIN NFI+1
    $$GETNDC^PSSNDCUT SET+8
    FULL^VALM1 POST+11
    $$FMADD^XLFDT SET+24

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Timeout: $S($D(DTIME):DTIME,1:300)
    • Variable: X
    • Line Location: SELECT+4
    Function Call: WRITE
    • Prompt: !!,"Answer with DRUG NUMBER, or GENERIC NAME, or VA PRODUCT NAME, or",!,"NATIONAL DRUG CLASS, or SYNONYM"
    • Line Location: SELECT+7
    Function Call: WRITE
    • Prompt: $C(7),!,"There is no allergy assessment on file for this patient."
    • Line Location: NOALRGY+1
    Function Call: WRITE
    • Prompt: !,"You will be prompted to intervene if you continue with this prescription"
    • Line Location: NOALRGY+2
    Routine Call
    • DIR
    • Line Location:
      • TRADE+2
      • NOALRGY+4

    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" POST+15, CLOZ+3
    ^APSPCTRL - [#9009033] SET+22
    ^PS(50.7 - [#50.7] SET+3
    ^PSDRUG - [#50] SELECT+2, SET+3, SET+4, SET+6, SET+11, SET+12, SET+13, SET+18, POST+8, POST+13
    , CMP+5, CMP+6, CMP+7, CLOZ+1, EN+1, EN+2, EN+3, EN+5, EN+6
    ^TMP($J POSTX+1!

    Label References

    Name Line Occurrences
    @( START+2, POST+4, CLOZ+3
    CLOZ POST+13
    CMP POST+9
    END START+3, START+4, START+9
    NDC START+5
    NFI START+11
    NOALRGY POST+16
    POST START+14
    POSTX POST+12, POST+13, POST+17
    SELECT SELECT+6, SELECT+7, SELECT+17, SELECT+18, SELECT+20
    SELECTX SELECT+8, SELECT+9, SELECT+10, SELECT+16
    SET START+10
    SETX SET+12
    TRADE START+8, SELECT+24
    TRADEX TRADE+4

    Naked Globals

    Name Field # of Occurrence
    ^("ND" SET+4, SET+6, CMP+7
    ^(0 EN+6
    ^(2 SET+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %APSITE SET+24
    ANQRTN CLOZ+1*, CLOZ+2, CLOZ+3, CLOZ+4!
    ANQX CLOZ+1*, CLOZ+3, CLOZ+4!
    APSPMAN SET+22~*, SET+23
    CDRG CMP+1~, CMP+6*, CMP+7, CMP+9, CMP+11
    CLOZPAT SELECT+1!
    CMP POST+2~, POST+8*, POST+9
    CMPDR POST+2~, CMP+2*, CMP+5*, CMP+6
    CNT EN+3*, EN+4!, EN+5!
    >> COPY POST+4
    D SELECT+13*, SELECT+15!
    DA START+2, TRADE+1!, TRADEX+1!, POSTX+2!
    >> DFN CLOZ+2*
    DIC SELECT+2!, SELECT+13*, SELECT+15!, TRADE+1!, TRADE+2!
    DIC("S" SELECT+14*
    DIC("T" SELECT+13*
    DIC(0 SELECT+13*
    DIE TRADEX+1!
    DIR TRADE+1!, TRADE+2!, NOALRGY+3!
    DIR("A" NOALRGY+4*
    DIR("B" TRADE+2*, NOALRGY+4*
    DIR(0 TRADE+2*, NOALRGY+4*
    DIRUT TRADE+3!, TRADE+4, TRADEX, TRADEX+1!
    DR TRADEX+1!
    DRG NDC~, NDC+6, EN~, EN+1, EN+2, EN+3, EN+5, EN+6
    DT SET+24
    DTIME SELECT+4
    DTOUT SELECT+4*, SELECT+9, SELECT+16, SELECTX!, TRADE+4, TRADEX+1!
    DUOUT SELECT+17!, SELECTX!, TRADE+4, TRADEX+1!
    I EN+3*, EN+5*, EN+6, EN+7!
    LAB EN+1!
    LAB( EN+6*
    LAB("BAD TEST " , EN+4*
    LAB("NOT" EN+1*
    LABT EN+6*, EN+7!
    NDC START+5~, START+6, NDC~, NDC+1*, NDC+5*, NDC+6
    NDF POST+1~, POST+18*, POST+19!
    NFI NFI+1*, NFI+2, NFI+3!
    >> OR0 SELECT+2
    >> P(5 CLOZ+2*, CLOZ+4!
    >> POERR SELECT+2, SELECT+10
    >> PSODFN POST+19, POST+20, POST+21, CMP+10, CMP+12, POSTX+1, CLOZ+2
    PSODIR SELECT+10!
    PSODIR("FIELD" SELECT+10
    PSODIR("FLD" SELECT+10*
    PSODRG EOJ+1!
    PSODRG("QFLG" START+1*, START+9, SELECT+10*, SELECT+22*
    PSODRUG POST+9, CMP~
    PSODRUG("AWP" SET+18*
    PSODRUG("CLN" SET+6*
    PSODRUG("COST" SET+14*
    PSODRUG("DAW" SELECT+2!, SET+10*
    PSODRUG("DEA" SET+5*
    PSODRUG("EXPI RATION DATE" , SET+16*, SET+23*, SET+24*
    PSODRUG("IEN" START+4, START+13, SELECT+3, SELECT+5, SET+1*, NFI+1, POST+8, POST+13, CMP+5, CMP+6
    , CLOZ+1, CLOZ+2
    PSODRUG("LOT #" , SET+20*
    PSODRUG("MANUFACTURER" SET+19*
    PSODRUG("MAXDOSE" SET+5*
    PSODRUG("NAME" SELECT+3, SET+2*
    PSODRUG("NDC" START+6*, SELECT+2!, SET+8*, SET+9
    PSODRUG("NDF" SET+4*, POST+18, POST+20, CMP+4, CMP+7*, CMP+16*
    PSODRUG("OI" SET+3*, NFI+1
    PSODRUG("OIN" SET+3*
    PSODRUG("SIG" SET+7*
    PSODRUG("STKLVL" SET+11*
    PSODRUG("TRAD E NAME" , SELECT+2!, TRADE+5*
    PSODRUG("UNIT" SET+15*
    PSODRUG("VA C LASS" , SET+1*, POST+21, CMP+3, CMP+11*, CMP+12, CMP+15*
    >> PSOEDIT START+2, START+14, SELECT+22
    >> PSOFIN POST+6
    >> PSONEW("DFLG" START+1*, START+9, START+14*, SELECT+9*, SELECT+16*, TRADE+4*
    >> PSONEW("FIELD" START+1*, START+8, SELECT+10*
    >> PSONEW("FLD" SELECT+10
    >> PSONEW("NDC" SET+9*
    >> PSONEW("OLD V AL" , SELECT+3*, SELECT+22, SELECTX!
    PSONOAL POST+16*!
    >> PSORX("DFLG" START+14!, POST+1*, POST+5, POST+12, POST+13, POST+17, CLOZ+3*, NOALRGY+5*
    >> PSORX("EDIT" START+4, START+8, START+14, TRADE+4
    >> PSORX("INTERVENE" POST+1!, POST+11, POST+14!, POSTX+2!
    >> PSORXED SELECT+1, SELECT+8
    >> PSORXED("DFLG" START+3, START+4, START+5*, START+9, SELECT+8*, TRADEX*
    >> PSORXED("FLD" START+6*
    >> PSORXED("IRXN" START+5
    >> PSOSITE NDC+6, SET+8, SET+22
    >> PSOTRN TRADE+2
    PSOX1 SET+13*, SET+14, SET+15, SET+16, SETX!
    PSOY START+4, START+5, SELECT+23!*, SET+1, SET+3, SET+4, SET+6, SET+8, SET+10, SET+11
    , SET+12, SET+13, SET+18, SET+19, SET+20, SET+23, SETX!
    PSOY(0 SELECT+23*, SELECT+24, SET+1, SET+2, SET+5, SET+7
    PTR POST+1~, POST+2~, POST+18*, POST+19!, CMP+9*, CMP+10!
    RFL NDC~, NDC+1, NDC+2, NDC+3, NDC+5, NDC+6
    RX NDC~, NDC+1, NDC+2, NDC+3, NDC+5, NDC+6
    SAVE CMP+1~
    SAVE("NDF" CMP+4*, CMP+16
    SAVE("VA CLAS S" , CMP+3*, CMP+15
    SIG POST+1~
    STAT SET+1~, POST+1~
    U SELECT+10, SET+18, SET+22, POST+8, CMP+6
    >> VALMBCK POST+11*
    VAP POST+1~, POST+18*, POST+19!
    X SELECT+2!, SELECT+4*, SELECT+5*, SELECT+6, SELECT+7, SELECT+8, SELECT+9, SELECT+10, SELECTX!, TRADE+1!
    , TRADE+3, TRADEX+1!, POST+15*, CLOZ+2*, CLOZ+4!
    Y SELECT+2!*, SELECT+3*, SELECT+4, SELECT+5, SELECT+18, SELECT+20*, SELECT+22, SELECT+23, SELECTX!, TRADE+1!
    , TRADE+3*, TRADE+5, TRADEX+1!, NOALRGY+5
    Y(0 SELECT+23
    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