ECUTL2 ;ALB/JAM - Event Capture Diagnosis Code Selection ;23 Aug 2007
Source file <ECUTL2.m>
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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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 | 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 |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^ECH - [#721] | Classic Fileman Calls |
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 |
Name | Field # of Occurrence |
---|---|
^("SEND" | PDXCK+23 |
>> | 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 |