ONCPST48 ;Hines OIFO/GWB - POST-INSTALL ROUTINE FOR PATCH ONC*2.11*48
;;2.11;ONCOLOGY;**48**;Mar 07, 1995;Build 13
;
ITEM2 ;COLLABORATIVE STAGING VERSION 01.04.01
;Conversions for CS V01.04.01
W !!," Performing data conversions needed for CS V01.04.01"
S XDT=3040000 F S XDT=$O(^ONCO(165.5,"ADX",XDT)) Q:XDT="" S IEN=0 F S IEN=$O(^ONCO(165.5,"ADX",XDT,IEN)) Q:IEN="" D
.I $P($G(^ONCO(165.5,IEN,"CS1")),U,11)'="",$P($G(^ONCO(165.5,IEN,"CS1")),U,12)="" S $P(^ONCO(165.5,IEN,"CS1"),U,12)=$P($G(^ONCO(165.5,IEN,"CS1")),U,11)
.S MO=$$HIST^ONCFUNC(IEN)
.I ($E(MO,1,4)=9140) Q
.I ($E(MO,1,4)>9589)&($E(MO,1,4)<9700) Q
.I ($E(MO,1,4)>9701)&($E(MO,1,4)<9990) Q
.S TOP=$P($G(^ONCO(165.5,IEN,2)),U,1)
.;[Hypopharynx]
.I ($E(TOP,3,4)=12)!($E(TOP,3,4)=13) D Q
..S CSEXT=$P($G(^ONCO(165.5,IEN,"CS")),U,11)
..I CSEXT=51 S $P(^ONCO(165.5,IEN,"CS"),U,11)=45 W "."
.;[Breast]
.I ($E(TOP,3,4)=50) D Q
..S CSLN=$P($G(^ONCO(165.5,IEN,"CS")),U,12)
..S CSRNE=$P($G(^ONCO(165.5,IEN,"CS")),U,2)
..S SSF3=$P($G(^ONCO(165.5,IEN,"CS")),U,7)
..S SSF3=+SSF3
..I CSLN=28,(SSF3>3)&(SSF3<10),(CSRNE=2)!(CSRNE=3)!(CSRNE=6)!(CSRNE=8)!(CSRNE="") S $P(^ONCO(165.5,IEN,"CS"),U,12)=30 W "."
..I CSLN=50,(SSF3>3)&(SSF3<90),(CSRNE=2)!(CSRNE=3)!(CSRNE=6)!(CSRNE=8)!(CSRNE="") S $P(^ONCO(165.5,IEN,"CS"),U,12)=52 W "."
.;[Fallopian Tube]
.I ($E(TOP,3,5)=570) D Q
..S CSEXT=$P($G(^ONCO(165.5,IEN,"CS")),U,11)
..I CSEXT=70 S $P(^ONCO(165.5,IEN,"CS"),U,11)=68 W "."
..I CSEXT=71 S $P(^ONCO(165.5,IEN,"CS"),U,11)=66 W "."
;
ITEM6 ;LATERALITY (165.5,28) for LYMPH NODES, HEAD & NECK (C77.0)
;LYMPH NODES, HEAD & NECK (164,67770)
;PAIRED ORGAN (164,.07)
S $P(^ONCO(164,67770,0),U,7)=""
;
ITEM8 ;[Timeliness Report]
S DIK="^ONCO(165.5,",DIK(1)=155 D ENALL^DIK
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCPST48 1789 printed Dec 13, 2024@02:27:34 Page 2
ONCPST48 ;Hines OIFO/GWB - POST-INSTALL ROUTINE FOR PATCH ONC*2.11*48
+1 ;;2.11;ONCOLOGY;**48**;Mar 07, 1995;Build 13
+2 ;
ITEM2 ;COLLABORATIVE STAGING VERSION 01.04.01
+1 ;Conversions for CS V01.04.01
+2 WRITE !!," Performing data conversions needed for CS V01.04.01"
+3 SET XDT=3040000
FOR
SET XDT=$ORDER(^ONCO(165.5,"ADX",XDT))
if XDT=""
QUIT
SET IEN=0
FOR
SET IEN=$ORDER(^ONCO(165.5,"ADX",XDT,IEN))
if IEN=""
QUIT
Begin DoDot:1
+4 IF $PIECE($GET(^ONCO(165.5,IEN,"CS1")),U,11)'=""
IF $PIECE($GET(^ONCO(165.5,IEN,"CS1")),U,12)=""
SET $PIECE(^ONCO(165.5,IEN,"CS1"),U,12)=$PIECE($GET(^ONCO(165.5,IEN,"CS1")),U,11)
+5 SET MO=$$HIST^ONCFUNC(IEN)
+6 IF ($EXTRACT(MO,1,4)=9140)
QUIT
+7 IF ($EXTRACT(MO,1,4)>9589)&($EXTRACT(MO,1,4)<9700)
QUIT
+8 IF ($EXTRACT(MO,1,4)>9701)&($EXTRACT(MO,1,4)<9990)
QUIT
+9 SET TOP=$PIECE($GET(^ONCO(165.5,IEN,2)),U,1)
+10 ;[Hypopharynx]
+11 IF ($EXTRACT(TOP,3,4)=12)!($EXTRACT(TOP,3,4)=13)
Begin DoDot:2
+12 SET CSEXT=$PIECE($GET(^ONCO(165.5,IEN,"CS")),U,11)
+13 IF CSEXT=51
SET $PIECE(^ONCO(165.5,IEN,"CS"),U,11)=45
WRITE "."
End DoDot:2
QUIT
+14 ;[Breast]
+15 IF ($EXTRACT(TOP,3,4)=50)
Begin DoDot:2
+16 SET CSLN=$PIECE($GET(^ONCO(165.5,IEN,"CS")),U,12)
+17 SET CSRNE=$PIECE($GET(^ONCO(165.5,IEN,"CS")),U,2)
+18 SET SSF3=$PIECE($GET(^ONCO(165.5,IEN,"CS")),U,7)
+19 SET SSF3=+SSF3
+20 IF CSLN=28
IF (SSF3>3)&(SSF3<10)
IF (CSRNE=2)!(CSRNE=3)!(CSRNE=6)!(CSRNE=8)!(CSRNE="")
SET $PIECE(^ONCO(165.5,IEN,"CS"),U,12)=30
WRITE "."
+21 IF CSLN=50
IF (SSF3>3)&(SSF3<90)
IF (CSRNE=2)!(CSRNE=3)!(CSRNE=6)!(CSRNE=8)!(CSRNE="")
SET $PIECE(^ONCO(165.5,IEN,"CS"),U,12)=52
WRITE "."
End DoDot:2
QUIT
+22 ;[Fallopian Tube]
+23 IF ($EXTRACT(TOP,3,5)=570)
Begin DoDot:2
+24 SET CSEXT=$PIECE($GET(^ONCO(165.5,IEN,"CS")),U,11)
+25 IF CSEXT=70
SET $PIECE(^ONCO(165.5,IEN,"CS"),U,11)=68
WRITE "."
+26 IF CSEXT=71
SET $PIECE(^ONCO(165.5,IEN,"CS"),U,11)=66
WRITE "."
End DoDot:2
QUIT
End DoDot:1
+27 ;
ITEM6 ;LATERALITY (165.5,28) for LYMPH NODES, HEAD & NECK (C77.0)
+1 ;LYMPH NODES, HEAD & NECK (164,67770)
+2 ;PAIRED ORGAN (164,.07)
+3 SET $PIECE(^ONCO(164,67770,0),U,7)=""
+4 ;
ITEM8 ;[Timeliness Report]
+1 SET DIK="^ONCO(165.5,"
SET DIK(1)=155
DO ENALL^DIK
