ONCPST49 ;Hines OIFO/GWB - POST-INSTALL ROUTINE FOR PATCH ONC*2.11*49 ;01/07/09
;;2.11;ONCOLOGY;**49**;Mar 07, 1995;Build 38
;
S DIK="^ONCO(164.52," D IXALL^DIK
K DIK
;
S IEN=$O(^ONCO(160.19,"B",6999014,0))
I IEN="" K IEN G ITEM23
S NAME=$P(^ONCO(160.19,IEN,0),U,2)
I NAME="" S DIK="^ONCO(160.19,",DA=IEN D ^DIK
K DA,DIK,NAME
;
ITEM23 ;Change FIN (160.19,.01) for WEST PALM BEACH VA MEDICAL CENTER from
;6390003 to 10000011
S DIC="^ONCO(160.19,",X=6390003 D ^DIC
I Y'=-1 S DIE="^ONCO(160.19,",DA=+Y,DR=".01///10000011" D ^DIE
;
;Change STATE (160.19,.04) for NEW YORK VA MEDICAL CENTER from IL to NY
S DIC="^ONCO(160.19,",X=10000000 D ^DIC
I Y'=-1 S DIE="^ONCO(160.19,",DA=+Y,DR=".04///NY" D ^DIE
K DA,DIC,DIE,DR,X,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCPST49 762 printed Dec 13, 2024@02:27:35 Page 2
ONCPST49 ;Hines OIFO/GWB - POST-INSTALL ROUTINE FOR PATCH ONC*2.11*49 ;01/07/09
+1 ;;2.11;ONCOLOGY;**49**;Mar 07, 1995;Build 38
+2 ;
+3 SET DIK="^ONCO(164.52,"
DO IXALL^DIK
+4 KILL DIK
+5 ;
+6 SET IEN=$ORDER(^ONCO(160.19,"B",6999014,0))
+7 IF IEN=""
KILL IEN
GOTO ITEM23
+8 SET NAME=$PIECE(^ONCO(160.19,IEN,0),U,2)
+9 IF NAME=""
SET DIK="^ONCO(160.19,"
SET DA=IEN
DO ^DIK
+10 KILL DA,DIK,NAME
+11 ;
ITEM23 ;Change FIN (160.19,.01) for WEST PALM BEACH VA MEDICAL CENTER from
+1 ;6390003 to 10000011
+2 SET DIC="^ONCO(160.19,"
SET X=6390003
DO ^DIC
+3 IF Y'=-1
SET DIE="^ONCO(160.19,"
SET DA=+Y
SET DR=".01///10000011"
DO ^DIE
+4 ;
+5 ;Change STATE (160.19,.04) for NEW YORK VA MEDICAL CENTER from IL to NY
+6 SET DIC="^ONCO(160.19,"
SET X=10000000
DO ^DIC
+7 IF Y'=-1
SET DIE="^ONCO(160.19,"
SET DA=+Y
SET DR=".04///NY"
DO ^DIE
+8 KILL DA,DIC,DIE,DR,X,Y
+9 QUIT
