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

Package: Incident Reporting

Routine: QANRPT1


Information

QANRPT1 ;HISC/GJC-SUMMARY OF INCIDENTS/WARD ;5/6/91

Source Information

Source file <QANRPT1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 4 DD^%DT  ^DIC  YN^DICN  ^DIR  
Incident Reporting 3 HDR^QANAUX1  QLOOP^QANRPT2  (INCD,QANLOC,WARD)^QANUTL4  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
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: 6

Package Total Caller Graph
Incident Reporting 5 QAN INCIDENT/WARD REPORT  QANBENE  QANBENE2  QANOPEN  QANRPT2  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
TASK
DIV ;
INST(QANIEN,QANDV) ;api for getting division name
STRT
PRINT ;print or display data
KILL ;Kill and quit.
DATE ;
EXIT
WARD ;
TOTAL ;
FINAL ;Final data summation.
LOOP ;
HDH ;

External References

Name Field # of Occurrence
DD^%DT DATE+3, DATE+7
^%ZIS TASK+2
HOME^%ZIS EXIT
^%ZISC EXIT
^%ZTLOAD TASK+4
^DIC INST+7, DIV+17
YN^DICN QANRPT1+4
^DIR HDH+1, DIV+8
HDR^QANAUX1 FINAL+1, PRINT+6, PRINT+9, PRINT+15
QLOOP^QANRPT2 TASK+4
INCD^QANUTL4 DATE+9
QANLOC^QANUTL4 DATE+10
WARD^QANUTL4 DATE+10
^QAQDATE DATE+1
K^QAQDATE KILL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Do you wish to produce a report by Incident Location"
  • Line Location: QANRPT1+4
