| [613] | 1 | RTYDPST ;ALB/ABR - PULL LIST FILE NAME CLEANUP ; SEP 28 1995
|
|---|
| 2 | ;;v 2.0;Record Tracking;**23**;10/22/91
|
|---|
| 3 | EN ;
|
|---|
| 4 | N ZTDESC,ZTRTN,ZTIO,ZTQUEUED,ZTSK,I,X
|
|---|
| 5 | W !!,"<<CLEAN-UP OF PULL LIST NAMES IN PULL LIST FILE (#194.2)>>",!
|
|---|
| 6 | I '$G(DUZ)!'$D(DTIME)!'$D(U) W !!,*7,">> USER NOT DEFINED. CANNOT CONTINUE" Q
|
|---|
| 7 | F I=1:1 S X=$P($T(TEXT+I),";;",2) Q:X="QUIT" W !,X
|
|---|
| 8 | QUE S ZTRTN="CLN^RTYDPST",ZTDESC="PULL LIST FILE NAME CLEAN-UP",ZTIO=""
|
|---|
| 9 | D ^%ZTLOAD
|
|---|
| 10 | W:$D(ZTSK) !!,">>>Task "_ZTSK_" has been queued."
|
|---|
| 11 | Q
|
|---|
| 12 | CLN ;entry point from Queue
|
|---|
| 13 | N RTI,RTPULL,RTSTART,DA,DIE,DR
|
|---|
| 14 | S RTI=0,RTSTART=$$HTE^XLFDT($H)
|
|---|
| 15 | S DIE="^RTV(194.2,"
|
|---|
| 16 | F S RTI=$O(^RTV(194.2,RTI)) Q:'RTI D:$D(^(RTI,0))
|
|---|
| 17 | .S RTPULL=$P(^RTV(194.2,RTI,0),U) I RTPULL'?.E1L.E Q
|
|---|
| 18 | .S RTPULL=$$UP^XLFSTR(RTPULL),DA=RTI,DR=".01///"_RTPULL
|
|---|
| 19 | .D ^DIE
|
|---|
| 20 | I '$D(ZTQUEUED) W ">> DONE!",!
|
|---|
| 21 | D MAIL
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | MAIL ;
|
|---|
| 25 | N RTTEXT,DIFROM
|
|---|
| 26 | S RTTEXT(1)="The PULL LIST file clean-up began on "_RTSTART
|
|---|
| 27 | S RTTEXT(2)="and ran to completion on "_$$HTE^XLFDT($H)_"."
|
|---|
| 28 | S RTTEXT(3)=" ",RTTEXT(4)="** Please delete the RTYD* routines at this time. **"
|
|---|
| 29 | S XMSUB="PULL LIST File Clean-up Complete",XMTEXT="RTTEXT("
|
|---|
| 30 | S XMDUZ=.5,XMY(DUZ)=""
|
|---|
| 31 | D ^XMD
|
|---|
| 32 | Q
|
|---|
| 33 | TEXT ;display text
|
|---|
| 34 | ;;This routine will loop through the PULL LIST file, changing all Pull List names
|
|---|
| 35 | ;;to all UPPER CASE.
|
|---|
| 36 | ;;
|
|---|
| 37 | ;;THIS CLEAN-UP WILL TAKE SOME TIME AND MUST BE QUEUED!!
|
|---|
| 38 | ;;
|
|---|
| 39 | ;;QUIT
|
|---|
| 40 | Q
|
|---|
