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 ;10/23/18 8:47am

Source Information

Source file <PSODRG.m>

Call Graph

Call Graph

Call Graph Total: 25

Package Total Call Graph
Outpatient Pharmacy 14 ($$RXRLDT,$$STATUS)^PSOBPSUT  ^PSOBUILD  CK^PSOCROC  HD^PSODDPR2  DATACK^PSODDPRE  ^PSODGAL1  JUMP^PSODIR1  ($$GETNDC,NDCEDT)^PSONDCUT  
TD^PSONFI  $$CSBLOCK^PSOORNEW  ALLERGY^PSOORUT2  $$FIND^PSOREJUT  (,DUPINV,EN1)^PSORXI  PRFLP^PSOUTL  
VA FileMan 5 MIX^DIC1  ^DIE  $$GET1^DIQ  ^DIR  ^DIWP  
Pharmacy Data Management 3 ($$PROMPT,EN)^PSSDIN  IN^PSSHRQ2  $$GETNDC^PSSNDCUT  
Order Entry Results Reporting 2 ($$AOC,$$DOC,$$GOC)^OROCAPI  $$OITM^ORX8  
Registration 1 DEM^VADPT  

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

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

Entry Points

Name Comments DBIA/ICR reference
TRADEX
SET ;
END ;D EOJ
NDC(RX,RFL,DRG,NDC) ; Editing NDC for Released Rx's or for Unresolved ECME Rejects
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 ;
    WAIT ;

    External References

    Name Field # of Occurrence
    MIX^DIC1 SELECT+13
    ^DIE NOALRGY+25
    $$GET1^DIQ SET+9, NOALRGY+22
    ^DIR START+6, TRADE+2, WAIT+2, NOALRGY+5, NOALRGY+12, NOALRGY+15
    ^DIWP POST+35, POST+47, POST+57
    $$AOC^OROCAPI POST+32
    $$DOC^OROCAPI POST+44
    $$GOC^OROCAPI POST+54
    $$OITM^ORX8 POST+43
    $$RXRLDT^PSOBPSUT NDC+7
    $$STATUS^PSOBPSUT NDC+8
    ^PSOBUILD POST+13
    CK^PSOCROC POST+64
    HD^PSODDPR2 POST+12, POST+16, POST+19, POST+22, POST+31, POST+36, POST+40, POST+46, POST+48, POST+52
    , POST+58, POST+62, POST+69, NOALRGY+1
    DATACK^PSODDPRE POST+7
    ^PSODGAL1 POST+23
    JUMP^PSODIR1 SELECT+10
    $$GETNDC^PSONDCUT NDC+1, NDC+11
    NDCEDT^PSONDCUT NDC+12
    TD^PSONFI NFI+2
    $$CSBLOCK^PSOORNEW START+6
    ALLERGY^PSOORUT2 POST+21
    $$FIND^PSOREJUT NDC+8
    ^PSORXI NOALRGY+7, NOALRGY+27
    DUPINV^PSORXI NOALRGY+9
    EN1^PSORXI NOALRGY+26
    PRFLP^PSOUTL POST+26
    $$PROMPT^PSSDIN NFI+1
    EN^PSSDIN NFI+1
    IN^PSSHRQ2 POST+5
    $$GETNDC^PSSNDCUT SET+8
    DEM^VADPT POST+46

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: START+6
    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: !,"Now doing Clozapine Order checks. Please wait...",!
    • Line Location: POST+17
    Function Call: WRITE
    • Prompt: !,"Now doing allergy checks. Please wait...",!
    • Line Location: POST+20
    Function Call: WRITE
    • Prompt: !!,"***Dangerous Meds for Patient >64***",!!
    • Line Location: POST+46
    Function Call: WRITE
    • Prompt: !
    • Line Location: POST+70
    Function Call: WRITE
    • Prompt: !
    • Line Location: WAIT+1
    Function Call: WRITE
    • Prompt: $C(7),!,"There is no allergy assessment on file for this patient."
    • Line Location: NOALRGY+10
    Function Call: WRITE
    • Prompt: !,"You will be prompted to intervene if you continue with this prescription"
    • Line Location: NOALRGY+11
    Function Call: WRITE
    • Prompt: !
    • Line Location: NOALRGY+12
    Routine Call
    • DIE
    • Line Location:
      • NOALRGY+25
    Routine Call
    • DIR
    • Line Location:
      • START+6
      • TRADE+2
      • WAIT+2
      • NOALRGY+5
      • NOALRGY+12
      • NOALRGY+15

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSDRUG - [#50] GET1^DIQ
    ^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" CLOZ+3
    ^PS(50.7 - [#50.7] SET+3
    ^PSDRUG - [#50] SELECT+2, SET+3, SET+4, SET+6, SET+10, SET+11, SET+12, POST+17, CLOZ+1, EN+1
    , EN+2, EN+3, EN+5, EN+6
    ^TMP("PSODAOC" POST+2!, POST+4*, POST+8*, POST+38*, POST+50*, POST+60*
    ^TMP("PSORXDC" POST+2!
    ^TMP($J POST+2!, POST+5*, POST+6, POST+8, POST+9!, POSTX+1!, NOALRGY+3
    ^UTILITY($J POST+35!, POST+36, POST+37!, POST+47!, POST+48, POST+49!, POST+57!, POST+58, POST+59!
    ^XTMP("ORRDI" POST+4

    Label References

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

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ANQRTN CLOZ+1*, CLOZ+2, CLOZ+3, CLOZ+4!
    ANQX CLOZ+1*, CLOZ+3, CLOZ+4!
    AOC POST+30~, POST+32*, POST+35, POST+38
    CLOZPAT SELECT+1!
    CNT EN+3*, EN+4!, EN+5!
    >> COPY POST+14, POST+70
    CROCPFLG POST+30~*, POST+33*, POST+45*, POST+55*, POST+64!, POST+65!
    D SELECT+11*, SELECT+13!
    DA START+2, TRADE+1!, TRADEX+1!, POSTX+1!, NOALRGY+24*
    DFN POST+46*, POST+65!, CLOZ+2*, CLOZ+4!
    DIC SELECT+2!, SELECT+11*, SELECT+13!, TRADE+1!, TRADE+2!
    DIC("S" SELECT+12*
    DIC("T" SELECT+11*
    DIC(0 SELECT+11*
    DIE TRADEX+1!, NOALRGY+24*
    DIR START+6!, TRADE+1!, TRADE+2!, POST+6!, WAIT+1!, WAIT+2!, NOALRGY+2~, NOALRGY+12!
    DIR("?" WAIT+1*
    DIR("A" WAIT+1*, NOALRGY+4*, NOALRGY+12*, NOALRGY+15*
    DIR("B" TRADE+2*, NOALRGY+4*, NOALRGY+15*
    DIR(0 START+6*, TRADE+2*, WAIT+1*, NOALRGY+2*, NOALRGY+12*
    DIRUT TRADE+3!, TRADE+4, TRADEX, TRADEX+1!, WAIT+2!
    DIWF POST+35*, POST+47*, POST+57*, POST+65!
    DIWL POST+35*, POST+47*, POST+57*, POST+65!
    DIWR POST+35*, POST+47*, POST+57*, POST+65!
    DR TRADEX+1!, NOALRGY+24*
    DRG NDC~, NDC+12, EN~, EN+1, EN+2, EN+3, EN+5, EN+6
    DRGIEN START+5~*, START+6
    DTIME SELECT+4
    DTOUT SELECT+4*, SELECT+9, SELECT+14, SELECTX!, TRADE+4, TRADEX+1!, NOALRGY+14~, NOALRGY+16
    DUOUT SELECT+15!, SELECTX!, TRADE+4, TRADEX+1!, WAIT+2!, NOALRGY+14~, NOALRGY+16
    GOC POST+54~*, POST+57, POST+60
    I EN+3*, EN+5*, EN+6, EN+7!
    IOSL POST+12, POST+16, POST+19, POST+22, POST+31, POST+36, POST+40, POST+46, POST+48, POST+52
    , POST+58, POST+62, POST+69, NOALRGY+1
    IT SELECT+2!, POST+3!, POSTX+1!
    LAB EN+1!
    LAB( EN+6*
    LAB("BAD TEST " , EN+4*
    LAB("NOT" EN+1*
    LABT EN+6*, EN+7!
    LIST POST+1~*, POST+2, POST+5, POST+6, POST+8, POST+9
    NDC START+13~, START+14, NDC~, NDC+1*, NDC+11*, NDC+12
    NDF POST+11~
    NFI NFI+1*, NFI+2, NFI+3!
    OI POST+43~*, POST+44
    OIR POST+43~, POST+44*, POST+47, POST+50
    >> OR0 SELECT+2
    >> P(5 CLOZ+2*, CLOZ+4!
    >> POERR SELECT+2, SELECT+10
    >> PSCAN( NOALRGY+21
    >> PSCAN(0 NOALRGY+19
    PSOCONT NDC+5~*, NDC+6, NDC+7*, NDC+8*
    >> PSODFN START+6, POST+32, POST+44, POST+46, POST+54, POSTX+1, CLOZ+2, NOALRGY+3
    >> PSODGCK POST+26, POST+66, NOALRGY+12, NOALRGY+13
    >> PSODGCKX POST+23
    PSODIR SELECT+10!
    PSODIR("FIELD" SELECT+10
    PSODIR("FLD" SELECT+10*
    PSODLQT POST+3!
    PSODOSD POST+2!, POST+3!
    PSODRG EOJ+1!
    PSODRG("QFLG" START+1*, START+17, SELECT+10*, SELECT+17*
    >> PSODRUG("BAD" SELECT+2!
    >> PSODRUG("CLN" SET+6*
    >> PSODRUG("COST" SET+13*
    >> PSODRUG("DAW" SELECT+2!, SET+9*
    >> PSODRUG("DEA" SET+5*, POST+66
    >> PSODRUG("EXPI RATION DATE" , SET+15*
    >> PSODRUG("IEN" START+12, SELECT+3, SELECT+5, SET+1*, NFI+1, POST+17, POST+38, POST+50, POST+60, CLOZ+1
    , CLOZ+2
    >> PSODRUG("MAXDOSE" SET+5*
    >> PSODRUG("NAME" SELECT+3, SET+2*, POST+54
    >> PSODRUG("NDC" START+14*, SELECT+2!, SET+8*
    >> PSODRUG("NDF" SET+4*, POST+32
    >> PSODRUG("OI" SET+3*, NFI+1, POST+42, POST+43
    >> PSODRUG("OIN" SET+3*
    >> PSODRUG("SIG" SET+7*
    >> PSODRUG("STKLVL" SET+10*
    >> PSODRUG("TRAD E NAME" , SELECT+2!, TRADE+5*
    >> PSODRUG("UNIT" SET+14*
    >> PSODRUG("VA C LASS" , SET+1*, POST+66
    >> PSOEDIT START+2, START+20, SELECT+17
    >> PSONCROC POST+64
    >> PSONEW("DFLG" START+1*, START+10*, START+17, START+20*, SELECT+9*, SELECT+14*, TRADE+4*
    >> PSONEW("FIELD" START+1*, START+16, SELECT+10*
    >> PSONEW("FLD" SELECT+10
    >> PSONEW("OLD V AL" , SELECT+3*, SELECT+17, SELECTX!
    PSONOAL POST+21*!
    >> PSONV NOALRGY+17, NOALRGY+26
    PSOQUIT POST+11!, POST+24, POSTX+2!
    >> PSOREINS POSTX+2
    >> PSORENW("DFLG" POST+28
    >> PSORX("DFLG" START+1!, START+20!, POST+10, POST+11*, POST+15, POST+18, POST+24, POST+27, POST+64, CLOZ+3*
    , NOALRGY+8*, NOALRGY+18*
    >> PSORX("EDIT" START+12, START+16, START+20, TRADE+4
    >> PSORX("INTERVENE" POST+11!, POST+23!, POSTX+1!, NOALRGY+26*
    >> PSORXED SELECT+1, SELECT+8, POSTX+2
    >> PSORXED("DFLG" START+3, START+12, START+13*, START+17, SELECT+8*, TRADEX*, POST+10
    >> PSORXED("FLD" START+14*
    >> PSORXED("IRXN" START+13
    >> PSOSD POST+26
    >> PSOSITE NDC+12, SET+8
    >> PSOSPRNW POST+28
    >> PSOTRN TRADE+2
    PSOX1 SET+12*, SET+13, SET+14, SET+15, SETX!
    PSOY START+5, START+12, START+13, SELECT+18!*, SET+1, SET+3, SET+4, SET+6, SET+8, SET+9
    , SET+10, SET+11, SET+12, SETX!
    PSOY(0 SELECT+18*, SELECT+19, SET+1, SET+2, SET+5, SET+7
    PSZZQUIT POSTX+1!, NOALRGY+17*
    PTR POST+11~
    >> REA NOALRGY+20
    RFL NDC~, NDC+1, NDC+7, NDC+8, NDC+11, NDC+12
    RX NDC~, NDC+1, NDC+7, NDC+8, NDC+11, NDC+12, NOALRGY+21
    RXIEN NOALRGY+14~, NOALRGY+21*, NOALRGY+22, NOALRGY+24
    RXSTA NOALRGY+14~, NOALRGY+22*, NOALRGY+23
    SIG POST+11~
    STAT SET+1~, POST+11~
    U START+5, SELECT+10
    VAP POST+11~
    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+35*, POST+47*, POST+57*, WAIT+2!, CLOZ+2*, CLOZ+4!
    Y START+6!, SELECT+2!*, SELECT+3*, SELECT+4, SELECT+5, SELECT+16, SELECT+17, SELECT+18, SELECTX!, TRADE+1!
    , TRADE+3*, TRADE+5, TRADEX+1!, WAIT+2!, NOALRGY+6, NOALRGY+7, NOALRGY+16
    Y(0 SELECT+18
    ZDGDG POST+3!, POSTX+1!
    ZTHER POST+3!, POSTX+1!
    ZX POST+36*, POST+48*, POST+58*, POST+65!
    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