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

Package: Adverse Reaction Tracking

Routine: GMRAPED3


Information

GMRAPED3 ;HIRMFO/YMP,RM-VALIDATE ENTRY FOR .02 FIELD IN FILE 120.8 ;16-Mar-2011 09:16;DU

Source Information

Source file <GMRAPED3.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Adverse Reaction Tracking 6 PASS^GMRADPT  EN1^GMRADSP0  EN1^GMRAHLP0  EN1^GMRAKILL  PAT^GMRAPAT  HANGT^GMRAPEH0  
IHS Electronic Health Record 3 CKIN^BEHOARMU  ($$CANVERIF,FIREEVT)^BEHOART  $$HASKEY^BEHOUSCX  
Kernel 3 $$NOW^XLFDT  $$UP^XLFSTR  EN^XQOR  
VA Fileman 3 (,$$FIND1)^DIC  YN^DICN  (FILE,UPDATE)^DIE  
Registration 1 1^VADPT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Adverse Reaction Tracking 2 GMRA REACTIVATE A/AR  GMRAPED0  

Entry Points

Name Comments DBIA/ICR reference
Q1 ;
EN21 ;Load the inactive allergies and ask user to select one
REACT(DFN,GMRAPA) ;Find the entry to inactivate
REAC ;EP Called to reactivate an inactive entry
EN1 ; GIVEN DFN, SELECT PATIENT ALLERGY
RESET(DATA,GMRAPA,DFN,VAL) ;Reactivate
LIST(DFN,GMRA) ;Get all the reaction for a patient
DIC ; VALIDATE LOOKUP FOR A/AR
YNOK

External References

Name Field # of Occurrence
CKIN^BEHOARMU RESET+3
$$CANVERIF^BEHOART RESET+23
FIREEVT^BEHOART RESET+29
$$HASKEY^BEHOUSCX RESET+22
^DIC EN21+12
$$FIND1^DIC EN21+16
YN^DICN YNOK
FILE^DIE RESET+21
UPDATE^DIE RESET+12, RESET+28
PASS^GMRADPT LIST+12
EN1^GMRADSP0 EN21+6
EN1^GMRAHLP0 EN21+8
EN1^GMRAKILL REAC+7
PAT^GMRAPAT REAC+3
HANGT^GMRAPEH0 REACT+8
1^VADPT EN21+2
$$NOW^XLFDT RESET+9, RESET+26
$$UP^XLFSTR EN21+9
EN^XQOR EN21+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"CAUSATIVE AGENT: "_$P(GMRAPA(0),"^",2)_"// (Uneditable)"
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REAC+3
Function Call: WRITE
  • Prompt: !,"This patient has no inactive allergies"
  • Line Location: EN21+5
Function Call: READ
  • Prompt: "Enter Item to Reactivate: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: GMRALAR
  • Line Location: EN21+7
Function Call: WRITE
  • Prompt: !!,"Checking existing PATIENT ALLERGIES (#120.8) file for matches..."
  • Line Location: EN21+11
Function Call: WRITE
  • Prompt: !,"Reaction has been reactivated"
  • Line Location: REACT+8
Function Call: WRITE
  • Prompt: !?3,X," OK"
  • Line Location: YNOK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: YNOK+1
Function Call: WRITE
  • Prompt: !?5,$C(7),"ANSWER YES IF THIS IS THE CORRECT ALLERGY/ADVERSE REACTION,",!?5,"ELSE ANSWER NO."
  • Line Location: YNOK+2
Routine Call
  • DIE
  • Line Location:
    • RESET+12
    • RESET+28
Routine Call
  • DIC
  • Line Location:
    • EN21+16
Routine Call
  • DIE
  • Line Location:
    • RESET+21
Routine Call
  • DIC
  • Line Location:
    • EN21+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] FIND1^DIC
