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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMRAPST7

Package: Adverse Reaction Tracking

Routine: GMRAPST7


Information

GMRAPST7 ;HIRMFO/WAA- ADVERSE DRUG REACTION REPORT ;3/5/97 15:17

Source Information

Source file <GMRAPST7.m>

Call Graph

Call Graph

Call Graph Total: 10

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

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 ADR REPORT  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC PRINT+3
^%ZTLOAD PRINTER+5
^DIR HEAD+5
DT^GMRAPL EN1+4
CLOSE^GMRAUTL PRINT+56
DEV^GMRAUTL PRINTER+2
$$PRDTST^GMRAUTL1 PRINT+14
$$STPCK^GMRAUTL1 HEAD+20
WORD^GMRAWORD PRINT+42
$$FMTE^XLFDT PRINT+34, HEAD+12, HEAD+14
$$REPEAT^XLFSTR HEAD+15, HEAD+18
KILL^XUSCLEAN EXIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Select an Observed date range for this report."
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !!,"This report required a 132 column printer."
  • Line Location: PRINTER+1
Function Call: WRITE
  • Prompt: !,"PLEASE TRY LATER"
  • Line Location: PRINTER+2
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try Later.")
  • Line Location: PRINTER+6
Function Call: WRITE
  • Prompt: !,"NO DATA FOR THIS REPORT..."
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: $P(GMRAPA(0),U,14)
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: $S($P(GMRAPA1(0),U,14)=1:"MILD",$P(GMRAPA1(0),U,14)=2:"MOD.",$P(GMRAPA1(0),U,14)=3:"SVR.",1:"")
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: $G(^TMP($J,"GMRAWORD",GMRACNT))
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: !,?8,"|",?38,"|",?58,"|",?63,"|",?68,"|"
  • Line Location: PRINT+46
Function Call: WRITE
  • Prompt: !,?8,"|",?38,"|",?58,"|",?63,"|",?68,"|"
  • Line Location: PRINT+52
Function Call: WRITE
  • Prompt: $E(NAM,1,19)
  • Line Location: SIGN+4
Function Call: WRITE
  • Prompt: !,?8,"|",?38,"|",$E(NAM,1,19),?58,"|",?63,"|",?68,"|"
  • Line Location: SIGN+6
Function Call: WRITE
  • Prompt: $G(^TMP($J,"GMRAWORD",GMRACNT))
  • Line Location: SIGN+7
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),"@"),?125,"Page: ",GMRAPG
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,?48,"P&T Committee ADR Report"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !,?51,"From: ",$$FMTE^XLFDT(GMAST,"2D")," To: ",$$FMTE^XLFDT(GMAEN,"2D")
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",130)
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: !,"Obsv.",?8,"|",?38,"|",?58,"|ADR",?63,"|ADR",?68,"|"
  • Line Location: HEAD+16
Function Call: WRITE
  • Prompt: !,"Date",?8,"|Causative agent-Pat. ID",?38,"|Sign/Symptoms",?58,"|Mech",?63,"|Svr.",?68,"|Comments"
  • Line Location: HEAD+17
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",130)
  • Line Location: HEAD+18
Routine Call
  • DIR
  • Line Location:
    • HEAD+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PRINT+13
^GMR(120.8 - [#120.8] PRINT+10, PRINT+11, PRINT+31
^GMR(120.85 - [#120.85] PRINT+5, PRINT+6, PRINT+7, PRINT+29, PRINT+38, PRINT+44, SIGN+2
^GMRD(120.83 - [#120.83] PRINT+20, SIGN+3
^TMP($J EXIT+2!, PRINT+2!, PRINT+15*, PRINT+19, PRINT+22, PRINT+24, PRINT+26, PRINT+27, PRINT+42!, PRINT+43
, PRINT+45, PRINT+48, PRINT+50!, SIGN+7

Label References

Name Line Occurrences
EXIT EN1+4
HEAD PRINT+19, PRINT+33, PRINT+46, PRINT+52, SIGN+6
PRINT PRINTER+8
PRINTER EN1+5
SIGN PRINT+38, PRINT+44

Naked Globals

Name Field # of Occurrence
^(0 PRINT+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT SIGN~, SIGN+4
>> DFN PRINT+13*, PRINT+14
DIR HEAD+5~
DIR(0 HEAD+5*
>> GMAEN PRINT+5, HEAD+14
>> GMAST PRINT+4, HEAD+14
>> GMRACA PRINT+12*, PRINT+13*, PRINT+15, PRINT+23*, PRINT+24*, PRINT+26, PRINT+27, PRINT+35
>> GMRACNT PRINT+43*, PRINT+45*, PRINT+48, SIGN+7*
>> GMRADATE PRINT+4*, PRINT+5*, PRINT+6
>> GMRADDT PRINT+8*, PRINT+15, PRINT+21*, PRINT+22*, PRINT+24, PRINT+26, PRINT+27, PRINT+34
>> GMRADPDT PRINT+3*, HEAD+12
>> GMRAOTH PRINT+20*, SIGN+3
>> GMRAOUT EN1+2*, EN1+4, PRINTER+2*, PRINT+18, PRINT+22, PRINT+24, PRINT+26, PRINT+33, PRINT+44, PRINT+45
, PRINT+46, PRINT+47, PRINT+51, PRINT+52, SIGN+6, HEAD+2, HEAD+4, HEAD+5*, HEAD+9, HEAD+20*
>> GMRAPA PRINT+9*, PRINT+10, PRINT+11, PRINT+15, PRINT+27*, PRINT+28, PRINT+31, PRINT+42
>> GMRAPA(0 PRINT+10*, PRINT+12, PRINT+13, PRINT+31*, PRINT+32, PRINT+39
>> GMRAPA1 PRINT+6*, PRINT+7, PRINT+15, PRINT+25*, PRINT+26*, PRINT+27, PRINT+29, PRINT+38, PRINT+44, SIGN+2
>> GMRAPA1(0 PRINT+7*, PRINT+8, PRINT+9, PRINT+29*, PRINT+30, PRINT+40
>> GMRAPG PRINT+4*, HEAD+1, HEAD+3, HEAD+4, HEAD+10, HEAD+12, HEAD+19*
GMRAREC PRINT+37*, PRINT+38*, PRINT+44*, SIGN~, SIGN+2
GMRAZIS PRINTER+2!*
IO PRINTER+8
IO("Q" PRINTER+3
IO(0 PRINTER+8
IOF HEAD+3, HEAD+10
IOSL HEAD+1
IOST HEAD+2
NAM SIGN+1~, SIGN+3*, SIGN+4, SIGN+6
>> POP PRINTER+2
U PRINT+8, PRINT+9, PRINT+12, PRINT+13, PRINT+39, PRINT+40, SIGN+3
>> X PRINT+3
Y SIGN+1~, SIGN+2*, SIGN+3, HEAD+5, HEAD+6!
Z HEAD+11~
>> ZTDESC PRINTER+5*
>> ZTQUEUED HEAD+20
>> ZTRTN PRINTER+4*
>> ZTSAVE("GMAEN" PRINTER+4*
>> ZTSAVE("GMAST" PRINTER+4*
>> ZTSAVE("GMRAOUT" PRINTER+4*
>> ZTSK PRINTER+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All