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

Package: Event Capture

Routine: ECED1


Information

ECED1 ;BIR/MAM,JPW-Event Capture Data Entry (cont'd) ;6 Mar 96

Source Information

Source file <ECED1.m>

Entry Points

Name Comments DBIA/ICR reference
CAT ;cat & set unit info
PAT ;get pat
ASKD ;get proc date
PR
PROS ; display procedures
SELP
LIST ; list procedures
HDR ; heading
SEL ; select procedure
SET ; set EC array
SET1
DATE ;ask date

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Location: "_ECLN,!,"DSS Unit: "_ECDN,!
  • Line Location: CAT+1
Function Call: WRITE
  • Prompt: !!,"WARNING "_"[PATIENT DIED ON "_$P(VADM(6),U,2)_"] ",!!
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PROS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PROS+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SELP+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SELP+2
Function Call: WRITE
  • Prompt: !!,"Enter N to create a new procedure, or the number corresponding to the",!,"procedure that you want to edit or delete. Enter ^ quit.",!!,"Press <RET> to continue "
  • Line Location: SELP+2
Function Call: WRITE
  • Prompt: !!,CNT_".",?5,"Category : "_$E($P(EC(CNT),"^",2),1,23),?41,"Pr. Date: ",ECDTM,?67,$P(EC(CNT),"^",4),!,?5,"Procedure: "_$E($P(EC(CNT),"^",3),1,50)_" ("_$P(EC(CNT),"^",6)_")",?67,$E($P(EC(CNT),"^",5),1,13)
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !?6,"Modifier: "," - ",MOD," ",$E(EC(CNT,"MOD",MOD),1,55)
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: !?5,"Procedure Reason: "_$P(EC(CNT),"^",9)
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: @IOF,!,"Location: "_ECLN,?40,"Service: "_ECSN,!,"Section: "_ECMN,?40,"DSS Unit: "_ECDN
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Patient: "_ECPAT,?40,"Procedure Date: "_ECDATE
  • Line Location: HDR+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !!,"To create a new procedure, type N. If you would like to edit or delete",!,"one of the procedures listed, enter the corresponding number. Press <RET>",!,"to continue the list, or ^ to quit."
  • Line Location: SEL+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+6
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: SEL+6
Function Call: WRITE
  • Prompt: !!,"Event Capture patient data missing.",!!
  • Line Location: SET+2
Function Call: WRITE
  • Prompt: !!,"You must enter both DATE and TIME to create a new procedure record.",!!
  • Line Location: DATE+2
Info |  Source |  Entry Points |  Interaction Calls