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

Package: Adverse Reaction Tracking

Routine: GMRAFX3


Information

GMRAFX3 ;SLC/DAN Update existing entries to new reactant ;09-May-2013 09:54;MGH

Source Information

Source file <GMRAFX3.m>

Call Graph

Call Graph Total: 21

Package Total Call Graph
Adverse Reaction Tracking 7 EN1^GMRAEAB  ADCOM^GMRAFX  ^GMRAFX2  ($$NKASCR,NKAASK)^GMRANKA  (EN1,EN2)^GMRAPEM0  $$DUPCHK^GMRAPES0  UPDATE^GMRAPES1  
VA Fileman 5 $$FIND1^DIC  ^DIE  ^DIK  ($$GET1,EN)^DIQ  ^DIR  
Order Entry Results Reporting 4 BLD^ORCHECK  EN^ORKCHK  EN^ORQ1  $$STATUS^ORQOR2  
Registration 3 INP^VADPT  FULL^VALM1  SET^VALM10  
Kernel 2 $$REPEAT^XLFSTR  EN^XQOR  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Adverse Reaction Tracking 6 GMRAFX  GMRAFX1  GMRAGUI1  GMRAY21  GMRAY29  GMRAY40  

Entry Points

Name Comments DBIA/ICR reference
DELMUL(FIELD) ;Delete multiple FIELD from GMR ALLERGY file
UIE ;Update individual entries
DUP() ;Function returns true (1) if selected reactant is a duplicate
GETNUM(ACTION) ; -- Return numbers to act on, if action chosen first
UPDATE ;Update display to account for changes to the list
AR ;Add/edit patient reactions
EIE ;Mark individual entry as entered in error
RUSURE(GMRASURE) ;20 Make sure selection from ingredient or drug class file is ok
DSPREACT ;Display detailed information about the reactant
GETTYPE(LTYPE) ;Function determines which list to work with
LOCK(ENTRY) ;Lock entry in 120.8
WAIT ;Issues press enter to return prompt

External References

Name Field # of Occurrence
$$FIND1^DIC EIE+15
^DIE UIE+15, UIE+21, DELMUL+7, EIE+3
^DIK EIE+7
$$GET1^DIQ UIE+4, AR+9, EIE+8
EN^DIQ DSPREACT+8
^DIR UIE+6, WAIT+2, GETNUM+6, DSPREACT+9, GETTYPE+4, RUSURE+16
EN1^GMRAEAB EIE+13
ADCOM^GMRAFX UIE+26, EIE+4
^GMRAFX2 UIE+9
$$NKASCR^GMRANKA EIE+5
NKAASK^GMRANKA EIE+10
EN1^GMRAPEM0 AR+8
EN2^GMRAPEM0 AR+9
$$DUPCHK^GMRAPES0 UIE+13
UPDATE^GMRAPES1 UIE+23
BLD^ORCHECK UIE+34
EN^ORKCHK UIE+36
EN^ORQ1 UIE+30
$$STATUS^ORQOR2 UIE+40
INP^VADPT EIE+15
FULL^VALM1 LOCK+4, AR+2, DSPREACT+2
SET^VALM10 UPDATE+6
$$REPEAT^XLFSTR UPDATE+6
EN^XQOR EIE+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"For patient ",$$GET1^DIQ(2,DFN_",",.01),!
  • Line Location: UIE+4
Function Call: WRITE
  • Prompt: !,"Patient already has an active allergy for this reactant.",!,"Duplicate not allowed.",!
  • Line Location: UIE+12
Function Call: WRITE
  • Prompt: !,"Performing order checking..."
  • Line Location: UIE+28
Function Call: WRITE
  • Prompt: "patient has no active orders."
  • Line Location: UIE+32
Function Call: WRITE
  • Prompt: !!,"Please choose only one entry for the detailed display."
  • Line Location: GETNUM+3
Function Call: WRITE
  • Prompt: !,">>>Too many entries selected, try using smaller ranges"
  • Line Location: GETNUM+7
Function Call: WRITE
  • Prompt: !,">>You may only choose ONE group for detailed display."
  • Line Location: GETNUM+8
Function Call: WRITE
  • Prompt: !,"The ",$P(^XTMP("GMRAFX",LTYPE,"IDX",ENTRY),U)," group is being edited by another user"
  • Line Location: LOCK+4
