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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSODGAL

Package: Outpatient Pharmacy

Routine: PSODGAL


Information

PSODGAL ;BIR/LC-DRUG ALLERGY REACTION CHECKING ;03-Oct-2012 16:10;DU

Source Information

Source file <PSODGAL.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Adverse Reaction Tracking 3 ^GMRADPT  ($$ORCHK,GETCOM,GETDATA,GETREAC)^GMRAOR  EN1^GMRAOR2  
Outpatient Pharmacy 1 ^PSORXI  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSODRG  

Entry Points

Name Comments DBIA/ICR reference
DSPLY ;
CLASS(DFN) ;
CHK1(DFN) ;not matched to ndf
DRCL(DFN) ;
CHK(DFN,TYP,PTR) ;matched to ndf
CLASS2 ;
CLASSDSP ;

External References

Name Field # of Occurrence
^DIR CLASSDSP+15, DSPLY+18
^GMRADPT CHK1+2, CLASS+7
$$ORCHK^GMRAOR CHK+3
GETCOM^GMRAOR CHK1+8
GETDATA^GMRAOR CLASS+5, DRCL+6
GETREAC^GMRAOR CHK1+7
EN1^GMRAOR2 CLASS+8
^PSORXI CLASSDSP+16, DSPLY+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"A Drug-Allergy Reaction exists for this medication and/or class!",!
  • Line Location: CLASSDSP+2
Function Call: WRITE
  • Prompt: !,"Drug: "_PSODRUG("NAME")
  • Line Location: CLASSDSP+3
Function Call: WRITE
  • Prompt: !,"Drug Class: "_^TMP($J,"PSODRCLS",CT)
  • Line Location: CLASSDSP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CLASSDSP+15
Function Call: WRITE
  • Prompt: $C(7),!,"A Drug-Allergy Reaction exists for this medication and/or class!",!
  • Line Location: DSPLY+1
Function Call: WRITE
  • Prompt: !,?6,"Ingredients: "
  • Line Location: DSPLY+3
Function Call: WRITE
  • Prompt: !?19
  • Condition for execution: $X+$L($G(GMRAING(I)))+2>IOM
  • Line Location: DSPLY+6
Function Call: WRITE
  • Prompt: $G(GMRAING(I))_", "
  • Line Location: DSPLY+6
Function Call: WRITE
  • Prompt: !?19
  • Condition for execution: $X+$L($G(GMRAREAC(I)))+2>IOM
  • Line Location: DSPLY+10
Function Call: WRITE
  • Prompt: $G(GMRAREAC(I))_", "
  • Line Location: DSPLY+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPLY+18
