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

Package: Incident Reporting

Routine: QANEWS


Information

QANEWS ;HISC/GJC-EARLY WARNING SYSTEM ;6/18/91

Source Information

Source file <QANEWS.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
MailMan 2 KILL^XM  ^XMD  
Quality Assurance Integration 1 (,KILL)^QAQDATE  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Incident Reporting 1 QANEWS0  

Entry Points

Name Comments DBIA/ICR reference
TERM
HDR ;Header
STRT
EN1 ;Check date range.
EN2 ;Check dates.
KILL
TAB ;
BULL ;
XIT
CHECK ;Checks for inaccurate patient data; part of patch QAN*2*14.

External References

Name Field # of Occurrence
^%ZIS CHECK+8
HOME^%ZIS XIT
^%ZISC XIT
^%ZTLOAD CHECK+14
^DIR HDR+1
^QAQDATE EN1+1
KILL^QAQDATE KILL
KILL^XM BULL+1, BULL+11
^XMD BULL+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"Invalid date range, no report will be produced."
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !,"Date: ",TODAY,?$S(IOM=132:107,1:65),"Page: ",PAGE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!?(IOM-$L(HEAD(1))\2),HEAD(1),!?(IOM-$L(HEAD(0))\2),HEAD(0)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?(IOM-$L(HEAD(10))\2),HEAD(10)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,HEAD(2),?10,HEAD(3),?45,HEAD(4),?60,HEAD(5),!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: $S(IOM=132:HEAD(7),1:HEAD(6)),!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?5,"This routine will check the accuracy of the patient data."
  • Line Location: CHECK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+8
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request queued properly.",1:"Queue request failed.")
  • Line Location: CHECK+14
Function Call: WRITE
  • Prompt: !,QA,?10,QAPAT,?45,QASSN,?60,QAPID
  • Line Location: STRT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: XIT+0
Routine Call
  • %ZIS
  • Line Location:
    • XIT
Routine Call
  • DIR
  • Line Location:
    • HDR+1
Routine Call
  • %ZIS
  • Line Location:
    • CHECK+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" CHECK+1
^DD("SITE" BULL+5
^DIC(4 - [#4] BULL+6
^DPT - [#2] STRT+6
^QA(740 - [#740] BULL+1, BULL+2, BULL+3
^QA(742 - [#742] EN2+3, STRT+1, STRT+2
^QA(742.4 - [#742.4] EN2+2, STRT+4
^UTILITY($J EN2+2*, EN2+3, KILL!, BULL+10*

Label References

Name Line Occurrences
BULL EN2+4
HDR STRT, STRT+11
TAB EN2+3
TERM CHECK+9
XIT CHECK+10

Naked Globals

Name Field # of Occurrence
^("QAN" BULL+1, BULL+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS CHECK+8!*
%ZIS("A" CHECK+8*
C KILL!
CASE STRT+5*, TERM!
DIR HDR+1!
DIR(0 HDR+1*
DIROUT TERM+1!
DIRUT TERM+1!
DT CHECK+1
DTOUT TERM+1!
DUOUT TERM+1!
HEAD TERM!
HEAD(0 HDR+4, CHECK+2*
HEAD(1 HDR+4, CHECK+3*
HEAD(10 HDR+5, CHECK+4*
HEAD(2 HDR+6, CHECK+5*
HEAD(3 HDR+6, CHECK+5*
HEAD(4 HDR+6, CHECK+5*
HEAD(5 HDR+6, CHECK+5*
HEAD(6 HDR+7, CHECK+6*
HEAD(7 HDR+7, CHECK+6*
IO STRT
IO("Q" CHECK+10
IOF HDR+2
IOM HDR+3, HDR+4, HDR+5, HDR+7
IOP CHECK+8!
IOSL STRT+11
IOST HDR+1
PAGE HDR+1, HDR+2*, HDR+3, CHECK+1*, TERM!
PID STRT+8*, STRT+9, TERM!
>> POP CHECK+9
QA STRT+1*, STRT+2, STRT+10, TERM!
QA742 STRT+2*, STRT+3, STRT+6, STRT+7, TERM!
QA7424 STRT+4*, STRT+5, TERM!
QADPT STRT+6*, STRT+7, TERM!
QAINC STRT+3*, STRT+4, TERM!
QAN EN2+2*, EN2+3*, KILL!
>> QAN1 EN2+3*
QANAFRM BULL+1*, BULL+3, BULL+11!
>> QANDATE EN2+2*
>> QANDOM BULL+4
>> QANIN EN2+1*, BULL+8, TAB+2*
QANINC0 KILL!
QANIPAT KILL!
QANMAIL BULL+11!
QANMAIL(1 BULL+6*, BULL+10
QANMAIL(2 BULL+7*, BULL+10
QANMAIL(3 BULL+8*, BULL+10
QANMAIL(4 BULL+9*, BULL+10
QANMIEN BULL+3*, BULL+11!
QANNCDT KILL!
>> QANOUT EN2+1*, BULL+9, TAB+1*
>> QANSERV BULL+4
QANSIEN BULL+2*, BULL+6, BULL+11!
QANSITE BULL+11!
QANZER0 EN2+2*, KILL!
QANZERO EN2+3*, KILL!, TAB+1, TAB+2
QAPAT STRT+7*, STRT+8, STRT+10, TERM!
QAPID STRT+7*, STRT+9, STRT+10, TERM!
>> QAQNBEG EN2+2, BULL+7
>> QAQNEND EN2+2, BULL+7
>> QAQQUIT EN1+1
QASSN STRT+7*, STRT+8, STRT+10, TERM+1!
QAXIT HDR+1*, HDR+2, CHECK+1*, STRT+1, STRT+11, TERM!
TODAY HDR+3, CHECK+1*, TERM+1!
U EN2+2, BULL+1, BULL+2, BULL+3, BULL+6, TAB+1, TAB+2, STRT+3, STRT+5, STRT+6
, STRT+7
X BULL+6*, BULL+7*, BULL+8*, BULL+9*, BULL+11!, TERM+1!
XMANS BULL+11!
XMB BULL+11!
XMDUZ BULL+5*, BULL+11!
XMHOLD BULL+11!
XMSUB BULL+5*, BULL+11!
XMTEXT BULL+11*!
XMY BULL+11!
XMY( BULL+4*
Y KILL!, BULL+11!, HDR+1, CHECK+1*, TERM+1!
ZTDESC CHECK+12*, TERM+1!
ZTRTN CHECK+11*, TERM+1!
ZTSAVE TERM+1!
ZTSAVE("HEAD(" CHECK+13*
ZTSAVE("PAGE" CHECK+13*
ZTSAVE("QAXIT" CHECK+13*
ZTSAVE("TODAY" CHECK+13*
ZTSK CHECK+14, TERM+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All