Routine: QANRPT1

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

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
DATE	;
LOOP	;
TASK
STRT
EXIT
KILL	;Kill and quit.
FINAL	;Final data summation.
TOTAL	;
HDH	;
WARD	;
INST(QANIEN,QANDV)	;api for getting division name
PRINT	;print or display data
DIV	;

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	DIC Line Location: INST+7 DIV+17
Routine Call	DIR Line Location: HDH+1 DIV+8
Routine Call	%ZIS Line Location: TASK+2
Routine Call	%ZIS Line Location: EXIT

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

Customize PDF page

Package: Incident Reporting

Routine: QANRPT1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: