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

Package: Incident Reporting

Routine: QANRPT2


Information

QANRPT2 ;HISC/GJC-SUMMARY OF INCIDENTS FOR OUTPATIENTS ;5/6/91

Source Information

Source file <QANRPT2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Incident Reporting 2 HDR^QANAUX1  (DIV,INST)^QANRPT1  
VA FileMan 2 DD^%DT  ^DIR  
Quality Assurance Integration 1 (,K)^QAQDATE  

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

Package Total Caller Graph
Incident Reporting 2 QAN OUTPATIENT INCIDENTS  QANRPT1  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
TASK
TOTAL1 ;
TOTAL2 ;
STRT
KILL ;Kill and quit.
QLOOP ;ZTSAVE for TaskMan.
PRINT ;print or display data
EXIT
ORD ;
TOTAL ;
FINAL ;Final data summation.
LOOP ;loop through the date x-ref for records in the date range
HDH ;

External References

Name Field # of Occurrence
DD^%DT QANRPT2+10, QANRPT2+11
^%ZIS TASK+2
HOME^%ZIS EXIT
^%ZISC EXIT
^%ZTLOAD TASK+4
^DIR HDH+1
HDR^QANAUX1 FINAL+1, PRINT+6, PRINT+10
DIV^QANRPT1 QANRPT2+12
INST^QANRPT1 PRINT+4
^QAQDATE QANRPT2+6
K^QAQDATE QANRPT2+6, KILL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"Invalid date range, no report will be produced."
  • Line Location: QANRPT2+6
Function Call: WRITE
  • Prompt: !!,$C(7),"No records found for the selected date range."
  • Line Location: LOOP+18
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+0
Function Call: WRITE
  • Prompt: !!,"No incidents found, exiting the report."
  • Line Location: FINAL+2
Function Call: WRITE
  • Prompt: !!,"Total number if incidents for division "_QANDV_": "_COUNT("DIV",QANAA)
  • Line Location: FINAL+3
Function Call: WRITE
  • Prompt: !!,"The total number of outpatient incidents is: ",COUNT("TOT")
  • Line Location: FINAL+4
Function Call: WRITE
  • Prompt: !?17,QANSUB,?59,QANINC0(QANSUB),!
  • Line Location: ORD+2
Function Call: WRITE
  • Prompt: !!?17,$E(QANINCID,1,35),?59,COUNT("INC",QANAA,QANBB)
  • Line Location: PRINT+11
Routine Call
  • %ZIS
  • Line Location:
    • EXIT
Routine Call
  • DIR
  • Line Location:
    • HDH+1
Routine Call
  • %ZIS
  • Line Location:
    • TASK+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TASK
