source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LR311PST.m@ 811

Last change on this file since 811 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1LR311PST ;DALOI/WTY,HOIFO/FT-CREATE NEW-STYLE XREF ;11/22/04 10:13
2 ;;5.2;LAB SERVICE;**311**;Sep 27, 1994
3 ;
4 ; This routine uses the following IAs:
5 ; <None>
6 ;
7EN ; Driver
8 D SP,CY
9 Q
10SP ; Create new cross-reference on subfile 63.12, field #10 (ORGAN/TISSUE)
11 N LRXR,LRRES,LROUT
12 S LRXR("FILE")=63.12
13 S LRXR("NAME")="AC"
14 S LRXR("TYPE")="MU"
15 S LRXR("USE")="A"
16 S LRXR("EXECUTION")="F"
17 S LRXR("ACTIVITY")=""
18 S LRXR("SHORT DESCR")="Notify Women's Health of SNOMED change"
19 S LRXR("DESCR",1)="This MUMPS cross reference calls SNOMED^LRWOMEN any time a change to a SNOMED"
20 S LRXR("DESCR",2)="code is made. The SNOMED line tag notifies the Women's Health package that"
21 S LRXR("DESCR",3)="a SNOMED change has been made on an already verified pathology report for a"
22 S LRXR("DESCR",4)="female patient."
23 S LRXR("SET")="Q:$D(DIU(0)) D SNOMED^LRWOMEN"
24 S LRXR("KILL")="Q"
25 S LRXR("VAL",1)=.01
26 S LRXR("VAL",1,"SUBSCRIPT")=1
27 S LRXR("VAL",1,"COLLATION")="F"
28 D CREIXN^DDMOD(.LRXR,"kW",.LRRES,"LROUT")
29 Q
30CY ; Create new cross-reference on subfile 63.912, field #1 (CYTOPATH ORGAN/TISSUE)
31 N LRXR,LRRES,LROUT
32 S LRXR("FILE")=63.912
33 S LRXR("NAME")="AC"
34 S LRXR("TYPE")="MU"
35 S LRXR("USE")="A"
36 S LRXR("ACTIVITY")=""
37 S LRXR("EXECUTION")="F"
38 S LRXR("SHORT DESCR")="Notify Women's Health of SNOMED change"
39 S LRXR("DESCR",1)="This MUMPS cross reference calls SNOMED^LRWOMEN any time a change to a SNOMED"
40 S LRXR("DESCR",2)="code is made. The SNOMED line tag notifies the Women's Health package that a"
41 S LRXR("DESCR",3)="SNOMED change has been made on an already verified pathology report for a"
42 S LRXR("DESCR",4)="female patient."
43 S LRXR("SET")="Q:$D(DIU(0)) D SNOMED^LRWOMEN"
44 S LRXR("KILL")="Q"
45 S LRXR("VAL",1)=.01
46 S LRXR("VAL",1,"SUBSCRIPT")=1
47 S LRXR("VAL",1,"COLLATION")="F"
48 D CREIXN^DDMOD(.LRXR,"kW",.LRRES,"LROUT")
49 Q
Note: See TracBrowser for help on using the repository browser.