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

Package: Adverse Reaction Tracking

Routine: GMRAPFT


Information

GMRAPFT ;HIRMFO/WAA- PRINT FDA REACTION BY DATE ENTERED/TRACKED ;4/10/97 09:30

Source Information

Source file <GMRAPFT.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZTLOAD  $$FMTE^XLFDT  $$REPEAT^XLFSTR  KILL^XUSCLEAN  
Adverse Reaction Tracking 3 DT^GMRAPL  (CLOSE,DEV)^GMRAUTL  ($$PRDTST,$$STPCK,VAD)^GMRAUTL1  
VA Fileman 2 (,NOW)^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Adverse Reaction Tracking 1 GMRA PRINT ART TRACKING REPORT  

Entry Points

Name Comments DBIA/ICR reference
PRINT ;Queue point for report
EN1 ; This routine will loop through the ADT entry point to get all
; the entries in that date range.
HEAD ; Print header information
PRINTER ;Select printer
EXIT ; Exit of program kill cleanup

External References

Name Field # of Occurrence
^%DTC PRINT+33
NOW^%DTC PRINT+1
^%ZTLOAD PRINTER+4
^DIR HEAD+5
DT^GMRAPL EN1+4
CLOSE^GMRAUTL PRINT+41
DEV^GMRAUTL PRINTER+1
$$PRDTST^GMRAUTL1 PRINT+11
$$STPCK^GMRAUTL1 HEAD+17
VAD^GMRAUTL1 PRINT+12
$$FMTE^XLFDT PRINT+21, PRINT+24, HEAD+11, HEAD+13
$$REPEAT^XLFSTR HEAD+15
KILL^XUSCLEAN EXIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Select a Tracking date range for this report."
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTER+1
Function Call: WRITE
  • Prompt: !,"PLEASE TRY LATER"
  • Line Location: PRINTER+1
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try Later.")
  • Line Location: PRINTER+5
Function Call: WRITE
  • Prompt: !,?50,$E($G(GMRARAC(GMRACNT)),1,30)
  • Line Location: PRINT+37
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: "Report Date: ",$P($$FMTE^XLFDT(GMRADPDT),"@"),?70,"Page: ",GMRAPG
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,?22,"Adverse Reaction Tracking Report"
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,?25,"From: ",$$FMTE^XLFDT(GMAST,"2D")," To: ",$$FMTE^XLFDT(GMAEN,"2D")
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !,"Patient",?40,"Dates",?49,"Related Reaction"
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",78)
  • Line Location: HEAD+15
Routine Call
  • DIR
  • Line Location:
    • HEAD+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] PRINT+14
^GMR(120.8 - [#120.8] PRINT+7
^GMR(120.85 - [#120.85] PRINT+3, PRINT+5, PRINT+6, PRINT+17, PRINT+18
^VA(200 - [#200] PRINT+29

Label References

Name Line Occurrences
EXIT EN1+4, PRINTER+8
HEAD PRINT+8
PRINT PRINTER+7
PRINTER EN1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR HEAD+5~
DIR(0 HEAD+5*
>> GMAEN PRINT+3, HEAD+13
>> GMAST PRINT+2, HEAD+13
>> GMRACNT PRINT+17*, PRINT+18, PRINT+19*, PRINT+37*
>> GMRADATE PRINT+2*, PRINT+3*, PRINT+5
>> GMRADDT PRINT+10*, PRINT+12
>> GMRADFN PRINT+10*, PRINT+11, PRINT+12
>> GMRADPDT PRINT+1*, HEAD+11
>> GMRALOC PRINT+9*, PRINT+12, PRINT+13*, PRINT+14*, PRINT+26
>> GMRANAME PRINT+9*, PRINT+12, PRINT+15
>> GMRAOUT EN1+2*, EN1+4, PRINTER+1*, PRINT+3, PRINT+5, PRINT+8, HEAD+2, HEAD+4, HEAD+5*, HEAD+9
, HEAD+17*
>> GMRAPA1 PRINT+4*, PRINT+5*, PRINT+6, PRINT+17, PRINT+18
>> GMRAPA1(0 PRINT+6*, PRINT+7, PRINT+10, PRINT+21, PRINT+24, PRINT+29, PRINT+32
>> GMRAPG PRINT+2*, HEAD+1, HEAD+3, HEAD+4, HEAD+10, HEAD+11, HEAD+16*
>> GMRAPID PRINT+9*, PRINT+12, PRINT+23
GMRARAC PRINT+16!, PRINT+17*, PRINT+18
GMRARAC( PRINT+18*, PRINT+37
GMRARAC(1 PRINT+22
GMRARAC(2 PRINT+25
GMRARAC(3 PRINT+28
GMRARAC(4 PRINT+36
GMRAZIS PRINTER+1!
IO PRINTER+7
IO("Q" PRINTER+2
IO(0 PRINTER+7
IOF HEAD+3, HEAD+10
IOSL HEAD+1
IOST HEAD+2
>> POP PRINTER+1
U PRINT+7, PRINT+10, PRINT+14, PRINT+18, PRINT+21, PRINT+24, PRINT+29, PRINT+32
X PRINT+1, PRINT+31~, PRINT+34
X1 PRINT+31~, PRINT+32*
X2 PRINT+31~, PRINT+32*
Y PRINT+31~, HEAD+5, HEAD+6!
>> ZTDESC PRINTER+4*
>> ZTQUEUED HEAD+17
>> ZTRTN PRINTER+3*
>> ZTSAVE("GMAEN" PRINTER+3*
>> ZTSAVE("GMAST" PRINTER+3*
>> ZTSAVE("GMRAOUT" PRINTER+3*
>> ZTSK PRINTER+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All