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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMRA5UTL

Package: Adverse Reaction Tracking

Routine: GMRA5UTL


Information

GMRA5UTL ;HIRMFO/FT-Fix ART database due to GMRA*4*2 bug ;9/13/96 13:11

Source Information

Source file <GMRA5UTL.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 5 LIST^DIC  ^DIE  CLEAN^DILF  EN^DIQ  ^DIR  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; This routine will:
; 1) Find & display reactions that have not been signed-off between
; the installation of GMRA*4*2 and GMRA*4*5, and
; 2) Prompt the user to autoverify those reactions which will change
; the ORIGINATOR SIGN OFF (#15), VERIFIED (#19) and VERIFICATION
; DATE/TIME (#20) fields in File #120.8 to mimic autoverification.
KILL ; Kill variables

External References

Name Field # of Occurrence
LIST^DIC EN1+9, EN1+20
^DIE EN1+76
CLEAN^DILF EN1+8, EN1+19, KILL+2
EN^DIQ EN1+64
^DIR EN1+44, EN1+52, EN1+74
$$FMTE^XLFDT EN1+29
$$NOW^XLFDT EN1+27, EN1+55

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"GMRA*4.0*2 has not been installed on your system. Done."
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: !,"It does not appear that GMRA*4.0*2 was installed.",!,"Please contact your IRM Field Office Customer Support Representative."
  • Line Location: EN1+17
Function Call: WRITE
  • Prompt: !!,"GMRA*4.0*2 was installed on ",$$FMTE^XLFDT(GMRAIDT,1)
  • Line Location: EN1+29
Function Call: WRITE
  • Prompt: !!,"Your current AUTOVERIFY site parameters are:",!!
  • Line Location: EN1+31
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN1+54
Function Call: WRITE
  • Prompt: !!,"No unsigned reactions were found for the time period between the",!,"installation of GMRA*4.0*2 and GMRA*4.0*5.",!!
  • Line Location: EN1+79
Routine Call
  • DIC
  • Line Location:
    • EN1+9
    • EN1+20
Routine Call
  • DIE
  • Line Location:
    • EN1+76
Routine Call
  • DIR
  • Line Location:
    • EN1+44
    • EN1+52
    • EN1+74

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.8 - [#120.8] Classic Fileman Calls
^XPD(9.7 - [#9.7] LIST^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.8 - [#120.8] EN1+57, EN1+58
^GMRD(120.84 - [#120.84] EN1+33, EN1+34
^TMP("DILIST" EN1+8!, EN1+10, EN1+12, EN1+13, EN1+19!, EN1+22, EN1+23, KILL+2!

Label References

Name Line Occurrences
KILL EN1+10, EN1+17, EN1+44, EN1+47

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% KILL+1!
DA EN1+64*, EN1+76*, KILL+1!
DIC EN1+64*, KILL+1!
DIE EN1+76*, KILL+1!
DIR EN1+43!, EN1+44!, EN1+49!, EN1+52!, EN1+66!, EN1+74!, KILL+1!
DIR("?" EN1+50*, EN1+67*, EN1+68*, EN1+69*, EN1+70*, EN1+71*, EN1+72*, EN1+73*
DIR("A" EN1+49*, EN1+51*, EN1+66*
DIR("B" EN1+49*
DIR(0 EN1+44*, EN1+49*, EN1+66*
DIROUT KILL+1!
DIRUT EN1+44, EN1+47, EN1+74, KILL+1!
DR EN1+64!, EN1+76*, KILL+1!
DTOUT KILL+1!
DUOUT KILL+1!
GMRACNT EN1+55*, EN1+63*, EN1+79, KILL+1!
GMRADT EN1+8!, EN1+13*, EN1+14, EN1+19!, EN1+23*, EN1+24, KILL+1!
GMRADT( EN1+14*, EN1+24*
GMRADT("" EN1+16, EN1+26
GMRAENDT EN1+21*, EN1+22*, EN1+23, EN1+26*, EN1+27*, EN1+62, KILL+1!
GMRAIDT EN1+11*, EN1+12*, EN1+13, EN1+16*, EN1+17, EN1+29, EN1+61, KILL+1!
GMRAIEN EN1+55*, EN1+57*, EN1+58, EN1+64, EN1+76, KILL+1!
GMRANODE EN1+58*, EN1+59, EN1+60, KILL+1!
GMRANOW EN1+55*, EN1+76, KILL+1!
GMRAODT EN1+60*, EN1+61, EN1+62, KILL+1!
GMRAOUT EN1+55!, EN1+57, EN1+74*, KILL+1!
GMRASITE EN1+32*, EN1+33*, EN1+34, EN1+43!
GMRASITE(0 EN1+34*, EN1+35, EN1+36, EN1+39, EN1+41
GMRAUTO EN1+32*, EN1+36*, EN1+41*, EN1+47, KILL+1!
IOF EN1+54
U EN1+35, EN1+36, EN1+39, EN1+41, EN1+59, EN1+60
>> X EN1+36*, EN1+38, EN1+39*, EN1+40, EN1+41*, EN1+42
>> Y EN1+47, EN1+76
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All