ONC2PS12 ;Hines OIFO/RTK - Post-Install Routine for Patch ONC*2.2*12 ;06/03/20
;;2.2;ONCOLOGY;**12**;Jul 31, 2013;Build 8
;
N RC
;DC production server Patch 12
S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:83/cgi_bin/oncsrv.exe")
;DC test server, comment out for final release
;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:81/cgi_bin/oncsrv.exe")
;
;CS Input Original
N IEN,CSCS,CSCS1,CSCS2,CSINPUT,DATEDX
W !!," CS Input Original setting for old cases..."
S IEN=0 F CNT=1:1 S IEN=$O(^ONCO(165.5,IEN)) Q:IEN'>0 D
.S DATEDX=$P($G(^ONCO(165.5,IEN,0)),U,16)
.S CSCS=$G(^ONCO(165.5,IEN,"CS"))
.S CSCS1=$G(^ONCO(165.5,IEN,"CS1"))
.S CSCS2=$G(^ONCO(165.5,IEN,"CS2"))
.S CSINPUT=$P($G(^ONCO(165.5,IEN,"CS1")),U,12)
.I (DATEDX>3180000),(CSINPUT="020440") S $P(^ONCO(165.5,IEN,"CS1"),U,12)=""
.I (DATEDX<3180000),(CSINPUT="") D
..I ((CSCS'="")&(CSCS1'="")&(CSCS2'="")) S $P(^ONCO(165.5,IEN,"CS1"),U,12)="020440"
K CNT,CSCS,CSCS1,CSCS2,CSINPUT,IEN,DATEDX
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONC2PS12 992 printed Dec 13, 2024@02:21:49 Page 2
ONC2PS12 ;Hines OIFO/RTK - Post-Install Routine for Patch ONC*2.2*12 ;06/03/20
+1 ;;2.2;ONCOLOGY;**12**;Jul 31, 2013;Build 8
+2 ;
+3 NEW RC
+4 ;DC production server Patch 12
+5 SET RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:83/cgi_bin/oncsrv.exe")
+6 ;DC test server, comment out for final release
+7 ;S RC=$$UPDCSURL^ONCSAPIU("http://127.0.0.1:81/cgi_bin/oncsrv.exe")
+8 ;
+9 ;CS Input Original
+10 NEW IEN,CSCS,CSCS1,CSCS2,CSINPUT,DATEDX
+11 WRITE !!," CS Input Original setting for old cases..."
+12 SET IEN=0
FOR CNT=1:1
SET IEN=$ORDER(^ONCO(165.5,IEN))
if IEN'>0
QUIT
Begin DoDot:1
+13 SET DATEDX=$PIECE($GET(^ONCO(165.5,IEN,0)),U,16)
+14 SET CSCS=$GET(^ONCO(165.5,IEN,"CS"))
+15 SET CSCS1=$GET(^ONCO(165.5,IEN,"CS1"))
+16 SET CSCS2=$GET(^ONCO(165.5,IEN,"CS2"))
+17 SET CSINPUT=$PIECE($GET(^ONCO(165.5,IEN,"CS1")),U,12)
+18 IF (DATEDX>3180000)
IF (CSINPUT="020440")
SET $PIECE(^ONCO(165.5,IEN,"CS1"),U,12)=""
+19 IF (DATEDX<3180000)
IF (CSINPUT="")
Begin DoDot:2
+20 IF ((CSCS'="")&(CSCS1'="")&(CSCS2'=""))
SET $PIECE(^ONCO(165.5,IEN,"CS1"),U,12)="020440"
End DoDot:2
End DoDot:1
+21 KILL CNT,CSCS,CSCS1,CSCS2,CSINPUT,IEN,DATEDX
+22 ;
+23 QUIT
