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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: GMRAFUT0

Package: Adverse Reaction Tracking

Routine: GMRAFUT0


Information

GMRAFUT0 ;HIRMFO/YMP,RFM,WAA-ALLERGY/ADVERSE REACTION FILE UTILITIES ;3/14/05 12:21

Source Information

Source file <GMRAFUT0.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Entry for GMRA LOCAL ALLERGIES EDIT option
EN2 ; Entry for GMRA LOCAL REACTIONS EDIT option
EN3 ; Entry for GMRA SITE FILE EDIT option
RE10
RRD
EDCON
EXIT ;
PRT10 ;
EN4 ; ENTRY FROM INPUT TRANSFORM FOR FIELDS .01 AND 22 OF FILE
; 120.85, WHERE GMRA=FIELD NUMBER, X IS DATA TO BE TRANSFORMED.
K4
Q4
PROCESS ;Additions to 120.82 and 120.83 are no longer allowed
MSG ;NTRT message text

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THIS ENTRY IS BEING EDITED BY SOMEONE ELSE",$C(7)
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !,"THIS ENTRY IS BEING EDITED BY SOMEONE ELSE",$C(7)
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !,"THIS ENTRY IS BEING EDITED BY SOMEONE ELSE",$C(7)
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: !,"NAME: HOSPITAL// (No editing)"
  • Line Location: EN3+3
Function Call: WRITE
  • Prompt: !!,"The following are the ten most common signs/symptoms:"
  • Line Location: RE10+1
Function Call: WRITE
  • Prompt: !,"Enter the number of the sign/symptom that you would like to edit: "
  • Line Location: RRD+0
Function Call: READ
  • Variable: GMRANS
  • Timeout: DTIME
  • Line Location: RRD+1
Function Call: WRITE
  • Prompt: !?4,$C(7),"ENTER THE CORRECT NUMBER (1-10) OF THE SIGN/SYMPTOM TO BE EDITED"
  • Line Location: RRD+2
Function Call: WRITE
  • Prompt: !!,"REPORTER NAME: ",$P(X,U),!?6,"ADDRESS: ",$P(X,U,2)
  • Line Location: EDCON+3
Function Call: WRITE
  • Prompt: !?15,$P(X,U,3)
  • Condition for execution: $L($P(X,U,3))
  • Line Location: EDCON+3
Function Call: WRITE
  • Prompt: !?15,$P(X,U,4)
  • Condition for execution: $L($P(X,U,4))
  • Line Location: EDCON+3
Function Call: WRITE
  • Prompt: !?9,"CITY: ",$P(X,U,5),!?8,"STATE: ",$P($G(^DIC(5,+$P(X,U,6),0)),U),!?10,"ZIP: ",$P(X,U,7),!?8,"PHONE: ",$P(X,U,8)
  • Line Location: EDCON+3
Function Call: WRITE
  • Prompt: !,?3,"OCCUPATION: ",$P(X,U,11)
  • Line Location: EDCON+4
Function Call: WRITE
  • Prompt: !,"Do you want to edit Reporter Information shown above"
  • Line Location: EDCON+5
Function Call: WRITE
  • Prompt: !?3,"ENTER YES TO CHANGE/ADD THE SITE'S DEFAULT REPORTER INFORMATION",!?3,"THAT WILL APPEAR ON THE FDA ADR REPORTS, ELSE ANSWER NO."
  • Line Location: EDCON+5
Function Call: WRITE
  • Prompt: !,$J(GMRAX,2),".",?4,$S($D(^GMRD(120.83,GMRAY,0)):$P(^(0),"^"),1:""),?35,$J(GMRAX+5,2),".",?39,$S($D(^GMRD(120.83,GMRAZ,0)):$P(^(0),"^"),1:"")
  • Line Location: PRT10+2
Function Call: WRITE
  • Prompt: !?5,"DATE MUST BE IN THE PAST, AND TIME IS NOT A REQUIRED RESPONSE."
  • Line Location: EN4+2
Function Call: WRITE
  • Prompt: !?3,HDISTXT
  • Line Location: PROCESS+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMRD(120.82 - [#120.82] Classic Fileman Calls
^GMRD(120.83 - [#120.83] Classic Fileman Calls
^GMRD(120.84 - [#120.84] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call