ONC2PS13 ;HINES OIFO/RTK - Post-Install Routine for Patch ONC*2.2*13 ;01/21/21
;;2.2;ONCOLOGY;**13**;Jul 31, 2013;Build 7
;
;N RC
;DC production server Patch 12
;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:83/cgi_bin/oncsrv.exe")
;DC PRODUCTION SERVER V21
S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:86/cgi_bin/oncsrv.exe")
;test server uRL V21
;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:81/cgi_bin/oncsrv.exe")
;
;Quit before conversions if patch already has been installed in this account
I $D(^ONCO(165.55,"B","ONCV2.2P13 CONVERSIONS")) Q
;
; Set new "G" and "H" cross-reference on (file #165.5, fields #5004, #5014)
D BMES^XPDUTL("Setting 'G' and 'H' cross-references of file #165.5...")
N DIK S DIK="^ONCO(165.5,",DIK(1)="5004^G"
D ENALL2^DIK ;Kill existing "G" cross-reference.
D ENALL^DIK ;Re-create "G" cross-reference.
N DIK S DIK="^ONCO(165.5,",DIK(1)="5014^H"
D ENALL2^DIK ;Kill existing "H" cross-reference.
D ENALL^DIK ;Re-create "H" cross-reference.
;
;Convert values for NAACCR 2021 updates
D BMES^XPDUTL("Convert Visceral Parietal Plueral Invasion [3937] data...")
D BMES^XPDUTL("Convert Phase Radiation Treatment Modality [5506,5516,5526] data...")
D BMES^XPDUTL("Convert Lacrimal Gland Grade data...")
D BMES^XPDUTL("Convert Lymphoma Ocular Adnexa Grade data...")
D BMES^XPDUTL("Convert FIGO Stage [3836] data...")
D BMES^XPDUTL("Convert Residual Tumor Volume Post Cytoreduction [3921] data...")
S ONCDXVP=3171231 F S ONCDXVP=$O(^ONCO(165.5,"ADX",ONCDXVP)) Q:ONCDXVP'>0 D
.S IEN=0 F S IEN=$O(^ONCO(165.5,"ADX",ONCDXVP,IEN)) Q:IEN'>0 D
..I $P($G(^ONCO(165.5,IEN,"SSD4")),"^",32)=1 S $P(^ONCO(165.5,IEN,"SSD4"),"^",32)=4
..I $P($G(^ONCO(165.5,IEN,"SSD4")),"^",32)=2 S $P(^ONCO(165.5,IEN,"SSD4"),"^",32)=4
..I $P($G(^ONCO(165.5,IEN,"SSD4")),"^",32)=3 S $P(^ONCO(165.5,IEN,"SSD4"),"^",32)=5
..;
..I ($P($G(^ONCO(165.5,IEN,"RAD18")),"^",6)=18)&($P($G(^ONCO(165.5,IEN,3)),"^",35)=0) S $P(^ONCO(165.5,IEN,"RAD18"),"^",6)=19
..I ($P($G(^ONCO(165.5,IEN,"RAD18")),"^",13)=18)&($P($G(^ONCO(165.5,IEN,3)),"^",35)=0) S $P(^ONCO(165.5,IEN,"RAD18"),"^",13)=19
..I ($P($G(^ONCO(165.5,IEN,"RAD18")),"^",20)=18)&($P($G(^ONCO(165.5,IEN,3)),"^",35)=0) S $P(^ONCO(165.5,IEN,"RAD18"),"^",20)=19
..;
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($P($G(^ONCO(165.5,IEN,2.3)),"^",12)="A") S $P(^ONCO(165.5,IEN,2.3),"^",12)=1
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($P($G(^ONCO(165.5,IEN,2.3)),"^",13)="A") S $P(^ONCO(165.5,IEN,2.3),"^",13)=1
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($P($G(^ONCO(165.5,IEN,2.3)),"^",14)="A") S $P(^ONCO(165.5,IEN,2.3),"^",14)=1
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($P($G(^ONCO(165.5,IEN,2.3)),"^",12)="B") S $P(^ONCO(165.5,IEN,2.3),"^",12)=2
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($P($G(^ONCO(165.5,IEN,2.3)),"^",13)="B") S $P(^ONCO(165.5,IEN,2.3),"^",13)=2
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($P($G(^ONCO(165.5,IEN,2.3)),"^",14)="B") S $P(^ONCO(165.5,IEN,2.3),"^",14)=2
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($P($G(^ONCO(165.5,IEN,2.3)),"^",12)="C") S $P(^ONCO(165.5,IEN,2.3),"^",12)=3
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($P($G(^ONCO(165.5,IEN,2.3)),"^",13)="C") S $P(^ONCO(165.5,IEN,2.3),"^",13)=3
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($P($G(^ONCO(165.5,IEN,2.3)),"^",14)="C") S $P(^ONCO(165.5,IEN,2.3),"^",14)=3
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($P($G(^ONCO(165.5,IEN,2.3)),"^",12)="D") S $P(^ONCO(165.5,IEN,2.3),"^",12)=4
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($P($G(^ONCO(165.5,IEN,2.3)),"^",13)="D") S $P(^ONCO(165.5,IEN,2.3),"^",13)=4
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($P($G(^ONCO(165.5,IEN,2.3)),"^",14)="D") S $P(^ONCO(165.5,IEN,2.3),"^",14)=4
..;
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($P($G(^ONCO(165.5,IEN,2.3)),"^",12)=4) S $P(^ONCO(165.5,IEN,2.3),"^",12)=3
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($P($G(^ONCO(165.5,IEN,2.3)),"^",13)=4) S $P(^ONCO(165.5,IEN,2.3),"^",13)=3
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($P($G(^ONCO(165.5,IEN,2.3)),"^",14)=4) S $P(^ONCO(165.5,IEN,2.3),"^",14)=3
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($P($G(^ONCO(165.5,IEN,2.3)),"^",12)=5) S $P(^ONCO(165.5,IEN,2.3),"^",12)=4
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($P($G(^ONCO(165.5,IEN,2.3)),"^",13)=5) S $P(^ONCO(165.5,IEN,2.3),"^",13)=4
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($P($G(^ONCO(165.5,IEN,2.3)),"^",14)=5) S $P(^ONCO(165.5,IEN,2.3),"^",14)=4
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($P($G(^ONCO(165.5,IEN,2.3)),"^",12)="L") S $P(^ONCO(165.5,IEN,2.3),"^",12)=9
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($P($G(^ONCO(165.5,IEN,2.3)),"^",13)="L") S $P(^ONCO(165.5,IEN,2.3),"^",13)=9
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($P($G(^ONCO(165.5,IEN,2.3)),"^",14)="L") S $P(^ONCO(165.5,IEN,2.3),"^",14)=9
..;
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)="01" S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)=1
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)="02" S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="1A"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)="03" S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="1A1"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)="04" S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="1A2"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)="05" S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="1B"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)="06" S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="1B1"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)="07" S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="1B2"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)="08" S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="1C"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)="09" S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="1C1"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=10 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="1C2"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=11 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="1C3"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=20 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)=2
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=21 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="2A"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=22 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="2A1"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=23 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="2A2"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=24 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="2B"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=30 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)=3
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=31 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="3A"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=32 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="3A1"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=33 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="3A11"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=34 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="3A12"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=35 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="3A2"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=36 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="3B"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=37 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="3C"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=38 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="3C1"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=39 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="3C2"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=40 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)=4
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=41 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="4A"
..I $P($G(^ONCO(165.5,IEN,"SSD2")),"^",2)=42 S $P(^ONCO(165.5,IEN,"SSD2"),"^",2)="4B"
..;
..I ($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00551")!($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00552")!($P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="00553") D
...I ($P($G(^ONCO(165.5,IEN,"SSD4")),"^",16)=3) S $P(^ONCO(165.5,IEN,"SSD4"),"^",16)=2
...I ($P($G(^ONCO(165.5,IEN,"SSD4")),"^",16)=4)!($P($G(^ONCO(165.5,IEN,"SSD4")),"^",16)=5) S $P(^ONCO(165.5,IEN,"SSD4"),"^",16)=3
...I ($P($G(^ONCO(165.5,IEN,"SSD4")),"^",16)=6)!($P($G(^ONCO(165.5,IEN,"SSD4")),"^",16)=7) S $P(^ONCO(165.5,IEN,"SSD4"),"^",16)=4
...I ($P($G(^ONCO(165.5,IEN,"SSD4")),"^",16)=8)!($P($G(^ONCO(165.5,IEN,"SSD4")),"^",16)=9) S $P(^ONCO(165.5,IEN,"SSD4"),"^",16)=5
..;
..S $P(^ONCO(165.5,IEN,"NCR21"),"^",5)="1.7"
..S $P(^ONCO(165.5,IEN,"NCR21"),"^",6)="1.7"
;
;Once the post-install has run, set this node so the conversions won't run
; again if patch is re-installed in same account
K DD,DO N ONCVALUE S DIC="^ONCO(165.55,",DIC(0)="L",ONCVALUE="Y"
S DIC("DR")="1///^S X=ONCVALUE",X="ONCV2.2P13 CONVERSIONS"
D FILE^DICN
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONC2PS13 8645 printed Apr 09, 2024@21:29:26 Page 2
ONC2PS13 ;HINES OIFO/RTK - Post-Install Routine for Patch ONC*2.2*13 ;01/21/21
+1 ;;2.2;ONCOLOGY;**13**;Jul 31, 2013;Build 7
+2 ;
+3 ;N RC
+4 ;DC production server Patch 12
+5 ;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:83/cgi_bin/oncsrv.exe")
+6 ;DC PRODUCTION SERVER V21
+7 SET RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:86/cgi_bin/oncsrv.exe")
+8 ;test server uRL V21
+9 ;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:81/cgi_bin/oncsrv.exe")
+10 ;
+11 ;Quit before conversions if patch already has been installed in this account
+12 IF $DATA(^ONCO(165.55,"B","ONCV2.2P13 CONVERSIONS"))
QUIT
+13 ;
+14 ; Set new "G" and "H" cross-reference on (file #165.5, fields #5004, #5014)
+15 DO BMES^XPDUTL("Setting 'G' and 'H' cross-references of file #165.5...")
+16 NEW DIK
SET DIK="^ONCO(165.5,"
SET DIK(1)="5004^G"
+17 ;Kill existing "G" cross-reference.
DO ENALL2^DIK
+18 ;Re-create "G" cross-reference.
DO ENALL^DIK
+19 NEW DIK
SET DIK="^ONCO(165.5,"
SET DIK(1)="5014^H"
+20 ;Kill existing "H" cross-reference.
DO ENALL2^DIK
+21 ;Re-create "H" cross-reference.
DO ENALL^DIK
+22 ;
+23 ;Convert values for NAACCR 2021 updates
+24 DO BMES^XPDUTL("Convert Visceral Parietal Plueral Invasion [3937] data...")
+25 DO BMES^XPDUTL("Convert Phase Radiation Treatment Modality [5506,5516,5526] data...")
+26 DO BMES^XPDUTL("Convert Lacrimal Gland Grade data...")
+27 DO BMES^XPDUTL("Convert Lymphoma Ocular Adnexa Grade data...")
+28 DO BMES^XPDUTL("Convert FIGO Stage [3836] data...")
+29 DO BMES^XPDUTL("Convert Residual Tumor Volume Post Cytoreduction [3921] data...")
+30 SET ONCDXVP=3171231
FOR
SET ONCDXVP=$ORDER(^ONCO(165.5,"ADX",ONCDXVP))
if ONCDXVP'>0
QUIT
Begin DoDot:1
+31 SET IEN=0
FOR
SET IEN=$ORDER(^ONCO(165.5,"ADX",ONCDXVP,IEN))
if IEN'>0
QUIT
Begin DoDot:2
+32 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD4")),"^",32)=1
SET $PIECE(^ONCO(165.5,IEN,"SSD4"),"^",32)=4
+33 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD4")),"^",32)=2
SET $PIECE(^ONCO(165.5,IEN,"SSD4"),"^",32)=4
+34 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD4")),"^",32)=3
SET $PIECE(^ONCO(165.5,IEN,"SSD4"),"^",32)=5
+35 ;
+36 IF ($PIECE($GET(^ONCO(165.5,IEN,"RAD18")),"^",6)=18)&($PIECE($GET(^ONCO(165.5,IEN,3)),"^",35)=0)
SET $PIECE(^ONCO(165.5,IEN,"RAD18"),"^",6)=19
+37 IF ($PIECE($GET(^ONCO(165.5,IEN,"RAD18")),"^",13)=18)&($PIECE($GET(^ONCO(165.5,IEN,3)),"^",35)=0)
SET $PIECE(^ONCO(165.5,IEN,"RAD18"),"^",13)=19
+38 IF ($PIECE($GET(^ONCO(165.5,IEN,"RAD18")),"^",20)=18)&($PIECE($GET(^ONCO(165.5,IEN,3)),"^",35)=0)
SET $PIECE(^ONCO(165.5,IEN,"RAD18"),"^",20)=19
+39 ;
+40 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",12)="A")
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",12)=1
+41 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",13)="A")
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",13)=1
+42 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",14)="A")
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",14)=1
+43 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",12)="B")
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",12)=2
+44 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",13)="B")
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",13)=2
+45 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",14)="B")
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",14)=2
+46 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",12)="C")
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",12)=3
+47 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",13)="C")
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",13)=3
+48 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",14)="C")
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",14)=3
+49 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",12)="D")
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",12)=4
+50 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",13)="D")
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",13)=4
+51 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00690")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",14)="D")
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",14)=4
+52 ;
+53 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",12)=4)
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",12)=3
+54 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",13)=4)
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",13)=3
+55 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",14)=4)
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",14)=3
+56 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",12)=5)
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",12)=4
+57 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",13)=5)
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",13)=4
+58 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",14)=5)
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",14)=4
+59 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",12)="L")
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",12)=9
+60 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",13)="L")
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",13)=9
+61 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00710")&($PIECE($GET(^ONCO(165.5,IEN,2.3)),"^",14)="L")
SET $PIECE(^ONCO(165.5,IEN,2.3),"^",14)=9
+62 ;
+63 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)="01"
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)=1
+64 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)="02"
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="1A"
+65 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)="03"
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="1A1"
+66 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)="04"
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="1A2"
+67 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)="05"
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="1B"
+68 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)="06"
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="1B1"
+69 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)="07"
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="1B2"
+70 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)="08"
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="1C"
+71 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)="09"
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="1C1"
+72 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=10
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="1C2"
+73 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=11
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="1C3"
+74 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=20
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)=2
+75 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=21
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="2A"
+76 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=22
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="2A1"
+77 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=23
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="2A2"
+78 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=24
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="2B"
+79 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=30
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)=3
+80 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=31
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="3A"
+81 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=32
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="3A1"
+82 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=33
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="3A11"
+83 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=34
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="3A12"
+84 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=35
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="3A2"
+85 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=36
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="3B"
+86 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=37
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="3C"
+87 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=38
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="3C1"
+88 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=39
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="3C2"
+89 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=40
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)=4
+90 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=41
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="4A"
+91 IF $PIECE($GET(^ONCO(165.5,IEN,"SSD2")),"^",2)=42
SET $PIECE(^ONCO(165.5,IEN,"SSD2"),"^",2)="4B"
+92 ;
+93 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00551")!($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00552")!($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)="00553")
Begin DoDot:3
+94 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD4")),"^",16)=3)
SET $PIECE(^ONCO(165.5,IEN,"SSD4"),"^",16)=2
+95 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD4")),"^",16)=4)!($PIECE($GET(^ONCO(165.5,IEN,"SSD4")),"^",16)=5)
SET $PIECE(^ONCO(165.5,IEN,"SSD4"),"^",16)=3
+96 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD4")),"^",16)=6)!($PIECE($GET(^ONCO(165.5,IEN,"SSD4")),"^",16)=7)
SET $PIECE(^ONCO(165.5,IEN,"SSD4"),"^",16)=4
+97 IF ($PIECE($GET(^ONCO(165.5,IEN,"SSD4")),"^",16)=8)!($PIECE($GET(^ONCO(165.5,IEN,"SSD4")),"^",16)=9)
SET $PIECE(^ONCO(165.5,IEN,"SSD4"),"^",16)=5
End DoDot:3
+98 ;
+99 SET $PIECE(^ONCO(165.5,IEN,"NCR21"),"^",5)="1.7"
+100 SET $PIECE(^ONCO(165.5,IEN,"NCR21"),"^",6)="1.7"
End DoDot:2
End DoDot:1
+101 ;
+102 ;Once the post-install has run, set this node so the conversions won't run
+103 ; again if patch is re-installed in same account
+104 KILL DD,DO
NEW ONCVALUE
SET DIC="^ONCO(165.55,"
SET DIC(0)="L"
SET ONCVALUE="Y"
+105 SET DIC("DR")="1///^S X=ONCVALUE"
SET X="ONCV2.2P13 CONVERSIONS"
+106 DO FILE^DICN
+107 QUIT
