Routine: QAOSPURG

Package	Total	Call Graph
VA FileMan	3	YN^DICN ^DIE ^DIK
Quality Assurance Integration	2	(,K)^QAQDATE ^QAQSELCT
Clinical Monitoring System	1	EN3^QAMARCH1
Kernel	1	^%ZTLOAD

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

Package	Total	Caller Graph
Occurrence Screen	1	QAOS DELETE AUTO RUN DATES

Entry Points

Name	Comments	DBIA/ICR reference
ASK	;
SCRN	;
DATE	;
ENTSK	; Tasked entry point
EXIT	;
SCRNFLD	;;TOTAL FIELD FOR EACH SCREEN IN FILE #741.99
1010	;;1
1011	;;1.1
1020	;;2
1030	;;3
1041	;;4.1
1042	;;4.2
1051	;;5.1
1052	;;5.2
1061	;;6.1
1062	;;6.2
1070	;;7
1080	;;8
1090	;;9
1990	;;99

External References

Name	Field # of Occurrence
^%ZTLOAD	DATE+6
YN^DICN	ASK+1
^DIE	ENTSK+22
^DIK	ENTSK+19
EN3^QAMARCH1	ENTSK+14
^QAQDATE	DATE+2
K^QAQDATE	EXIT+4
^QAQSELCT	SCRN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!?32,"* WARNING ",!!?4,"This option purges the historical data that tells the Occurrence Screen",!?17,"package on what dates auto enrollment was run",7,! Line Location: QAOSPURG+2
Function Call: WRITE	Prompt: !!?5,"Please answer Y(es) or N(o)",! Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"Select the screens to purge." Line Location: SCRN+1
Function Call: WRITE	Prompt: !!,"Select the date range to purge." Line Location: DATE+1
Function Call: WRITE	Prompt: !?5,"* Beginning date must be in the past !! ",7 Line Location: DATE+2
Function Call: WRITE	Prompt: !,"Deletion request queued." Line Location: DATE+6
Routine Call	DIE Line Location: ENTSK+22

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^QA(741.1 - [#741.1]	ENTSK+9
^QA(741.99 - [#741.99]	ENTSK+17
^QA(743 - [#743]	ENTSK+10
^UTILITY($J	SCRN+1!, ENTSK+1!, ENTSK+3, ENTSK+11*, EXIT+3!

Label References

Name	Line Occurrences
ASK	ASK+1
DATE	DATE+2
EXIT	ASK+1, SCRN+3, DATE+2, DATE+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASK+1*, EXIT+1!
%DT	EXIT+1!
D	EXIT+1!
DA	ENTSK+19, ENTSK+22, EXIT+1!
DIE	ENTSK+22*, EXIT+3!
DIK	ENTSK+19*, EXIT+1!
DR	ENTSK+22*, EXIT+3!
DT	DATE+2
I	EXIT+1!
>> QA	ENTSK+2*
QAM	ENTSK+10*, ENTSK+11, EXIT+2!
QAMD0	ENTSK+9*, ENTSK+10, ENTSK+11, EXIT+2!
QAMD1	EXIT+2!
QAMDATE	EXIT+2!
QAMMON	EXIT+2!
QAMMONNM	EXIT+2!
QAOS	ENTSK+17*, EXIT+1!
QAOSALL	ENTSK+16*, ENTSK+18, EXIT+2!
QAOSD0	ENTSK+17*, ENTSK+19, ENTSK+22, EXIT+1!
QAOSDR	ENTSK+1, ENTSK+6, ENTSK+22, EXIT+2!
QAOSQUIT	EXIT+1!
>> QAOSSCRN	ENTSK+3*, ENTSK+4, ENTSK+7, ENTSK+9
>> QAQDIC	SCRN+2*
>> QAQDIC("A"	SCRN+2*
>> QAQDIC("B"	SCRN+3*
>> QAQDIC(0	SCRN+2*
>> QAQNBEG	DATE+2, ENTSK+17
>> QAQNEND	ENTSK+17
>> QAQQUIT	SCRN+3, DATE+2
>> QAQUTIL	SCRN+3*
SCRNFLD	ENTSK+1!, ENTSK+4*, ENTSK+5, ENTSK+6, EXIT+2!
SCRNFLD(	ENTSK+2*
SCRNFLD(0	ENTSK+16
SCRNFLD(10	ENTSK+4, ENTSK+7!
X	ENTSK+2*, EXIT+1!
Y	EXIT+1!
Z	EXIT+1!
ZTDESC	DATE+5*, EXIT+1!
ZTDTH	DATE+3*, EXIT+2!
ZTIO	DATE+3*, EXIT+1!
>> ZTQUEUED	EXIT+4
>> ZTREQ	EXIT+4*
ZTRTN	DATE+3*, EXIT+1!
ZTSAVE	EXIT+1!
ZTSAVE("QAQ*"	DATE+4*
ZTSAVE("^UTIL	ITY($J, ""QAO SCREEN"", " , DATE+4*

Customize PDF page

Package: Occurrence Screen

Routine: QAOSPURG

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items