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

Package: Adverse Reaction Tracking

Routine: GMRACMR4


Information

GMRACMR4 ;HIRMFO/WAA-PATIENT NOT ASKED ABOUT ALLERGIES ;10/1/92

Source Information

Source file <GMRACMR4.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Adverse Reaction Tracking 7 EN1^GMRACMR  EN1^GMRACMR2  EN1^GMRACMR3  $$IDMARK^GMRACMR5  (NOPAT,PRE)^GMRAPNA  (CLOSE,DEV,SITE)^GMRAUTL  ($$DATE,$$PRDTST,$$STPCK,VAD)^GMRAUTL1  
Kernel 3 ^%ZTLOAD  $$REPEAT^XLFSTR  KILL^XUSCLEAN  
VA FileMan 2 ^%DT  ^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-ID BAND/CHART  

Entry Points

Name Comments DBIA/ICR reference
EN1 ;This is the main entry point for this program
DEV ; *** Select output device, force queuing
ENTSK
PRINT ;PRINT THE DATE
HEAD ;HEADER PAGE FOR PRINTOUT
EXIT ;

External References

Name Field # of Occurrence
^%DT ENTSK+2
^%ZTLOAD DEV+9
^DIR HEAD+3
EN1^GMRACMR EN1+1
EN1^GMRACMR2 ENTSK+1
EN1^GMRACMR3 ENTSK+1
$$IDMARK^GMRACMR5 PRINT+16
NOPAT^GMRAPNA PRINT+26
PRE^GMRAPNA PRINT+1
CLOSE^GMRAUTL PRINT+28
DEV^GMRAUTL DEV+3
SITE^GMRAUTL ENTSK+3
$$DATE^GMRAUTL1 ENTSK+2, HEAD+12
$$PRDTST^GMRAUTL1 PRINT+8
$$STPCK^GMRAUTL1 HEAD+15
VAD^GMRAUTL1 PRINT+19
$$REPEAT^XLFSTR HEAD+14
KILL^XUSCLEAN EXIT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try later...")
  • Line Location: DEV+10
Function Call: WRITE
  • Prompt: $E($P(^DPT(GMRADFN,0),U),1,30)
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: ?30,GMRAPID
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: ?66,$S(('GMRA("C")&'GMRA("I")):"ID BAND/CHART",('GMRA("C")):"CHART",('GMRA("I")):"ID BAND",1:"ERROR")
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,GMRAPDT,?22,"PATIENTS WITH UNMARKED ID BAND/CHART",?70,"PAGE ",GMRAPAGE
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,?(40-($L(GMRATL)/2)),GMRATL
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,?22,"FROM ",$$DATE^GMRAUTL1(GMRAST),?43,"TO ",$$DATE^GMRAUTL1(GMRAED)
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !!,"PATIENT",?30,"SSN",?45,"ALLERGY",?66,"UNMARKED"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: HEAD+14
Routine Call
  • DIR
  • Line Location:
    • HEAD+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PRINT+19
^GMR(120.8 - [#120.8] PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+14, PRINT+20
^GMR(120.86 - [#120.86] PRINT+10
^GMRD(120.84 - [#120.84] ENTSK+3
^SC - [#44] PRINT+5
^TMP($J PRINT+2, PRINT+3, PRINT+7, EXIT+1!

Label References

Name Line Occurrences
ENTSK DEV+12
EXIT EN1+1, DEV+3, DEV+4, ENTSK+5
HEAD PRINT+4, PRINT+23
PRINT ENTSK+4

Naked Globals

Name Field # of Occurrence
^( PRINT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN PRINT+19*
>> DIR(0 HEAD+3*
>> GMRA PRINT+3*, PRINT+5, PRINT+15, PRINT+16, PRINT+21
>> GMRA("C" PRINT+13*, PRINT+14*, PRINT+21, PRINT+22
>> GMRA("I" PRINT+13*, PRINT+16*, PRINT+21
>> GMRA("M" PRINT+13*, PRINT+14*, PRINT+15, PRINT+16*, PRINT+17
>> GMRACNT PRINT+6*, PRINT+18*
>> GMRADATE PRINT+7*, PRINT+16
>> GMRADFN PRINT+7*, PRINT+8, PRINT+9, PRINT+10, PRINT+16, PRINT+19
>> GMRAED HEAD+12
>> GMRAFLG PRINT+7*, PRINT+19*
>> GMRAHLOC PRINT+2*
>> GMRAI PRINT+9*, PRINT+10, PRINT+11, PRINT+12, PRINT+14, PRINT+16, PRINT+20
>> GMRAOUT EN1+1, DEV+3*, PRINT+2, PRINT+4, PRINT+7, PRINT+9, PRINT+23, HEAD+2, HEAD+3*, HEAD+15*
>> GMRAPAGE ENTSK+2*, HEAD+1*, HEAD+2, HEAD+6, HEAD+7
>> GMRAPDT ENTSK+2*, HEAD+7
GMRAPID PRINT+19*!
>> GMRASEL DEV+2, HEAD+8, HEAD+9, HEAD+10, HEAD+12
>> GMRASITE ENTSK+3*, PRINT+16
>> GMRAST HEAD+12
>> GMRATL HEAD+1*, HEAD+8*, HEAD+9*, HEAD+10*, HEAD+11
>> GMRAX PRINT+2*, PRINT+3, PRINT+5, PRINT+7
>> GMRAZIS DEV+1*, DEV+2*
IO ENTSK
IO("Q" DEV+4, DEV+5!
IOF HEAD+1, HEAD+6
IOSL PRINT+23
IOST HEAD+1, HEAD+2
>> POP DEV+3
U PRINT+5, PRINT+10, PRINT+12, PRINT+16, PRINT+19, PRINT+20
>> X ENTSK+2*
Y ENTSK+2, HEAD+3, HEAD+4!
>> ZTDESC DEV+8*
>> ZTQUEUED HEAD+15
>> ZTRTN DEV+6*
>> ZTSAVE("GMRA*" DEV+7*
>> ZTSAVE("^TMP($J," DEV+7*
>> ZTSK DEV+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All