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

Package: Outpatient Pharmacy

Routine: PSODGAL2


Information

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

Source Information

Source file <PSODGAL2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 $$GET1^DIQ  EN^DIQ1  ^DIR  ^DIWP  
List Manager 1 FULL^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: 2

Package Total Caller Graph
Kernel 1 ^ORD(101  
Outpatient Pharmacy 1 PSO DISPLAY DRUG ALLERGIES  

Entry Points

Name Comments DBIA/ICR reference
SORT ;build sort by severity, reactant/causitive agent
LOOP ;
PRT ; print allergy information to screen
ADOC ;
UPPER(PSOUCS) ;
LOWER(PSOLCS) ;
EXT ;
EXIT ;
INV ;display intervention
FF ;

External References

Name Field # of Occurrence
$$GET1^DIQ SORT+17, SORT+24, SORT+31, ADOC+14, ADOC+20
EN^DIQ1 INV+12
^DIR FF+3
^DIWP ADOC+33, ADOC+47, ADOC+59, ADOC+68, ADOC+71, INV+6
GETOC4^OROCAPI1 PSODGAL2+18
FULL^VALM1 PSODGAL2+9, PRT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO Drug Allergy Order Checks found for Rx#: "_$P(^PSRX(ZRX,0),"^")
  • Line Location: PSODGAL2+17
Function Call: WRITE
  • Prompt: !,"NO Drug Allergy Order Checks found for Rx#: "_$P(^PSRX(ZRX,0),"^")
  • Line Location: SORT+44
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: $C(7),!,"A Drug-Allergy Reaction exists for this medication and/or class!",!
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+10
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
^DIC(4 - [#4] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PS(50.605 - [#50.605] GET1^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMRD(120.83 - [#120.83] ADOC+55
^ORD(100.05 - [#100.05] SORT+5, SORT+6, SORT+8, SORT+16, SORT+22, SORT+23, SORT+38, SORT+39, ADOC+3, ADOC+5
ADOC+42, ADOC+65, INV+10, INV+12
^PS(50.416 - [#50.416] ADOC+42
^PS(50.605 - [#50.605] ADOC+65
^PSRX - [#52] PSODGAL2+16, PSODGAL2+17, SORT+31, SORT+44
^TMP("PSOAL" PSODGAL2+18!, PRT+4, PRT+5, PRT+6, ADOC+30*, ADOC+34*, ADOC+35*, ADOC+36*, ADOC+49*, ADOC+60*
ADOC+72*, EXIT+1!, INV+2*, INV+7*, INV+8*, INV+11*, INV+13*, INV+14*, INV+15*, INV+16*
^TMP("PSODAOCD" PSODGAL2+18!, SORT+4*, ADOC+8*, ADOC+29*, ADOC+41!, ADOC+42*, ADOC+44, ADOC+52!, ADOC+55*, ADOC+57
ADOC+58, ADOC+64!, ADOC+65*, ADOC+67, EXIT+1!, INV+5
^UTILITY($J ADOC+31!, ADOC+34, ADOC+37!, ADOC+49, ADOC+52!, ADOC+60, ADOC+61!, ADOC+72, ADOC+73!, INV+3!
INV+7

Label References

Name Line Occurrences
$$UPPER ADOC+29
ADOC LOOP+8
EXIT PRT+4, PRT+9, PRT+11, EXT+3
EXT PSODGAL2+17, SORT+44, PRT+5
FF PRT+6, PRT+10, EXT+2
INV ADOC+75

Naked Globals

Name Field # of Occurrence
^(0 ADOC+65

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CA PSODGAL2+10~
CAG PSODGAL2+10~, ADOC+1~
CAUS ADOC+1~, ADOC+4*, ADOC+6*, ADOC+8, ADOC+11*, ADOC+16, ADOC+17, ADOC+25
CAUS2 ADOC+1~, ADOC+4*, ADOC+6*
CLSTAT PSODGAL2+10~
CNT PSODGAL2+10~, PSODGAL2+13*
DA PSODGAL2+10~, INV+12!*, INV+13, INV+14, INV+15, INV+16, INV+17!
DAT PSODGAL2+10~
DC ADOC+1~, ADOC+4*, ADOC+67*
DIC INV+12!*, INV+17!
DIQ INV+12!*, INV+17!
DIR PRT+8!, EXT+1!, EXIT+1!, FF+4!
DIR("?" FF+2*
DIR("A" FF+2*
DIR(0 FF+2*
DIRUT PRT+8!, EXT+1!, EXT+3, EXIT+1!, FF+4!
DIWF PSODGAL2+12~, ADOC+31*, ADOC+37*, ADOC+52*, ADOC+64*, INV+3*
DIWL PSODGAL2+12~, ADOC+31*, ADOC+37*, ADOC+52*, ADOC+64*, INV+3*
DIWR PSODGAL2+12~, ADOC+31*, ADOC+37*, ADOC+52*, ADOC+64*, INV+3*
DR INV+12!*, INV+17!
DRUG ADOC+1~, ADOC+4*
DRUGIEN SORT+2~, SORT+7*, SORT+16*, SORT+17
DRUGS ADOC+1~, ADOC+4*
DTOUT FF+3, FF+4!
DUOUT PRT+8!, EXT+1!, EXIT+1!, FF+3, FF+4!
FIRST ADOC+1~, ADOC+33*, ADOC+34*, ADOC+48*, ADOC+49*, ADOC+56*, ADOC+60*, ADOC+66*, ADOC+72*, INV+6*
INV+7*
FLAG ADOC+1~, ADOC+40*, ADOC+42*
FLAG2 PSODGAL2+11~, PSODGAL2+13*, PSODGAL2+19*, SORT+43*, SORT+44, SORT+45
I SORT+12*, ADOC+1~, ADOC+2~, ADOC+18*
IEN PSODGAL2+12~, PSODGAL2+13*, ADOC+30*, ADOC+34*, ADOC+35*, ADOC+36*, ADOC+49*, ADOC+60*, ADOC+72*, INV+2*
INV+7*, INV+8*, INV+11*, INV+13*, INV+14*, INV+15*, INV+16*
II PSODGAL2+12~
ING ADOC+1~, ADOC+4*, ADOC+44*, ADOC+52*
INTY INV+12!, INV+17!
INTY( INV+13, INV+14, INV+15, INV+16
IOF PRT+1, FF+5
IOSL PRT+6
IT PSODGAL2+10~
L FF+4!
OH ADOC+1~, ADOC+4*, ADOC+29*, ADOC+35
ORCT PSODGAL2+10~
>> ORN PSODGAL2+15
PROSPECT PSODGAL2+10~, SORT+7*, SORT+17*, SORT+18, SORT+32, SORT+33, SORT+34, SORT+35, SORT+40, SORT+41
LOOP+2*, LOOP+3*, LOOP+4, LOOP+6, LOOP+7, ADOC+30, ADOC+53
PRTFLG PSODGAL2+11~, PRT+2~*, PRT+5, PRT+6*, PRT+10, ADOC+30*
PSJREAB SORT+2~, SORT+7*
PSJREAS SORT+2~, SORT+7*
PSOASEV PSODGAL2+11~, SORT+7*, SORT+9*, SORT+10, LOOP+2*, LOOP+3*, LOOP+4, LOOP+6, LOOP+7, ADOC+53
PSOASEV2 SORT+1~, SORT+7*, SORT+10*, SORT+32, SORT+33, SORT+34, SORT+35, SORT+40, SORT+41
PSOASORT PSODGAL2+10~, PRT+8!
PSOASORT( SORT+32*, SORT+33*, SORT+34, SORT+35*, SORT+40*, SORT+41*, LOOP+3, LOOP+4, LOOP+6, LOOP+7
ADOC+53
PSOCAGNT PSODGAL2+11~, SORT+21*, SORT+27*, SORT+32
PSOCAR ADOC+1~, ADOC+4*, ADOC+16*, ADOC+17*, ADOC+22*, ADOC+25*, ADOC+32
PSOCSITE ADOC+2~, ADOC+11*, ADOC+14*, ADOC+15*, ADOC+16, ADOC+18*, ADOC+20*, ADOC+21*, ADOC+22
PSODCLAS SORT+2~, SORT+21*, SORT+23*
>> PSODGCK PSODGAL2+14, PSODGAL2+15, SORT+44, SORT+45
>> PSODGCRX PSODGAL2+14
PSODRCL2 SORT+1~, SORT+21*, SORT+23*, SORT+24
PSODRGCL SORT+1~, SORT+21*, SORT+24*, SORT+25*, SORT+26*, SORT+27
PSOINST SORT+1~
PSOLCS LOWER~, LOWER+1
>> PSOLST( PSODGAL2+15
PSOPROV PSODGAL2+11~, INV+4*, INV+5*, INV+6
PSOPTLOC SORT+1~, SORT+31*
PSOQUIT PSODGAL2+12~, PSODGAL2+13*, PRT+4, PRT+9, FF+3*
PSORDATA PSODGAL2+11~, LOOP+2*, LOOP+6*
PSOREA PSODGAL2+11~, SORT+7*, SORT+11*, SORT+12*, SORT+13*, SORT+27, SORT+32, SORT+33, SORT+34, SORT+35
SORT+40, SORT+41, LOOP+2*, LOOP+4*, LOOP+6, LOOP+7, ADOC+11, ADOC+53
PSOREA2 SORT+1~, SORT+9*, SORT+32, SORT+33, SORT+34, SORT+35, SORT+40, SORT+41, LOOP+2*, LOOP+4*
LOOP+6, LOOP+7, ADOC+53
PSOREAB SORT+1~, SORT+9*, SORT+11, SORT+12, SORT+13
PSOREAS SORT+1~, SORT+12*
PSORSITE PSODGAL2+11~, SORT+7*, SORT+10*, SORT+31*, SORT+33, SORT+35, LOOP+2*, LOOP+7*, ADOC+12, ADOC+13
ADOC+14, ADOC+17, ADOC+18
PSOTYPE PSODGAL2+11~, SORT+7*, SORT+9*, SORT+30, SORT+33, SORT+35, LOOP+2*
PSOUCS UPPER~, UPPER+1
PSOWCA ADOC+1~, ADOC+4*
PSOZERO SORT+1~, SORT+7*, SORT+8*, SORT+9, SORT+10, SORT+33, SORT+35
RET PSODGAL2+10~, PSODGAL2+18
RET( PSODGAL2+19, SORT+3, SORT+4
SEVN PSODGAL2+10~, ADOC+1~, ADOC+4*, ADOC+7*, ADOC+36
SEVT PSODGAL2+10~, ADOC+1~, ADOC+4*, ADOC+7*
SIGN SORT+1~, ADOC+53*, ADOC+54*, ADOC+55
SIGNS SORT+1~, ADOC+53*, ADOC+54
SITE ADOC+2~
SITED ADOC+2~
SITET ADOC+2~
SS ADOC+1~, ADOC+4*, ADOC+57*, ADOC+58*
>> VALMBCK LOOP+3, LOOP+4, LOOP+8, EXIT+1*
X PSODGAL2+10~, ADOC+4*, ADOC+32*, ADOC+43*, ADOC+44*, ADOC+45*, ADOC+46, ADOC+53*, ADOC+56*, ADOC+58*
ADOC+59*, ADOC+66*, ADOC+67*, ADOC+68*, ADOC+69*, ADOC+70, INV+6*
XXI PSODGAL2+10~, LOOP+6*, ADOC+3, ADOC+5, ADOC+42, ADOC+65
Z ADOC+1~, ADOC+73~
ZALL PSODGAL2+11~, ADOC+1~, ADOC+4*, ADOC+5*, ADOC+6, ADOC+7, ADOC+29
ZCNT PSODGAL2+10~, PSODGAL2+13*
ZCNTT PSODGAL2+10~, PSODGAL2+13*, SORT+33*, SORT+43
ZCX ADOC+1~, ADOC+34*
ZDA PSODGAL2+11~
ZDATA ADOC+2~, ADOC+18*, ADOC+19, ADOC+20
ZDATB PSODGAL2+11~
ZDATE ADOC+1~, ADOC+4*, ADOC+13*, ADOC+16, ADOC+19*, ADOC+22
ZERO PSODGAL2+11~
ZFND PSODGAL2+10~, PSODGAL2+13*, EXT+1!, EXIT+1!
ZI PSODGAL2+10~, SORT+3*, SORT+4, SORT+5, SORT+6, SORT+8, SORT+16, SORT+22, SORT+23, SORT+32
SORT+38, SORT+39, LOOP+6*, ADOC+3, ADOC+5, ADOC+42, ADOC+65, INV+10, INV+12
ZII PSODGAL2+10~
ZIIEN PSODGAL2+11~, SORT+1~, SORT+5*, SORT+8, SORT+22, SORT+23, SORT+32, SORT+38, SORT+39, LOOP+2*
LOOP+6*
ZLOC ADOC+1~, ADOC+4*, ADOC+5*, ADOC+15, ADOC+21
ZORN PSODGAL2+10~, PSODGAL2+16*, PSODGAL2+17, PSODGAL2+18, PSODGAL2+19, SORT+3, SORT+4
ZPGK EXIT+1!
ZQS PSODGAL2+11~
ZRX PSODGAL2+11~, PSODGAL2+14*, PSODGAL2+15*, PSODGAL2+16, PSODGAL2+17, SORT+31, SORT+44
ZSIEN SORT+1~, SORT+38*, SORT+39
ZSIGNS SORT+1~, SORT+39*, SORT+40, SORT+41
ZST PSODGAL2+11~
ZWARN PSODGAL2+10~
ZX ADOC+1~, ADOC+49*, ADOC+60*, ADOC+72*, ADOC+73~, INV+7*
ZZ PRT+2~, PRT+4*, PRT+5, PRT+6
ZZQ PSODGAL2+10~, SORT+22*, SORT+23, ADOC+42*, ADOC+54*, ADOC+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