|
Last change
on this file since 648 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
627 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | XUINTSK ;SEA/RDSM-TaskMan: Version 7.1 Post-init ;08/15/94 09:39
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | INTRO ;
|
|---|
| 4 | ;This routine converts TaskMan's files from version 7.1 to 8
|
|---|
| 5 | ;
|
|---|
| 6 | MAIN ;
|
|---|
| 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
|
|---|
| 12 | DESC ;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.
