ONCPST50 ;Hines OIFO/GWB - POST-INSTALL ROUTINE FOR PATCH ONC*2.11*50 ;03/27/09
;;2.11;ONCOLOGY;**50**;Mar 07, 1995;Build 29
;
ITEM6 ;Change FIN (160.19,.01) for NEW YORK VA MEDICAL CENTER from 10000000
;to 10000033
S DIC="^ONCO(160.19,",X=10000000 D ^DIC
I Y'=-1 S DIE="^ONCO(160.19,",DA=+Y,DR=".01///10000033" D ^DIE
;
;Change NAME (160.19,.02) for NEW YORK VA MEDICAL CENTER to ZZNEW YORK
;VA MEDICAL CENTER
S DIC="^ONCO(160.19,",X=6213585 D ^DIC
I Y'=-1 S DIE="^ONCO(160.19,",DA=+Y,DR=".02///ZZNEW YORK VA MEDICAL CENTER" D ^DIE
K DA,DIC,DIE,DR,Y
;
ITEM7 ;Change SEER COUNTY CODE (5.1,2) for MIAMI-DADE from 025 (or null) to
;086
;Change NAME (5.1,.01) values to match PATIENT file COUNTY (2,.117)
;values
S DIE="^VIC(5.1,",DA=1129,DR="2///086" D ^DIE
S DIE="^VIC(5.1,",DA=1090,DR=".01///ST. JOHNS;2///109" D ^DIE
S DIE="^VIC(5.1,",DA=1695,DR=".01///ST. CLAIR;2///147" D ^DIE
S DIE="^VIC(5.1,",DA=1628,DR=".01///ST. JOSEPH;2///141" D ^DIE
S DIE="^VIC(5.1,",DA=2223,DR=".01///ST. CHARLES;2///183" D ^DIE
S DIE="^VIC(5.1,",DA=2173,DR=".01///ST. CLAIR;2///163" D ^DIE
S DIE="^VIC(5.1,",DA=1808,DR=".01///ST. CROIX;2///109" D ^DIE
S DIE="^VIC(5.1,",DA=1811,DR=".01///ST. CROIX" D ^DIE
S DIE="^VIC(5.1,",DA=2219,DR=".01///ST. FRANCOIS;2///187" D ^DIE
S DIE="^VIC(5.1,",DA=2216,DR=".01///ST. LOUIS;2///189" D ^DIE
S DIE="^VIC(5.1,",DA=2222,DR=".01///ST. LOUIS (CITY);2///510" D ^DIE
S DIE="^VIC(5.1,",DA=374,DR=".01///ST. THOMAS;2///030" D ^DIE
;
;Add ST. CROIX, ST. JOHN and ST. GENEVIEVE counties
F IEN=0:0 S IEN=$O(^VIC(5.1,"B","ST. CROIX",IEN)) Q:IEN'>0 D
.S STCROIX($P(^VIC(5.1,IEN,0),U,2))=""
I '$D(STCROIX(78)) D
.K DD,DO
.S DIC="^VIC(5.1,"
.S DIC(0)="L"
.S DIC("DR")="1///78;2///010",X="ST. CROIX" D FILE^DICN
K STCROIX
;
I '$D(^VIC(5.1,"B","ST. JOHN")) D
.K DD,DO
.S DIC="^VIC(5.1,"
.S DIC(0)="L"
.S DIC("DR")="1///78;2///020",X="ST. JOHN" D FILE^DICN
;
I '$D(^VIC(5.1,"B","ST. GENEVIEVE")) D
.K DD,DO
.S DIC="^VIC(5.1,"
.S DIC(0)="L"
.S DIC("DR")="1///29;2///186",X="ST. GENEVIEVE" D FILE^DICN
;
;Convert COUNTY AT DX (165.5,10) pointer values of 2553 to 187
F IEN=0:0 S IEN=$O(^ONCO(165.5,IEN)) Q:IEN'>0 D
.S CNTDX=$P($G(^ONCO(165.5,IEN,1)),U,3)
.I CNTDX=2553 S $P(^ONCO(165.5,IEN,1),U,3)=187
;
;Delete COUNTY (5.1) entry 2553 (SAINT BERNARD)
S DIK="^VIC(5.1,",DA=2553 D ^DIK
;
;Convert COUNTY AT DX (165.5,10) pointer values of 2280 to 2216
F IEN=0:0 S IEN=$O(^ONCO(165.5,IEN)) Q:IEN'>0 D
.S CNTDX=$P($G(^ONCO(165.5,IEN,1)),U,3)
.I CNTDX=2280 S $P(^ONCO(165.5,IEN,1),U,3)=2216
;
;Delete COUNTY (5.1) entry 2280 (SAINT LOUIS)
S DIK="^VIC(5.1,",DA=2280 D ^DIK
;
;Convert COUNTY (5.11,2) pointer values of 2280 to 2216
;Convert COUNTY (5.11,2) pointer values of 2553 to 187
S $P(^VIC(5.11,66001,0),U,3)=2216
S $P(^VIC(5.11,71034,0),U,3)=187
K CNTDX,DA,DIC,DIE,DIK,DR,IEN,X
;
ITEM24 ;Re-stage 2003+ cases
D ^ONCRESTG
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCPST50 2978 printed Apr 09, 2024@21:28:25 Page 2
ONCPST50 ;Hines OIFO/GWB - POST-INSTALL ROUTINE FOR PATCH ONC*2.11*50 ;03/27/09
+1 ;;2.11;ONCOLOGY;**50**;Mar 07, 1995;Build 29
+2 ;
ITEM6 ;Change FIN (160.19,.01) for NEW YORK VA MEDICAL CENTER from 10000000
+1 ;to 10000033
+2 SET DIC="^ONCO(160.19,"
SET X=10000000
DO ^DIC
+3 IF Y'=-1
SET DIE="^ONCO(160.19,"
SET DA=+Y
SET DR=".01///10000033"
DO ^DIE
+4 ;
+5 ;Change NAME (160.19,.02) for NEW YORK VA MEDICAL CENTER to ZZNEW YORK
+6 ;VA MEDICAL CENTER
+7 SET DIC="^ONCO(160.19,"
SET X=6213585
DO ^DIC
+8 IF Y'=-1
SET DIE="^ONCO(160.19,"
SET DA=+Y
SET DR=".02///ZZNEW YORK VA MEDICAL CENTER"
DO ^DIE
+9 KILL DA,DIC,DIE,DR,Y
+10 ;
ITEM7 ;Change SEER COUNTY CODE (5.1,2) for MIAMI-DADE from 025 (or null) to
+1 ;086
+2 ;Change NAME (5.1,.01) values to match PATIENT file COUNTY (2,.117)
+3 ;values
+4 SET DIE="^VIC(5.1,"
SET DA=1129
SET DR="2///086"
DO ^DIE
+5 SET DIE="^VIC(5.1,"
SET DA=1090
SET DR=".01///ST. JOHNS;2///109"
DO ^DIE
+6 SET DIE="^VIC(5.1,"
SET DA=1695
SET DR=".01///ST. CLAIR;2///147"
DO ^DIE
+7 SET DIE="^VIC(5.1,"
SET DA=1628
SET DR=".01///ST. JOSEPH;2///141"
DO ^DIE
+8 SET DIE="^VIC(5.1,"
SET DA=2223
SET DR=".01///ST. CHARLES;2///183"
DO ^DIE
+9 SET DIE="^VIC(5.1,"
SET DA=2173
SET DR=".01///ST. CLAIR;2///163"
DO ^DIE
+10 SET DIE="^VIC(5.1,"
SET DA=1808
SET DR=".01///ST. CROIX;2///109"
DO ^DIE
+11 SET DIE="^VIC(5.1,"
SET DA=1811
SET DR=".01///ST. CROIX"
DO ^DIE
+12 SET DIE="^VIC(5.1,"
SET DA=2219
SET DR=".01///ST. FRANCOIS;2///187"
DO ^DIE
+13 SET DIE="^VIC(5.1,"
SET DA=2216
SET DR=".01///ST. LOUIS;2///189"
DO ^DIE
+14 SET DIE="^VIC(5.1,"
SET DA=2222
SET DR=".01///ST. LOUIS (CITY);2///510"
DO ^DIE
+15 SET DIE="^VIC(5.1,"
SET DA=374
SET DR=".01///ST. THOMAS;2///030"
DO ^DIE
+16 ;
+17 ;Add ST. CROIX, ST. JOHN and ST. GENEVIEVE counties
+18 FOR IEN=0:0
SET IEN=$ORDER(^VIC(5.1,"B","ST. CROIX",IEN))
if IEN'>0
QUIT
Begin DoDot:1
+19 SET STCROIX($PIECE(^VIC(5.1,IEN,0),U,2))=""
End DoDot:1
+20 IF '$DATA(STCROIX(78))
Begin DoDot:1
+21 KILL DD,DO
+22 SET DIC="^VIC(5.1,"
+23 SET DIC(0)="L"
+24 SET DIC("DR")="1///78;2///010"
SET X="ST. CROIX"
DO FILE^DICN
End DoDot:1
+25 KILL STCROIX
+26 ;
+27 IF '$DATA(^VIC(5.1,"B","ST. JOHN"))
Begin DoDot:1
+28 KILL DD,DO
+29 SET DIC="^VIC(5.1,"
+30 SET DIC(0)="L"
+31 SET DIC("DR")="1///78;2///020"
SET X="ST. JOHN"
DO FILE^DICN
End DoDot:1
+32 ;
+33 IF '$DATA(^VIC(5.1,"B","ST. GENEVIEVE"))
Begin DoDot:1
+34 KILL DD,DO
+35 SET DIC="^VIC(5.1,"
+36 SET DIC(0)="L"
+37 SET DIC("DR")="1///29;2///186"
SET X="ST. GENEVIEVE"
DO FILE^DICN
End DoDot:1
+38 ;
+39 ;Convert COUNTY AT DX (165.5,10) pointer values of 2553 to 187
+40 FOR IEN=0:0
SET IEN=$ORDER(^ONCO(165.5,IEN))
if IEN'>0
QUIT
Begin DoDot:1
+41 SET CNTDX=$PIECE($GET(^ONCO(165.5,IEN,1)),U,3)
+42 IF CNTDX=2553
SET $PIECE(^ONCO(165.5,IEN,1),U,3)=187
End DoDot:1
+43 ;
+44 ;Delete COUNTY (5.1) entry 2553 (SAINT BERNARD)
+45 SET DIK="^VIC(5.1,"
SET DA=2553
DO ^DIK
+46 ;
+47 ;Convert COUNTY AT DX (165.5,10) pointer values of 2280 to 2216
+48 FOR IEN=0:0
SET IEN=$ORDER(^ONCO(165.5,IEN))
if IEN'>0
QUIT
Begin DoDot:1
+49 SET CNTDX=$PIECE($GET(^ONCO(165.5,IEN,1)),U,3)
+50 IF CNTDX=2280
SET $PIECE(^ONCO(165.5,IEN,1),U,3)=2216
End DoDot:1
+51 ;
+52 ;Delete COUNTY (5.1) entry 2280 (SAINT LOUIS)
+53 SET DIK="^VIC(5.1,"
SET DA=2280
DO ^DIK
+54 ;
+55 ;Convert COUNTY (5.11,2) pointer values of 2280 to 2216
+56 ;Convert COUNTY (5.11,2) pointer values of 2553 to 187
+57 SET $PIECE(^VIC(5.11,66001,0),U,3)=2216
+58 SET $PIECE(^VIC(5.11,71034,0),U,3)=187
+59 KILL CNTDX,DA,DIC,DIE,DIK,DR,IEN,X
+60 ;
ITEM24 ;Re-stage 2003+ cases
+1 DO ^ONCRESTG
