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

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;**13**;
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+7
^DIR V+5

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
Routine Call
  • DIR
  • Line Location:
    • V+5

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+6, V+7!, LOOP+2, LOOP+3*

Label References

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

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+7*, EXIT!
DIK(1 V+7*
DIR EXIT!
DIR("A" V+5*
DIR("B" V+5*
DIR(0 V+5*
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+6*, EXIT!, LOOP+1
JJ V+6*, EXIT!
X EXIT!
Y V+5, EXIT!

Marked Items

Name Field # of Occurrence
$T(TEXT+JJ V+6
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