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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ECUTL2

Package: Event Capture

Routine: ECUTL2


Information

ECUTL2 ;ALB/JAM - Event Capture Diagnosis Code Selection ;23 Aug 2007

Source Information

Source file <ECUTL2.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 5 ^DIC  FILE^DICN  ^DIE  ^DIK  ^DIR  
Lexicon Utility 3 LOOK^LEXA  CONFIG^LEXSET  $$IMPDATE^LEXU  
Event Capture 2 PCETASK^ECPCEU  $$FNDVST^ECUTL  
DRG Grouper 1 ($$ICDDX,$$SINFO)^ICDEX  
PCE Patient Care Encounter 1 $$DELVFILE^PXAPI  

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

Package Total Caller Graph
Event Capture 9 ECBEN2U  ECBENF  ECBEPF  ECEDF  ECEDU  ECEFPAT  ECMLMF  ECMUTL1  
ECUERPC1  

Entry Points

Name Comments DBIA/ICR reference
DIAG ;ask dx question (primary and multiple secondary)
PDXMSG ; Check for existence of primary diagnoses and display message
PDXCK(ECDFN,ECDTX,ECLX,EC4X) ;Get primary dx frm file #721 for pat encounter
; Input: ECDFN = Patient ien
; ECDTX = Date/time of procedure
; ECLX = Location ien
; EC4X = Clinic ien
PDX ;Ask primary diagnoses code
; Variables: ECDX = Primary diagnoses ien
; ECDXN = Primary diagnoses code, default if define
; ECOUT = Error flag (1/0)
;
SDX ;Ask secondary diagnoses code
; Variables: ECDX = Primary diagnoses ien, default if define
; ECDXN = Primary diagnoses code
; ECOUT = Error flag (1/0)
; ECDXS = Array with secondary diagnosis code
; subscript=dx code and set equal to dx ien
DELDUP ;Delete secondary diagnosis code from list
LEX ;ICD code from LEX database
LSTDXS ;list ICD code
PXUPD(ECDFN,ECDT,ECL,EC4,ECDXP,ECDXX,ECXIEN) ; Update all associated
; procedures for an EC Patient encounter with the same primary and
; secondary dx codes

External References

Name Field # of Occurrence
^DIC LEX+9
FILE^DICN PXUPD+35
^DIE PXUPD+25
^DIK PXUPD+29
^DIR DELDUP+4
PCETASK^ECPCEU PXUPD+45
$$FNDVST^ECUTL PXUPD+39
$$ICDDX^ICDEX PDXCK+21, PDXCK+28, PDX+12, SDX+15, LSTDXS+8
$$SINFO^ICDEX PDXCK+19, PDX+11, SDX+14, LSTDXS+7
LOOK^LEXA LEX+7
CONFIG^LEXSET LEX+6
$$IMPDATE^LEXU LEX+5
$$DELVFILE^PXAPI PXUPD+43

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PDXMSG+5
Function Call: WRITE
  • Prompt: !?5,"WARNING: Primary Diagnoses already on File for this encounter."
  • Line Location: PDXMSG+6
Function Call: WRITE
  • Prompt: !?5,"If changed, all procedures will be updated. ("_ECDXN_")"
  • Line Location: PDXMSG+7
Function Call: WRITE
  • Prompt: !!?5,TXT
  • Line Location: PDXMSG+12
Function Call: WRITE
  • Prompt: !?5,TXT
  • Line Location: PDXMSG+15
Function Call: WRITE
  • Prompt: !,"This is a required response. Enter '^' to exit"
  • Line Location: PDX+9
Function Call: WRITE
  • Prompt: " Already exist as primary dx."
  • Line Location: SDX+11
Function Call: WRITE
  • Prompt: !?1,"Secondary ICD code entered:"
  • Line Location: LSTDXS+3
