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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGMTO

Package: Registration

Routine: DGMTO


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

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DG MEANS TEST DEDUCTIBLE  DGMTM  

Entry Points

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

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All