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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: GMRAFDA3

Package: Adverse Reaction Tracking

Routine: GMRAFDA3


Information

GMRAFDA3 ;HIRMFO/WAA-DISPLAY FDA REPORT OVER DT RANGE ;12/1/95 11:34

Source Information

Source file <GMRAFDA3.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$REPEAT^XLFSTR  KILL^XUSCLEAN  
Adverse Reaction Tracking 3 PRT^GMRAFDA1  (CLOSE,DEV)^GMRAUTL  ($$DATE,$$PRDTST)^GMRAUTL1  
VA FileMan 2 YN^DICN  ^DIR  
Registration 1 PID^VADPT6  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Adverse Reaction Tracking 1 GMRA PRINT-FDA REPORT BY DT  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Entry for PRINT ALL FDA EVENTS WITHIN D/T RANGE option
EN2 ;
YN
PRINTER ;Select printer
PRINT ;Central Print
HEAD ;Header Print
HDR ;
HDR1
EXIT ;EXIT

External References

Name Field # of Occurrence
^%ZTLOAD PRINTER+5
YN^DICN YN
^DIR EN1+3, EN1+7, HDR+1
PRT^GMRAFDA1 PRINT+7
CLOSE^GMRAUTL PRINTER+9
DEV^GMRAUTL PRINTER+2
$$DATE^GMRAUTL1 PRINT+16, PRINT+18
$$PRDTST^GMRAUTL1 PRINT+12
PID^VADPT6 PRINT+11
$$FMTE^XLFDT PRINT+2
$$NOW^XLFDT PRINT+2
$$REPEAT^XLFSTR HDR1+4
KILL^XUSCLEAN EXIT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Do you want an Abbreviated report"
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !,"ENTER ""Y"" FOR YES OR ""N"" FOR NO",$C(7)
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTER+2
Function Call: WRITE
  • Prompt: !,"PLEASE TRY LATER"
  • Line Location: PRINTER+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: $P(Y,":",1,2)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: $P(Y,":",1,2),")"
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,?30,"NO DATA FOR THIS REPORT"
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: GMRANOW,?70,"Page: ",GMRAPG
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !,?30,"FDA ABBREVIATED REPORT"
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,"PATIENT",?32,"SUSPECTED AGENT",?62,"D/T OF EVENT"
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),!
  • Line Location: HDR1+4
Routine Call
  • DIR
  • Line Location:
    • EN1+3
    • EN1+7
    • HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PRINT+14
^GMR(120.8 - [#120.8] PRINT+6, PRINT+10
^GMR(120.85 - [#120.85] PRINT+5, PRINT+6, PRINT+9, PRINT+17, PRINT+18
^TMP($J EXIT+1!

Label References

Name Line Occurrences
EXIT EN1+4, EN1+8, YN+1, PRINTER+2, PRINTER+3, PRINTER+10
HDR1 PRINT+4
HEAD PRINT+8
PRINT PRINTER+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % YN*, YN+2
DFN PRINT+11*, PRINT+12, PRINT+14!
DIR EN1+1!, EN1+3!, EN1+7!, HDR+1!
DIR("A" EN1+2*, EN1+6*
DIR("B" EN1+6*
DIR(0 EN1+2*, EN1+6*, HDR+1*
>> DIRUT EN1+4, EN1+8
>> GMRABGDT EN1+5*, EN1+6, EN2+1*, PRINT+5*
GMRACNT PRINT+1~*, PRINT+13*, PRINT+22
>> GMRAENDT EN1+9*, EN2+2*, PRINT+5
>> GMRAFLG PRINT+2*
>> GMRANOW PRINT+2*, HDR1+1
>> GMRAOUT EN1+1*, YN*, YN+1, PRINTER+1*, PRINT+5, PRINT+8, HDR+1*
GMRAPA(0 PRINT+10*, PRINT+11, PRINT+15, PRINT+20!
>> GMRAPA1 PRINT+5*, PRINT+6, PRINT+9, PRINT+17, PRINT+18
GMRAPA1(0 PRINT+9*, PRINT+10, PRINT+16, PRINT+20!
>> GMRAPG PRINTER+1*, HDR1*, HDR1+1
>> GMRAYN YN+2*, PRINTER+2, PRINT+4, PRINT+7
GMRAZIS PRINTER+2!*
IO PRINTER+8
>> IO("Q" PRINTER+3
>> IO(0 PRINTER+8
IOF PRINT+3, HDR+2
IOSL PRINT+8
IOST PRINT+3, HDR+1
>> POP PRINTER+2
U PRINT+6, PRINT+10, PRINT+11, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18
VA PRINT+14!
VA("PID" PRINT+14
Y EN1+5!, EN1+9!, PRINT+16*!, PRINT+18*!, HDR+1
>> ZTDESC PRINTER+5*
>> ZTRTN PRINTER+4*
>> ZTSAVE("GMRABGDT" PRINTER+4*
>> ZTSAVE("GMRAENDT" PRINTER+4*
>> ZTSAVE("GMRAOUT" PRINTER+4*
>> ZTSAVE("GMRAPG" PRINTER+4*
>> ZTSAVE("GMRAYN" PRINTER+4*
>> ZTSK PRINTER+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All