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

Package: Event Capture

Routine: ECEDU


Information

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

Source Information

Source file <ECEDU.m>

Entry Points

Name Comments DBIA/ICR reference
HDR ;hdr for filing
MSGC ;msg cat
HDR1 ; heading
MSG
SETE ;set edit
HDRE ; hdr for editing
DXEDT ;ALB/JAM - Edit Primary and multiple secondary dx codes

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"ENTERING A NEW PROCEDURE FOR "_ECPAT_" ...",!!,"LOCATION: "_ECLN,!,"SERVICE: "_ECSN,!,"SECTION: "_ECMN,!,"CATEGORY: "_ECCN,!!,"PROCEDURE: "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $S(ECCPT="":"",1:ECPTCD_" ")_$E(ECPN,1,50)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: " ["_SYN_"]"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: " (#"_NATN_")"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"Please enter the number that corresponds to the "_$S(EC1:"procedure",1:"category")_" from which",!,"you would like to select a procedure. If you would like to continue",!,"with the list, press <RET>. Enter ^ to quit."
  • Line Location: MSGC+1
Function Call: WRITE
  • Prompt: @IOF,!,"Patient: "_ECPAT,?40,"Procedure Date: "_ECDATE,!!,"Location: "_ECLN,?40,"Service: "_ECSN,!,"Section: "_ECMN,?40,"DSS Unit: "_ECDN
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !,"Category: "_ECCN
  • Condition for execution: $D(ECCN)
  • Line Location: HDR1+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !!,"No procedures entered. No Action Taken.",!!,"Press <RET> to continue "
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: @IOF,!,"EDITING A PROCEDURE FOR "_ECPAT_" ...",!!,"LOCATION: "_ECLN,!,"SERVICE: "_ECSN,!,"SECTION: "_ECMN,!,"CATEGORY: "_ECCN,!,"PROCEDURE: "_$S(ECCPT="":"",1:ECPTCD_" ")_ECPN_$S(ECPSYN="":"",1:" ["_ECPSYN_"]")
  • Line Location: HDRE+1
Function Call: WRITE
  • Prompt: !,"Primary ICD-9 Code: ",ECDXN," ",$P(ECDXI,U,4)
  • Line Location: DXEDT+6
Info |  Source |  Entry Points |  Interaction Calls