Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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.

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
Info |  Source |  Entry Points |  Interaction Calls