Function Call: WRITE
  • Prompt: !,$C(7),"Enter ""Y""es to issue a report by Incident Location,",!,"""N""o to issue a report by Patient's Ward."
  • Line Location: QANRPT1+4
Function Call: WRITE
  • Prompt: !!,$C(7),"Invalid date range, no report will be produced."
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!,$C(7),"No records found for the selected date range."
  • Line Location: LOOP+26
Function Call: WRITE
  • Prompt: !!,$C(7),QANWORD," location(s) not found, exiting the report."
  • Line Location: LOOP+28
Function Call: WRITE
  • Prompt: !!,$C(7),"Incident(s) not found, exiting the report."
  • Line Location: LOOP+29
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 of incidents for "_$S(QANCHOS="W":"ward ",1:"incident location ")_QANLOCA_": "_COUNT("LOC",QANAA,QANFF)
  • Line Location: FINAL+6
Function Call: WRITE
  • Prompt: !!,"Total number of Incidents for division "_QANDV_": "_COUNT("DIV",QANAA)
  • Line Location: FINAL+7
Function Call: WRITE
  • Prompt: !!,"Total number of incidents this reporting period: "_COUNT("TOT")
  • Line Location: FINAL+8
Function Call: WRITE
  • Prompt: !!,$E(QANBB,1,32)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?35,$E(QANINCID,1,35),?72,QANNUM,!
  • Line Location: PRINT+15
Routine Call
  • %ZIS
  • Line Location:
    • EXIT
Routine Call
  • DIC
  • Line Location:
    • INST+7
    • DIV+17
Routine Call
  • DIR
  • Line Location:
    • HDH+1
    • DIV+8
Routine Call
  • %ZIS
  • Line Location:
    • TASK+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls
^QA(740 - [#740] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TASK
^QA(740 - [#740] LOOP+21, LOOP+22, DIV+2, DIV+14, DIV+15
^QA(742 - [#742] LOOP+7, LOOP+9, WARD+4, WARD+5, WARD+6
^QA(742.1 - [#742.1] LOOP+23, PRINT+13
^QA(742.4 - [#742.4] LOOP+3, LOOP+5, LOOP+8, PRINT+13
^QA(742.5 - [#742.5] LOOP+15
^SC - [#44] LOOP+16
^TMP("QANRPT1" LOOP+12, LOOP+18, LOOP+25*, LOOP+26, LOOP+28, LOOP+29, KILL+9!, TOTAL+3, TOTAL+5, TOTAL+7
, TOTAL+9, PRINT+12

Label References

Name Line Occurrences
DIV QANRPT1+7
EXIT TASK+4
FINAL PRINT+1, PRINT+16
HDH FINAL+1, FINAL+9, PRINT+9, PRINT+15
INST PRINT+4, DIV+15
KILL DATE+1, DATE+9, DATE+10, LOOP+26, LOOP+28, LOOP+29, TASK+3
PRINT STRT+1
TOTAL LOOP+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QANRPT1+4*, QANRPT1+5!, QANRPT1+6, KILL+4!
%ZIS TASK+2!*
%ZIS("A" TASK+2*
BNDRY TASK*, KILL+4!
C KILL+9!
COUNT KILL+4!, PRINT+1
COUNT("DIV" FINAL+7, TOTAL+12*
COUNT("INC" TOTAL+10*, PRINT+3, PRINT+8, PRINT+11, PRINT+14
COUNT("LOC" FINAL+4, FINAL+6, TOTAL+13*
COUNT("TOT" FINAL+2, FINAL+8, TOTAL+11*
D KILL+10!
DIC INST+1~, INST+3*, INST+7!, DIV+10~, DIV+11*, DIV+17!
DIC("A" DIV+13*
DIC("B" DIV+16*
DIC("S" INST+5*
DIC(0 INST+4*, DIV+12*
DIR HDH+1!, DIV+4~, DIV+8!
DIR("A" DIV+6*
DIR("B" DIV+7*
DIR(0 HDH+1*, DIV+5*
DIROUT KILL+10!
DIRUT KILL+10!, DIV+4~, DIV+8
DT TASK
DTOUT KILL+10!, DIV+4~
DUOUT KILL+10!, DIV+4~
IO STRT
IO("Q" TASK+4
IOM TASK
IOP TASK+2!
IOSL FINAL+1, PRINT+9, PRINT+15
IOST HDH+1
LOOP KILL+4!
LP KILL+9!
LP0 KILL+9!
LP1 KILL+9!
LP2 KILL+9!
PAGE DATE+2*, KILL+4!
>> POP TASK+3
QA KILL+9!
QAN KILL+7!
QAN1DIV LOOP+20, DIV+1!, DIV+9*, DIV+18*
QAN742 LOOP+9*, LOOP+13, LOOP+14, LOOP+16, KILL+3!
QAN7424 LOOP+8*, LOOP+10, LOOP+11, LOOP+14, LOOP+19, KILL+3!
QANAA KILL+3!, FINAL+4, FINAL+6, FINAL+7, TOTAL+1~, TOTAL+2*, TOTAL+3*, TOTAL+5, TOTAL+7, TOTAL+9
, TOTAL+10, TOTAL+12, TOTAL+13, PRINT+2*, PRINT+3*, PRINT+4, PRINT+8, PRINT+11, PRINT+12, PRINT+14
QANBB KILL+3!, TOTAL+1~, TOTAL+4*, TOTAL+5*, TOTAL+7, TOTAL+9, TOTAL+10, TOTAL+13, PRINT+7*, PRINT+8*
, PRINT+9, PRINT+11, PRINT+12, PRINT+14
QANCC LOOP+1~, LOOP+4*, LOOP+5*, LOOP+7, LOOP+8, LOOP+25, KILL+3!, TOTAL+1~, TOTAL+6*, TOTAL+7*
, TOTAL+9, TOTAL+10, PRINT+10*, PRINT+11*, PRINT+12, PRINT+14
QANCDNT KILL+5!
QANCHOS QANRPT1+6*, DATE+10, LOOP+14, LOOP+15, LOOP+16, LOOP+27, KILL+5!, FINAL+6
QANCNT KILL+5!, WARD+1~, WARD+3*, WARD+6, WARD+7*
QANDAT1 KILL+5!
QANDAT2 KILL+5!
QANDATA1 KILL+5!
QANDATA2 KILL+5!
QANDATE KILL+5!
QANDATE(0 DATE+3*, DATE+8
QANDATE(1 DATE+7*, DATE+8
QANDD LOOP+6*, LOOP+7*, LOOP+9, LOOP+25, KILL+3!, TOTAL+1~, TOTAL+8*, TOTAL+9*, WARD+1~, WARD+2*
, WARD+4*, WARD+5, WARD+6, PRINT+12*, PRINT+13
QANDIV LOOP+19*, LOOP+20, LOOP+21*, LOOP+22*, LOOP+25, KILL+6!
QANDV KILL+6!, FINAL+7, INST~, INST+2!, INST+8*, INST+9*, PRINT+4, PRINT+5
QANDVFLG KILL+6!, FINAL+7, PRINT+5, DIV+1!, DIV+2*, DIV+3
QANDVN KILL+6!, DIV+15, DIV+16
QANDVSN KILL+6!, DIV+14*, DIV+15
QANEE LOOP+1~, LOOP+2*, LOOP+3*, LOOP+5, KILL+3!
QANFF KILL+3!, FINAL+3*, FINAL+4*, FINAL+5, FINAL+6
QANFIN TASK*, STRT+1, KILL+6!, FINAL+1, HDH+1*, PRINT+9
QANFLG KILL+6!
QANHEAD KILL+7!
QANHEAD(0 DATE+6*
QANHEAD(1 DATE+6*
QANHEAD(2 DATE+6*
QANHEAD(3 DATE+8*
QANHEAD(4 PRINT+5*
QANIEN WARD+4, INST~, INST+6
QANINC LOOP+11*, LOOP+12, LOOP+23*, LOOP+24*, LOOP+25, KILL+6!, KILL+7!
QANINCID KILL+7!, PRINT+13*, PRINT+15
QANINFLG QANRPT1+3~, LOOP+12, LOOP+29, KILL+6!
QANLCFLG QANRPT1+3~, LOOP+18, LOOP+28, KILL+7!
>> QANLCN LOOP+14*, LOOP+15, LOOP+18
QANLOC LOOP+15*, LOOP+16*, LOOP+17, LOOP+25, KILL+7!
QANLOC( WARD+6*
QANLOCA KILL+7!, FINAL+5*, FINAL+6
QANNODE KILL+8!
QANNUM KILL+8!, PRINT+14*, PRINT+15
>> QANPOP DIV+8*
QANTYPE DATE+2*, KILL+8!
>> QANWORD LOOP+27*, LOOP+28
QANXX KILL+3!
QANY DATE+9, DATE+10, KILL+8!
QANYY KILL+3!
QANZZ KILL+3!
QAQNBEG DATE+3, DATE+4*, LOOP+2, KILL+2!
QAQNEND DATE+5*, DATE+7, LOOP+3, KILL+2!
>> QAQQUIT DATE+1
TODAY TASK*, KILL+4!
U LOOP+10, LOOP+11, LOOP+13, LOOP+14, LOOP+15, LOOP+16, LOOP+19, LOOP+22, LOOP+23, WARD+5
, WARD+6, PRINT+13, DIV+2
X KILL+4!, INST+6*
Y DATE+3*, DATE+7*, TASK*, KILL+4!, HDH+1, INST+8, DIV+9, DIV+18
Y(0 INST+9, DIV+18
>> ZTDESC TASK+4*
>> ZTRTN TASK+4*
>> ZTSK TASK+4
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