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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: ECTP17

Package: Interim Management Support

Routine: ECTP17


Information

ECTP17 ;B'ham ISC/PTD - Patch Routine to Update the National Service File ; [ 05/16/95 1:25 PM ]

Source Information

Source file <ECTP17.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA FileMan 2 ENALL^DIK  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
V ;;1.05;INTERIM MANAGEMENT SUPPORT;**17**;
EXIT
LOOP ;Make change to individual file entry.
TEXT ;Services to be updated: Internal DA#^Old Service Name^New Service Name

External References

Name Field # of Occurrence
ENALL^DIK V+6
^DIR V+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"National Service File - #730 does not exist on your system.",!,"This routine is unable to update the file!"
  • Line Location: V+1
Function Call: WRITE
  • Prompt: !!,"This routine will update your National Service File - #730.",!,"The following changes will be made:"
  • Line Location: V+2
Function Call: WRITE
  • Prompt: !!,"DIETETICS will be changed to NUTRITION AND FOOD SERVICE.",!
  • Line Location: V+3
Function Call: WRITE
  • Prompt: !!,"No change has been made to File 730!",!
  • Line Location: V+4
Function Call: WRITE
  • Prompt: !
  • Line Location: V+5
Function Call: WRITE
  • Prompt: !,ECTOLD," has been changed to ",ECTNEW,"."
  • Line Location: LOOP+3
Routine Call
  • DIR
  • Line Location:
    • V+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECC(730 - [#730] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECC(730 - [#730] V+1, V+5, V+6!, LOOP+2, LOOP+3*

Label References

Name Line Occurrences
EXIT V+1, V+4
LOOP V+5

Naked Globals

Name Field # of Occurrence
^(0 LOOP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EXIT!
DIC EXIT!
DIK V+6*, EXIT!
DIK(1 V+6*
DIR EXIT!
DIR("A" V+4*
DIR("B" V+4*
DIR(0 V+4*
DIROUT EXIT!
DIRUT EXIT!
DTOUT EXIT!
DUOUT EXIT!
ECTDA EXIT!, LOOP+1*, LOOP+2, LOOP+3
ECTNEW EXIT!, LOOP+1*, LOOP+2, LOOP+3
ECTOLD EXIT!, LOOP+1*, LOOP+3
ECTSRV V+5*, EXIT!, LOOP+1
JJ V+5*, EXIT!
X EXIT!
Y V+4, EXIT!

Marked Items

Name Field # of Occurrence
$T(TEXT+JJ V+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All