Routine: ECED2

Information

ECED2 ;BIR/MAM,JPW-Enter Event Capture Data (cont'd) ;7 May 96

Source file <ECED2.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,CNT_". ",?5,$P(ECC(CNT),"^",2) Line Location: LIST+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: PICK+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: PICK+1
Function Call: WRITE	Prompt: !!,"Select the number corresponding to the category, or ^ to quit.",!!,"Press <RET> to continue ",! Line Location: PICK+1
Function Call: WRITE	Prompt: !,"Category: "_ECCN,! Line Location: PICK+3
Function Call: WRITE	Prompt: !!,"Category not defined.",! Line Location: P+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: P+6
Function Call: WRITE	Prompt: !,"Procedure: " Line Location: P1+1
Function Call: WRITE	Prompt: $S(ECCPT="":"",1:ECPTCD_" ")_$E(ECPN,1,50) Line Location: P1+2
Function Call: WRITE	Prompt: !,"Available Procedures within "_ECDN_": ",! Line Location: LISTP+2
Function Call: WRITE	Prompt: ?72,"National",!,?5,"Procedure Name",?40,"Synonym",?72,"Number",! Line Location: LISTP+3
Function Call: WRITE	Prompt: !,CNT_".",?5,$E($P(^TMP("ECPRO",$J,CNT),"^",4),1,30),?38,$E($P(^(CNT),"^",3),1,30),?72,$P(^(CNT),"^",5) Line Location: LISTP+5
Function Call: WRITE	Prompt: " "_$S(ECCPT="":"",1:ECPTCD_" ")_$E(ECPN,1,50) Line Location: SETP+7
Function Call: READ	Variable: X Timeout: DTIME Line Location: SELC+1
Function Call: WRITE	Prompt: @IOF,!,$S(EC1:"Available Procedures",1:"Categories")_" within ",ECDN," : ",! Line Location: SELC+2