- 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 Feb 18, 2025@23:48:11 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