ONCPST49.m

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 ---ONCPST49   762     printed  Apr 09, 2024@21:25:45                                                                                                                                                                                                     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