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

Package: Adverse Reaction Tracking

Routine: GMRAPU


Information

GMRAPU ;HIRMFO/WAA- PRINT ALLERGY LIST BY LOCATION UNVERIFIED ;8/27/93

Source Information

Source file <GMRAPU.m>

Call Graph

Call Graph Total: 7

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Adverse Reaction Tracking 2 GMRA PRINT A/AR NV  GMRA TASK A/AR NV  

Entry Points

Name Comments DBIA/ICR reference
HEAD ; Print header information
PRINTER ;Select printer
REPORT ; Print out the report
EN1 ; This routine will loop through the GMRA patient allergy file (120.8)
; to find all patients with unverified reactions
EXIT ; Exit of program kill cleanup
PRINT ;Queue point for report
FIND ; This subroutines will build the data for the report.

External References

Name Field # of Occurrence
^%ZTLOAD PRINTER+4
^DIR HEAD+4
CLOSE^GMRAUTL REPORT+21
DEV^GMRAUTL PRINTER+1
$$PRDTST^GMRAUTL1 FIND+6
$$STPCK^GMRAUTL1 HEAD+16
VAD^GMRAUTL1 REPORT+8, FIND+7
$$FMTE^XLFDT REPORT+13, HEAD+10
$$NOW^XLFDT REPORT+2
$$REPEAT^XLFSTR HEAD+14
KILL^XUSCLEAN EXIT+1

Interaction Calls

Name Line Occurrences
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: !,?20,"NO DATA FOR THIS REPORT"
  • Line Location: REPORT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: "Report Date: ",$P($$FMTE^XLFDT(GMRADATE),"@"),?70,"Page: ",GMRAPG
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !,?19,"List of Unverified Reactions by Ward Location"
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,?30,"Ward Location: ",GMALOC
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,?3,"Origination Date/Time",?30,"Originator",?55,"Reaction"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",78)
  • Line Location: HEAD+14
Routine Call
  • DIR
  • Line Location:
    • HEAD+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] FIND+8
^GMR(120.8 - [#120.8] REPORT+11, FIND+3, FIND+11, FIND+13
^TMP($J EXIT+2!, PRINT+1!, REPORT+3, REPORT+4, REPORT+5, REPORT+6, REPORT+10, FIND+15*
^VA(200 - [#200] REPORT+14

Label References

Name Line Occurrences
FIND PRINT+1
HEAD REPORT+3, REPORT+4, REPORT+16
PRINT PRINTER+7
PRINTER EN1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR HEAD+4~
DIR(0 HEAD+4*
GMADFN REPORT+6*, REPORT+8, REPORT+10, FIND+1~, FIND+2*, FIND+3*, FIND+6, FIND+7, FIND+11, FIND+15
GMADT REPORT+10*, REPORT+13, FIND+12~, FIND+14*, FIND+15
GMALOC REPORT+2*, REPORT+4*, REPORT+5, REPORT+6, REPORT+10, HEAD+12, FIND+4~, FIND+7*, FIND+8*, FIND+9
, FIND+15
>> GMRADATE REPORT+2*, HEAD+10
GMRALOC FIND+4~, FIND+5*, FIND+7, FIND+8
GMRANAM REPORT+5*, REPORT+6, REPORT+9, REPORT+10, FIND+4~, FIND+5*, FIND+7, FIND+15
>> GMRAOUT EN1+3*, PRINTER+1*, REPORT+1*, REPORT+4, REPORT+5, REPORT+6, REPORT+10, HEAD+1, HEAD+3, HEAD+4*
, HEAD+8, HEAD+16*
GMRAPA REPORT+10*, REPORT+11, FIND+4~, FIND+10*, FIND+11*, FIND+13, FIND+15
GMRAPA(0 REPORT+11*, REPORT+12, REPORT+14, REPORT+15, FIND+13*, FIND+14
>> GMRAPG REPORT+2*, HEAD+2, HEAD+3, HEAD+9, HEAD+10, HEAD+15*
>> GMRARB REPORT+7*, REPORT+8, REPORT+9
>> GMRASSN REPORT+7*, REPORT+8, REPORT+9
GMRAZIS PRINTER+1!
IO PRINTER+7
IO("Q" PRINTER+2
IO(0 PRINTER+7
IOF HEAD+2, HEAD+9
IOSL REPORT+16
IOST HEAD+1
>> POP PRINTER+1
U REPORT+14, REPORT+15, FIND+8, FIND+14
Y HEAD+4, HEAD+5!
>> ZTDESC PRINTER+4*
>> ZTQUEUED HEAD+16
>> ZTRTN 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