ONC2PS14 ;HINES OIFO/RTK - Post-Install Routine for Patch ONC*2.2*14 ;01/04/22
;;2.2;ONCOLOGY;**14**;Jul 31, 2013;Build 8
;
D SET38001
N RC
;DC production server Patch ##
;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:83/cgi_bin/oncsrv.exe")
;DC PRODUCTION SERVER V21
S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:86/cgi_bin/oncsrv.exe")
;test server uRL V21
;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:81/cgi_bin/oncsrv.exe")
Q
;
SET38001 ;Set the value for field 3800.1 for 2018+ cases
N ONCDXVP,IEN,ONCGRIEN,ONCSKNM
S ONCDXVP=3171231 F S ONCDXVP=$O(^ONCO(165.5,"ADX",ONCDXVP)) Q:ONCDXVP'>0 D
.S IEN=0 F S IEN=$O(^ONCO(165.5,"ADX",ONCDXVP,IEN)) Q:IEN'>0 D
..S ONCZSCMA=$P($G(^ONCO(165.5,IEN,"SSD1")),"^",1) I ONCZSCMA="" Q
..S ONCGRIEN=$O(^ONCO(164.44,"C",ONCZSCMA,"")) I ONCGRIEN="" Q
..S ONCSKNM=$O(^ONCO(164.44,ONCGRIEN,1,"B",ONCZSCMA,"")) I ONCSKNM="" Q
..S $P(^ONCO(165.5,IEN,"SSD5"),"^",6)=$P($G(^ONCO(164.44,ONCGRIEN,1,ONCSKNM,0)),U,1)_": "_$E($P($G(^ONCO(164.44,ONCGRIEN,1,ONCSKNM,0)),U,2),1,60)
..Q
.Q
K ONCZSCMA Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONC2PS14 1070 printed Oct 16, 2024@18:22:33 Page 2
ONC2PS14 ;HINES OIFO/RTK - Post-Install Routine for Patch ONC*2.2*14 ;01/04/22
+1 ;;2.2;ONCOLOGY;**14**;Jul 31, 2013;Build 8
+2 ;
+3 DO SET38001
+4 NEW RC
+5 ;DC production server Patch ##
+6 ;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:83/cgi_bin/oncsrv.exe")
+7 ;DC PRODUCTION SERVER V21
+8 SET RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:86/cgi_bin/oncsrv.exe")
+9 ;test server uRL V21
+10 ;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:81/cgi_bin/oncsrv.exe")
+11 QUIT
+12 ;
SET38001 ;Set the value for field 3800.1 for 2018+ cases
+1 NEW ONCDXVP,IEN,ONCGRIEN,ONCSKNM
+2 SET ONCDXVP=3171231
FOR
SET ONCDXVP=$ORDER(^ONCO(165.5,"ADX",ONCDXVP))
if ONCDXVP'>0
QUIT
Begin DoDot:1
+3 SET IEN=0
FOR
SET IEN=$ORDER(^ONCO(165.5,"ADX",ONCDXVP,IEN))
if IEN'>0
QUIT
Begin DoDot:2
+4 SET ONCZSCMA=$PIECE($GET(^ONCO(165.5,IEN,"SSD1")),"^",1)
IF ONCZSCMA=""
QUIT
+5 SET ONCGRIEN=$ORDER(^ONCO(164.44,"C",ONCZSCMA,""))
IF ONCGRIEN=""
QUIT
+6 SET ONCSKNM=$ORDER(^ONCO(164.44,ONCGRIEN,1,"B",ONCZSCMA,""))
IF ONCSKNM=""
QUIT
+7 SET $PIECE(^ONCO(165.5,IEN,"SSD5"),"^",6)=$PIECE($GET(^ONCO(164.44,ONCGRIEN,1,ONCSKNM,0)),U,1)_": "_$EXTRACT($PIECE($GET(^ONCO(164.44,ONCGRIEN,1,ONCSKNM,0)),U,2),1,60)
+8 QUIT
End DoDot:2
+9 QUIT
End DoDot:1
+10 KILL ONCZSCMA
QUIT
