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

Package: Interim Management Support

Routine: ECTP13


Information

ECTP13 ;B'ham ISC/PTD - Patch Routine to Update the National Service File ;11/02/93 08:00

Source Information

Source file <ECTP13.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;1.05;INTERIM MANAGEMENT SUPPORT;**13**;
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: !!,"BUILDING MANAGEMENT will be changed to ENVIRONMENTAL MANAGEMENT.",!,"LABORATORY will be changed to PATHOLOGY & LABORATORY MEDICINE."
  • Line Location: V+3
Function Call: WRITE
  • Prompt: !,"PERSONNEL will be changed to HUMAN RESOURCES MANAGEMENT.",!,"REHABILITATION MEDICINE will be changed to PHYSICAL MEDICINE & REHABILITATION."
  • Line Location: V+4
Function Call: WRITE
  • Prompt: !!,"No change has been made to File 730!",!
  • Line Location: V+5
Function Call: WRITE
  • Prompt: !
  • Line Location: V+6
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