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

Package: Event Capture

Routine: ECUTL2


Information

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

Source Information

Source file <ECUTL2.m>

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

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

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