ONCPST47.m

ONCPST47 ;Hines OIFO/GWB - POST-INSTALL ROUTINE FOR PATCH ONC*2.11*47

 ;;2.11;ONCOLOGY;**47**;Mar 07, 1995;Build 19

 ;

 ;Set the COLLABORATIVE STAGING URL (160.1,19) value in all ONCOLOGY

 ;SITE PARAMETERS entries = http://websrv.oncology.domain.ext/oncsrv.exe

 S RC=$$UPDCSURL^ONCSAPIU("http://websrv.oncology.domain.ext/oncsrv.exe")

 ;

ITEM1 ;ACOS STATE AT DIAGNOSIS (160.15)

 ;Edit code ZZ (Residence unknown)

 ;Add codes CD (Resident of Canada, NOS) and

 ;          US (Resident of United States, NOS)

 S DIC="^ONCO(160.15,",X="ZZ" D ^DIC

 I Y'=-1 S DIE="^ONCO(160.15,",DA=+Y,DR="1///Residence unknown" D ^DIE

 I '$D(^ONCO(160.15,"B","CD")) D

 .K DD,DO

 .S DIC="^ONCO(160.15,",DIC(0)="L"

 .S DIC("DR")="1///Resident of Canada, NOS",X="CD" D FILE^DICN

 I '$D(^ONCO(160.15,"B","US")) D

 .K DD,DO

 .S DIC="^ONCO(160.15,",DIC(0)="L"

 .S DIC("DR")="1///Resident of United States, NOS",X="US" D FILE^DICN

 K DIC,X,Y,DIE,DR,DA

 ;

ITEM3 I '$D(^VIC(5.1,"B","BEN HILL")) D

 .K DD,DO

 .S DIC="^VIC(5.1,"

 .S DIC(0)="L"

 .S DIC("DR")="1///13;2///017",X="BEN HILL" D FILE^DICN

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCPST47   1096     printed  Apr 09, 2024@21:31:02                                                                                                                                                                                                    Page 2

ONCPST47  ;Hines OIFO/GWB - POST-INSTALL ROUTINE FOR PATCH ONC*2.11*47

 +1       ;;2.11;ONCOLOGY;**47**;Mar 07, 1995;Build 19

 +2       ;

 +3       ;Set the COLLABORATIVE STAGING URL (160.1,19) value in all ONCOLOGY

 +4       ;SITE PARAMETERS entries = http://websrv.oncology.domain.ext/oncsrv.exe

 +5        SET RC=$$UPDCSURL^ONCSAPIU("http://websrv.oncology.domain.ext/oncsrv.exe")

 +6       ;

ITEM1     ;ACOS STATE AT DIAGNOSIS (160.15)

 +1       ;Edit code ZZ (Residence unknown)

 +2       ;Add codes CD (Resident of Canada, NOS) and

 +3       ;          US (Resident of United States, NOS)

 +4        SET DIC="^ONCO(160.15,"

           SET X="ZZ"

           DO ^DIC

 +5        IF Y'=-1

               SET DIE="^ONCO(160.15,"

               SET DA=+Y

               SET DR="1///Residence unknown"

               DO ^DIE

 +6        IF '$DATA(^ONCO(160.15,"B","CD"))

               Begin DoDot:1

 +7                KILL DD,DO

 +8                SET DIC="^ONCO(160.15,"

                   SET DIC(0)="L"

 +9                SET DIC("DR")="1///Resident of Canada, NOS"

                   SET X="CD"

                   DO FILE^DICN

               End DoDot:1

 +10       IF '$DATA(^ONCO(160.15,"B","US"))

               Begin DoDot:1

 +11               KILL DD,DO

 +12               SET DIC="^ONCO(160.15,"

                   SET DIC(0)="L"

 +13               SET DIC("DR")="1///Resident of United States, NOS"

                   SET X="US"

                   DO FILE^DICN

               End DoDot:1

 +14       KILL DIC,X,Y,DIE,DR,DA

 +15      ;

ITEM3      IF '$DATA(^VIC(5.1,"B","BEN HILL"))

               Begin DoDot:1

 +1                KILL DD,DO

 +2                SET DIC="^VIC(5.1,"

 +3                SET DIC(0)="L"

 +4                SET DIC("DR")="1///13;2///017"

                   SET X="BEN HILL"

                   DO FILE^DICN

               End DoDot:1