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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMRADSP6

Package: Adverse Reaction Tracking

Routine: GMRADSP6


Information

GMRADSP6 ;HIRMFO/YMP,RM,WAA-LISTING OF ALLERGIES NOT ENTERED IN ERROR ;9/23/97 09:07

Source Information

Source file <GMRADSP6.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$REPEAT^XLFSTR  KILL^XUSCLEAN  
Adverse Reaction Tracking 2 (EOP,HDR)^GMRADSP3  ($$OUTTYPE,CLOSE,DEV)^GMRAUTL  
Registration 1 (DEM,KVAR)^VADPT  
VA FileMan 1 ^DIC  

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-ACTIVE LISTING  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Entry to ACTIVE LISTING OF PATIENT REACTIONS option
EN3 ;Print Active Patient list if patient is known
EN2 ; Print Active Patient list if patient and device known
EN2A
DISP ;
DISP2
REST ;
WRITG ;
EXIT ;Quit and kill
TASK ;

External References

Name Field # of Occurrence
^%ZTLOAD TASK+1
^DIC EN1+2
EOP^GMRADSP3 DISP2REST+1
HDR^GMRADSP3 EN2+1
$$OUTTYPE^GMRAUTL DISP2+1
CLOSE^GMRAUTL EXIT+1
DEV^GMRAUTL EN3+7
DEM^VADPT EN3+1
KVAR^VADPT EN3+1
$$FMTE^XLFDT EN3+4, REST+9
$$NOW^XLFDT EN3+4
$$REPEAT^XLFSTR EN2+2
KILL^XUSCLEAN EXIT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"NO ALLERGY/ADVERSE REACTION DATA EXISTS FOR THIS PATIENT"
  • Line Location: EN3+6
Function Call: WRITE
  • Prompt: !," Patient has answered NKA."
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !,?33,"No Data Found"
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !!?3,"TYPE: ",GMRATYPE,!?3,$E(GMRALIN,1,$L(GMRATYPE)+6)
  • Line Location: DISP2+2
Function Call: WRITE
  • Prompt: !,GMRAALL,?60,$P("NO^YES","^",1+$P(GMRATEMP,U,16)),?70,$S($P(GMRATEMP,U,6)="h":"HIST",$P(GMRATEMP,U,6)="o":"OBS",1:"")
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: !,?5,"Reactions: "
  • Line Location: WRITG+1
Function Call: WRITE
  • Prompt: !,?16
  • Line Location: WRITG+2
Function Call: WRITE
  • Prompt: GMRALINE
  • Line Location: WRITG+3
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try later...")
  • Line Location: TASK+2
Routine Call
  • DIC
  • Line Location:
    • EN1+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.8 - [#120.8] EN2+4, EN2AREST+2, REST+3, REST+5, REST+6
^GMR(120.86 - [#120.86] EN3+6, EN2+3
^GMRD(120.83 - [#120.83] REST+3, REST+7
^TMP($J EN2A+2*, DISP+3, DISP+4, DISP2+3, EXIT+2!

Label References

Name Line Occurrences
DISP EN2+5
DISP2 DISP+4
EN1 EN3+6
EN2A EN2+4
EXIT EN1+2, EN3+7, EN3+8, DISP+5
REST DISP2+3
TASK EN3+8
WRITG REST+12

Naked Globals

Name Field # of Occurrence
^(0 REST+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN EN1+2*, EN3+6, EN2+3, EN2+4
DIC EN1+2*!
DIC("A" EN1+2*
DIC(0 EN1+2*
DLAYGO EN1+2!
>> GMRAALL DISP+2*, DISP2+3*, REST+2
>> GMRAFG REST+6*, REST+11
GMRAFG2 REST+4~
>> GMRAFLG REST+3*, WRITG+1*
>> GMRAHEAD( EN3+5*
>> GMRAHEAD(1 EN3+2*
>> GMRAHEAD(2 EN3+1*
>> GMRAHEAD(3 EN3+2*
>> GMRAHEAD(4 EN3+3*
>> GMRAHEAD(5 EN3+3*
>> GMRAHEAD(6 EN3+2*
>> GMRAHEAD(7 EN3+2*
>> GMRAKIND EN2A+1*, EN2A+2, DISP+2*, DISP+4*, DISP2+1, DISP2+3
>> GMRALIN EN2+2*, DISP2+2
GMRALINE REST+4~, REST+7*, REST+8*, REST+10*, REST+11*, WRITG+2, WRITG+3
>> GMRANOW EN3+4*, EN3+5
>> GMRAOTH REST+3*, REST+7
>> GMRAOUT EN1+1*, EN1+2*, EN3+7*, EN2+1*, DISP+4, DISP2DISP2+3, REST+1
>> GMRAPG EN2+1*
>> GMRAREAC EN2+5*
>> GMRAREC EN2+4*, EN2AEN2A+2
>> GMRARECN DISP+2*, DISP2+3*, REST+2, REST+3, REST+5, REST+6
>> GMRASPAC DISP+1*, WRITG+2
>> GMRATEMP EN2A*, EN2A+1, EN2A+2, REST+2*
GMRATON REST+4~, REST+5*, REST+7, REST+8, REST+9
>> GMRATONS DISP+1*
>> GMRATYPE DISP2+1*, DISP2+2
>> GMRAX REST+3*, REST+5, REST+6
GMRAZ REST+4~, REST+9*, REST+10
GMRAZIS EN3+7!
IO("Q" EN3+8
ION TASK+1
IOSL DISP2REST+1
>> POP EN3+7
U EN2+3, REST+2, REST+7, REST+8, REST+9
VA EN3+1!
VA("PID" EN3+1
>> VADM(1 EN3+1
>> VADM(3 EN3+1
>> VADM(4 EN3+1
X DISP+4*, DISP2+3*, EXIT+2!
Y EN1+2, EXIT+2!
Z EXIT+2!
>> ZTDESC TASK+1*
ZTDH TASK+3!
ZTDTH TASK+1*, TASK+3!
>> ZTIO TASK+1*
ZTRTN TASK+1*, TASK+3!
ZTSAVE TASK+3!
ZTSAVE("DFN" TASK+1*
ZTSAVE("GMRA*" TASK+1*
ZTSK TASK+2, TASK+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All