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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGPTSUF

Package: Registration

Routine: DGPTSUF


Information

DGPTSUF ;ALB/LD - Utilities for Facility Suffix (#45.68) file; 27 May 1995

Source Information

Source file <DGPTSUF.m>

Entry Points

Name Comments DBIA/ICR reference
EDEFF ;--edit effective date multiple in Facility Suffix (#45.68) file
EDEFFQ
EDIT ;--edit effective date; display error msg and loop back if last
; effective date is deleted
EFFDISP ;--display suffix, effective date, and active flag to screen
NUMACT(STATYP) ; Number of active suffixes for station type

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7," << RECORD IN USE. TRY AGAIN LATER >>",!
  • Line Location: EDIT+5
Function Call: WRITE
  • Prompt: !!,"Current Status of Facility Suffix:"
  • Line Location: EFFDISP+3
Function Call: WRITE
  • Prompt: !!?5,"Facility Suffix",?25,"Effective Date",?45,"Active?"
  • Line Location: EFFDISP+4
Function Call: WRITE
  • Prompt: !?5,"---------------",?25,"--------------",?45,"-------",!
  • Line Location: EFFDISP+5
Function Call: WRITE
  • Prompt: ?11,DGSUF
  • Line Location: EFFDISP+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(45.68 - [#45.68] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call