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

Package: Adverse Reaction Tracking

Routine: GMRAPST6


Information

GMRAPST6 ;HIRMFO/WAA- ADR OUTCOME REPORT ;20-Jul-2016 10:58;DU

Source Information

Source file <GMRAPST6.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)^GMRAUTL1  
VA Fileman 2 NOW^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Adverse Reaction Tracking 2 GMRA PRINT ADR OUTCOME  GMRAPST7  

Entry Points

Name Comments DBIA/ICR reference
HEAD ; Print header information
PRINTER ;Select printer
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
SIGN(CNT,GMRAREC) ; Print Sign/Symptoms
PRINT ;Queue point for report
HRCN(DFN,SITE) ;EP; IHS/MSC/MGH return chart number

External References

Name Field # of Occurrence
NOW^%DTC PRINT+4
^%ZTLOAD PRINTER+4
^DIR HEAD+5
DT^GMRAPL EN1+4
CLOSE^GMRAUTL PRINT+51
DEV^GMRAUTL PRINTER+1
$$PRDTST^GMRAUTL1 PRINT+20
$$STPCK^GMRAUTL1 HEAD+19
$$FMTE^XLFDT PRINT+36, HEAD+11, HEAD+13
$$REPEAT^XLFSTR HEAD+14, HEAD+17
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: !
  • 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: !,"NO DATA FOR THIS REPORT..."
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !,?8,"|",?38,"|",?58,"|",?63,"|",?68,"|",?73,"|"
  • Line Location: PRINT+47
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,"|",?73,"|"
  • Line Location: SIGN+5
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,"P&T Committee ADR Outcome 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: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !,"Obsv.",?8,"|",?38,"|",?58,"|Req.",?63,"|Req.",?68,"|",?73,"|"
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: !,"Date",?8,"|Causative agent-Pat. ID",?38,"|Sign/Symptoms",?58,"|Tx",?63,"|Hosp",?68,"|Dis.",?73,"|Death"
  • Line Location: HEAD+16
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: HEAD+17
Routine Call
  • DIR
  • Line Location:
    • HEAD+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] HRCN+1
^GMR(120.8 - [#120.8] PRINT+11, PRINT+12
^GMR(120.85 - [#120.85] PRINT+6, PRINT+7, PRINT+8, PRINT+33, PRINT+40, PRINT+45, SIGN+2
^GMRD(120.83 - [#120.83] PRINT+26, SIGN+3
^TMP($J EXIT+2!, PRINT+2!, PRINT+21*, PRINT+25, PRINT+28, PRINT+30, PRINT+32

Label References

Name Line Occurrences
$$HRCN PRINT+16
EXIT EN1+4
HEAD PRINT+25, PRINT+35, PRINT+47, SIGN+5
PRINT PRINTER+7
PRINTER EN1+5
SIGN PRINT+40, PRINT+45

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT SIGN~, SIGN+4
DFN PRINT+15*, PRINT+16, PRINT+20, HRCN~, HRCN+1
DIR HEAD+5~
DIR(0 HEAD+5*
DUZ(2 PRINT+16
>> GMAEN PRINT+6, HEAD+13
>> GMAST PRINT+5, HEAD+13
>> GMRACA PRINT+13*, PRINT+18*, PRINT+21, PRINT+29*, PRINT+30*, PRINT+32, PRINT+37
>> GMRADATE PRINT+5*, PRINT+6*, PRINT+7
>> GMRADDT PRINT+9*, PRINT+21, PRINT+27*, PRINT+28*, PRINT+30, PRINT+32, PRINT+36
>> GMRADPDT PRINT+4*, HEAD+11
>> GMRAOTH PRINT+26*, SIGN+3
>> GMRAOUT EN1+2*, EN1+4, PRINTER+1*, PRINT+24, PRINT+28, PRINT+30, PRINT+32, PRINT+35, PRINT+45, PRINT+46
, PRINT+47, SIGN+5, HEAD+2, HEAD+4, HEAD+5*, HEAD+9, HEAD+19*
>> GMRAPA PRINT+10*, PRINT+11, PRINT+12
>> GMRAPA(0 PRINT+11*, PRINT+13, PRINT+15, PRINT+34
>> GMRAPA1 PRINT+7*, PRINT+8, PRINT+21, PRINT+31*, PRINT+32*, PRINT+33, PRINT+40, PRINT+45, SIGN+2
>> GMRAPA1(0 PRINT+8*, PRINT+9, PRINT+10, PRINT+33*, PRINT+41, PRINT+42, PRINT+43, PRINT+44
>> GMRAPG PRINT+5*, HEAD+1, HEAD+3, HEAD+4, HEAD+10, HEAD+11, HEAD+18*
GMRAREC PRINT+39*, PRINT+40*, PRINT+45*, SIGN~, SIGN+2
GMRAZIS PRINTER+1!
HRCN PRINT+3~, PRINT+16*, PRINT+18
IO PRINTER+7
IO("Q" PRINTER+2
IO(0 PRINTER+7
IOF HEAD+3, HEAD+10
IOSL HEAD+1
IOST HEAD+2
NAM SIGN+1~, SIGN+3*, SIGN+4, SIGN+5
>> POP PRINTER+1
SITE HRCN~, HRCN+1
U PRINT+9, PRINT+10, PRINT+13, PRINT+15, PRINT+41, PRINT+42, PRINT+43, PRINT+44, SIGN+3, HRCN+1
>> X PRINT+4
Y SIGN+1~, SIGN+2*, SIGN+3, HEAD+5, HEAD+6!
>> ZTDESC PRINTER+4*
>> ZTQUEUED HEAD+19
>> 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