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

Package: Adverse Reaction Tracking

Routine: GMRADSP4


Information

GMRADSP4 ;HIRMFO/YMP,RM,WAA,FT-PATIENT'S ALLERGIES PRINTOUT ;7/23/97 09:44

Source Information

Source file <GMRADSP4.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$REPEAT^XLFSTR  KILL^XUSCLEAN  
Adverse Reaction Tracking 3 EN1^GMRADSP2  HDR^GMRADSP3  ($$OUTTYPE,CLOSE,DEV)^GMRAUTL  
VA FileMan 2 ^DIC  ^DIR  
Registration 1 (DEM,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: 1

Package Total Caller Graph
Adverse Reaction Tracking 1 GMRA PRINT-COMPLETE LISTING  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Entry to PRINT PATIENT REACTION DATA option
DIR1
E
BEGIN
SET ; SET SORT ARRAY
PARSE ;
EXIT ;Quit and kill
PARSE2 ;
PARSECD ;
TASK ;
ERR(DFN) ;Checks to see if patient has entered in error data

External References

Name Field # of Occurrence
^%ZTLOAD TASK+1
^DIC EN1+1
^DIR E+1, E+8
EN1^GMRADSP2 PARSECD+10
HDR^GMRADSP3 PARSE+1
$$OUTTYPE^GMRAUTL PARSECD+2
CLOSE^GMRAUTL EXIT+1
DEV^GMRAUTL E+10
DEM^VADPT EN1+7
KVAR^VADPT EN1+9
$$FMTE^XLFDT EN1+10
$$NOW^XLFDT EN1+10
$$REPEAT^XLFSTR EN1+6
KILL^XUSCLEAN EXIT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !," This patient has No Known Allergies."
  • Line Location: PARSE+2
Function Call: WRITE
  • Prompt: !!,"THERE IS NO DATA FOR THIS REPORT."
  • Line Location: PARSE+4
Function Call: WRITE
  • Prompt: !,".............................................................................."
  • Line Location: PARSECD+11
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+1
Routine Call
  • DIR
  • Line Location:
    • E+1
    • E+8

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] BEGIN, SET+2, PARSECD+6, PARSECD+8, ERR+3
^GMR(120.86 - [#120.86] EN1+4, EN1+5, SET+1
^GMRD(120.82 - [#120.82] PARSECD+8
^GMRD(120.83 - [#120.83] PARSECD+9
^TMP($J BEGIN!, SET+3*, EXIT+2!, PARSE2+2, PARSECD+1, PARSECD+2, PARSECD+4, PARSECD+5

Label References

Name Line Occurrences
$$ERR EN1+3
EN1 EN1+4, EN1+5, E+2, E+9
EXIT EN1+1, E+10, E+11
PARSE BEGIN+1
PARSE2 PARSE+3
PARSECD PARSE2+2
SET BEGIN
TASK E+11

Naked Globals

Name Field # of Occurrence
^(0 PARSECD+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SET+3*
DFN EN1+2*, EN1+3, EN1+4, EN1+5, BEGIN, SET+1, ERR~, ERR+3
DIC EN1+1*!
DIC("A" EN1+1*
DIC(0 EN1+1*
DIR DIR1!, E+1!, E+6!, E+8!
DIR("A" DIR1*, E+6*
DIR(0 DIR1*, E*, E+6*, E+7*
DLAYGO EN1+1!
ERR ERR+1~, ERR+2*, ERR+3*, ERR+4
>> GMRAAL PARSECD+7*
>> GMRAALL PARSECD+3*, PARSECD+4*, PARSECD+5, PARSECD+7
>> GMRACNT PARSE+1*, PARSE+4, PARSECD+7*
>> GMRACTIV PARSE+3*, PARSE2+2, PARSECD+1, PARSECD+2, PARSECD+4, PARSECD+5
>> GMRADRUG PARSECD+8*
>> GMRAEER EN1+3*, EN1+4, EN1+5, SET+2*, SET+3
>> GMRAFG PARSE+1*, PARSECD+11*
>> GMRAHEAD( EN1+11*
>> GMRAHEAD(1 EN1+8*
>> GMRAHEAD(2 EN1+9*
>> GMRAHEAD(3 EN1+9*
>> GMRAHEAD(4 EN1+9*
>> GMRAKIND SET+2*, SET+3
>> GMRALINE EN1+6*, PARSECD+2
>> GMRANKA BEGIN*, SET+1*, PARSE+2
>> GMRANOW EN1+10*, EN1+11
>> GMRANS PARSECD+7*
>> GMRAOTH PARSECD+9*
>> GMRAOUT EN1+1*, EN1+6*, E+10*, BEGIN, PARSE+3, PARSE2+2, PARSECD+4, PARSECD+5, PARSECD+11
>> GMRAPA PARSECD+7*, PARSECD+8
>> GMRAPA(0 PARSECD+6*, PARSECD+8
>> GMRAPG PARSE+1*
>> GMRAPRNT PARSECD+10*
>> GMRAREC PARSECD+5*, PARSECD+6, PARSECD+7
>> GMRARECN BEGIN*, SET+2, SET+3
>> GMRARES PARSECD+2*
>> GMRASEL E+4*, SET+3
>> GMRASEL1 E+2*, E+3
>> GMRASEL2 E+9*, SET+1, PARSE+2, PARSE+3
>> GMRASLIN EN1+6*, PARSECD+1
>> GMRASTAT PARSE+3*, PARSECD+1
>> GMRATEMP SET+2*, SET+3
GMRATTMP E+3*, E+4, E+5!
>> GMRATYP PARSE2+1*, PARSE2+2*, PARSECD+1, PARSECD+2, PARSECD+4, PARSECD+5
GMRAZIS E+10!
>> GMRAZK PARSE+3*
>> GMRAZM PARSECD+4*
IO PARSECD+10
IO("Q" E+11
ION TASK+1
NUM ERR+1~, ERR+2*, ERR+3*
>> POP E+10
U EN1+5, SET+1
VA EN1+9!
VA("PID" EN1+9
>> VADM(1 EN1+9
>> VADM(3 EN1+9
>> VADM(4 EN1+9
>> X E+3*
>> Y EN1+1, EN1+2, E+9
>> Y(0 E+2, E+9
>> 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