source: WorldVistAEHR/trunk/r/PATCH_MANAGEMNT-AAQ/AAQPKCHG.m@ 1042

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1AAQPKCHG ;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."
5EN 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
10CHNG 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
14ERR W !,"Routine: ",ZRTN," is not standard pack routine - Better do this one manually!"
15 Q
16CHNG2 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
Note: See TracBrowser for help on using the repository browser.