ECUTL2 ;ALB/JAM - Event Capture Diagnosis Code Selection ;23 Aug 2007
Source file <ECUTL2.m>
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^ECH - [#721] | Classic Fileman Calls |