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

Package: Adverse Reaction Tracking

Routine: GMRAPT


Information

GMRAPT ;HIRMFO/WAA-P&T COMMITTEE COMPLETION SYSTEM ;12/1/95 14:45

Source Information

Source file <GMRAPT.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Adverse Reaction Tracking 6 ^GMRADSP7  EN1^GMRAPET0  PN^GMRAPT  EN1^GMRAU85  UNLOCK^GMRAUTL  $$DATE^GMRAUTL1  
VA Fileman 5 NOW^%DTC  FILE^DICN  ^DIE  ^DIK  ^DIWP  
Kernel 2 EN^XQOR  KILL^XUSCLEAN  
Registration 1 INP^VADPT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Adverse Reaction Tracking 2 GMRA P&T EDIT  GMRAPT  

Entry Points

Name Comments DBIA/ICR reference
DISP ;DISPLAY AND EDIT COMMENTS
HEAD ;
EXIT1 ;EXIT IF NOT LOCKED
EDIT ;EDIT PT COMMENTS
REP1
EN1 ; Entry for ENTER/EDIT P&T COMMITTEE DATA option
EXIT ; EXIT OF ROUTINE
PRINT ;PRINT OUT THE DATA
MAIN ;MAIN STARTING POINT
PN ;ENTER PROGRESS NOTE FOR A MedWATCH REPORT

External References

Name Field # of Occurrence
NOW^%DTC EDIT+4
FILE^DICN EDIT+4
^DIE REP1+6, REP1+20, EDIT+5
^DIK EDIT+6
^DIWP PRINT+5
^GMRADSP7 MAIN+2
EN1^GMRAPET0 PN+1
PN^GMRAPT REP1+9
EN1^GMRAU85 MAIN+1
UNLOCK^GMRAUTL REP1+25, EXIT+1
$$DATE^GMRAUTL1 PRINT+1
INP^VADPT PN+6
EN^XQOR PN+6
KILL^XUSCLEAN EXIT1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"YOU CAN ONLY EDIT OBSERVED DRUG REACTIONS",!
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: !,"YOU CAN ONLY EDIT OBSERVED DRUG REACTIONS",!
  • Line Location: MAIN+6
Function Call: WRITE
  • Prompt: @IOF,!,"P&T Report Completion"
  • Line Location: REP1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REP1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: REP1+24
Function Call: WRITE
  • Prompt: !,"P&T COMMITTEE ADDENDUM COMMENTS:"
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !!,"Date: ",$$DATE^GMRAUTL1(GMRAY)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,?5,^UTILITY($J,"W",DIWL,GMRAXX,0)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,"Press RETURN to continue or ""^"" to stop display or ""^^"" to QUIT: "
  • Line Location: HEAD+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,"ENTER 'RETURN' TO CONTINUE '^' TO STOP LISTING OR '^^' TO QUIT",$C(7)
  • Line Location: HEAD+3
Routine Call
  • DIE
  • Line Location:
    • REP1+6
    • REP1+20
    • EDIT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.85 - [#120.85] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.8 - [#120.8] PN+3
^GMR(120.85 - [#120.85] REP1+9, DISP+2, DISP+4, DISP+5, PN+4, PRINT+2, PRINT+5, EDIT+3, EDIT+6
^ORD(101 - [#101] PN+6
^TMP("GMRA" EXIT1+1!
^TMP($J EXIT1+1!
^UTILITY($J PRINT+4!, PRINT+6

Label References

Name Line Occurrences
DISP REP1+24
EDIT REP1+24
EN1 REP1+26
EXIT EN1+2, EDIT+4
EXIT1 MAIN+1
HEAD PRINT+6, HEAD+4
MAIN EN1+1
PRINT DISP+6

Naked Globals

Name Field # of Occurrence
^( PRINT+5
^(0 EDIT+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EDIT+4
DA REP1+2~, REP1+4*, REP1+15~, REP1+17*, EDIT+5*, EDIT+6
DA(1 EDIT+4*, EDIT+6
DD EDIT+4!
DFN PN+5~*
DIC EDIT+4*, EDIT+5!
DIC(0 EDIT+4*
DIE REP1+2~, REP1+3*, REP1+15~, REP1+16*, EDIT+5*, EDIT+6
DIE("NO^" REP1+4*, REP1+17*
>> DIK EDIT+6*
DINUM EDIT+4!
>> DIWF PRINT+3*
>> DIWL PRINT+3*, PRINT+4, PRINT+6
>> DIWR PRINT+3*
DLAYGO EDIT+4*!
DO EDIT+4!
DR REP1+2~, REP1+5*, REP1+15~, REP1+19*, EDIT+5*
DTIME HEAD+2
>> GMRALAGO MAIN+1*
>> GMRAOUT MAIN+1*, REP1+8*, REP1+9, REP1+10*, REP1+13, REP1+22*, REP1+23, REP1+24, DISP+1*, DISP+4
, PN+1, PRINT+6, HEAD+2*, EDIT+1, EDIT+2*, EDIT+5*
>> GMRAPA MAIN+2*, PN+1, PN+3
>> GMRAPA(0 MAIN+4, PN+1, PN+3*, PN+5
>> GMRAPA1 MAIN+1, REP1+4, REP1+9, REP1+17, REP1+25, DISP+2, DISP+4, DISP+5, PN+4, PRINT+2
, PRINT+5, EDIT+3, EDIT+4, EXIT+1
>> GMRAPA1(0 PN+4*
>> GMRAX DISP+4*, DISP+5, PRINT+2, PRINT+5
>> GMRAXX PRINT+5*, PRINT+6*
>> GMRAY DISP+5*, PRINT+1
IOF REP1, REP1+9, HEAD+2
IOSL PRINT+6
OROLD PN+5~
U MAIN+4, REP1+9, DISP+5, PN+1, PN+5
VAIN PN+6!
X REP1+12!, PN+6*!, PRINT+5*, HEAD+2*!, EDIT+4*
Y REP1+8, REP1+12!, REP1+22, EDIT+4, EDIT+5
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