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

Package: Adverse Reaction Tracking

Routine: GMRAPL


Information

GMRAPL ;HIRMFO/WAA- PRINT ALLERGY LIST BY LOCATION ;5/2/97 14:13

Source Information

Source file <GMRAPL.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZTLOAD  $$FMTE^XLFDT  $$REPEAT^XLFSTR  KILL^XUSCLEAN  
Adverse Reaction Tracking 2 (CLOSE,DEV)^GMRAUTL  ($$PRDTST,VAD)^GMRAUTL1  
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: 9

Package Total Caller Graph
Adverse Reaction Tracking 9 GMRA PRINT SIGN BY LOC/DATE  GMRAPFT  GMRAPST1  GMRAPST2  GMRAPST3  GMRAPST4  GMRAPST5  GMRAPST6  
GMRAPST7  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; This routine will loop through the GMRA patient allergy file
; to find all patient within the date range that meet the criteria
; and then display all the data for those patients first by location
; then by date/time range of the reaction.
; First select a starting date.
; then select an end date.
; then select a print device.
; GMAST = START DATE
; GMAEN = END DATE
GET ; This sub routine is to find all the reaction with in this observed
; date range.
PRINT ; Print data in the reaction global
HEAD ; Header
DEVICE ; Select a device to print on
DT ; Get dates
DATE(PROMPT,GMADATE) ; Date sub routine
EXIT ;EXIT ROUTINE DATA

External References

Name Field # of Occurrence
NOW^%DTC DEVICE+1
^%ZTLOAD DEVICE+5
^DIR HEAD+4, DATE+5
CLOSE^GMRAUTL DEVICE+9
DEV^GMRAUTL DEVICE+2
$$PRDTST^GMRAUTL1 GET+15
VAD^GMRAUTL1 GET+16
$$FMTE^XLFDT PRINT+12, HEAD+9, HEAD+11
$$REPEAT^XLFSTR HEAD+13
KILL^XUSCLEAN EXIT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"One moment please...",!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(GMRAPDT,"1"),?70,"Page: ",GMAPG
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,?15,"From ",$$FMTE^XLFDT(GMAST,"1")," to ",$$FMTE^XLFDT(GMAEN,"1")
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,"Date",?20,"Originator",?45,"Type",?50,"Causative Agent"
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !,"PLEASE TRY LATER"
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try Later.")
  • Line Location: DEVICE+6
Routine Call
  • DIR
  • Line Location:
    • HEAD+4
    • DATE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] GET+17
^GMR(120.8 - [#120.8] GET+4, GET+6, GET+7, GET+11, PRINT+11
^SC - [#44] GET+17
^TMP($J GET+2!, GET+21*, PRINT+3, PRINT+5, PRINT+6, PRINT+9, PRINT+10, EXIT+1!
^VA(200 - [#200] PRINT+13

Label References

Name Line Occurrences
$$DATE DT+1, DT+2
DEVICE EN1+13
DT EN1+11
EXIT EN1+11, EN1+14, DEVICE+10
GET PRINT+2
HEAD PRINT+4, PRINT+7, PRINT+16
PRINT DEVICE+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DATE DATE+2*, DATE+5*, DATE+6*, DATE+7
DIR HEAD+4~, DATE+3~
DIR("A" DATE+4*
DIR(0 HEAD+4*, DATE+4*
>> DIRUT DATE+5
GMADATE DATE~, DATE+1*, DATE+4
GMADT GET+3~*, GET+4*, GET+6
>> GMAEN GET+4, HEAD+11, DT+2*, DT+3*
>> GMAPG EN1+12*, HEAD+2, HEAD+3, HEAD+8, HEAD+9*
>> GMAST GET+3, HEAD+11, DT+1*, DT+2
>> GMRALOC GET+14*, GET+16, GET+17*, GET+18*, GET+21, PRINT+3*, PRINT+5, PRINT+6, PRINT+9, PRINT+10
, HEAD+10
>> GMRANAM GET+14*, GET+16, GET+21, PRINT+5*, PRINT+6, PRINT+8, PRINT+9, PRINT+10
>> GMRAOUT EN1+10*, EN1+11, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+9, PRINT+10, HEAD+1
, HEAD+3, HEAD+4*, DEVICE+2*, DT+1*, DT+2*
GMRAPA GET+5~*, GET+6*, GET+7, GET+11, GET+21, PRINT+10*, PRINT+11
GMRAPA(0 GET+7*, GET+9, GET+10, GET+13, GET+15, GET+16, PRINT+11*, PRINT+12, PRINT+13, PRINT+15
>> GMRAPDT HEAD+9, DEVICE+1*
>> GMRATYP GET+13*, GET+21, PRINT+9*, PRINT+10, PRINT+14
>> GMRAVIP GET+14*, GET+16, GET+21, PRINT+6*, PRINT+8, PRINT+9, PRINT+10
GMRAZIS DEVICE+2!
IO DEVICE+8
IO("Q" DEVICE+3
IO(0 DEVICE+8
IOF HEAD+2, HEAD+8
IOSL PRINT+7, PRINT+16
IOST PRINT+1, HEAD+1
>> POP DEVICE+2
PROMPT DATE~, DATE+4
U GET+10, GET+11, GET+13, GET+15, GET+16, GET+17, PRINT+12, PRINT+13, PRINT+15
>> X DEVICE+1
Y HEAD+4, HEAD+5!, DATE+6
>> ZTDESC DEVICE+5*
>> ZTRTN DEVICE+4*
>> ZTSAVE("GMAEN" DEVICE+4*
>> ZTSAVE("GMAPG" DEVICE+4*
>> ZTSAVE("GMAST" DEVICE+4*
>> ZTSAVE("GMRAOUT" DEVICE+4*
>> ZTSAVE("GMRAPDT" DEVICE+4*
>> ZTSK DEVICE+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All