Routine Call
  • DIR
  • Line Location:
    • CLASSDSP+15
    • DSPLY+18

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.8 - [#120.8] CHK1+2, CHK1+3
^PS(50.605 - [#50.605] DRCL+12
^TMP("GMRAOC" DRCL+7, DRCL+9, DRCL+11, DRCL+15, DRCL+16, DRCL+18, DRCL+19, DRCL+22!
^TMP("PSODAI" CHK+3!, CHK+5*, CHK+6*, CHK1+1!, CHK1+5*
^TMP($J CLASS+4!, CLASS+10*, CLASS+13*, CLASS+14*, CLASS+17*, CLASS+18*, CLASS2+6*, CLASS2+9*, CLASS2+10*, CLASS2+13*
, CLASS2+14*, CLASSDSP+1, CLASSDSP+4, CLASSDSP+6, CLASSDSP+7, CLASSDSP+9, CLASSDSP+10, CLASSDSP+12!
^XUSEC("PSORPH" CHK+4, CHK1+5, DSPLY+2

Label References

Name Line Occurrences
$$DRCL CLASS2+2
CLASS2 CLASS+5
CLASSDSP CLASS+20
DSPLY CHK+7, CHK1+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGNL CLASS+1~, CLASS+8!
AGNL("C" CLASS+16, CLASS+17, CLASS+18
AGNL("S" CLASS+12, CLASS+13, CLASS+14
AGNL("V" CLASS+9, CLASS+10
APTR CHK1+3*, CHK1+4, CHK1+10!
CC CLASS+1~, CLASS+7*, CLASS+8
CLCHK CLASS+1~, CLASS+6*, CLASS+10*, CLASS2+4*, CLASS2+6*, CLASS2+10, CLASS2+13, CLASS2+14
CPT CLASS+1~, CLASS+9*, CLASS+10
CT CLASS+1~, CLASS+9*, CLASS2+4*, CLASS2+5, CLASS2+6, CLASS2+8, CLASS2+9, CLASS2+10, CLASS2+12, CLASS2+13
, CLASS2+14, CLASSDSP+4*
DFN CHK~, CHK+3, CHK1~, CLASS~, CLASS2+2, DRCL~, DRCL+6
DIR CLASSDSP+17!, DSPLY+19!, DSPLY+21!
DIR("?" CLASSDSP+13*, CLASSDSP+14*, DSPLY+4*, DSPLY+5*
DIR("A" CLASSDSP+15*, DSPLY+18*
DIR("B" CLASSDSP+15*, DSPLY+18*
DIR(0 CLASSDSP+15*, DSPLY+18*
DIROUT CLASSDSP+17!, DSPLY+19!, DSPLY+21!
DIRUT CLASSDSP+17!, DSPLY+19!, DSPLY+21!
DTOUT CLASSDSP+17!, DSPLY+19!, DSPLY+21!
DUOUT CLASSDSP+17!, DSPLY+19!, DSPLY+21!
DUZ CHK+4, CHK1+5, DSPLY+2
GMRA CHK1+2*, CHK1+10!, CLASS+1~, CLASS+7*
GMRACL DRCL+8~, DRCL+9*, DRCL+11, DRCL+12, DRCL+13, DRCL+15, DRCL+16, DRCL+18, DRCL+19
GMRACOM CHK+10!
GMRACOM( CLASS2+12, CLASS2+13, CLASS2+14, DSPLY+14, DSPLY+15, DSPLY+16, DRCL+19*
GMRACOM(0 DSPLY+12
GMRADRCL DRCL+5!
GMRADRCL( CLASS2+4, CLASS2+6, DRCL+13*
GMRAING CHK+10!
GMRAING( CHK+6, DSPLY+6
GMRAING(0 DSPLY+3
GMRAL CHK1+10!
GMRAL( CHK1+2, CLASS+7
GMRALOC DRCL+10~, DRCL+11*, DRCL+13
GMRANM DRCL+10~, DRCL+12*, DRCL+13
GMRAREAC CHK+10!
GMRAREAC( CLASS2+8, CLASS2+9, CLASS2+10, DSPLY+10, DRCL+16*
GMRAREAC(0 DSPLY+8
I CHK+6*, CHK+10!, DSPLY+6*, DSPLY+10*, DSPLY+21!
IOM DSPLY+6, DSPLY+10
J DRCL+3~, DRCL+15*, DRCL+16, DRCL+18*, DRCL+19
K CLASS+12~*, CLASS+13, CLASS+14, CLASS+16~*, CLASS+17, CLASS+18, CLASS2+1~, CLASS2+8*, CLASS2+9, CLASS2+10
, CLASS2+12*, CLASS2+13, CLASS2+14, CLASSDSP+6*, CLASSDSP+7, CLASSDSP+9*, CLASSDSP+10, DSPLY+14*, DSPLY+15, DSPLY+16
, DSPLY+21!
L CLASS2+1~, DSPLY+15*, DSPLY+16, DSPLY+21!
LEN CLASS+1~, CLASS+2*, CLASS+3*, CLASS+9, CLASS2+5
LP CHK1+2*, CHK1+3, CHK1+7, CHK1+8, CHK1+10!
PSOACK CHK+3*, CHK+7, CHK+10!, CHK1+2, CHK1+3, CHK1+4*, CHK1+5, CHK1+9, CHK1+10!
>> PSODRUG("IEN" CHK1+4
>> PSODRUG("NAME" CLASSDSP+3, DSPLY+3
>> PSODRUG("VA C LASS" , CLASS+3, CLASS+9, CLASS2+5
PTR CHK~, CHK+3
RET CLASS2+1~, CLASS2+2*, CLASS2+3, DRCL+3~, DRCL+4*, DRCL+21*, DRCL+23
TYP CHK~, CHK+3
U DRCL+12, DRCL+13
Y CLASSDSP+16, CLASSDSP+17!, DSPLY+19!, DSPLY+20, DSPLY+21!

Marked Items

Name Field # of Occurrence
$T(GETDATA^GMRAOR CLASS+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All