^GMR(120.8 - [#120.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.8 - [#120.8] REACT+2, REACT+3, REACT+4, LIST+3, LIST+4, LIST+5, LIST+7, LIST+8, LIST+9, Q1+1
, RESET+5

Label References

Name Line Occurrences
DIC EN21+12
EN1 EN21+8
EN21 REAC+4
LIST EN21+4
Q1 EN21+12, EN21+13
REAC EN21+7, EN21+12, REACT+8
REACT EN21+15
RESET REACT+7
YNOK YNOK+3

Naked Globals

Name Field # of Occurrence
^(0 Q1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q1+2!, YNOK*, YNOK+1
AIEN RESET+1~, RESET+7*, RESET+10, RESET+11, RESET+17*, RESET+18, RESET+19, RESET+20, RESET+24*, RESET+25
, RESET+26, RESET+27
BIEN RESET+1~, RESET+4*, RESET+17, RESET+24
CANVER RESET+1~, RESET+22*, RESET+23
D Q1+2!
DA Q1+2!
DATA REACT+1~, REACT+7, REACT+8, RESET~, RESET+2*, RESET+6*, RESET+13*, RESET+14*
DFN REAC+1~, REAC+6!, EN21+4, EN21+15, REACT~, REACT+7, LIST~, LIST+3, RESET~, RESET+3
, RESET+29
DGSENFLG EN21+10*, EN21+12!
DIC REAC+6!, EN21+10*, EN21+12!, Q1+2!
DIC("S" EN21+10*
DIC("W" EN21+10*
DIC(0 EN21+10*
DTIME EN21+7
DTOUT EN21+10!, EN21+12!, Q1+2!, DIC+1
DUOUT EN21+10!, EN21+12!, Q1+2!, DIC+2
DUZ RESET+8, RESET+27
ERR RESET+1~, RESET+15!, RESET+30!
ERR("DIERR" RESET+13
FDA RESET+15!, RESET+30!
FDA( RESET+10*, RESET+11*, RESET+18*, RESET+19*, RESET+20*, RESET+25*, RESET+26*, RESET+27*
FNUM RESET+1~, RESET+4*
GMA REAC+6!
GMALAR EN21+1~
GMRA REAC+1~, LIST~, LIST+2*, LIST+12, LIST+13*
GMRAAR EN1+1!*, Q1+2!
GMRACNT EN21+1~, EN21+2*
GMRAHLP EN21+8*, Q1+2!
GMRAIEN EN21+1~
GMRAING Q1+2!
>> GMRAL EN21+4, EN21+5, EN21+6
GMRALAGO Q1+2!
GMRALAR EN21+7*, EN21+8, EN21+9*, Q1+2!
GMRALOC EN21+1~, EN21+3*
GMRANAM EN21+1~, EN21+3*, EN21+10
GMRAOUT REAC+1~, REAC+2*, REAC+4, REAC+6!, EN21+1~, EN21+6, EN21+7*, EN21+8, EN21+12*, EN21+13
, DIC+1*, YNOK*
GMRAPA EN21+13*, EN21+14, EN21+15, REACT~, REACT+2, REACT+3, REACT+4, REACT+7, REACT+8, LIST+1~
, LIST+2*, LIST+3*, LIST+4, LIST+5, LIST+7, LIST+8, LIST+9, LIST+12, Q1+1, RESET~
, RESET+2, RESET+4, RESET+5, RESET+7, RESET+14, RESET+23, RESET+29
GMRAPA(0 EN1+2, Q1+1*
GMRARET REAC+6!, EN21+7*
GMRASEX EN21+1~, EN21+3*
GMRAUSER REAC+6!
IEN RESET+1~
INACT REACT+1~, REACT+3*, REACT+5, REACT+6, LIST+1~, LIST+8*, LIST+10
INZ LIST+1~, LIST+6*, LIST+10*, LIST+11
IOF REAC+3
MIEN RESET+1~
PSNDA Q1+2!
PSODA Q1+2!
REACT REACT+1~, REACT+4*, REACT+5, LIST+1~, LIST+9*, LIST+10
SIEN RESET+1~, RESET+5*, RESET+6, RESET+7
STOP RESET+1~, RESET+4*, RESET+6
U EN21+3, REACT+3, REACT+4, LIST+8, LIST+9, RESET+13
VADM EN21+1~
VADM(1 EN21+3
VADM(5 EN21+3
>> VAIN(4 EN21+3
VAL REACT+1~, REACT+7, RESET~
VAL("GMRAINACT" REACT+6*
VAL("GMRAINRE" RESET+9*, RESET+10
VAL("GMRAINREBY" RESET+8*, RESET+11
VER RESET+1~, RESET+23
X EN21+1~, EN21+10*, EN21+12*, EN21+16*, EN21+17, Q1+2!, DIC+1*, YNOK, RESET+1~
Y EN21+10!, EN21+13, Q1+2!, DIC+2*, YNOK*, YNOK+1*, RESET+1~
Y(0 EN21+12
Z REACT+1~, REACT+2*, REACT+3, REACT+4, LIST+1~, LIST+7*, LIST+8, LIST+9
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