Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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 ]

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
Info |  Source |  Entry Points |  Interaction Calls