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

Package: Adverse Reaction Tracking

Routine: GMRAFUT0


Information

GMRAFUT0 ;HIRMFO/YMP,RFM,WAA-ALLERGY/ADVERSE REACTION FILE UTILITIES ;05-Jun-2012 10:30;DU

Source Information

Source file <GMRAFUT0.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 ^%DT  ^DIC  YN^DICN  ^DIE  
Kernel 1 KILL^XUSCLEAN  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Adverse Reaction Tracking 5 GMRA ALLERGY FILE EDIT  GMRA REACTION FILE EDIT  GMRA SITE FILE  ^GMR(120.85  GMRAFX  

Entry Points

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

External References

Name Field # of Occurrence
^%DT EN4+2, EN4+4
^DIC EN1+3, EN2+2, EN3+1
YN^DICN EDCON+5
^DIE EN1+14, EN2+4, EN3+4, EN3+6, RRD+4, EDCON, EDCON+7
KILL^XUSCLEAN EXIT+1

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
  • Timeout: DTIME
  • Variable: GMRANS
  • 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: !!!!,"In support of national standardization of the contents of this file,"
  • Line Location: PROCESS+2
Function Call: WRITE
  • Prompt: !,"local site addition and modification functions are no longer available."
  • Line Location: PROCESS+3
Function Call: WRITE
  • Prompt: !,"If you wish to request a new term or modify an existing term, please request"
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: !,"through the IHS RPMS Feedback web site located at http://www.ihs.gov/RPMS."
  • Line Location: PROCESS+5
Function Call: WRITE
  • Prompt: !,"Once at the IHS RPMS Feedback page, select the RPMS Application 'Pharmacy-"
  • Line Location: PROCESS+6
Function Call: WRITE
  • Prompt: !,"new Reactant/Symptom Request(PRSR)' to ensure these are reviewed in a timely"
  • Line Location: PROCESS+7
Function Call: WRITE
  • Prompt: !,"manner. If you have any questions regarding this new term request process,"
  • Line Location: PROCESS+8
Function Call: WRITE
  • Prompt: !,"please contact your local Adverse Reaction Tracking package coordinator.",!
  • Line Location: PROCESS+9
Routine Call
  • DIE
  • Line Location:
    • EN1+14
    • EN2+4
    • EN3+4
    • EN3+6
    • RRD+4
    • EDCON
    • EDCON+7
Routine Call
  • DIC
  • Line Location:
    • EN1+3
    • EN2+2
    • EN3+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] EDCON+3
^GMR(120.85 - [#120.85] EN4+3
^GMRD(120.82 - [#120.82] EN1+4, EN1+6, EN1+15
^GMRD(120.83 - [#120.83] EN2+3, EN2+5, PRT10+2
^GMRD(120.84 - [#120.84] EN3+2, EN3+4, EN3+5, EN3+6, RRD+1, RRD+3, RRD+5, RRD+6*, RRD+7, EDCON+1
, EDCON+2, EDCON+6, EDCON+8, PRT10+1

Label References

Name Line Occurrences
EDCON RRD+1
EN1 EN1+16
EN2 EN2+6
EN3 EN3+5
EXIT EN1+3, EN1+4, EN1+17, EN2+2, EN2+3, EN2+7, EN3+1, EN3+2, EN3+4, EN3+6
, RRD+1, RRD+7, EDCON+1, EDCON+6
K4 EN4+2
PROCESS EN1+1, EN2+1
PRT10 RE10+2
Q4 EN4+4
RE10 RRD+7
RRD RRD+2

Naked Globals

Name Field # of Occurrence
^(0 RRD+3*, RRD+5!, PRT10+1, PRT10+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EDCON+5*, EDCON+6
%DT EN4+2*, EN4+4*, Q4!
%DT(0 EN4+2*, EN4+3*, EN4+4
DA EN1+2!, EN1+3*, EN1+14!, EN2+2*, EN2+4!, EN3+4*, EN3+6*, RRD+4*, EDCON*, EDCON+7*
, EN4+3
DA(1 RRD+4*
DIC EN1+2!, EN1+3*!, EN2+2*!, EN3+1*!
DIC("A" EN1+3*, EN2+2*
DIC("DR" EN1+3*, EN2+2*
DIC(0 EN1+3*, EN2+2*, EN3+1*
DIE EN1+5~, EN1+7*, EN1+14!, EN2+4*!, EN3+4*, EN3+6*, RRD+4*, EDCON*, EDCON+7*
DLAYGO EN1+2!, EN1+3*!, EN1+14!, EN2+2*!, EN3+1*!
DR EN1+2!, EN1+7*, EN1+14!, EN2+4*!, EN3+4*, EN3+6*, RRD+4*, EDCON*, EDCON+7*
DR(1 EN1+8*, EN1+10*, EN1+11*, EN1+12*
DTIME RRD+1
GMRA EN4+3, Q4!
GMRA("HELP" EN4+3*, EN4+4
GMRA(0 EN4+3*
>> GMRABRK RE10*
GMRACT EN1+5~, EN1+7*
>> GMRACTR RE10*
GMRAIEN EN1+2!, EN1+3*, EN1+4, EN1+6, EN1+15
>> GMRALLER RE10*
GMRALN EN1+5~, EN1+6*, EN1+8
>> GMRAMID RE10*
>> GMRANS RRD+1*, RRD+2, RRD+3, RRD+4, RRD+5
>> GMRARECN RE10*
>> GMRASITE EN3+1*, EN3+2, EN3+4, EN3+5, EN3+6, RRD+1, RRD+3, RRD+4, RRD+5, RRD+6
, RRD+7, EDCON, EDCON+1, EDCON+2, EDCON+6, EDCON+7, EDCON+8, PRT10+1
GMRAX EN1+14!, RE10+2*, RRD+3*, RRD+5, RRD+6, PRT10+1, PRT10+2
GMRAY EN1+14!, EN2+2*, EN2+3, EN2+5, RRD+3*, RRD+5*, RRD+6, PRT10+1*, PRT10+2
>> GMRAZ PRT10+1*, PRT10+2
U EN1+8, EDCON+3, EDCON+4, EN4+3
X EN1+2!, EDCON+2*, EDCON+3, EDCON+4, EN4+2*, EN4+4*, K4!
Y EN1+2!, EN1+3, EN1+16, EN2+2, EN2+6, EN3+1, EN3+3, EN3+4, EN3+6, RRD+7
, EDCON+1, EN4+2, EN4+4
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