XUINTSK.m

XUINTSK ;SEA/RDSM-TaskMan: Version 7.1 Post-init ;08/15/94  09:39 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 ;;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

XUINTSK   ;SEA/RDSM-TaskMan: Version 7.1 Post-init ;08/15/94  09:39 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 +2       ;;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