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 ---[H[J[2J[HONCPST47 1096 printed Dec 13, 2024@02:27:33 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
