WVLABCHK ;HIOFO/FT-IS LAB TEST A PAP SMEAR? ;10/25/04 10:23
Source file <WVLABCHK.m>
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 |
---|---|---|
CREATE(DFN,LRDFN,LRI,LRA,LRSS) | ;
; Add lab test to WH file (#790.08). ; Called by REPORT RELEASE DATE/TIME field in: ; a) File 63, Field 63.08,.11 ; b) File 63, Field 63.09,.11 ; Input: DFN = PATIENT DFN ; LRDFN = FILE 63 IEN (+^DPT(DFN,"LR")) ; LRI = INVERSE DATE/TIME OF TEST ; LRA = ZERO NODE OF THE CY or SP ENTRY ; LRSS = File 63 subscript (e.g., CY or SP) |
|
CREATEQ | ; Called from CREATE above
|
|
CODES | ; WVTOP array identifies SNOMED codes (IENS) used for pap smears
|
|
CY() | ; Check SNOMED codes used by cytology entry
|
|
SP() | ; Check SNOMED codes used by surgical pathology entry
|
|
ADD | ; Add pap smear to FILE 790.1
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | CREATEQ+3 |
^LR - [#63] | CY+4, CY+5, SP+4, SP+5 |
^WV(790 - [#790] | ADD+3 |
^WV(790.02 - [#790.02] | CREATE+12, CREATE+13, CREATEQ+7, CREATEQ+8 |
^WV(790.08 - [#790.08] | CREATEQ+14, CREATEQ+16 |
^WV(790.1 - [#790.1] | CREATEQ+5 |
^WV(790.2 - [#790.2] | CODES+6, CODES+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | CREATE~, CREATE+11, CREATEQ+3 |
DT | ADD+14 |
DUZ(2 | CREATE+12, CREATE+13, CREATEQ+7, CREATEQ+8 |
LRA | CREATE~, CREATE+11, CREATEQ+4 |
LRDFN | CREATE~, CREATE+11 |
LRI | CREATE~, CREATE+11 |
LRSS | CREATE~, CREATE+11 |
U | CREATE+13, CREATEQ+3, CREATEQ+4, CREATEQ+8, CREATEQ+18, CREATEQ+20, CREATEQ+22, CREATEQ+23, CREATEQ+24, CREATEQ+25 , CREATEQ+26, CREATEQ+27, CREATEQ+28, CODES+7, CY+5, SP+5, ADD+24 |
WVDATE | CREATEQ+2~, CREATEQ+26*, ADD+12, ADD+21 |
WVDFN | CREATEQ+2~, CREATEQ+23*, ADD+3, ADD+4, ADD+7, ADD+21, ADD+24 |
WVDR | ADD+1~, ADD+7*, ADD+8*, ADD+9*, ADD+10*, ADD+11*, ADD+12*, ADD+13*, ADD+14*, ADD+15* , ADD+16*, ADD+17*, ADD+18*, ADD+19*, ADD+21 |
WVDUZ2 | CREATEQ+2~, CREATEQ+28*, ADD+4, ADD+10, ADD+15 |
WVERR | ADD+1~, ADD+2*, ADD+4, ADD+6, ADD+21 |
WVFLAG | CY+1~, CY+2*, CY+4, CY+7*, CY+9, SP+1~, SP+3*, SP+4, SP+7*, SP+9 |
WVIEN | CREATEQ+2~, CREATEQ+14*, CREATEQ+15, CREATEQ+16, ADD+25 |
WVLABAN | CREATEQ+2~, CREATEQ+4*, CREATEQ+5, CREATEQ+14, CREATEQ+27*, ADD+16, ADD+24 |
WVLOC | CREATEQ+2~, CREATEQ+25*, ADD+11 |
WVLOOP | CY+1~, CY+2*, CY+4*, CY+5, SP+1~, SP+3*, SP+4*, SP+5 |
WVLRDFN | CREATEQ+2~, CREATEQ+18*, CREATEQ+19, CY+4, CY+5, SP+4, SP+5, ADD+17 |
WVLRI | CREATEQ+2~, CREATEQ+20*, CREATEQ+21, CY+4, CY+5, SP+4, SP+5, ADD+18, ADD+24 |
WVLRSS | CREATEQ+2~, CREATEQ+22*, CREATEQ+29, CREATEQ+33, ADD+19, ADD+24 |
WVNODE | CREATEQ+2~, CREATEQ+16*, CREATEQ+17, CREATEQ+18, CREATEQ+20, CREATEQ+22, CREATEQ+23, CREATEQ+24, CREATEQ+25, CREATEQ+26 , CREATEQ+27, CREATEQ+28 |
WVPAP | CREATEQ+2~, CREATEQ+30*, CREATEQ+31, CREATEQ+34*, CREATEQ+35 |
WVPIEN | CREATEQ+2~, CREATEQ+12*, CREATEQ+13, CODES+1~, CODES+3*, CODES+4, CODES+6, CODES+7, ADD+8, ADD+21 |
WVPIEN1 | CODES+1~, CODES+5*, CODES+6*, CODES+7 |
WVPROV | CREATEQ+2~, CREATEQ+24*, ADD+9, ADD+24 |
WVSNOMED | CODES+1~, CODES+7*, CODES+8, CODES+10, CY+1~, CY+5*, CY+6, CY+7, SP+1~, SP+5* , SP+6, SP+7 |
WVTOP | CREATEQ+2~ |
WVTOP( | CODES+10*, CY+7, SP+7 |
WVTOP(0 | CREATEQ+11, CODES+2*, CODES+9* |
X | CREATEQ+2~ |
Y | CREATEQ+2~, ADD+22 |
ZTDESC | CREATE+14~, CREATE+15* |
ZTDTH | CREATE+14~, CREATE+18* |
ZTIO | CREATE+14~, CREATE+17* |
>> ZTQUEUED | CREATEQ+1 |
>> ZTREQ | CREATEQ+1* |
ZTRTN | CREATE+14~, CREATE+15* |
ZTSAVE | CREATE+14~ |
ZTSAVE("DFN" | CREATE+16* |
ZTSAVE("LRA" | CREATE+16* |
ZTSAVE("LRDFN" | CREATE+16* |
ZTSAVE("LRI" | CREATE+16* |
ZTSAVE("LRSS" | CREATE+17* |