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* |