Function Call: WRITE
  • Prompt: !,?4,DXS,?15,$P($$ICDDX^ICDEX(DXS,$G(ECDT),+ECCS,"E"),"^",4)
  • Line Location: LSTDXS+8
Routine Call
  • DIC
  • Line Location:
    • LEX+9
Routine Call
  • DIE
  • Line Location:
    • PXUPD+25
Routine Call
  • DIR
  • Line Location:
    • DELDUP+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECH - [#721] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(721 PXUPD+34
^DIC(9.4 - [#9.4] PXUPD+42
^ECH - [#721] PDXCK+16, PDXCK+17, PDXCK+23, PDXCK+24, PDXCK+25, PDXCK+26, PXUPD+23, PXUPD+26*, PXUPD+29, PXUPD+30!
, PXUPD+37
^ECH("APAT" PDXCK+14, PDXCK+15

Label References

Name Line Occurrences
$$PDXCK PDXMSG+4, PXUPD+18
DELDUP SDX+12
LEX PDX+8, SDX+9
LSTDXS SDX+9
PDX DIAG+4
PDXMSG DIAG+2
SDX DIAG+6

Naked Globals

Name Field # of Occurrence
^("SEND" PDXCK+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APP LEX+2~, LEX+5*, LEX+6, LEX+7
DA PDXCK+11~, PDXCK+12*, PDXCK+15*, PDXCK+16, PDXCK+17, PDXCK+22, PDXCK+23, PDXCK+24, PDXCK+25, PDXCK+26
, PXUPD+14~, PXUPD+25*, PXUPD+28*, PXUPD+29*
DA(1 PXUPD+28*, PXUPD+34*, PXUPD+35
DD PXUPD+34!
DEFX PDX+5~, PDX+7*, SDX+7~, LEX+3
DIC PDX+5~, SDX+7~, LEX+8*, PXUPD+14~, PXUPD+34!, PXUPD+35*
DIC("A" LEX+8*
DIC("P" PXUPD+34*
DIC(0 LEX+8*, PXUPD+34*
DIE PXUPD+14~, PXUPD+20*
DIK PXUPD+15~, PXUPD+28*
DIR DELDUP+1~
DIR("A" DELDUP+2*
DIR(0 DELDUP+3*
DIROUT DELDUP+1~, DELDUP+5, PXUPD+14~
DIRUT DELDUP+1~, DELDUP+5
DO PXUPD+34!
DR PXUPD+14~, PXUPD+25*
DTOUT DIAG+7, PDX+5~, SDX+7~, DELDUP+1~, LEX+10, PXUPD+14~
DUOUT DIAG+7, PDX+5~, SDX+7~, DELDUP+1~, LEX+10
DXIEN PDXCK+11~, PDXCK+26*, PDXCK+28
DXN PDXCK+11~, PDXCK+28*, PXUPD+15~, PXUPD+32*, PXUPD+33
DXS PDXCK+11~, PDXCK+25*, PDXCK+26, LSTDXS+1~, LSTDXS+4*, LSTDXS+5*, LSTDXS+8
DXSIEN PXUPD+15~, PXUPD+33*, PXUPD+35
EC2PCE PXUPD+39!, PXUPD+45!
EC4 PDXMSG+4, PXUPD~, PXUPD+18
EC4X PDXCK~, PDXCK+13, PDXCK+16
ECCS PDXCK+11~, PDXCK+19*, PDXCK+21, PDXCK+28, PDX+5~, PDX+11*, PDX+12, SDX+7~, SDX+14*, SDX+15
, LSTDXS+1~, LSTDXS+7*, LSTDXS+8
ECDFN PDXMSG+4, PDXCK~, PDXCK+13, PDXCK+14, PDXCK+15, PXUPD~, PXUPD+18
ECDT PDXMSG+4, PDX+11, PDX+12, SDX+14, SDX+15, LEX+5, LEX+6, LEX+7, LSTDXS+7, LSTDXS+8
, PXUPD~, PXUPD+18
ECDTX PDXCK~, PDXCK+13, PDXCK+14, PDXCK+15, PDXCK+19, PDXCK+21, PDXCK+28
ECDX PDXMSG+2*, PDXMSG+8, PDXCK+17*, PDXCK+21, PDXCK+22, PDX+6*, PDX+12*, PXUPD+14~
ECDXIEN PDXCK+12!, PXUPD+14~, PXUPD+19
ECDXIEN( PDXCK+22*, PXUPD+21
ECDXN PDXMSG+2*, PDXMSG+7, PDXCK+21*, PDXCK+22, PDX+6*, PDX+7, PDX+10*, SDX+11, PXUPD+14~
>> ECDXO PDXMSG+2*, PDXMSG+8*
ECDXP PXUPD~, PXUPD+17, PXUPD+24, PXUPD+25, PXUPD+26
ECDXS PDXMSG+2!, LSTDXS+2, PXUPD+15~
ECDXS( PDXCK+28*, SDX+12, SDX+15*, DELDUP+6!, LSTDXS+5
ECDXX PXUPD~
ECDXX( PXUPD+32, PXUPD+33
ECERR PXUPD+14~, PXUPD+16*, PXUPD+17, PXUPD+19, PXUPD+46
ECIEN PXUPD+14~, PXUPD+20*, PXUPD+21*, PXUPD+22, PXUPD+23, PXUPD+25, PXUPD+26, PXUPD+28, PXUPD+29, PXUPD+30
, PXUPD+34, PXUPD+37
ECL PDXMSG+4, PXUPD~, PXUPD+18
ECLX PDXCK~, PDXCK+13
>> ECNODE PXUPD+23*, PXUPD+24
ECODE PDX+5~, PDX+8, PDX+10, PDX+12, SDX+7~, SDX+10, SDX+11, SDX+12, SDX+15, DELDUP+2
, DELDUP+6, LEX+13*
>> ECOUT DIAG+4, DIAG+6, PDX+8, SDX+8*, SDX+9, DELDUP+5*, LEX+10*, LEX+12*
>> ECPCE DIAG+7
ECPDX PDXMSG+1~, PDXMSG+4*, PDXMSG+5, PDXMSG+9, PXUPD+14~, PXUPD+18*
ECPKG PXUPD+41~, PXUPD+42*, PXUPD+43
ECSOU PXUPD+41~, PXUPD+42*, PXUPD+43
ECVAR1 PXUPD+15~, PXUPD+39*
ECVST PXUPD+15~, PXUPD+37*, PXUPD+39, PXUPD+43
>> ECVV PXUPD+43*
ECX LEX+2~, LEX+3*, LEX+7
ECXIEN PXUPD~, PXUPD+22
IMP LEX+2~, LEX+5*
PCEF PDXCK+11~, PDXCK+12*, PDXCK+13, PDXCK+14, PDXCK+23*, PDXCK+29
PDXF PDXCK+11~, PDXCK+12*, PDXCK+13, PDXCK+14, PDXCK+22*, PDXCK+29
PROMPT PDX+5~, PDX+6*, SDX+8*, LEX+8
TXT PDXMSG+1~, PDXMSG+10*, PDXMSG+11*, PDXMSG+12, PDXMSG+13*, PDXMSG+14*, PDXMSG+15
U PDXMSG+9, PDXCK+13, PDXCK+14, PDXCK+16, PDXCK+17, PDXCK+21, PDXCK+22, PDXCK+26, PDXCK+28, PDXCK+29
, PXUPD+24, PXUPD+33, PXUPD+34
VALQUIET PXUPD+15~, PXUPD+43*
X PDX+5~, PDX+9, SDX+7~, LEX+3*, LEX+8, LEX+11, PXUPD+14~, PXUPD+35*
Y PDX+5~, SDX+7~, SDX+9, DELDUP+6, LEX+12
Y(1 LEX+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All