^QA(740 - [#740] LOOP+14, LOOP+15
^QA(742 - [#742] LOOP+7, LOOP+8, TOTAL1+5, TOTAL1+6
^QA(742.1 - [#742.1] PRINT+9
^QA(742.4 - [#742.4] LOOP+3, LOOP+5, LOOP+10
^TMP("QANRPT2" LOOP+17*, LOOP+18, KILL+7!, TOTAL+4, TOTAL+6, TOTAL+8, TOTAL+10, PRINT+3, PRINT+8

Label References

Name Line Occurrences
EXIT TASK+4, FINAL+2
FINAL PRINT+1, PRINT+12
HDH FINAL+5, ORD+2, PRINT+10, PRINT+12
KILL QANRPT2+6, LOOP+18, TASK+3
PRINT STRT+1
QLOOP TASK+4
TOTAL LOOP+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% KILL+2!
%ZIS TASK+2!*
%ZIS("A" TASK+2*
>> BA QLOOP+1*
BNDRY TASK*, KILL+2!
C KILL+2!
COUNT KILL+2!, PRINT+1
COUNT("DIV" FINAL+3, TOTAL+13*
COUNT("INC" TOTAL+11*, PRINT+11
COUNT("TOT" FINAL+2, FINAL+4, TOTAL+12*
D KILL+2!
DIC KILL+2!
DIR HDH+1!
DIR(0 HDH+1*
DIROUT KILL+6!
DIRUT KILL+6!
DT TASK
DTOUT KILL+6!
DUOUT KILL+6!
IO STRT
IO("Q" TASK+4
IOM TASK
IOP TASK+2!
IOSL FINAL+1, ORD+2, PRINT+10
IOST HDH+1
LOOP KILL+2!
PAGE QANRPT2+3*, QANRPT2+8*, KILL+2!
>> POP TASK+3
QAN KILL+3!
>> QAN1DIV LOOP+13
QANAA FINAL+3, TOTAL+2~, TOTAL+3*, TOTAL+4*, TOTAL+6, TOTAL+8, TOTAL+10, TOTAL+11, TOTAL+13, PRINT+2*
, PRINT+3*, PRINT+4, PRINT+8, PRINT+11
QANBB TOTAL+2~, TOTAL+5*, TOTAL+6*, TOTAL+8, TOTAL+10, TOTAL+11, PRINT+7*, PRINT+8*, PRINT+9, PRINT+11
QANCC LOOP+1~, LOOP+4*, LOOP+5*, LOOP+7, LOOP+9, TOTAL+2~, TOTAL+7*, TOTAL+8*, TOTAL+10, TOTAL1+5
QANCDNT KILL+3!
QANCHOS KILL+5!
QANDATE KILL+4!
QANDATE(0 QANRPT2+10*, QANRPT2+13
QANDATE(1 QANRPT2+11*, QANRPT2+13
QANDD LOOP+1~, LOOP+6*, LOOP+7*, LOOP+8, LOOP+17, TOTAL+2~, TOTAL+9*, TOTAL+10*, TOTAL1+4*, TOTAL1+5*
, TOTAL1+6
>> QANDIV LOOP+12*, LOOP+13, LOOP+14*, LOOP+15*, LOOP+17
>> QANDV FINAL+3, PRINT+4, PRINT+5
>> QANDVFLG FINAL+3, PRINT+5
QANEE LOOP+1~, LOOP+2*, LOOP+3*, LOOP+5
QANFIN TASK*, STRT+1, KILL+3!, FINAL+1, ORD+2, HDH+1*, PRINT+10
QANHEAD KILL+3!
QANHEAD(0 QANRPT2+9*
QANHEAD(1 QANRPT2+9*
QANHEAD(3 QANRPT2+13*
QANHEAD(4 PRINT+5*
>> QANIEN LOOP+9*, LOOP+10, LOOP+17
QANINC LOOP+16*, LOOP+17, KILL+5!
QANINC0 KILL+4!, ORD+1
QANINC0( ORD+2, TOTAL2+2*, TOTAL2+3*
QANINC1 KILL+4!
QANINCID KILL+5!, PRINT+9*, PRINT+11
QANJD KILL+4!
QANNCDT KILL+4!, TOTAL2+2, TOTAL2+3
>> QANOUT TOTAL1+4*, TOTAL1+6*
>> QANSUB ORD+2*
>> QANSUB(0 ORD+2*
QANTINC QANRPT2+8*, KILL+4!, TOTAL2+1*
QANTYPE QANRPT2+8*, KILL+5!
QANWARD KILL+4!
QANY KILL+5!
QANZER0 LOOP+10*, LOOP+11, LOOP+12, LOOP+16, KILL+4!
>> QAQNBEG QANRPT2+7, QANRPT2+10
>> QAQNBEG(0 QANRPT2+7*, LOOP+2
>> QAQNEND QANRPT2+7, QANRPT2+11
>> QAQNEND(0 QANRPT2+7*, LOOP+3
>> QAQQUIT QANRPT2+6
TODAY TASK*, KILL+4!
U LOOP+8, LOOP+11, LOOP+12, LOOP+15, LOOP+16, TOTAL1+6, PRINT+9
X KILL+5!
Y QANRPT2+10*, QANRPT2+11*, TASK*, KILL+4!, HDH+1
>> ZTDESC TASK+4*
>> ZTRTN TASK+4*
>> ZTSAVE( QLOOP+1*
>> ZTSK TASK+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All