JUST.m

JUST ;JUSTIFY FIELD RIGHT AND ZERO FILL [ 09/12/85  1:15 PM ]

 ; THIS IS FOR A FIELD OF 6 POSITIONS MAX

 S DATA="" F I=0:0 S DATA=$O(^AGTXDATA(DATA)) G:DATA="" I $P(DATA,"^",3)="RG1" SET Y="000000" S X=$L(Y)-$L(W) S

 S Y="000000"

 S X=$L(Y)-$L(W)

 S W=$E(Y,1,X)_W

 W !,W

 G JUST