source: FOIAVistA/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUINTSK.m@ 1755

Last change on this file since 1755 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 627 bytes
Line 
1XUINTSK ;SEA/RDSM-TaskMan: Version 7.1 Post-init ;08/15/94 09:39
2 ;;8.0;KERNEL;;Jul 10, 1995
3INTRO ;
4 ;This routine converts TaskMan's files from version 7.1 to 8
5 ;
6MAIN ;
7 ;This is the post-init conversion's main subroutine.
8 D MES^XPDUTL("Beginning TaskMan's post-init conversion...")
9 D ^XUINTSK1,^XUINTSK2,DESC
10 D MES^XPDUTL("End of TaskMan's post-init conversion.")
11 Q
12DESC ;Move the DESCRIPTION data for current tasks.
13 N TSK
14 F TSK=0:0 S TSK=$O(^%ZTSK(TSK)) Q:TSK'>0 D
15 . S Z0=$P($G(^%ZTSK(TSK,0)),"^",13) Q:Z0="ZTDESC"
16 . S Z3=$G(^%ZTSK(TSK,.03))
17 . I Z3="",Z0]"" S $P(^%ZTSK(TSK,0),U,13)="ZTDESC",^(.03)=Z0
18 . Q
19 Q
Note: See TracBrowser for help on using the repository browser.