Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 2 FILE^DICN  ^DIE  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
DRG Grouper 1 $$ICDDX^ICDCODE  
Event Capture 1 ($$PDXCK,$$PXUPD,PDX,SDX)^ECUTL2  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Event Capture 2 ECED2  ECED3  

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

External References

Name Field # of Occurrence
FILE^DICN DXEDT+24
^DIE DXEDT+9
$$PDXCK^ECUTL2 DXEDT+3
$$PXUPD^ECUTL2 DXEDT+19
PDX^ECUTL2 DXEDT+7
SDX^ECUTL2 DXEDT+16
$$ICDDX^ICDCODE DXEDT+5
$$CPT^ICPTCOD SETE+10

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
Routine Call
  • DIE
  • Line Location:
    • DXEDT+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(721 DXEDT+24
^EC(725 - [#725] SETE+8, SETE+12
^EC(726 - [#726] SETE+2
^ECH - [#721] SETE+2, DXEDT+2
^ECJ - [#720.3] SETE+5
^ECJ("AP" SETE+4

Naked Globals

Name Field # of Occurrence
^(0 SETE+2, SETE+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT MSGC+2*
>> DA SETE+2*, DXEDT+9*, DXEDT+20*
>> DA(1 DXEDT+23*
DD DXEDT+23!
DIC DXEDT+23!*, DXEDT+25!
DIC("P" DXEDT+24*
DIC(0 DXEDT+23*
DIE DXEDT+9!
DO DXEDT+23!
>> DR DXEDT+9*
DTIME MSG
DXS DXEDT+16*, DXEDT+22*, DXEDT+25!
DXSIEN DXEDT+22*, DXEDT+24, DXEDT+25!
>> EC SETE+2
>> EC( SETE+2
>> EC(0 SETE+2*, SETE+3, SETE+10
>> EC1 MSGC+1
>> EC4 DXEDT+2*, DXEDT+3, DXEDT+19
>> ECC SETE+2*, SETE+4
>> ECCN HDR+1, HDR1+1, SETE+2*, HDRE+1
>> ECCPT HDR+2, SETE+8*, SETE+9, SETE+10, HDRE+1
>> ECD SETE+4
>> ECDATE HDR1+1
>> ECDFN DXEDT+3, DXEDT+19
>> ECDN HDR1+1
ECDT DXEDT+1~, DXEDT+2*
>> ECDX DXEDT+2*, DXEDT+5*, DXEDT+8
>> ECDX1 DXEDT+5, DXEDT+8*, DXEDT+9, DXEDT+11*, DXEDT+12, DXEDT+19
ECDXI DXEDT+1~, DXEDT+5*, DXEDT+6
>> ECDXIEN( DXEDT+3!, DXEDT+12
>> ECDXN DXEDT+2*, DXEDT+5*, DXEDT+6
ECDXS DXEDT+1~, DXEDT+17!, DXEDT+25!
ECDXS( DXEDT+22
ECDXX DXEDT+17!*, DXEDT+19, DXEDT+20!, DXEDT+25!*
>> ECFILE SETE+6*, SETE+7, SETE+11, SETE+12
>> ECFN DXEDT+2, DXEDT+3, DXEDT+9, DXEDT+20, DXEDT+23
>> ECL SETE+4, DXEDT+3, DXEDT+19
>> ECLN HDR+1, HDR1+1, HDRE+1
>> ECMN HDR+1, HDR1+1, HDRE+1
>> ECNEWDT DXEDT+2, DXEDT+3, DXEDT+5, DXEDT+19
>> ECOUT MSG*, DXEDT+7
>> ECP SETE+3*, SETE+4, SETE+8, SETE+12
>> ECPAT HDR+1, HDR1+1, HDRE+1
ECPDX DXEDT+1~, DXEDT+3*
>> ECPN HDR+2, SETE+7*, SETE+11*, SETE+12*, HDRE+1
>> ECPROF SETE+3*, SETE+6
>> ECPSY SETE+4*, SETE+5
>> ECPSYN SETE+5*, HDRE+1
>> ECPTCD HDR+2, SETE+9*, SETE+10*, HDRE+1
ECPXD SETE+1~, SETE+9*, SETE+10*, SETE+11
>> ECSN HDR+1, HDR1+1, HDRE+1
IEN DXEDT+1~, DXEDT+3*, DXEDT+11*, DXEDT+12*
IOF HDR+1, HDR1+1, HDRE+1
>> NATN HDR+4
PXUPD DXEDT+1~, DXEDT+19*, DXEDT+20!
>> SYN HDR+3
U SETE+8, SETE+10, SETE+11, DXEDT+5, DXEDT+6, DXEDT+12, DXEDT+22, DXEDT+24
>> X MSG*, DXEDT+11, DXEDT+24*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All