| [613] | 1 | AAQPKCHG ;DRM/438;;6/24/91;;Name change for Packman routines [ 07/31/92 5:06 PM ]
|
|---|
| 2 | ;;1.0;From Dan Miller@Sioux Falls;Orginally named ZZDPKCHG;;Build 1
|
|---|
| 3 | ;Modified to automatically change uppercase to lowercase
|
|---|
| 4 | W !!,"Routine names within the PackMan message will",!,"be changed from uppercase to lowercase.",!,"Lowercase characters will be left unchanged."
|
|---|
| 5 | 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),!
|
|---|
| 6 | S ZLN=0 F S ZLN=$O(^XMB(3.9,ZMSG,2,ZLN)) Q:'ZLN I $E(^(ZLN,0),1,4)="$ROU" D CHNG
|
|---|
| 7 | I '$D(ZRTN) W !,"Couldn't find the routine(s)!" K ZMSG,ZLN G EN
|
|---|
| 8 | W !,"Done" K ZMSG,ZLN,ZRTN,ZZRTN,ZX,ZXX G EN
|
|---|
| 9 | Q
|
|---|
| 10 | CHNG S ZRTN=$P(^(0)," ",2) W !,"Routine: ",ZRTN,?21,"Change to: " D CHNG2
|
|---|
| 11 | S $P(^(0)," ",2)=ZZRTN F S ZLN=$O(^XMB(3.9,ZMSG,2,ZLN)) Q:$E(^(ZLN,0))="$"!('ZLN)
|
|---|
| 12 | I $P(^XMB(3.9,ZMSG,2,$S(+ZLN:ZLN,1:0),0)," ",3)=ZRTN S $P(^(0)," ",3)=ZZRTN Q
|
|---|
| 13 | E G ERR
|
|---|
| 14 | ERR W !,"Routine: ",ZRTN," is not standard pack routine - Better do this one manually!"
|
|---|
| 15 | Q
|
|---|
| 16 | CHNG2 S ZX=ZRTN,ZXX="" D
|
|---|
| 17 | .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)
|
|---|
| 18 | .W ZXX
|
|---|
| 19 | .S ZZRTN=ZXX Q
|
|---|
