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: 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>

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

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

FileMan Files Accessed Via FileMan Db Call

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