WVSNOMED ;HIOFO/FT-IS LAB TEST A PAP SMEAR? ;2/12/04 14:37
Source file <WVSNOMED.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 |
Package | Total | Caller Graph |
---|---|---|
Womens Health | 4 | WVLABCHK WVLRLINK WVRALINK WVSNOMED |
Name | Comments | DBIA/ICR reference |
---|---|---|
SNOMED() | ; Check lab test for SNOMED codes that indicate if pap smear.
; LRDFN,LRI,LRSS must be defined. ; Returns: 0 - lab test is not a pap smear ; 1 - lab test is a pap smear ; |
|
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
|
|
MAIL(DFN,WVLABAN,WVPROV,LRSS,WV7901) | ; Send mail message to case manager
; when pap smear added to FILE 790.1 ; Called from above ; DFN -> Patient ien ; WVLABAN -> Lab Accession# (e.g., CY 99 1) ; WVPROV -> File 200 IEN (provider/requestor) ; LRSS -> File 63 subscript (e.g., CY or SP) ; WV7901 -> FILE 790.1 IEN |
|
CPRS(WVORN,WVDFN,WVORDER,WVPROV,WVMSG,WVIEN) | ; Generate a CPRS alert
; WVORN - FILE 100.9 IEN ; WVDFN - FILE 2 IEN ; WVORDER - FILE 100 IEN (not currently used) ; WVPROV - FILE 200 IEN ; WVMSG - Free text message ; WVIEN - IEN for a lab or radiology report (not currently used) |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^WV(790 - [#790] | GET1^DIQ |
^WV(790.02 - [#790.02] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | MAIL+22 |
^LR - [#63] | CY+4, CY+5, SP+4, SP+5 |
^WV(790 - [#790] | ADD+6, CPRS+12 |
^WV(790.02 - [#790.02] | MAIL+13 |
^WV(790.1 - [#790.1] | ADD+3, MAIL+23 |
^WV(790.2 - [#790.2] | SNOMED+11, SNOMED+12 |
Name | Line Occurrences |
---|---|
$$CY | SNOMED+20 |
$$SP | SNOMED+21 |
ADD+31 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | ADD+5, ADD+6, ADD+7, ADD+11, ADD+25, ADD+29, ADD+31, MAIL~, MAIL+8, MAIL+10 , MAIL+22 |
DT | ADD+18 |
DUZ(2 | ADD+7, ADD+14, ADD+19 |
>> LRDFN | CY+4, CY+5, SP+4, SP+5, ADD+21 |
>> LRI | CY+4, CY+5, SP+4, SP+5, ADD+5, ADD+22, ADD+29 |
LRSS | SNOMED+20, SNOMED+21, ADD+5, ADD+23, ADD+29, ADD+31, MAIL~, MAIL+8, MAIL+20 |
U | SNOMED+12, CY+5, SP+5, ADD+5, ADD+29, MAIL+22, MAIL+23, CPRS+12 |
WV7901 | ADD+1~, ADD+27*, ADD+31, MAIL~, MAIL+23 |
WVARRAY | CPRS+14, CPRS+15! |
WVARRAY( | CPRS+11*, CPRS+13* |
WVCMGR | MAIL+9~, MAIL+10*, MAIL+11, MAIL+13, MAIL+14*, MAIL+15, CPRS+12*, CPRS+13, CPRS+15! |
>> WVDATE | ADD+16, ADD+25 |
WVDFN | CPRS~, CPRS+9, CPRS+12, CPRS+14 |
WVDR | ADD+1~, ADD+11*, ADD+12*, ADD+13*, ADD+14*, ADD+15*, ADD+16*, ADD+17*, ADD+18*, ADD+19* , ADD+20*, ADD+21*, ADD+22*, ADD+23*, ADD+25 |
WVERR | ADD+1~, ADD+2*, ADD+7, ADD+9, ADD+25 |
WVFLAG | CY+1~, CY+2*, CY+4, CY+7*, CY+9, SP+1~, SP+3*, SP+4, SP+7*, SP+9 |
WVIEN | CPRS~, CPRS+14 |
WVLABAN | ADD+3, ADD+5, ADD+20, ADD+29, ADD+31, MAIL~, MAIL+8, MAIL+24 |
>> WVLOC | ADD+15 |
WVLOOP | CY+1~, CY+2*, CY+4*, CY+5, SP+1~, SP+3*, SP+4*, SP+5, MAIL+9~, MAIL+13* , MAIL+14 |
WVLOOP1 | CY+1~, SP+1~ |
WVMSG | MAIL+9~, CPRS~, CPRS+14 |
WVMSG(1 | MAIL+20* |
WVMSG(2 | MAIL+21* |
WVMSG(3 | MAIL+22* |
WVMSG(4 | MAIL+23* |
WVMSG(5 | MAIL+24* |
WVMSG(6 | MAIL+25* |
WVMSG(7 | MAIL+26* |
WVMSG(8 | MAIL+27* |
WVMSG(9 | MAIL+28* |
WVORDER | CPRS~, CPRS+14 |
WVORN | CPRS~, CPRS+10, CPRS+14 |
WVPAP | SNOMED+5~, SNOMED+19*, SNOMED+20*, SNOMED+21*, SNOMED+22 |
WVPIEN | SNOMED+5~, SNOMED+8*, SNOMED+9, SNOMED+11, SNOMED+12, ADD+1~, ADD+10*, ADD+12, ADD+25 |
WVPIEN1 | SNOMED+5~, SNOMED+10*, SNOMED+11*, SNOMED+12 |
WVPROV | ADD+5, ADD+13, ADD+29, ADD+31, MAIL~, MAIL+25, CPRS~, CPRS+11 |
WVSNOMED | SNOMED+5~, SNOMED+12*, SNOMED+13, SNOMED+15, CY+1~, CY+5*, CY+6, CY+7, SP+1~, SP+5* , SP+6, SP+7 |
WVTOP | SNOMED+5~ |
WVTOP( | SNOMED+15*, CY+7, SP+7 |
WVTOP(0 | SNOMED+7*, SNOMED+14*, SNOMED+17, SNOMED+18! |
XMDUZ | MAIL+9~, MAIL+18* |
XMSUB | MAIL+9~, MAIL+19* |
XMTEXT | MAIL+9~, MAIL+29* |
XMY | MAIL+9~ |
XMY( | MAIL+11*, MAIL+15* |
XMY(0 | MAIL+17 |
>> Y | ADD+26, ADD+27 |