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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 $$FMTE^XLFDT  ($$CJ,$$RJ)^XLFSTR  
VA Fileman 2 ^DIC  ^DIE  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Registration 6 DG PTF SUFFIX EFF DATE EDIT  DGPTAE01  DGPTC2  DGPTFJ  DGPTFVC1  DGPTOTRL  

Entry Points

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

External References

Name Field # of Occurrence
^DIC EDEFF+4
^DIE EDIT+6
$$FMTE^XLFDT EFFDISP+10
$$CJ^XLFSTR EFFDISP+10
$$RJ^XLFSTR EFFDISP+10

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
Routine Call
  • DIE
  • Line Location:
    • EDIT+6
Routine Call
  • DIC
  • Line Location:
    • EDEFF+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(45.68 - [#45.68] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(45.68 - [#45.68] EDIT+5, EDIT+7, EFFDISP+8, EFFDISP+9, EFFDISP+10, NUMACT+11, NUMACT+12, NUMACT+13, NUMACT+15
^DIC(45.81 - [#45.81] NUMACT+10

Label References

Name Line Occurrences
EDEFFQ EDEFF+5, EDIT+5
EDIT EDEFF+9
EFFDISP EDEFF+8, EDEFF+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EDEFFQ!, EDIT+2~, EDIT+3*, EDIT+4
>> DGANUM NUMACT+9*, NUMACT+14*, NUMACT+15
DGDA EDEFF+6*, EDEFFQ!, EDIT+3, EDIT+5, EDIT+7, EFFDISP+8, EFFDISP+9, EFFDISP+10
DGEFFDT NUMACT+8~, NUMACT+11*, NUMACT+12
DGEFFIEN NUMACT+8~, NUMACT+12*, NUMACT+13
DGI EFFDISP+1~, EFFDISP+2*, EFFDISP+8*, EFFDISP+9, NUMACT+8~, NUMACT+10*, NUMACT+11, NUMACT+12, NUMACT+13, NUMACT+15
DGJ EFFDISP+1~, EFFDISP+2*, EFFDISP+9*, EFFDISP+10
DGSUF EDEFF+2~, EDEFF+6*, EFFDISP+6
>> DGSUFNAM( NUMACT+15*
DIC EDEFF+4*, EDEFFQ!
DIC(0 EDEFF+4*
DIE EDIT+2~, EDIT+3*
DR EDIT+2~, EDIT+3*
DTOUT EDEFF+5, EDEFFQ!
DUOUT EDEFF+5, EDEFFQ!
STATYP NUMACT~, NUMACT+10
U EDEFF+6, EFFDISP+10, NUMACT+13, NUMACT+15
X EDEFF+4*, EDEFFQ!
Y EDEFF+5, EDEFF+6, EDEFFQ!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All