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

Package: Event Capture

Routine: ECDSS


Information

ECDSS ;BIR/RHK,JPW-Enter/Edit Local Procedures ;30 Apr 96

Source Information

Source file <ECDSS.m>

Entry Points

Name Comments DBIA/ICR reference
NEWED ;
ASK ;ask for procedure name
NUM ; set proc # code
FIND ;find next number
INDEX ; Set file indexes
END ;kill variables
LIST ;List of local procedures
HDRL ;hdr for listing
EDIT ;
DIE ;edit nat #
SURE ;ask edit
MSG ;message
MSG1 ;dup number msg
MSG2 ;
QUEST ;ask if match

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Enter/Edit Local Procedures",!
  • Line Location: NEWED+1
Function Call: WRITE
  • Prompt: !!,?5,LN
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,?5,"* You must enter an associated CPT with your local procedure",?68,"*",!,?5,"* to pass this procedural data to PCE.",?68,"*",!,?5,LN,!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"Checking current procedures...",!
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: !!,"Local Procedure: ",ECPN,!
  • Line Location: NUM+1
Function Call: WRITE
  • Prompt: !,?5,"** Please NOTE: The number code must be 5 characters in length,",!,?23,"starting with an uppercase alpha character,",!,?23,"followed by 4 alpha or numeric characters.",!
  • Line Location: NUM+2
Function Call: WRITE
  • Prompt: !,ECPN," added.",!
  • Line Location: INDEX+4
Function Call: WRITE
  • Prompt: !,$P(^(0),"^"),?45,$P(^(0),"^",2),!
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: @IOF,!,"Listing local procedures...",!!,"Procedure Name",?40,"National #/Code",!
  • Line Location: HDRL+3
Function Call: WRITE
  • Prompt: !,ECPN," is a nationally defined procedure.",!,"You cannot edit this procedure.",!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !!,"You want to change the procedure name ",EC1,!,"to ",Y,"."
  • Line Location: SURE+1
Function Call: WRITE
  • Prompt: !!,"Named has been changed to ",ECNEW,".",!!
  • Line Location: SURE+5
Function Call: WRITE
  • Prompt: !,"No action taken.",!
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,Y," currently exists. The must be a unique number code.",!,"Enter a different code for this local procedure.",!
  • Line Location: MSG1+1
Function Call: WRITE
  • Prompt: !,"Procedure ",ECPN," was not added."
  • Line Location: MSG2+1
Function Call: WRITE
  • Prompt: !,"A unique number code was not entered."
  • Condition for execution: ECJLP
  • Line Location: MSG2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG2+2

FileMan Files Accessed Via FileMan Db Call

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