Routine: QAMARCH0

Information

QAMARCH0 ;HISC/DAD-SELECTIVELY PURGE FILES 743.1, 743.2, 743.6 ;7/17/92 09:39

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

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

Package	Total	Caller Graph
Clinical Monitoring System	3	QAM PURGE AUTO RUN DATES FILE QAM PURGE FALL OUT FILE QAM PURGE HISTORY FILE

Entry Points

Name	Comments	DBIA/ICR reference
EN1	; *** MONITOR HISTORY FILE (#743.2)
ENTSK1	; *** TASKED ENTRY POINT
EN2	; *** FALL OUT FILE (#743.1)
ENTSK2	; *** TASKED ENTRY POINT
EN3	; *** AUTO ENROLL RUN DATES FILE (#743.6)
ENTSK3	; *** TASKED ENTRY POINT
EXIT	; *** COMMON EXIT POINT
ASKCONT	; *** CONTINUE?
ASKREADY	; *** READY TO DELETE?
AR
GETMON	; *** MONITORS TO DELETE
GETDATE	; *** DATE RANGE TO DELETE
QUEUE(X)	; *** QUEUE THE DELETION

Name	Field # of Occurrence
^%ZTLOAD	QUEUE+3
YN^DICN	ASKCONT+1, AR
EN1^QAMARCH1	ENTSK1+1
EN2^QAMARCH1	ENTSK2+1
EN3^QAMARCH1	ENTSK3+1
^QAQDATE	GETDATE+1
K^QAQDATE	EXIT+2
EN1^QAQSELCT	GETMON+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"********************************************************************",7 Line Location: EN1+1
Function Call: WRITE	Prompt: !?5,"* This option DELETES selected data from the Monitor History file *" Line Location: EN1+2
Function Call: WRITE	Prompt: !?5,"* Once the data has been deleted it CANNOT BE RECOVERED *" Line Location: EN1+3
Function Call: WRITE	Prompt: !?5,"********************************************************************",7 Line Location: EN1+4
Function Call: WRITE	Prompt: !!,"Nothing deleted." Line Location: EN1+8
Function Call: WRITE	Prompt: !!?5,"*******************************************************************",7 Line Location: EN2+1
Function Call: WRITE	Prompt: !?5,"* This option DELETES selected data from the Fall Out file *" Line Location: EN2+2
Function Call: WRITE	Prompt: !?5,"* Once the data has been deleted it CANNOT BE RECOVERED *" Line Location: EN2+3
Function Call: WRITE	Prompt: !?5,"*******************************************************************",7 Line Location: EN2+4
Function Call: WRITE	Prompt: !!,"Nothing deleted." Line Location: EN2+8
Function Call: WRITE	Prompt: !!?2,"**************************************************************************",7 Line Location: EN3+1
Function Call: WRITE	Prompt: !?2,"* This option DELETES selected data from the Auto Enroll Run Dates file *" Line Location: EN3+2
Function Call: WRITE	Prompt: !?2,"* Once the data has been deleted it CANNOT BE RECOVERED *" Line Location: EN3+3
Function Call: WRITE	Prompt: !?2,"**************************************************************************",7 Line Location: EN3+4
Function Call: WRITE	Prompt: !!,"Nothing deleted." Line Location: EN3+8
Function Call: WRITE	Prompt: !!?5,"Please answer Y(es) or N(o)" Line Location: ASKCONT+1
Function Call: WRITE	Prompt: *7 Line Location: ASKREADY+1
Function Call: WRITE	Prompt: !!?5,"Enter Y(es) to delete the selected data, or",!?5,"Enter N(o) to exit without deleting the data" Line Location: AR+0
Function Call: WRITE	Prompt: !!,"Select the monitors to delete." Line Location: GETMON+1
Function Call: WRITE	Prompt: !!,"Select the date range to delete." Line Location: GETDATE+1
Function Call: WRITE	Prompt: !!,"Deletion request queued." Line Location: QUEUE+3

Label References

Name	Line Occurrences
AR	AR
ASKCONT	EN1+5, EN2+5, EN3+5, ASKCONT+1
ASKREADY	EN1+8, EN2+8, EN3+8
EXIT	EN1+5, EN1+6, EN1+7, EN1+8, EN1+9, ENTSK1+1, EN2+5, EN2+6, EN2+7, EN2+8 , EN2+9, ENTSK2+1, EN3+5, EN3+6, EN3+7, EN3+8, EN3+9
GETDATE	EN1+7, EN2+7, EN3+7
GETMON	EN1+6, EN2+6, EN3+6
QUEUE	EN1+9, EN2+9, EN3+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN1+5, EN1+8, EN2+5, EN2+8, EN3+5, EN3+8, EXIT+2!, ASKCONT+1, AR
%Y	EXIT+2!
DA	EXIT+2!
DIC	EXIT+2!
DIE	EXIT+2!
DIK	EXIT+2!
DR	EXIT+2!
QADL	EXIT+2!
QAMD0	EXIT+2!
QAMD1	EXIT+2!
QAMDATE	EXIT+2!
QAMDELET	EXIT+2!
QAMEND	EXIT+2!
QAMFALL	EXIT+2!
QAMMON	EXIT+2!
QAMMONNM	EXIT+2!
QAMQUIT	EXIT+2!
QAMSAMP	EXIT+2!
QAMSTART	EXIT+2!
QAMZERO	EXIT+2!
>> QAQDIC	GETMON+1*
>> QAQDIC("A"	GETMON+1*
>> QAQDIC(0	GETMON+1*
QAQQUIT	EN1+6, EN1+7, EN2+6, EN2+7, EN3+6, EN3+7, EXIT+2!
>> QAQUTIL	GETMON+1*
X	QUEUE~, QUEUE+1, QUEUE+2
ZTDESC	EXIT+2!, QUEUE+2*
>> ZTDTH	QUEUE+2*
ZTIO	EXIT+2!, QUEUE+1*
>> ZTQUEUED	EXIT+1
>> ZTREQ	EXIT+1*
ZTRTN	EXIT+2!, QUEUE+1*
ZTSAVE	EXIT+2!
ZTSAVE("QAM*"	QUEUE+1*
ZTSAVE("QAQ*"	QUEUE+1*
ZTSAVE("^UTILITY($J,"	QUEUE+1*

Customize PDF page

Package: Clinical Monitoring System