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

Package: Adverse Reaction Tracking

Routine: GMRAPNA


Information

GMRAPNA ;HIRMFO/WAA-PATIENT NOT ASKED ABOUT ALLERGIES ;12/1/95 14:15

Source Information

Source file <GMRAPNA.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Adverse Reaction Tracking 6 EN1^GMRACMR  EN1^GMRACMR2  EN1^GMRACMR3  $$DECEASED^GMRAFX  (CLOSE,DEV)^GMRAUTL  ($$DATE,$$PRDTST,$$STPCK)^GMRAUTL1  
Kernel 3 ^%ZTLOAD  $$REPEAT^XLFSTR  KILL^XUSCLEAN  
VA FileMan 2 ^%DT  ^DIR  
Registration 1 (1,KVAR)^VADPT  

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

Package Total Caller Graph
Adverse Reaction Tracking 2 GMRA PRINT-PATIENTS NOT ASKED  GMRACMR4  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Entry for LIST BY LOCATION OF UNDOCUMENTED ALLERGIES option
DEV ; *** Select output device, force queuing
ENTSK
PRINT ;PRINT THE DATE
NOPAT ; If there are no patients print informational message
HEAD ;HEADER PAGE FOR PRINTOUT
PRE ; This will validate the TMP global and fire off Xref
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
$$DECEASED^GMRAFX PRINT+11
CLOSE^GMRAUTL PRINT+21
DEV^GMRAUTL DEV+3
$$DATE^GMRAUTL1 ENTSK+2, HEAD+12
$$PRDTST^GMRAUTL1 PRINT+12
$$STPCK^GMRAUTL1 HEAD+15
1^VADPT PRINT+14
KVAR^VADPT PRINT+16
$$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: !,?5,"Room/Bed: ",VAIN(5)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,?24,"* No Patients for this ",$S(GMRA="W":"Ward",GMRA="M":"Module",GMRA="C":"Clinic",1:"UNKNOWN")," *"
  • Line Location: NOPAT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NOPAT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,GMRAPDT,?23,"PATIENTS NOT ASKED ABOUT ALLERGIES",?70,"PAGE ",GMRAPAGE
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,?(40-($L(GMRATL)/2)),GMRATL
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,?23,"FROM ",$$DATE^GMRAUTL1(GMRAST),?42,"TO ",$$DATE^GMRAUTL1(GMRAED)
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",78)
  • Line Location: HEAD+14
Routine Call
  • DIR
  • Line Location:
    • HEAD+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PRINT+10, PRINT+14
^GMR(120.86 - [#120.86] PRINT+8, PRINT+9
^SC - [#44] PRINT+6, PRE+5, PRE+6
^TMP($J PRINT+2, PRINT+3, PRINT+7, PRE+2, PRE+3, PRE+4, PRE+8*, EXIT+1!

Label References

Name Line Occurrences
DEV EN1+2
ENTSK DEV+12
EXIT EN1+1, EN1+3, DEV+3, DEV+4, ENTSK+4
HEAD PRINT+5, PRINT+17
NOPAT PRINT+19
PRE PRINT+1
PRINT ENTSK+3

Naked Globals

Name Field # of Occurrence
^( PRINT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN PRINT+14*, PRINT+16!
>> DIR(0 HEAD+3*
DT PRINT+14
>> GMRA PRINT+3*, PRINT+4, PRINT+6, PRINT+14, NOPAT+2, HEAD+13
>> GMRACNT PRINT+3*, PRINT+13*, NOPAT+1
>> GMRADATE PRINT+7*, PRINT+14
>> GMRADFN PRINT+7*, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+14
>> GMRAED PRINT+9, HEAD+12
>> GMRAHLOC PRINT+2*
>> GMRAOUT EN1+1, PRINT+2, PRINT+5, PRINT+7, PRINT+17, HEAD+2, HEAD+3*, HEAD+15*
>> GMRAPAGE ENTSK+2*, HEAD+1*, HEAD+2, HEAD+6, HEAD+7
>> GMRAPDT ENTSK+2*, HEAD+7
>> GMRASEL DEV+2, HEAD+8, HEAD+9, HEAD+10, HEAD+12
>> GMRAST HEAD+12
GMRAT1 PRE+1~, PRE+5*, PRE+7
GMRAT2 PRE+1~, PRE+6*, PRE+7
GMRAT3 PRE+1~, PRE+7*, PRE+8
>> GMRATL HEAD+1*, HEAD+8*, HEAD+9*, HEAD+10*, HEAD+11
GMRAX PRINT+2*, PRINT+3, PRINT+6, PRINT+7, PRE+1~, PRE+3*, PRE+4, PRE+5, PRE+6, PRE+8
GMRAY PRE+1~, PRE+4*
>> GMRAZIS DEV+2*
IO ENTSK
IO("Q" DEV+4, DEV+5!
IOF HEAD+1, HEAD+6
IOSL PRINT+17
IOST HEAD+1, HEAD+2
>> POP DEV+3
U PRINT+6, PRINT+9, PRINT+14, PRE+5, PRE+6
VA PRINT+16!
VA("PID" PRINT+14
>> VAIN(2 PRINT+14
>> VAIN(5 PRINT+15
>> VAINDT PRINT+14*
>> 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