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 |