- 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 Mar 13, 2025@21:26:37 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
