XUINTSK ;SEA/RDSM-TaskMan: Version 7.1 Post-init ;08/15/94 09:39
;;8.0;KERNEL;;Jul 10, 1995
INTRO ;
;This routine converts TaskMan's files from version 7.1 to 8
;
MAIN ;
;This is the post-init conversion's main subroutine.
D MES^XPDUTL("Beginning TaskMan's post-init conversion...")
D ^XUINTSK1,^XUINTSK2,DESC
D MES^XPDUTL("End of TaskMan's post-init conversion.")
Q
DESC ;Move the DESCRIPTION data for current tasks.
N TSK
F TSK=0:0 S TSK=$O(^%ZTSK(TSK)) Q:TSK'>0 D
. S Z0=$P($G(^%ZTSK(TSK,0)),"^",13) Q:Z0="ZTDESC"
. S Z3=$G(^%ZTSK(TSK,.03))
. I Z3="",Z0]"" S $P(^%ZTSK(TSK,0),U,13)="ZTDESC",^(.03)=Z0
. Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUINTSK 646 printed Nov 22, 2024@17:20 Page 2
XUINTSK ;SEA/RDSM-TaskMan: Version 7.1 Post-init ;08/15/94 09:39
+1 ;;8.0;KERNEL;;Jul 10, 1995
INTRO ;
+1 ;This routine converts TaskMan's files from version 7.1 to 8
+2 ;
MAIN ;
+1 ;This is the post-init conversion's main subroutine.
+2 DO MES^XPDUTL("Beginning TaskMan's post-init conversion...")
+3 DO ^XUINTSK1
DO ^XUINTSK2
DO DESC
+4 DO MES^XPDUTL("End of TaskMan's post-init conversion.")
+5 QUIT
DESC ;Move the DESCRIPTION data for current tasks.
+1 NEW TSK
+2 FOR TSK=0:0
SET TSK=$ORDER(^%ZTSK(TSK))
if TSK'>0
QUIT
Begin DoDot:1
+3 SET Z0=$PIECE($GET(^%ZTSK(TSK,0)),"^",13)
if Z0="ZTDESC"
QUIT
+4 SET Z3=$GET(^%ZTSK(TSK,.03))
+5 IF Z3=""
IF Z0]""
SET $PIECE(^%ZTSK(TSK,0),U,13)="ZTDESC"
SET ^(.03)=Z0
+6 QUIT
End DoDot:1
+7 QUIT
