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

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls