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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ECDSINAC

Package: Event Capture

Routine: ECDSINAC


Information

ECDSINAC ;BIR/RHK,TTH,JPW-Inactivate Event Code Screen ;6 May 96

Source Information

Source file <ECDSINAC.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  ^DIR  
Event Capture 2 PROS^ECHECK1  ^ECL  

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 ECNACT  

Entry Points

Name Comments DBIA/ICR reference
UNIT ;Allow user to enter DSS Unit.
CAT ;Display or allow user to select category.
PROC ;Set Procedures in ^TMP array.
PROC1
PROC2
STUFF ;Inactive or active Event Code Screen.
REPET
END ;Kill variables.
END0
END1
LISTALL ;Display the available procedures.
RETURN ;Ask user to exit or continue.
RETURN2 ;Ask user to activate procedures.
MATCH ;Check ^TMP cross-references.
LABEL
HELP ;Display user options.
SPLIT ;

External References

Name Field # of Occurrence
^DIC UNIT+3, CAT+5
^DIE STUFF+7
^DIR STUFF+5, RETURN+1, RETURN2+2
PROS^ECHECK1 PROC1
^ECL UNIT+2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ECDSINAC+4
Function Call: WRITE
  • Prompt: !,"You have no locations flagged for event capture.",!,"See your program coordinator.",!!
  • Line Location: ECDSINAC+4
Function Call: WRITE
  • Prompt: "Press <RET> to continue "
  • Line Location: ECDSINAC+4
Function Call: WRITE
  • Prompt: @IOF,!,"Inactivate Event Code Screen",!
  • Line Location: UNIT+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: UNIT+1
Function Call: WRITE
  • Prompt: !,"Category: None"
  • Line Location: UNIT+5
Function Call: WRITE
  • Prompt: !,"Category: None"
  • Line Location: UNIT+7
Function Call: WRITE
  • Prompt: !,"Category: ",ECCN
  • Line Location: CAT+3
Function Call: WRITE
  • Prompt: !!,"Enter Procedure: "
  • Line Location: PROC2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: STUFF+4
Function Call: WRITE
  • Prompt: !!,"Event Code Screen: ",ECTEST(1)
  • Line Location: STUFF+13
Function Call: WRITE
  • Prompt: !,"Procedure: ",PROCNAM," is now"_$S($G(ECDEL)=1:" ",1:" in")_"activated."
  • Line Location: STUFF+14
Function Call: WRITE
  • Prompt: @IOF,!!,"Available Procedures: ",!!
  • Line Location: LISTALL+1
Function Call: WRITE
  • Prompt: !,$E(XX,1,4),?7,$E($P(^TMP("ECPRO",$J,XX),U,3),1,32),?41,$E($P(^TMP("ECPRO",$J,XX),U,4),1,30),?73,$P(^TMP("ECPRO",$J,XX),U,5)
  • Line Location: LISTALL+3
Function Call: WRITE
  • Prompt: !!,"Select Number (1-"_CNT_"): "
  • Line Location: LISTALL+5
Function Call: WRITE
  • Prompt: !!,"This is a listing of all available, active procedures.",!,"Please enter the correct number corresponding to the desired procedure.",!
  • Line Location: LISTALL+8
Function Call: WRITE
  • Prompt: !!,"Select a single number corresponding to the procedure.",!
  • Line Location: LISTALL+9
Function Call: WRITE
  • Prompt: " **Invalid Number**",!
  • Line Location: LISTALL+10
Function Call: WRITE
  • Prompt: !
  • Line Location: RETURN+1
Function Call: WRITE
  • Prompt: !!,"The Event Code Screen for this procedure has a status of inactive."
  • Line Location: RETURN2+1
Function Call: WRITE
  • Prompt: !,"Num",?7,"Synonym",?41,"Procedure Name",?73,"Nat ID",!
  • Line Location: LABEL+0
Function Call: WRITE
  • Prompt: "---",?7,"-------",?41,"--------------",?73,"------",!
  • Line Location: LABEL+1
Function Call: WRITE
  • Prompt: !!,"Enter one of the following: < Procedure Name",!,?29,"< Procedure Number"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,?29,"< Procedure Synonym",!,?29,"< Enter ""??"" to List Procedures",!
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !!,"Select Number, or press <RET> to continue listing : "
  • Line Location: SPLIT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SPLIT+3
Function Call: WRITE
  • Prompt: !!,"Please enter the correct number corresponding to the desired procedure.",!
  • Line Location: SPLIT+4
Function Call: WRITE
  • Prompt: !!,"Select a single number corresponding to the procedure.",!
  • Line Location: SPLIT+5
Function Call: WRITE
  • Prompt: " ** Invalid Number **"
  • Line Location: SPLIT+6
Routine Call
  • DIC
  • Line Location:
    • UNIT+3
    • CAT+5
Routine Call
  • DIE
  • Line Location:
    • STUFF+7
Routine Call
  • DIR
  • Line Location:
    • STUFF+5
    • RETURN+1
    • RETURN2+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] ECDSINAC+4
