ONCSSF25 ;Hines OIFO/GWB - SITE-SPECIFIC FACTOR 25 (CS) Conversion ;06/23/10
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;
N SSF25
S SSF25=""
;
I SITE=67111 D
.I (HIST14>7999)&(HIST14<8714) S SSF25=100
.I (HIST14>8799)&(HIST14<9137) S SSF25=100
.I (HIST14>9140)&(HIST14<9583) S SSF25=100
.I (HIST14>9699)&(HIST14<9702) S SSF25=100
I SSF25=100 D Q
.S $P(^ONCO(165.5,IEN,"CS3"),U,1)=SSF25
.S $P(^ONCO(165.5,IEN,"CS2"),U,19)=SSF25
;
I (SITE=67110)!(SITE=67112)!(SITE=67113)!(SITE=67118)!(SITE=67119) D
.I (HIST14>7999)&(HIST14<8714) S SSF25="XXX"
.I (HIST14>8799)&(HIST14<9137) S SSF25="XXX"
.I (HIST14>9140)&(HIST14<9583) S SSF25="XXX"
.I (HIST14>9699)&(HIST14<9702) S SSF25="XXX"
I SSF25="XXX" D Q
.S $P(^ONCO(165.5,IEN,"CS3"),U,1)=""
.S $P(^ONCO(165.5,IEN,"CS2"),U,19)=""
;
I (SITE=67161)!(SITE=67162) D
.I (HIST14>7999)&(HIST14<8153) S SSF25=100
.I (HIST14>8153)&(HIST14<8232) S SSF25=100
.I (HIST14>8242)&(HIST14<8246) S SSF25=100
.I HIST14=8247 S SSF25=100
.I HIST14=8248 S SSF25=100
.I (HIST14>8249)&(HIST14<8935) S SSF25=100
.I (HIST14>8939)&(HIST14<9137) S SSF25=100
.I (HIST14>9140)&(HIST14<9583) S SSF25=100
.I (HIST14>9699)&(HIST14<9702) S SSF25=100
I SSF25=100 D Q
.S $P(^ONCO(165.5,IEN,"CS3"),U,1)=SSF25
.S $P(^ONCO(165.5,IEN,"CS2"),U,19)=SSF25
;
I (SITE=67160)!(SITE=67163)!(SITE=67164)!(SITE=67165)!(SITE=67166)!(SITE=67168)!(SITE=67169) D
.I (HIST14>7999)&(HIST14<8153) S SSF25="XXX"
.I (HIST14>8153)&(HIST14<8232) S SSF25="XXX"
.I (HIST14>8242)&(HIST14<8246) S SSF25="XXX"
.I HIST14=8247 S SSF25="XXX"
.I HIST14=8248 S SSF25="XXX"
.I (HIST14>8249)&(HIST14<8935) S SSF25="XXX"
.I (HIST14>8939)&(HIST14<9137) S SSF25="XXX"
.I (HIST14>9140)&(HIST14<9583) S SSF25="XXX"
.I (HIST14>9699)&(HIST14<9702) S SSF25="XXX"
I SSF25="XXX" D Q
.S $P(^ONCO(165.5,IEN,"CS3"),U,1)=""
.S $P(^ONCO(165.5,IEN,"CS2"),U,19)=""
;
I SITE=67240 D
.I (HIST14>7999)&(HIST14<9137) S SSF25=100
.I (HIST14>9140)&(HIST14<9583) S SSF25=100
.I (HIST14>9699)&(HIST14<9702) S SSF25=100
I SSF25=100 D Q
.S $P(^ONCO(165.5,IEN,"CS3"),U,1)=SSF25
.S $P(^ONCO(165.5,IEN,"CS2"),U,19)=SSF25
;
I SITE=67694 D
.I (HIST14>8719)&(HIST14<8791) S SSF25=100
I SSF25=100 D Q
.S $P(^ONCO(165.5,IEN,"CS3"),U,1)=SSF25
.S $P(^ONCO(165.5,IEN,"CS2"),U,19)=SSF25
;
I SITE=67695 D
.I (HIST14>7999)&(HIST14<8714) S SSF25=100
.I (HIST14>8799)&(HIST14<9137) S SSF25=100
.I (HIST14>9140)&(HIST14<9509) S SSF25=100
.I (HIST14>9519)&(HIST14<9583) S SSF25=100
.I (HIST14>9699)&(HIST14<9702) S SSF25=100
I SSF25=100 D Q
.S $P(^ONCO(165.5,IEN,"CS3"),U,1)=SSF25
.S $P(^ONCO(165.5,IEN,"CS2"),U,19)=SSF25
;
I (SITE=67481)!(SITE=67482)!(SITE=67488) D
.I (HIST14>7999)&(HIST14<8577) S SSF25=100
.I (HIST14>8589)&(HIST14<8672) S SSF25=100
.I (HIST14>8929)&(HIST14<8935) S SSF25=100
.I (HIST14>8939)&(HIST14<9111) S SSF25=100
.I (HIST14>8579)&(HIST14<8590) S SSF25="XXX"
.I (HIST14>8679)&(HIST14<8922) S SSF25="XXX"
.I (HIST14>9119)&(HIST14<9137) S SSF25="XXX"
.I (HIST14>9140)&(HIST14<9583) S SSF25="XXX"
.I (HIST14>9699)&(HIST14<9702) S SSF25="XXX"
I SSF25=100 D Q
.S $P(^ONCO(165.5,IEN,"CS3"),U,1)=SSF25
.S $P(^ONCO(165.5,IEN,"CS2"),U,19)=SSF25
I SSF25="XXX" D Q
.S $P(^ONCO(165.5,IEN,"CS3"),U,1)=""
.S $P(^ONCO(165.5,IEN,"CS2"),U,19)=""
;
SSF25 ;SITE-SPECIFIC FACTOR (CS) (165.5,44.25)
;CS SCHEMA DISCRIMINATOR (165.5,240)
S $P(^ONCO(165.5,IEN,"CS3"),U,1)=""
S $P(^ONCO(165.5,IEN,"CS2"),U,19)=988
Q
;
CLEANUP ;Cleanup
K HIST14,IEN,SITE
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSSF25 3585 printed Nov 22, 2024@17:38:51 Page 2
ONCSSF25 ;Hines OIFO/GWB - SITE-SPECIFIC FACTOR 25 (CS) Conversion ;06/23/10
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;
+3 NEW SSF25
+4 SET SSF25=""
+5 ;
+6 IF SITE=67111
Begin DoDot:1
+7 IF (HIST14>7999)&(HIST14<8714)
SET SSF25=100
+8 IF (HIST14>8799)&(HIST14<9137)
SET SSF25=100
+9 IF (HIST14>9140)&(HIST14<9583)
SET SSF25=100
+10 IF (HIST14>9699)&(HIST14<9702)
SET SSF25=100
End DoDot:1
+11 IF SSF25=100
Begin DoDot:1
+12 SET $PIECE(^ONCO(165.5,IEN,"CS3"),U,1)=SSF25
+13 SET $PIECE(^ONCO(165.5,IEN,"CS2"),U,19)=SSF25
End DoDot:1
QUIT
+14 ;
+15 IF (SITE=67110)!(SITE=67112)!(SITE=67113)!(SITE=67118)!(SITE=67119)
Begin DoDot:1
+16 IF (HIST14>7999)&(HIST14<8714)
SET SSF25="XXX"
+17 IF (HIST14>8799)&(HIST14<9137)
SET SSF25="XXX"
+18 IF (HIST14>9140)&(HIST14<9583)
SET SSF25="XXX"
+19 IF (HIST14>9699)&(HIST14<9702)
SET SSF25="XXX"
End DoDot:1
+20 IF SSF25="XXX"
Begin DoDot:1
+21 SET $PIECE(^ONCO(165.5,IEN,"CS3"),U,1)=""
+22 SET $PIECE(^ONCO(165.5,IEN,"CS2"),U,19)=""
End DoDot:1
QUIT
+23 ;
+24 IF (SITE=67161)!(SITE=67162)
Begin DoDot:1
+25 IF (HIST14>7999)&(HIST14<8153)
SET SSF25=100
+26 IF (HIST14>8153)&(HIST14<8232)
SET SSF25=100
+27 IF (HIST14>8242)&(HIST14<8246)
SET SSF25=100
+28 IF HIST14=8247
SET SSF25=100
+29 IF HIST14=8248
SET SSF25=100
+30 IF (HIST14>8249)&(HIST14<8935)
SET SSF25=100
+31 IF (HIST14>8939)&(HIST14<9137)
SET SSF25=100
+32 IF (HIST14>9140)&(HIST14<9583)
SET SSF25=100
+33 IF (HIST14>9699)&(HIST14<9702)
SET SSF25=100
End DoDot:1
+34 IF SSF25=100
Begin DoDot:1
+35 SET $PIECE(^ONCO(165.5,IEN,"CS3"),U,1)=SSF25
+36 SET $PIECE(^ONCO(165.5,IEN,"CS2"),U,19)=SSF25
End DoDot:1
QUIT
+37 ;
+38 IF (SITE=67160)!(SITE=67163)!(SITE=67164)!(SITE=67165)!(SITE=67166)!(SITE=67168)!(SITE=67169)
Begin DoDot:1
+39 IF (HIST14>7999)&(HIST14<8153)
SET SSF25="XXX"
+40 IF (HIST14>8153)&(HIST14<8232)
SET SSF25="XXX"
+41 IF (HIST14>8242)&(HIST14<8246)
SET SSF25="XXX"
+42 IF HIST14=8247
SET SSF25="XXX"
+43 IF HIST14=8248
SET SSF25="XXX"
+44 IF (HIST14>8249)&(HIST14<8935)
SET SSF25="XXX"
+45 IF (HIST14>8939)&(HIST14<9137)
SET SSF25="XXX"
+46 IF (HIST14>9140)&(HIST14<9583)
SET SSF25="XXX"
+47 IF (HIST14>9699)&(HIST14<9702)
SET SSF25="XXX"
End DoDot:1
+48 IF SSF25="XXX"
Begin DoDot:1
+49 SET $PIECE(^ONCO(165.5,IEN,"CS3"),U,1)=""
+50 SET $PIECE(^ONCO(165.5,IEN,"CS2"),U,19)=""
End DoDot:1
QUIT
+51 ;
+52 IF SITE=67240
Begin DoDot:1
+53 IF (HIST14>7999)&(HIST14<9137)
SET SSF25=100
+54 IF (HIST14>9140)&(HIST14<9583)
SET SSF25=100
+55 IF (HIST14>9699)&(HIST14<9702)
SET SSF25=100
End DoDot:1
+56 IF SSF25=100
Begin DoDot:1
+57 SET $PIECE(^ONCO(165.5,IEN,"CS3"),U,1)=SSF25
+58 SET $PIECE(^ONCO(165.5,IEN,"CS2"),U,19)=SSF25
End DoDot:1
QUIT
+59 ;
+60 IF SITE=67694
Begin DoDot:1
+61 IF (HIST14>8719)&(HIST14<8791)
SET SSF25=100
End DoDot:1
+62 IF SSF25=100
Begin DoDot:1
+63 SET $PIECE(^ONCO(165.5,IEN,"CS3"),U,1)=SSF25
+64 SET $PIECE(^ONCO(165.5,IEN,"CS2"),U,19)=SSF25
End DoDot:1
QUIT
+65 ;
+66 IF SITE=67695
Begin DoDot:1
+67 IF (HIST14>7999)&(HIST14<8714)
SET SSF25=100
+68 IF (HIST14>8799)&(HIST14<9137)
SET SSF25=100
+69 IF (HIST14>9140)&(HIST14<9509)
SET SSF25=100
+70 IF (HIST14>9519)&(HIST14<9583)
SET SSF25=100
+71 IF (HIST14>9699)&(HIST14<9702)
SET SSF25=100
End DoDot:1
+72 IF SSF25=100
Begin DoDot:1
+73 SET $PIECE(^ONCO(165.5,IEN,"CS3"),U,1)=SSF25
+74 SET $PIECE(^ONCO(165.5,IEN,"CS2"),U,19)=SSF25
End DoDot:1
QUIT
+75 ;
+76 IF (SITE=67481)!(SITE=67482)!(SITE=67488)
Begin DoDot:1
+77 IF (HIST14>7999)&(HIST14<8577)
SET SSF25=100
+78 IF (HIST14>8589)&(HIST14<8672)
SET SSF25=100
+79 IF (HIST14>8929)&(HIST14<8935)
SET SSF25=100
+80 IF (HIST14>8939)&(HIST14<9111)
SET SSF25=100
+81 IF (HIST14>8579)&(HIST14<8590)
SET SSF25="XXX"
+82 IF (HIST14>8679)&(HIST14<8922)
SET SSF25="XXX"
+83 IF (HIST14>9119)&(HIST14<9137)
SET SSF25="XXX"
+84 IF (HIST14>9140)&(HIST14<9583)
SET SSF25="XXX"
+85 IF (HIST14>9699)&(HIST14<9702)
SET SSF25="XXX"
End DoDot:1
+86 IF SSF25=100
Begin DoDot:1
+87 SET $PIECE(^ONCO(165.5,IEN,"CS3"),U,1)=SSF25
+88 SET $PIECE(^ONCO(165.5,IEN,"CS2"),U,19)=SSF25
End DoDot:1
QUIT
+89 IF SSF25="XXX"
Begin DoDot:1
+90 SET $PIECE(^ONCO(165.5,IEN,"CS3"),U,1)=""
+91 SET $PIECE(^ONCO(165.5,IEN,"CS2"),U,19)=""
End DoDot:1
QUIT
+92 ;
SSF25 ;SITE-SPECIFIC FACTOR (CS) (165.5,44.25)
+1 ;CS SCHEMA DISCRIMINATOR (165.5,240)
+2 SET $PIECE(^ONCO(165.5,IEN,"CS3"),U,1)=""
+3 SET $PIECE(^ONCO(165.5,IEN,"CS2"),U,19)=988
+4 QUIT
+5 ;
CLEANUP ;Cleanup
+1 KILL HIST14,IEN,SITE
