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 |  Local Variables |  All
Print Page as PDF
Routine: PSJDGAL2

Package: Inpatient Medications

Routine: PSJDGAL2


Information

PSJDGAL2 ;BIR/SAB - displays stored DRUG ALLERGY w/sign/symptoms ;10/27/11 02:22

Source Information

Source file <PSJDGAL2.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 ($$GET1,GETS)^DIQ  EN^DIQ1  ^DIR  ^DIWP  
Inpatient Medications 3 $$INST^PSJGMRA  $$GETORD^PSJNEWOA  SET3^PSJNEWOC  
List Manager 1 (FULL,PAUSE)^VALM1  
Order Entry Results Reporting 1 GETOC4^OROCAPI1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 1 PSJ DISPLAY DRUG ALLERGIES  
Kernel 1 ^ORD(101  
Outpatient Pharmacy 1 PSODGAL1  

Entry Points

Name Comments DBIA/ICR reference
START ; This routine is called when the hidden option 'DA' is typed from the IP Medication screen
SORT ;build sort by severity, reactant/causitive agent
LOOP ;
PRT ; print allergy information to screen
ADOC ;
INGRED ;
; DRUG INGREDIENT
SIGNS ;
; SIGNS/SYMPTOMS
UPPER(PSJUCS) ;
LOWER(PSJLCS) ;
EXT ;
EXIT ;
INV ;display intervention
FF ;
FINDC(PSJORD) ;determine if order is part of a complex UD order
  • ICR #6140
    • Status: Pending
    • Usage: Private
    FINDCP ;COMPLEX PENDING ORDER
    FINDCA ;COMPLEX ACTIVE ORDER

    External References

    Name Field # of Occurrence
    $$GET1^DIQ SORT+26, SORT+34, ADOC+17, ADOC+25, ADOC+31, FINDCP+5, FINDCA+1, FINDCA+6
    GETS^DIQ SORT+12, FINDCP+3, FINDCA+4
    EN^DIQ1 INV+12
    ^DIR FF+3
    ^DIWP ADOC+41, INGRED+9, SIGNS+9, SIGNS+18, SIGNS+21, INV+6
    GETOC4^OROCAPI1 START+29
    $$INST^PSJGMRA SORT+38
    $$GETORD^PSJNEWOA SORT+13
    SET3^PSJNEWOC START+25
    FULL^VALM1 START+10, PRT+1, EXT+2, EXIT+1
    PAUSE^VALM1 EXT+2, EXIT+1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"DA is not a valid selection."
    • Line Location: START+3
    Function Call: WRITE
    • Prompt: !,"DA is not a valid selection."
    • Line Location: START+4
    Function Call: WRITE
    • Prompt: !!,"NO Drug Allergy Order Checks found."
    • Line Location: START+5
    Function Call: WRITE
    • Prompt: !!,"NO Drug Allergy Order Checks found."
    • Line Location: START+24
    Function Call: WRITE
    • Prompt: !!,"NO Drug Allergy Order Checks found."
    • Line Location: START+33
    Function Call: WRITE
    • Prompt: !!,"NO Drug Allergy Order Checks found."
    • Line Location: SORT+53
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: PRT+1
    Function Call: WRITE
    • Prompt: $C(7),!
    • Line Location: PRT+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: PRT+9
    Function Call: WRITE
    • Prompt: !
    • Line Location: PRT+14
    Function Call: WRITE
    • Prompt: !
    • Line Location: FF+1
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: FF+5
    Routine Call
    • DIR
    • Line Location:
      • FF+3

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^ORD(100.05 - [#100.05] GETS^DIQ
    ^DIC(4 - [#4] GET1^DIQ
    ^PSDRUG - [#50] GET1^DIQ
    ^PSNDF(50.6 - [#50.6] GET1^DIQ
    ^PS(50.605 - [#50.605] GET1^DIQ
    ^PS(50.7 - [#50.7] GET1^DIQ
    ^PS(53.1 - [#53.1] GETS^DIQ
    55.06 GET1^DIQ,  GETS^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^GMRD(120.83 - [#120.83] SIGNS+5
    ^ORD(100.05 - [#100.05] SORT+8, SORT+9, SORT+16, SORT+24, SORT+25, SORT+32, SORT+48, SORT+49, ADOC+14, ADOC+16
    , INGRED+3, SIGNS+14, SIGNS+15, INV+10, INV+12
    ^PS(50.416 - [#50.416] INGRED+3
    ^PS(50.605 - [#50.605] SIGNS+15
    ^PS(53.1 - [#53.1] START+14, START+15, START+19, SORT+36, FINDCP+1
    ^PS(55 - [#55] START+16, START+17, START+20, START+21, FINDCA+3
    ^TMP("PSJAL" START+28!, LOOP+4*, LOOP+5*, PRT+4, PRT+5, ADOC+37*, ADOC+42*, ADOC+43*, ADOC+44*, INGRED+11*
    , SIGNS+10*, SIGNS+22*, EXIT+2!, INV+2*, INV+7*, INV+8*, INV+11*, INV+13*, INV+14*, INV+15*
    , INV+16*
    ^TMP("PSJDAOCD" START+28!, SORT+6*, ADOC+19*, ADOC+38*, INGRED+2!, INGRED+3*, INGRED+5, SIGNS+2!, SIGNS+5*, SIGNS+7
    , SIGNS+8, SIGNS+13!, SIGNS+15*, SIGNS+17, EXIT+2!, INV+5
    ^TMP("PSODAOC" START+3, START+4
    ^UTILITY($J ADOC+39!, ADOC+42, ADOC+45!, INGRED+11, SIGNS+2!, SIGNS+10, SIGNS+11!, SIGNS+22, SIGNS+23!, INV+3!
    , INV+7

    Label References

    Name Line Occurrences
    $$FINDC ADOC+36
    $$UPPER ADOC+38
    ADOC LOOP+8
    EXIT PRT+4, PRT+13, PRT+15, EXT+4
    EXT START+5, START+24, START+33, SORT+53, PRT+7, PRT+9
    FF PRT+10, PRT+14, EXT+3
    FINDCA FINDC+6
    FINDCP FINDC+5
    INV SIGNS+24

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CAG ADOC+1~
    CAUS ADOC+1~, ADOC+15*, ADOC+17*, ADOC+19, ADOC+20*, ADOC+22*, ADOC+27, ADOC+28, ADOC+35
    CAUS2 ADOC+1~, ADOC+15*, ADOC+17*
    CAUS3 ADOC+1~, ADOC+15*, ADOC+17*
    CAUS4 ADOC+2~, ADOC+15*
    DA START+6~, INV+12!*, INV+13, INV+14, INV+15, INV+16, INV+17!
    DC ADOC+1~, ADOC+15*, SIGNS+17*
    >> DFN START+16, START+17, START+20, START+21, FINDCA+1, FINDCA+4, FINDCA+5
    DIC START+7~, INV+12!*, INV+17!
    DIE START+7~
    DIQ INV+12!*, INV+17!
    DIR START+7~, PRT+12!, EXT+1!, EXT+2!, EXIT+2!, FF+4!
    DIR("?" FF+2*
    DIR("A" FF+2*
    DIR(0 FF+2*
    DIRUT PRT+12!, EXT+1!, EXT+2!, EXT+4, EXIT+2!, FF+4!
    DIWF START+8~, ADOC+39*, ADOC+45*, SIGNS+2*, SIGNS+13*, INV+3*
    DIWL START+8~, ADOC+39*, ADOC+45*, SIGNS+2*, SIGNS+13*, INV+3*
    DIWR START+8~, ADOC+39*, ADOC+45*, SIGNS+2*, SIGNS+13*, INV+3*
    DR START+7~, INV+12!*, INV+17!
    DRUG SORT+34*, SORT+35, ADOC+1~, ADOC+15*
    DRUGIEN SORT+30*, SORT+32*, SORT+33, SORT+34, ADOC+1~
    DRUGS ADOC+1~, ADOC+15*
    DTOUT FF+3, FF+4!
    DUOUT PRT+12!, EXT+1!, EXT+2!, EXIT+2!, FF+3, FF+4!
    FIRST ADOC+1~, ADOC+41*, ADOC+42*, INGRED+10*, INGRED+11*, SIGNS+6*, SIGNS+10*, SIGNS+16*, SIGNS+22*, INV+6*
    , INV+7*
    FLAG ADOC+1~, INGRED+2*, INGRED+3*
    FLAG2 START+7~, START+9*, START+30*, START+33*, SORT+46*, SORT+53
    I SORT+3~, SORT+20*, ADOC+1~, ADOC+2~, ADOC+29*
    IEN START+8~, START+9*, LOOP+4*, LOOP+5*, ADOC+37*, ADOC+42*, ADOC+43*, ADOC+44*, INGRED+11*, SIGNS+10*
    , SIGNS+22*, INV+2*, INV+7*, INV+8*, INV+11*, INV+13*, INV+14*, INV+15*, INV+16*
    II START+8~
    ING ADOC+1~, ADOC+15*, INGRED+5*, SIGNS+2*
    INTY INV+12!, INV+17!
    INTY( INV+13, INV+14, INV+15, INV+16
    IOF PRT+1, FF+5
    IOSL PRT+10
    IT START+6~
    L FF+4!
    OH ADOC+1~, ADOC+15*, ADOC+38*, ADOC+43
    >> ON START+14, START+19, START+20, START+21
    >> ON55 START+14, START+19, START+20, START+21
    PROSPECT START+8~, SORT+30*, SORT+35*, SORT+36*, SORT+37, SORT+40, SORT+41, SORT+42, SORT+44, SORT+45
    , SORT+46, SORT+50, SORT+51, LOOP+2*, LOOP+3*, LOOP+6, LOOP+7, LOOP+8, ADOC+4, ADOC+10
    , ADOC+37, SIGNS+3, FINDCP+6, FINDCA+7
    PRTFLG START+7~, PRT+2~*, PRT+6, PRT+7*, PRT+9, PRT+10*, PRT+14
    PRTFLG3 PRT+2~*, PRT+7*, PRT+8*, PRT+9
    >> PSIVCOPY START+14
    >> PSJAGYSV START+4
    PSJAIENS SORT+2~, SORT+7!
    PSJASEV START+7~, SORT+10*, SORT+17*, SORT+18, LOOP+2*, LOOP+6*, LOOP+7, LOOP+8, ADOC+4, ADOC+10
    , SIGNS+3
    PSJASEV2 START+7~, SORT+10*, SORT+18*, SORT+40, SORT+41, SORT+42, SORT+44, SORT+45, SORT+46, SORT+50
    , SORT+51
    PSJASORT START+7~, SORT+1!
    PSJASORT( SORT+40, SORT+41*, SORT+42*, SORT+44, SORT+45*, SORT+46*, SORT+50*, SORT+51*, LOOP+3, LOOP+6
    , LOOP+7, LOOP+8, ADOC+4, ADOC+10, SIGNS+3
    PSJCAGNT START+8~, SORT+23*, SORT+29*, SORT+41, SORT+42, LOOP+2*, LOOP+7*, LOOP+8, ADOC+4, ADOC+10
    , ADOC+20, SIGNS+3
    PSJCAR ADOC+1~, ADOC+15*, ADOC+27*, ADOC+28*, ADOC+33*, ADOC+35*, ADOC+40
    PSJCDF ADOC+2~, FINDC+3~, FINDC+4*, FINDCP+5*, FINDCP+6, FINDCA+6*, FINDCA+7
    PSJCOI ADOC+2~, FINDC+3~, FINDC+4*, FINDCP+4*, FINDCP+5, FINDCP+6, FINDCA+5*, FINDCA+6, FINDCA+7
    PSJCOMD FINDC+3~, FINDC+4*
    PSJCOMD( FINDCP+4, FINDCP+5, FINDCA+5, FINDCA+6
    PSJCPROS ADOC+2~, ADOC+36*, ADOC+37, FINDC+3~, FINDC+4*, FINDC+7, FINDCP+6*, FINDCA+7*
    PSJCPRSO FINDCA+1~*, FINDCA+2, FINDCA+3
    PSJCSITE ADOC+2~, ADOC+20*, ADOC+25*, ADOC+26*, ADOC+27, ADOC+29*, ADOC+31*, ADOC+32*, ADOC+33
    PSJCU ADOC+2~, FINDC+3~, FINDC+4*, FINDCP+4*, FINDCP+6, FINDCA+5*, FINDCA+7
    PSJDALOC START+6~, START+14*, START+15*, START+16*, START+17*, START+19*, START+20*, START+21*, SORT+38
    PSJDAOC START+8~, START+23*, START+26*, START+27*
    PSJDATA START+8~, SORT+43*, SORT+45, SORT+46, PRT+5*, PRT+7, PRT+8, PRT+9, PRT+10
    PSJDCLAS SORT+2~, SORT+23*, SORT+25*
    PSJDFLAG SORT+2~, SORT+10*, SORT+13*, SORT+14
    PSJDGORD START+6~, START+9*, START+14*, START+15*, START+16*, START+17*, START+19*, START+20*, START+21*, SORT+13
    , SORT+36
    PSJDOI START+8~, SORT+30*
    PSJDOIN START+8~, SORT+30*
    PSJDRCL2 SORT+2~, SORT+23*, SORT+25*, SORT+26
    PSJDRCL3 INGRED+2~, SIGNS+15*
    PSJDRGCL START+8~, SORT+10*, SORT+23*, SORT+26*, SORT+27*, SORT+28*, SORT+29, LOOP+2*
    PSJFROM1 SORT+3~, SORT+10*, SORT+17*, SORT+40, SORT+41, SORT+42, SORT+44, SORT+45, SORT+46, SORT+50
    , SORT+51, LOOP+2*, LOOP+8*, ADOC+4, ADOC+10, SIGNS+3
    PSJIEN60 SORT+2~, SORT+10*
    PSJIEN70 SORT+2~, SORT+10*
    PSJINST SORT+2~
    PSJLCS LOWER~, LOWER+1
    PSJNCOM ADOC+2~, FINDC+4*, FINDC+7, FINDCP+1*, FINDCP+2, FINDCA+3*
    PSJNCOM1 ADOC+2~, ADOC+36*, ADOC+37
    PSJNOALL START+1~, START+5*, START+33*, SORT+53*, EXT+2, EXIT+1
    PSJOIN START+8~, SORT+34*, SORT+36
    PSJORD START+5, START+15, START+16, START+17, ADOC+36, FINDC~, FINDC+2, FINDC+5, FINDCP+1, FINDCP+3
    , FINDCP+4, FINDCP+5, FINDCA+1, FINDCA+4, FINDCA+5, FINDCA+6
    PSJPROV START+6~, INV+4*, INV+5*, INV+6
    PSJPTLOC SORT+2~
    PSJQUIT START+7~, START+8~, START+9*, PRT+4, PRT+13, EXT+2!, EXIT+1!, FF+3*
    PSJRDAT2 ADOC+2~
    PSJRDATA START+7~, ADOC+3*, ADOC+4*, ADOC+9
    PSJREA START+7~, SORT+10*, SORT+19*, SORT+20*, SORT+21*, SORT+29, SORT+40, SORT+41, SORT+42, SORT+44
    , SORT+45, SORT+46, SORT+50, SORT+51, LOOP+2*
    PSJREAB SORT+3~, SORT+10*, SORT+17*, SORT+19, SORT+20, SORT+21
    PSJREAS SORT+3~, SORT+10*, SORT+20*
    PSJRETI SORT+2~, SORT+10*
    PSJRSITE START+7~, SORT+10*, SORT+18*, SORT+38*, SORT+43, ADOC+3*, ADOC+10*, ADOC+23, ADOC+24, ADOC+25
    , ADOC+28, ADOC+29
    PSJSITE ADOC+2~
    PSJSSITE START+8~, SORT+10*
    PSJTSTMD START+8~
    PSJTYPE START+7~, SORT+10*, SORT+17*, SORT+38, SORT+43, LOOP+2*
    PSJUCS UPPER~, UPPER+1
    PSJWCA ADOC+1~, ADOC+15*
    PSJZERO START+7~, SORT+10*, SORT+16*, SORT+17, SORT+18, SORT+43
    RET START+6~, START+28!*, START+29
    RET( START+30, START+32, SORT+4, SORT+5, SORT+6
    SEVN START+6~, ADOC+1~, ADOC+15*, ADOC+18*, ADOC+44
    SEVT START+6~, ADOC+1~, ADOC+15*, ADOC+18*
    SIGN SORT+2~, SIGNS+3*, SIGNS+4*, SIGNS+5
    SIGNS SORT+2~, SIGNS+3*, SIGNS+4, SIGNS+10
    SITE ADOC+2~
    SITED ADOC+2~
    SITET ADOC+2~
    SS ADOC+1~, ADOC+15*, SIGNS+7*, SIGNS+8*
    U START+14, START+15, START+16, START+17, START+19, START+20, START+21
    >> VALMBCK EXT+2*, EXIT+2*
    X START+6~, ADOC+15*, ADOC+40*, INGRED+4*, INGRED+5*, INGRED+6*, INGRED+8, SIGNS+3*, SIGNS+6*, SIGNS+8*
    , SIGNS+9*, SIGNS+16*, SIGNS+17*, SIGNS+18*, SIGNS+19*, SIGNS+20, INV+6*
    XXI START+6~, ADOC+9*, ADOC+12, ADOC+14, ADOC+16, INGRED+3, SIGNS+14, SIGNS+15
    Z ADOC+1~, SIGNS+23~
    ZALL ADOC+1~, ADOC+15*, ADOC+16*, ADOC+17, ADOC+18, ADOC+22, ADOC+38
    ZCNT START+6~, START+9*
    ZCNTT START+6~, START+9*, START+32*, START+33
    ZCX ADOC+1~, ADOC+42*
    ZDA START+6~
    ZDATA ADOC+2~, ADOC+29*, ADOC+30, ADOC+31
    ZDATB START+6~
    ZDATE START+6~, ADOC+1~, ADOC+15*, ADOC+24*, ADOC+27, ADOC+30*, ADOC+33
    ZERO START+6~
    ZFND START+6~, START+9*, EXT+1!
    ZI START+6~, START+32*, SORT+4*, SORT+5, SORT+6, SORT+8, SORT+9, SORT+12, SORT+13, SORT+16
    , SORT+24, SORT+25, SORT+32, SORT+41, SORT+42, SORT+48, SORT+49, ADOC+9*, ADOC+13, ADOC+14
    , ADOC+16, INGRED+3, SIGNS+14, SIGNS+15, INV+10, INV+12
    ZIIEN START+7~, SORT+2~, SORT+8*, SORT+16, SORT+24, SORT+25, SORT+41, SORT+42, SORT+48, SORT+49
    , LOOP+2*
    ZLOC ADOC+1~, ADOC+15*, ADOC+16*, ADOC+26, ADOC+32
    ZORN START+6~, START+14*, START+15*, START+16*, START+17*, START+18, START+19*, START+20*, START+21*, START+24
    , START+29, START+30, START+32, SORT+4, SORT+5, SORT+6
    ZPGK EXIT+2!
    ZQS START+6~
    ZSIEN SORT+2~, SORT+48*, SORT+49
    ZSIGNS SORT+2~, SORT+49*, SORT+50, SORT+51
    ZST START+6~
    ZX ADOC+1~, INGRED+11*, SIGNS+10*, SIGNS+22*, SIGNS+23~, INV+7*
    ZZ PRT+2~, PRT+4*, PRT+5
    ZZQ START+6~, SORT+24*, SORT+25, INGRED+3*, SIGNS+4*, SIGNS+14*, SIGNS+15
    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 |  Local Variables |  All