^EC(726 - [#726] CAT+3
^ECJ - [#720.3] STUFF+2, STUFF+6
^ECJ("AP" UNIT+5, CAT+2
^TMP("ECPRO" PROC1!, PROC2+1!, STUFF+1, STUFF+10, STUFF+11, END+1!, LISTALL+2, LISTALL+3, LISTALL+6!, LISTALL+7
, LISTALL+10, LISTALL+11, MATCH+2, MATCH+3, MATCH+4, SPLIT+6, SPLIT+7

Label References

Name Line Occurrences
CAT UNIT+6
END UNIT+2, UNIT+3, UNIT+4, PROC2+5, PROC2+7, PROC2+9, STUFF+3, STUFF+6
END0 STUFF+6
END1 REPET
HELP PROC2+3
LABEL LISTALL+1, SPLIT+3
LISTALL PROC2+4, PROC2+8, LISTALL+2, LISTALL+8, LISTALL+9, LISTALL+10
MATCH PROC2+7
PROC UNIT+8
PROC2 PROC2+3, STUFF+6, REPET
REPET STUFF+3
RETURN LISTALL+8, LISTALL+9, LISTALL+10, SPLIT+4, SPLIT+5, SPLIT+6
RETURN2 STUFF+6
SPLIT LISTALL+2
STUFF PROC2+7

Naked Globals

Name Field # of Occurrence
^(0 UNIT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS END+2!, LISTALL+1*, LISTALL+2, LISTALL+5*, LISTALL+6, LISTALL+7, LISTALL+8, LISTALL+9, LISTALL+10, LISTALL+11
, SPLIT+1*, SPLIT+2, SPLIT+3, SPLIT+4, SPLIT+5, SPLIT+6, SPLIT+7
CNT CAT+1*, CAT+2*, CAT+3, END1!, LISTALL+2*, LISTALL+3*, LISTALL+5
DA STUFF+1*, STUFF+2, STUFF+6, STUFF+7!, END1!
DIC UNIT+3!*, CAT+4*, CAT+5!, END1!
DIC("A" UNIT+3*, CAT+4*
DIC("S" UNIT+3*, CAT+4*
DIC(0 UNIT+3*, CAT+4*
DIE STUFF+7*!, END1!
DIR END1!, RETURN+1!
DIR("A" STUFF+4*, RETURN2+2*
DIR("B" STUFF+4*, RETURN2+2*
DIR(0 STUFF+4*, RETURN+1*, RETURN2+2*
DIRUT UNIT+1!, STUFF+3, STUFF+6, END0!, RETURN2+2
DISYS END1!
DR STUFF+7!, STUFF+8*, STUFF+9*, END1!
DT STUFF+2, STUFF+6
DTIME ECDSINAC+4, PROC2, LISTALL+5, SPLIT+1
DTOUT PROC2+4, END0!, RETURN+1, RETURN2+2
DUOUT PROC2+4, END0!, RETURN+1, RETURN2+2
ECACTIV PROC1*, END0!
ECC UNIT+3*, UNIT+5*, UNIT+7*, CAT+1*, CAT+2*, CAT+3, CAT+6*, PROC+1, END+2!
ECC1 PROC+1*, STUFF+12, END+2!
ECCAT CAT+2*, END1!
ECCN CAT+3*, CAT+6*, END1!
ECCT UNIT+3*, UNIT+4, UNIT+7, END0!, END1!
ECD UNIT+3*, UNIT+5, CAT+2, STUFF+12, END+2!
ECDEL STUFF+1*, STUFF+6, STUFF+8, STUFF+14, END0!, END1!, RETURN2+2*
ECDN UNIT+3*, END1!
ECDONE PROC2+2, PROC2+5, PROC2+9, END0!, END1!, LISTALL+4, LISTALL+11*, SPLIT+7*
ECHOICE END+2!, END0!, END1!, LISTALL+2, LISTALL+4, SPLIT+2*, SPLIT+7*
ECINAC END0!
ECL UNIT+2, UNIT+5, CAT+2, STUFF+12, END+2!
ECLN END0!
ECOUT UNIT+2, UNIT+4, CAT+5*, PROC1*, PROC2+1*, PROC2+2*, PROC2+4*, PROC2+5, PROC2+7, PROC2+9
, STUFF+3*, END+1, END+2!, LISTALL+2, LISTALL+4, LISTALL+6*, LISTALL+7*, LISTALL+8, LISTALL+9, LISTALL+10
, RETURN+1*, RETURN2+2*, MATCH+1*, SPLIT+2*
ECP END0!
ECPC END0!
ECPCC END0!
ECPN END0!
ECPNN END0!
ECPRIEN END0!
ECPRO END0!
ECPROC PROC2+7, PROC2+8, STUFF+1, STUFF+10, STUFF+11, END1!, LISTALL+11*, MATCH+2*, MATCH+3*, MATCH+4*
, SPLIT+7*
ECPROF END0+1!
ECPRONAM END0+1!
ECPROS END+2!
ECPT END0+1!
ECR END+2!, END0!, END1!, LISTALL+1!, LISTALL+2, SPLIT+4*, SPLIT+5*, SPLIT+6*
ECTEST END1!
ECTEST(1 STUFF+12*, STUFF+13
ECUCAT END0+1!
ECUCATN END0+1!
ECYES STUFF+1*, STUFF+2*, STUFF+3, END1!
FROOT END0+1!
IOF UNIT+1, LISTALL+1, SPLIT+3
IOSL LISTALL+2
LOC END1!
NOTIOF UNIT+2*!
OK END+2!
PROC STUFF+10*, STUFF+12, END1!
PROCNAM STUFF+11*, STUFF+14, END1!
RK END0+1!
U UNIT+3, CAT+3, CAT+6, STUFF+1, STUFF+10, STUFF+11, LISTALL+3
X ECDSINAC+4*!
XX UNIT+1*, PROC2*, PROC2+1, PROC2+2, PROC2+3, PROC2+4, PROC2+5, END0+1!, LISTALL+2*, LISTALL+3
, MATCH+1, MATCH+2, MATCH+3, MATCH+4
Y UNIT+3, CAT+4!, CAT+5, CAT+6, STUFF+3, STUFF+4!, END0+1!, RETURN2+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All