LR311PST ;DALOI/WTY,HOIFO/FT-CREATE NEW-STYLE XREF ;11/22/04 10:13
;;5.2;LAB SERVICE;**311**;Sep 27, 1994
;
; This routine uses the following IAs:
; <None>
;
EN ; Driver
D SP,CY
Q
SP ; Create new cross-reference on subfile 63.12, field #10 (ORGAN/TISSUE)
N LRXR,LRRES,LROUT
S LRXR("FILE")=63.12
S LRXR("NAME")="AC"
S LRXR("TYPE")="MU"
S LRXR("USE")="A"
S LRXR("EXECUTION")="F"
S LRXR("ACTIVITY")=""
S LRXR("SHORT DESCR")="Notify Women's Health of SNOMED change"
S LRXR("DESCR",1)="This MUMPS cross reference calls SNOMED^LRWOMEN any time a change to a SNOMED"
S LRXR("DESCR",2)="code is made. The SNOMED line tag notifies the Women's Health package that"
S LRXR("DESCR",3)="a SNOMED change has been made on an already verified pathology report for a"
S LRXR("DESCR",4)="female patient."
S LRXR("SET")="Q:$D(DIU(0)) D SNOMED^LRWOMEN"
S LRXR("KILL")="Q"
S LRXR("VAL",1)=.01
S LRXR("VAL",1,"SUBSCRIPT")=1
S LRXR("VAL",1,"COLLATION")="F"
D CREIXN^DDMOD(.LRXR,"kW",.LRRES,"LROUT")
Q
CY ; Create new cross-reference on subfile 63.912, field #1 (CYTOPATH ORGAN/TISSUE)
N LRXR,LRRES,LROUT
S LRXR("FILE")=63.912
S LRXR("NAME")="AC"
S LRXR("TYPE")="MU"
S LRXR("USE")="A"
S LRXR("ACTIVITY")=""
S LRXR("EXECUTION")="F"
S LRXR("SHORT DESCR")="Notify Women's Health of SNOMED change"
S LRXR("DESCR",1)="This MUMPS cross reference calls SNOMED^LRWOMEN any time a change to a SNOMED"
S LRXR("DESCR",2)="code is made. The SNOMED line tag notifies the Women's Health package that a"
S LRXR("DESCR",3)="SNOMED change has been made on an already verified pathology report for a"
S LRXR("DESCR",4)="female patient."
S LRXR("SET")="Q:$D(DIU(0)) D SNOMED^LRWOMEN"
S LRXR("KILL")="Q"
S LRXR("VAL",1)=.01
S LRXR("VAL",1,"SUBSCRIPT")=1
S LRXR("VAL",1,"COLLATION")="F"
D CREIXN^DDMOD(.LRXR,"kW",.LRRES,"LROUT")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLR311PST 1885 printed Dec 13, 2024@02:03:43 Page 2
LR311PST ;DALOI/WTY,HOIFO/FT-CREATE NEW-STYLE XREF ;11/22/04 10:13
+1 ;;5.2;LAB SERVICE;**311**;Sep 27, 1994
+2 ;
+3 ; This routine uses the following IAs:
+4 ; <None>
+5 ;
EN ; Driver
+1 DO SP
DO CY
+2 QUIT
SP ; Create new cross-reference on subfile 63.12, field #10 (ORGAN/TISSUE)
+1 NEW LRXR,LRRES,LROUT
+2 SET LRXR("FILE")=63.12
+3 SET LRXR("NAME")="AC"
+4 SET LRXR("TYPE")="MU"
+5 SET LRXR("USE")="A"
+6 SET LRXR("EXECUTION")="F"
+7 SET LRXR("ACTIVITY")=""
+8 SET LRXR("SHORT DESCR")="Notify Women's Health of SNOMED change"
+9 SET LRXR("DESCR",1)="This MUMPS cross reference calls SNOMED^LRWOMEN any time a change to a SNOMED"
+10 SET LRXR("DESCR",2)="code is made. The SNOMED line tag notifies the Women's Health package that"
+11 SET LRXR("DESCR",3)="a SNOMED change has been made on an already verified pathology report for a"
+12 SET LRXR("DESCR",4)="female patient."
+13 SET LRXR("SET")="Q:$D(DIU(0)) D SNOMED^LRWOMEN"
+14 SET LRXR("KILL")="Q"
+15 SET LRXR("VAL",1)=.01
+16 SET LRXR("VAL",1,"SUBSCRIPT")=1
+17 SET LRXR("VAL",1,"COLLATION")="F"
+18 DO CREIXN^DDMOD(.LRXR,"kW",.LRRES,"LROUT")
+19 QUIT
CY ; Create new cross-reference on subfile 63.912, field #1 (CYTOPATH ORGAN/TISSUE)
+1 NEW LRXR,LRRES,LROUT
+2 SET LRXR("FILE")=63.912
+3 SET LRXR("NAME")="AC"
+4 SET LRXR("TYPE")="MU"
+5 SET LRXR("USE")="A"
+6 SET LRXR("ACTIVITY")=""
+7 SET LRXR("EXECUTION")="F"
+8 SET LRXR("SHORT DESCR")="Notify Women's Health of SNOMED change"
+9 SET LRXR("DESCR",1)="This MUMPS cross reference calls SNOMED^LRWOMEN any time a change to a SNOMED"
+10 SET LRXR("DESCR",2)="code is made. The SNOMED line tag notifies the Women's Health package that a"
+11 SET LRXR("DESCR",3)="SNOMED change has been made on an already verified pathology report for a"
+12 SET LRXR("DESCR",4)="female patient."
+13 SET LRXR("SET")="Q:$D(DIU(0)) D SNOMED^LRWOMEN"
+14 SET LRXR("KILL")="Q"
+15 SET LRXR("VAL",1)=.01
+16 SET LRXR("VAL",1,"SUBSCRIPT")=1
+17 SET LRXR("VAL",1,"COLLATION")="F"
+18 DO CREIXN^DDMOD(.LRXR,"kW",.LRRES,"LROUT")
+19 QUIT
