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 |  Local Variables  | All
Print Page as PDF
Routine: QANUTL6

Package: Incident Reporting

Routine: QANUTL6


Information

QANUTL6 ;HISC/GJC-DATA INQUIRY FOR PATIENT/INCIDENT ;2/3/92

Source Information

Source file <QANUTL6.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 MIX^DIC1  (D,Y)^DIQ  EN^DIQ1  
Incident Reporting 1 EN1^QANUTL7  

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
Incident Reporting 2 QAN PATIENT/INCIDENT VIEW  QANUTL7  

Entry Points

Name Comments DBIA/ICR reference
TASK ;Call to %ZTLOAD.
START ;IO requests
EXIT ;
KILL ;Kill and quit.
DICW ;Data display on lookups.
HDR ;Header
IRDIAG ;Data for Incident Related Diagnosis
MEDCNTR ;Data for Medical Center Action
RSERV ;Data for Responsible Service
QLOOP ;Save variables.

External References

Name Field # of Occurrence
^%ZIS TASK+2
HOME^%ZIS EXIT+1
^%ZISC EXIT+1
^%ZTLOAD TASK+4
MIX^DIC1 QANUTL6+6
D^DIQ QANUTL6+13, DICW+2
Y^DIQ QANUTL6+11, QANUTL6+12, DICW+3
EN^DIQ1 QANUTL6+17, QANUTL6+21, IRDIAG+1, MEDCNTR+1, RSERV+1
EN1^QANUTL7 START+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: TASK+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: TASK+2
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!"),!
  • Line Location: TASK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: " "_QANINCD_" "_QANDATE_" "_QANCASE
  • Line Location: DICW+5
Function Call: WRITE
  • Prompt: @IOF,!?69,TODAY,!?69,"Page: ",PAGE,!!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?(IOM-$L(QANHEAD(0))\2),QANHEAD(0),!,?(IOM-$L(QANHEAD(1))\2),QANHEAD(1),!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?(IOM-$L(QANHEAD(2))\2),QANHEAD(2),!!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: QANLINE,!
  • Line Location: HDR+4
Routine Call
  • %ZIS
  • Line Location:
    • TASK+2
Routine Call
  • %ZIS
  • Line Location:
    • EXIT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^QA(742 - [#742] Classic Fileman Calls
^QA(742.4 - [#742.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TASK+1
^DD(742 QANUTL6+11
^DD(742.4 QANUTL6+12, DICW+3
^QA(742 - [#742] QANUTL6+8, QANUTL6+18, QANUTL6+19, DICW+1, IRDIAG+1, RSERV+1
^QA(742.4 - [#742.4] QANUTL6+9, QANUTL6+22, DICW+1, MEDCNTR+1
^UTILITY("DIQ1" QANUTL6+3!, KILL+4!

Label References

Name Line Occurrences
EXIT TASK+4
HDR START+1
IRDIAG QANUTL6+19
KILL QANUTL6+7, TASK+3
MEDCNTR QANUTL6+22
QLOOP TASK+4
RSERV QANUTL6+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%W KILL+3!
%ZIS TASK+2!*, KILL+1!
%ZIS("A" TASK+2*
C QANUTL6+11*, QANUTL6+12*, KILL+1!, DICW+3*
D QANUTL6+5*, KILL+1!
D0 KILL+3!
DA QANUTL6+17*, QANUTL6+21*, QANUTL6+23!, KILL+1!, IRDIAG+1*, MEDCNTR+1*, RSERV+1*
DA(1 IRDIAG+1*, MEDCNTR+1*, RSERV+1*
DIC QANUTL6+3!, QANUTL6+5*, QANUTL6+6!, QANUTL6+17*, QANUTL6+21*, QANUTL6+23!, KILL+1!, IRDIAG+1*, MEDCNTR+1*, RSERV+1*
DIC("A" QANUTL6+5*
DIC("W" QANUTL6+6*
DIC(0 QANUTL6+5*
DINUM QANUTL6+3!, QANUTL6+6!
DIQ QANUTL6+23!, KILL+1!
DIQ(0 QANUTL6+17*, QANUTL6+21*, IRDIAG+1*, MEDCNTR+1*, RSERV+1*
DIQ2 KILL+3!
DLAYGO QANUTL6+3!, QANUTL6+6!
DO QANUTL6+3!, QANUTL6+6!
DR QANUTL6+17*, QANUTL6+21*, QANUTL6+23!, KILL+1!, IRDIAG+1*, MEDCNTR+1*, RSERV+1*
DT TASK+1
IO START+1
IO("Q" TASK+4
IOF HDR+1
IOM QANUTL6+4, HDR+2, HDR+3
IOP TASK+2!
IW KILL+1!, HDR+4*, QLOOP+1*
PAGE TASK+1*, KILL+1!, HDR+1*
POP TASK+3, KILL+1!
QAHDNM KILL+4!
QAHDSSN KILL+4!
QAHOLD KILL+4!
QAN742 QANUTL6+8*, QANUTL6+9, QANUTL6+11, KILL+1!
QAN7424 QANUTL6+9*, QANUTL6+12, QANUTL6+13, KILL+1!, DICW+1*, DICW+2, DICW+4
QANCASE KILL+3!, DICW+4*, DICW+5
QANDATE QANUTL6+13*, QANUTL6+15, KILL+1!, DICW+2*, DICW+5
QANDD KILL+3!
QANDFN QANUTL6+8*, QANUTL6+17, QANUTL6+18, QANUTL6+19, KILL+1!, IRDIAG+1, RSERV+1
QANHEAD KILL+2!
QANHEAD(0 QANUTL6+10*, HDR+2
QANHEAD(1 QANUTL6+14*, HDR+2
QANHEAD(2 QANUTL6+15*, HDR+3
QANIEN QANUTL6+9*, QANUTL6+21, QANUTL6+22, KILL+2!, DICW+1*, MEDCNTR+1
QANINCD QANUTL6+12*, QANUTL6+15, KILL+2!, DICW+3*, DICW+5
QANLINE QANUTL6+4*, KILL+2!, HDR+4
QANPAT QANUTL6+11*, QANUTL6+14, KILL+2!
QANQUIT TASK+1*, KILL+3!
QANTAB QANUTL6+4*, KILL+2!
QANUTIL KILL+3!
QANW KILL+3!
QANX KILL+3!
QANY KILL+3!
QANZ KILL+3!
TODAY TASK+1*, KILL+2!, HDR+1
U QANUTL6+9, QANUTL6+11, QANUTL6+12, QANUTL6+13, DICW+1, DICW+2, DICW+3, DICW+4
X KILL+2!
Y QANUTL6+7, QANUTL6+8, QANUTL6+11*, QANUTL6+12*, QANUTL6+13*, TASK+1*, KILL+2!, DICW+1, DICW+2~*, DICW+3
ZTDESC TASK+4*, KILL+2!
ZTRTN TASK+4*, KILL+2!
>> ZTSAVE( QLOOP+1*
ZTSK TASK+4, KILL+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 |  Local Variables  | All