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

Package: Event Capture

Routine: ECED3


Information

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

Source Information

Source file <ECED3.m>

Entry Points

Name Comments DBIA/ICR reference
EDIT ; enter or edit procedure
ASK ;edit cat
NEW ; create new procedure
NEWC
LIST
PICK
P ; get procedure
P1 ;
NEWP
P2 ;ask mul proc
PROS ;
LISTP
SETP ;set proc info
DIE ;edit record
SET ; sets data
DEL ; delete existing procedure
DELP
SELC ; select category
GETCLN ;- Get assoc clinic from event code screen

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !!,"Press <RET> to edit the selected procedure, or enter D to delete",!,"the procedure.",!
  • Line Location: EDIT+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"CATEGORY: "_ECCN
  • Line Location: NEW+3
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 procedure category, or ^ to quit.",!!,"Press <RET> to continue ",!
  • Line Location: PICK+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: P+5
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+0
Function Call: WRITE
  • Prompt: ?72,"National",!,?5,"Procedure Name",?40,"Synonym",?72,"Number",!
  • Line Location: LISTP+1
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+3
Function Call: WRITE
  • Prompt: " "_$S(ECCPT="":"",1:ECPTCD_" ")_$E(ECPN,1,50)
  • Line Location: SETP+4
Function Call: WRITE
  • Prompt: !,?8,"** Procedure code replaced, all modifiers deleted **"
  • Line Location: DIE+3
Function Call: WRITE
  • Prompt: !!,"You should edit this patient procedure and enter an active clinic.",!!
  • Line Location: DIE+85
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: DIE+86
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !!,"Enter YES to delete this procedure, or <RET> to quit this option."
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !!,"Deleting Procedure... "
  • Line Location: DELP+0
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: DELP+2
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

FileMan Files Accessed Via FileMan Db Call

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