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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^DIE  EN^DIK  ^DIR  
Event Capture 1 ^ECKILL  
Kernel 1 $$UP^XLFSTR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Event Capture 1 ECDSS PROCEDURE  

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

External References

Name Field # of Occurrence
^DIE INDEX+3, DIE+1
EN^DIK INDEX+1, INDEX+2, SURE+5
^DIR NEWED+4, ASK+5, ASK+13, NUM+4, HDRL+1, EDIT+4, SURE+3, QUEST+3
^ECKILL END+1
$$UP^XLFSTR NUM+5

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
Routine Call
  • DIE
  • Line Location:
    • INDEX+3
    • DIE+1
Routine Call
  • DIR
  • Line Location:
    • NEWED+4
    • ASK+5
    • ASK+13
    • NUM+4
    • HDRL+1
    • EDIT+4
    • SURE+3
    • QUEST+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^EC(725 - [#725] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^EC(725 - [#725] ASK+8, NUM+6, NUM+7, NUM+8, FIND+1, FIND+2, FIND+3, FIND+5*, FIND+6, FIND+7*
, LIST+3, EDIT+2, SURE+5*!, QUEST+4

Label References

Name Line Occurrences
ASK ASK+10, ASK+14, NUM+4, INDEX+4
DIE EDIT+5
EDIT ASK+10
END NEWED+4, ASK+5, ASK+6, ASK+9, ASK+13
HDRL LIST+2, LIST+3
LIST NEWED+5
MSG NEWED+4, ASK+6, ASK+13, EDIT+1, EDIT+4, SURE+3, SURE+4, QUEST+3
MSG1 NUM+6, NUM+7, NUM+8
MSG2 ASK+14, NUM+4
NUM NUM+6, NUM+7, NUM+8
QUEST ASK+8
SURE EDIT+6

Naked Globals

Name Field # of Occurrence
^(0 LIST+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA INDEX+1*, INDEX+2*, INDEX+3!, EDIT+2!*, DIE+1!*, SURE+2!, SURE+5!*
DIE INDEX+3*!, DIE+1!*
DIK INDEX+1*!, INDEX+2*!, SURE+5!*
DIK(1 INDEX+1*, INDEX+2*, SURE+5*
DIR NEWED+2!, NEWED+4!, ASK+3!, ASK+5!, ASK+11!, ASK+13!, NUM+4!, HDRL+1!, EDIT+2!, EDIT+4!
, DIE+1!, SURE+2!, QUEST+1!, QUEST+3!
DIR("?" NEWED+3*, ASK+5*, ASK+12*, NUM+3*, EDIT+3*, SURE+2*, QUEST+2*
DIR("A" NEWED+2*, ASK+4*, ASK+11*, NUM+3*, EDIT+3*, SURE+2*, QUEST+1*
DIR("B" NEWED+2*, ASK+11*, EDIT+2*, QUEST+1*
DIR(0 NEWED+2*, ASK+3*, ASK+11*, NUM+3*, HDRL+1*, EDIT+2*, SURE+2*, QUEST+1*
DIRUT NEWED+4, ASK+3!, ASK+6, ASK+11!, ASK+13, NUM+4, HDRL+1!, EDIT+2!, EDIT+4, SURE+3
, QUEST+1!, QUEST+3
DR INDEX+3*, DIE+1*!
DTOUT ASK+11!, QUEST+1!
DUOUT ASK+11!, QUEST+1!
>> EC1 EDIT+2*, EDIT+6, SURE+1, SURE+5
>> ECJLP ASK+10*, ASK+14*, NUM+4*, LIST+1*, LIST+3*, LIST+4, EDIT+1*, MSG2+2
ECNA ASK+3!, NUM+9*, FIND+7
>> ECNEW EDIT+6*, SURE+5
>> ECNR LIST+1*, LIST+3*
>> ECOUT ASK+8*, ASK+9, LIST+1*, LIST+2, LIST+3, HDRL+1*, HDRL+2, SURE+3*, QUEST+3*
>> ECP ASK+8*, QUEST+1, QUEST+4
ECPN ASK+3!, ASK+7*, ASK+8, ASK+11, NUM+1, FIND+7, INDEX+4, EDIT+1, MSG2+1
>> ECPR ASK+8*, ASK+10, EDIT+1, EDIT+2, DIE+1, SURE+5, QUEST+4*
ECRN ASK+3!, FIND+2*, FIND+3*, FIND+4*, FIND+5, FIND+7, INDEX+1, INDEX+2
IOF NEWED+1, HDRL+3
IOSL LIST+3, HDRL+1
LN ASK+1!*, ASK+2!
UPY NUM+4~, NUM+5*, NUM+6, NUM+7, NUM+8
Y NEWED+5, ASK+5, ASK+7, ASK+14, NUM+5, NUM+6!, NUM+7!, NUM+8!, NUM+9, EDIT+5
, EDIT+6, SURE+1, SURE+4, SURE+5, MSG1+1, QUEST+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All