Routine: DGMTO

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

DGMTO ;ALB/CAW - AGREE TO PAY DEDUCTABLE PRINT ; 8/12/92

Source Information

Source file <DGMTO.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Registration	1	START^DGMTO1
VA FileMan	1	^%DT

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

Package	Total	Caller Graph
Registration	2	DG MEANS TEST DEDUCTIBLE DGMTM

Entry Points

Name	Comments	DBIA/ICR reference
EN
ENQ
RANGE(DGYRAGO,DGTODAY)	; select date range ; input: none ; output: DGYRAGO := begin date ; DGTODAY := end date ; return: was selection made [ 1\|yes 0\|no]
DATE
RANGEQ
QUE()	; -- que job ; return: did job que [ 1\|yes 0\|no ]

External References

Name	Field # of Occurrence
^%DT	DATE+2, DATE+5
^%ZIS	EN+1
^%ZISC	ENQ
^%ZTLOAD	QUE+6
START^DGMTO1	EN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," Future dates are not allowed.",*7 Line Location: DATE+3
Function Call: WRITE	Prompt: !," Future dates are not allowed.",*7 Line Location: DATE+6
Function Call: WRITE	Prompt: !!,"Beginning Date must be prior to Ending Date" Line Location: DATE+7
Routine Call	%ZIS Line Location: EN+1

Label References

Name	Line Occurrences
$$QUE	EN+3
$$RANGE	EN
DATE	DATE+3, DATE+6, DATE+7
ENQ	EN, EN+1, EN+2
RANGEQ	DATE+2, DATE+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1, DATE+2!, DATE+4, DATE+5!
%DT("A"	DATE+1, DATE+4
>> %ZIS	EN+1*
DGBEG	DATE+3!, DATE+6!
DGCAT	ENQ+1!
DGLINE	ENQ+1!
DGP	ENQ+1!
DGPAGE	ENQ+1!
DGSTOP	ENQ+1!
DGTODAY	EN, ENQ+1!, RANGE~, DATE, DATE+5, DATE+6, DATE+7, RANGEQ
DGX	ENQ+1!
DGYRAGO	EN, ENQ+1!, RANGE~, DATE, DATE+2, DATE+3, DATE+7
DT	DATE+3, DATE+6
IO("Q"	EN+2, QUE+3!
>> POP	EN+1
VAERR	ENQ+1!
>> X	QUE+5*
>> Y	EN+3*, DATE+2, DATE+5
>> ZTDESC	QUE+4*
>> ZTQUEUED	ENQ
>> ZTRTN	QUE+4*
>> ZTSAVE(	QUE+5*
ZTSK	QUE+3!, QUE+6, QUE+7