20 lines
1.1 KiB
Mathematica
20 lines
1.1 KiB
Mathematica
AAQPKCHG ;DRM/438;;6/24/91;;Name change for Packman routines [ 07/31/92 5:06 PM ]
|
|
;;1.0;From Dan Miller@Sioux Falls;Orginally named ZZDPKCHG;;Build 1
|
|
;Modified to automatically change uppercase to lowercase
|
|
W !!,"Routine names within the PackMan message will",!,"be changed from uppercase to lowercase.",!,"Lowercase characters will be left unchanged."
|
|
EN W !!,"Enter Subj: [Message #]: " R ZMSG:DTIME Q:ZMSG=""!(ZMSG="^")!('$T) G:'$D(^XMB(3.9,ZMSG,0)) EN W !,$P(^XMB(3.9,ZMSG,0),"^",1),!
|
|
S ZLN=0 F S ZLN=$O(^XMB(3.9,ZMSG,2,ZLN)) Q:'ZLN I $E(^(ZLN,0),1,4)="$ROU" D CHNG
|
|
I '$D(ZRTN) W !,"Couldn't find the routine(s)!" K ZMSG,ZLN G EN
|
|
W !,"Done" K ZMSG,ZLN,ZRTN,ZZRTN,ZX,ZXX G EN
|
|
Q
|
|
CHNG S ZRTN=$P(^(0)," ",2) W !,"Routine: ",ZRTN,?21,"Change to: " D CHNG2
|
|
S $P(^(0)," ",2)=ZZRTN F S ZLN=$O(^XMB(3.9,ZMSG,2,ZLN)) Q:$E(^(ZLN,0))="$"!('ZLN)
|
|
I $P(^XMB(3.9,ZMSG,2,$S(+ZLN:ZLN,1:0),0)," ",3)=ZRTN S $P(^(0)," ",3)=ZZRTN Q
|
|
E G ERR
|
|
ERR W !,"Routine: ",ZRTN," is not standard pack routine - Better do this one manually!"
|
|
Q
|
|
CHNG2 S ZX=ZRTN,ZXX="" D
|
|
.F KK=1:1:$L(ZX) S:$E(ZX,KK)?1U ZXX=ZXX_$C($A(ZX,KK)+32) S:$E(ZX,KK)'?1U ZXX=ZXX_$E(ZX,KK)
|
|
.W ZXX
|
|
.S ZZRTN=ZXX Q
|