Function Call: WRITE
  • Prompt: !!,"You should use this option to add NEW reactions only. If you mark"
  • Line Location: AR+3
Function Call: WRITE
  • Prompt: !,"existing entries as entered in error from within this option it will"
  • Line Location: AR+4
Function Call: WRITE
  • Prompt: !,"not update the utility's display until the list is rebuilt upon re-entry"
  • Line Location: AR+5
Function Call: WRITE
  • Prompt: !,"of this option. This could cause confusion as the list will no longer"
  • Line Location: AR+6
Function Call: WRITE
  • Prompt: !,"be accurate.",!
  • Line Location: AR+7
Function Call: WRITE
  • Prompt: !!,"Now working with patient ",$$GET1^DIQ(2,DFN,.01),!
  • Line Location: AR+9
Routine Call
  • DIE
  • Line Location:
    • UIE+15
    • UIE+21
    • DELMUL+7
    • EIE+3
Routine Call
  • DIC
  • Line Location:
    • EIE+15
Routine Call
  • DIR
  • Line Location:
    • UIE+6
    • WAIT+2
    • GETNUM+6
    • DSPREACT+9
    • GETTYPE+4
    • RUSURE+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] FIND1^DIC
^GMR(120.8 - [#120.8] Classic Fileman Calls
^GMR(120.85 - [#120.85] Classic Fileman Calls
^GMR(120.86 - [#120.86] Classic Fileman Calls
^DPT - [#2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.8 - [#120.8] UIE+3, DELMUL+2, DUP+3, DUP+4, AR+9, EIE+5, EIE+6, EIE+11
^GMR(120.85 - [#120.85] UIE+16, UIE+18, UIE+19
^OR(100 - [#100] UIE+39
^TMP("ORR" UIE+29!, UIE+31, UIE+32, UIE+33, UIE+34
^TMP($J GETNUM+2, AR+9, DSPREACT+6
^XTMP("GMRAFX" UIE+19, UIE+25, UPDATE+3, UPDATE+4*, LOCK+3, LOCK+4

Label References

Name Line Occurrences
$$DUP UIE+12
$$GETNUM DSPREACT+3
DELMUL UIE+22
RUSURE UIE+9
WAIT UIE+12, UIE+43, LOCK+4, AR+8, AR+9

Naked Globals

Name Field # of Occurrence
^( UPDATE+4!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION GETNUM~, GETNUM+3, GETNUM+8
AIFN UIE+1~, UIE+17*, UIE+18*, UIE+19, UIE+20
CNT UPDATE+1~, UPDATE+3*, UPDATE+4, UPDATE+5, UPDATE+6
COM UIE+1~, UIE+25*, UIE+26
DA UIE+1~, UIE+15*, UIE+20*, DELMUL+1~, DELMUL+3*, DSPREACT+1~, DSPREACT+6*, EIE+1~, EIE+2*, EIE+6*
, EIE+8, EIE+10
DA(1 UIE+20*, DELMUL+3*
DFN UIE+1~, UIE+3*, UIE+4, UIE+13, UIE+30, UIE+36, DUP+3, AR+1~, AR+9*, EIE+1~
, EIE+14*
DIC DSPREACT+1~, DSPREACT+7*
DIE UIE+1~, UIE+15*, UIE+21*, DELMUL+1~, DELMUL+5*, DELMUL+6*, EIE+1~, EIE+2*
DIK EIE+1~, EIE+6*
DIR UIE+1~, WAIT+1~, GETNUM+1~, DSPREACT+1~, GETTYPE+1~, GETTYPE+4!, RUSURE+2~
DIR("?" GETNUM+5*
DIR("A" UIE+6*, WAIT+2*, GETNUM+4*, DSPREACT+9*, GETTYPE+3*, RUSURE+5*, RUSURE+6*, RUSURE+7*, RUSURE+8*, RUSURE+9*
, RUSURE+10*, RUSURE+11*, RUSURE+12*, RUSURE+13*, RUSURE+14*
DIR("B" UIE+6*, RUSURE+15*
DIR(0 UIE+6*, WAIT+2*, GETNUM+4*, DSPREACT+9*, GETTYPE+2*, RUSURE+15*
>> DIRUT DSPREACT+10
DR UIE+1~, UIE+15*, UIE+21*, DELMUL+1~, DELMUL+5*, DELMUL+6*, EIE+1~, EIE+2*
>> DTOUT GETNUM+6
DUZ EIE+2
ENTRY UPDATE+3, UPDATE+4, UPDATE+5, UPDATE+6, LOCK~, LOCK+3, LOCK+4
FIELD DELMUL~, DELMUL+2, DELMUL+5, DELMUL+6
FND UIE+1~, UIE+37*, UIE+41*, UIE+42, DUP+1~, DUP+2*, DUP+3, DUP+4*, DUP+5
GI UIE+1~, UIE+37*, UIE+38, UIE+39, UIE+40
GMRAAR UIE+5, UIE+7!, UIE+9, UIE+10!, UIE+25, DUP+4, RUSURE+4, RUSURE+7
GMRAAR("O" UIE+15, UIE+23
GMRAAR(0 UIE+6, UIE+13, UIE+15, UIE+25
>> GMRADONE UIE+2*, UIE+24*
GMRADRCL UIE+1~
GMRAI DSPREACT+1~, DSPREACT+4*, DSPREACT+5
GMRAING UIE+1~
>> GMRAJ UPDATE+4
GMRAOC UIE+1~, UIE+29!, UIE+36
GMRAOC( UIE+37, UIE+38, UIE+39, UIE+40
GMRAORX UIE+1~, UIE+35*, UIE+36
GMRAOUT UIE+1~, UIE+11*, EIE+1~, EIE+12*
>> GMRAPA UIE+3, UIE+13, UIE+15, UIE+16, UIE+18, UIE+26, DELMUL+2, DELMUL+3, EIE+2, EIE+4
, EIE+5, EIE+6, EIE+11
>> GMRAPA(0 EIE+11*, EIE+14
GMRASURE UIE+9, UIE+10, RUSURE~, RUSURE+3*, RUSURE+16*
LCV AR+1~, AR+9*
LOCK LOCK+1~, LOCK+2*, LOCK+4*, LOCK+5
LOOP DUP+1~, DUP+2*, DUP+3*, DUP+4
LTYPE UIE+19, UIE+25, GETNUM+2, UPDATE+3, UPDATE+4, LOCK+3, LOCK+4, AR+9, DSPREACT+6, GETTYPE~
, GETTYPE+5*, GETTYPE+6
MAX GETNUM+1~, GETNUM+2*, GETNUM+4
MIEN DELMUL+1~, DELMUL+2*, DELMUL+3
>> NMBR UIE+19, UIE+25
>> NMBR2 AR+8, AR+9, DSPREACT+3*, DSPREACT+4, DSPREACT+5
>> NUM UPDATE+5, UPDATE+6
NUM2 DSPREACT+1~, DSPREACT+5*, DSPREACT+6
OROLD EIE+1~
ORX UIE+1~, UIE+29!, UIE+35!
SIEN UIE+1~, UIE+19*, UIE+20
SIGN UIE+1~
SP1 UPDATE+1~, UPDATE+5*, UPDATE+6
SP2 UPDATE+1~, UPDATE+5*, UPDATE+6
SP3 UPDATE+1~, UPDATE+5*, UPDATE+6
STOP DSPREACT+1~, DSPREACT+4, DSPREACT+10*
SUB UIE+1~, UIE+33*, UIE+34, AR+1~, AR+9*
TIME UIE+1~, UIE+31*, UIE+32, UIE+33, UIE+34
U UIE+3, UIE+38, UIE+39, UIE+40, DUP+4, UPDATE+3, UPDATE+4, UPDATE+5, UPDATE+6, LOCK+4
, AR+9, DSPREACT+6, EIE+5, EIE+6, EIE+14
VAIN EIE+1~
VALMAR UPDATE+2~*
>> VALMBCK LOCK+4*, AR+2*, DSPREACT+2*
>> VALMCNT GETNUM+2
X GETNUM+1~, GETTYPE+1~, EIE+1~, EIE+15*, EIE+16, RUSURE+2~
Y UIE+1~, UIE+7, GETNUM+1~, GETNUM+6*, GETNUM+7*, GETNUM+8*, GETNUM+9, DSPREACT+1~, GETTYPE+1~, GETTYPE+5
, EIE+1~, RUSURE+2~, RUSURE+16
Y(1 GETNUM+7
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