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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMRAPEM1

Package: Adverse Reaction Tracking

Routine: GMRAPEM1


Information

GMRAPEM1 ; HIRMFO/YMP,RM,WAA - CHANGE OF OBSERVED DATA TO HISTORICAL STORAGE ;May 11, 2021@12:03:03

Source Information

Source file <GMRAPEM1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 NOW^%DTC  FILE^DICN  ^DIE  ^DIK  ^DIWP  
Adverse Reaction Tracking 1 EOP^GMRADSP3  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Adverse Reaction Tracking 8 GMRADSP2  GMRADSP3  GMRAPEE0  GMRAPEH0  GMRAPEM2  GMRAPEO0  GMRAPEV0  GMRASIG1  

Entry Points

Name Comments DBIA/ICR reference
ENDING ;Display and edit the word processing field for a patient reaction.
OUTPUT ;Display the word processing field for a patient.
DISP
DISP1(GMRAPA,GMRAKIND,GMRAOUT) ;Display comments and reaction for a reaction
; Input variables:
; GMRAPA = Reaction IEN in 120.8
; GMRAKIND = Kind of comment to display
; O is Originator
; V is Verifier
; E is Entered in Error
; GMRAOUT = Escape variable
PRINT ;PRINT OUT THE DATA
HEAD ;print a header
EDIT ;Edit the word processing field.
EXIT ;Exit point.

External References

Name Field # of Occurrence
NOW^%DTC EDIT+4
FILE^DICN EDIT+4
^DIE EDIT+5
^DIK EDIT+6
^DIWP PRINT+10
EOP^GMRADSP3 HEAD+1
$$FMTE^XLFDT PRINT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: ENDING+1
Function Call: WRITE
  • Prompt: !!,?5,$S(GMRAKIND="O":"ORIGINATOR",GMRAKIND="V":"VERIFIER",GMRAKIND="E":"ENTERED IN ERROR",1:"")
  • Line Location: DISP1+9
Function Call: WRITE
  • Prompt: !,?6,"COMMENTS:"
  • Line Location: DISP1+10
Function Call: WRITE
  • Prompt: !,?10,"Date: ",$$FMTE^XLFDT(GMRAY,1),?52,"User: ",GMRAZN
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,?51,"Title: ",GMRAT
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,?16,^UTILITY($J,"W",DIWL,GMRAXX,0)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+12
Routine Call
  • DIE
  • Line Location:
    • EDIT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(3.1 - [#3.1] PRINT+4
^GMR(120.8 - [#120.8] DISP1+8, DISP1+11, DISP1+12, PRINT+7, PRINT+10, EDIT+3, EDIT+6
^UTILITY($J PRINT+9!, PRINT+11
^VA(200 - [#200] PRINT+2, PRINT+3

Label References

Name Line Occurrences
DISP ENDING+1, OUTPUT+1
DISP1 DISP+1
EDIT ENDING+1
EXIT ENDING+1, OUTPUT+1, EDIT+4
HEAD PRINT+11
PRINT DISP1+13

Naked Globals

Name Field # of Occurrence
^( PRINT+10
^(0 DISP1+12, EDIT+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EDIT+4
>> DA EDIT+5*, EDIT+6
>> DA(1 EDIT+4*, EDIT+6
DD EDIT+4!
DIC EDIT+4*, EDIT+5!
DIC(0 EDIT+4*
>> DIE EDIT+5*, EDIT+6
>> DIK EDIT+6*
DINUM EDIT+4!
>> DIWF PRINT+8*
>> DIWL PRINT+8*, PRINT+9, PRINT+11
>> DIWR PRINT+8*
DLAYGO EDIT+4*!
DO EDIT+4!
DR EDIT+5!*
DUZ EDIT+5
GMRA EDIT+2~
GMRAKIND DISP1~, DISP1+8, DISP1+9, DISP1+11
GMRAOUT DISP*, DISP+1, DISP1~, DISP1+11, PRINT+11, EDIT+1, EDIT+2*
GMRAPA DISP+1, DISP1~, DISP1+8, DISP1+11, DISP1+12, PRINT+7, PRINT+10, EDIT+3, EDIT+4
GMRAT PRINT+1~*, PRINT+3*, PRINT+4*, PRINT+6
GMRAVCM EDIT+1*, EDIT+5, EXIT+1!
>> GMRAX DISP1+11*, DISP1+12, PRINT+7, PRINT+10
>> GMRAXX PRINT+10*, PRINT+11*
>> GMRAY DISP1+12*, PRINT+5
>> GMRAYY DISP+1*
>> GMRAZ DISP1+12*, PRINT+2, PRINT+3
GMRAZN PRINT+1~*, PRINT+2*, PRINT+5
IOF ENDING+1
IOSL PRINT+11
U DISP1+12, PRINT+2, PRINT+3, PRINT+4
>> X PRINT+10*, EDIT+4*
Y EDIT+4, EDIT+5, EDIT+6!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All