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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSJDGAL

Package: Inpatient Medications

Routine: PSJDGAL


Information

PSJDGAL ;BIR/LC-DRUG/ALLERGY REACTION CHECKING ;29-May-2012 14:37;PLS

Source Information

Source file <PSJDGAL.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Adverse Reaction Tracking 2 EN1^GMRADPT  $$ORCHK^GMRAOR  
Inpatient Medications 1 ^PSJRXI  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
CHK(DFN,TYP,PTR) ;
DSPLY ;
CHK1(DFN) ;

External References

Name Field # of Occurrence
^DIR DSPLY+13
EN1^GMRADPT CHK1+2
$$ORCHK^GMRAOR CHK+4
^PSJRXI DSPLY+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"A Drug-Allergy Reaction exists for this medication!",!
  • Line Location: DSPLY+1
Function Call: WRITE
  • Prompt: !,?6,"Ingredients: "
  • Line Location: DSPLY+5
Function Call: WRITE
  • Prompt: !?19
  • Condition for execution: $X+$L($G(GMRAING(I)))+2>IOM
  • Line Location: DSPLY+8
Function Call: WRITE
  • Prompt: $G(GMRAING(I))_", "
  • Line Location: DSPLY+8
Function Call: WRITE
  • Prompt: !,?6,"Reactions: "
  • Line Location: DSPLY+10
Function Call: WRITE
  • Prompt: !?19
  • Condition for execution: $X+$L($G(GMRAREAC(I)))+2>IOM
  • Line Location: DSPLY+11
Function Call: WRITE
  • Prompt: $G(GMRAREAC(I))_", "
  • Line Location: DSPLY+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPLY+13
Routine Call
  • DIR
  • Line Location:
    • DSPLY+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.8 - [#120.8] CHK1+3
^TMP("PSJDAI" CHK+4!, CHK+6*, CHK+7*, CHK1+1!
^TMP("PSODAI" CHK1+6*

Label References

Name Line Occurrences
DSPLY CHK+8, CHK1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APTR CHK+1~, CHK1+3*, CHK1+4
DFN CHK~, CHK+4, CHK1~
DIR DSPLY+14!, DSPLY+16!
DIR("?" DSPLY+6*, DSPLY+7*
DIR("A" DSPLY+13*
DIR("B" DSPLY+13*
DIR(0 DSPLY+13*
DIROUT DSPLY+14!, DSPLY+16!
DIRUT DSPLY+14!, DSPLY+16!
DTOUT DSPLY+14!, DSPLY+16!
DUOUT DSPLY+14!, DSPLY+16!
GMRA CHK1+2*, CHK1+8!
GMRAING CHK+9!
GMRAING( CHK+7, DSPLY+8
GMRAING(0 DSPLY+5
GMRAL CHK1+8!
GMRAL( CHK1+2
>> GMRAREAC( DSPLY+11
>> GMRAREAC(0 DSPLY+10
I CHK+7*, CHK+9!, DSPLY+8*, DSPLY+11*
IOM DSPLY+8, DSPLY+11
LP CHK1+2*, CHK1+3, CHK1+8!
PSJACK CHK+4*, CHK+8, CHK+9!, CHK1+2, CHK1+3, CHK1+4*, CHK1+7
>> PSJDRUG("IEN" CHK1+4
>> PSJDRUG("NAME" DSPLY+5
PSOACK CHK1+8!
PTR CHK~, CHK+4
TYP CHK~, CHK+4
Y DSPLY+14!, DSPLY+15, DSPLY+16!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All