source: FOIAVistA/trunk/r/RECORD_TRACKING-RT/RTYDPST.m@ 1423

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1RTYDPST ;ALB/ABR - PULL LIST FILE NAME CLEANUP ; SEP 28 1995
2 ;;v 2.0;Record Tracking;**23**;10/22/91
3EN ;
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
8QUE 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
12CLN ;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 ;
24MAIL ;
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
33TEXT ;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
Note: See TracBrowser for help on using the repository browser.