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

Package: Adverse Reaction Tracking

Routine: GMRAPEM4


Information

GMRAPEM4 ;HIRMFO/WAA-EDIT OF DATA TO HISTORICAL STORAGE ; 12/24/91

Source Information

Source file <GMRAPEM4.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Adverse Reaction Tracking 5 EN1^GMRAPEH0  EN1^GMRAPEO0  $$VFY^GMRASIGN  (SITE,UNLOCK)^GMRAUTL  EN1^GMRAVFY  
VA Fileman 2 YN^DICN  ^DIE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Adverse Reaction Tracking 2 GMRAPEM0  GMRASIGN  

Entry Points

Name Comments DBIA/ICR reference
EDIT ; Add/Edit Reaction data
NEW
YNNW
EDAT

External References

Name Field # of Occurrence
YN^DICN YNNW
^DIE NEW, YNNW+1
EN1^GMRAPEH0 EDAT+1
EN1^GMRAPEO0 EDAT
$$VFY^GMRASIGN EDAT+5
SITE^GMRAUTL EDIT+2
UNLOCK^GMRAUTL EDIT+7, EDIT+9
EN1^GMRAVFY EDAT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !?4,$C(7),"ANSWER YES IF THE CHANGE IS OK, ELSE ANSWER NO."
  • Line Location: YNNW+0
Function Call: WRITE
  • Prompt: !,"This Causative Agent will be Auto-verified when it is signed off."
  • Line Location: EDAT+5
Routine Call
  • DIE
  • Line Location:
    • NEW
    • YNNW+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.8 - [#120.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.8 - [#120.8] NEW+1
^XUSEC("GMRA-ALLERGY VERIFY" EDIT+5, EDAT+4
^XUSEC("GMRA-SUPERVISOR" EDIT+5

Label References

Name Line Occurrences
EDAT NEW+2
NEW EDIT+4, NEW+2, YNNW+1
YNNW YNNW

Naked Globals

Name Field # of Occurrence
^(0 NEW+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % YNNW*, YNNW+1
>> DA NEW*, YNNW+1*
>> DIE NEW*, YNNW+1*
>> DR NEW*, YNNW+1*
DUZ EDIT+5, EDAT+4
>> GMRACNT EDIT+3*
>> GMRADRUG EDIT+3*
GMRALLER EDAT+7!
GMRAMEC EDAT+7!
>> GMRANEW EDIT+4
>> GMRANEW(0 NEW+1*, NEW+2, YNNW+2
>> GMRAOUT NEW*, YNNW+1*, EDAT+3
>> GMRAPA EDIT+7, EDIT+9, NEW, NEW+1, YNNW+1, EDAT+5
>> GMRAPA(0 EDIT+3, EDIT+5, EDIT+9, NEW+2, YNNW, YNNW+1, YNNW+2*, EDAT, EDAT+1
GMRAPRNT EDAT+6~
GMRAVER EDAT+2!*
GMRAY EDAT+7!
IOF EDIT+1
U EDIT+3
>> Y NEW
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