Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: JUST

JUST.m

Go to the documentation of this file.
  1. JUST ;JUSTIFY FIELD RIGHT AND ZERO FILL [ 09/12/85  1:15 PM ]
  1.  ; THIS IS FOR A FIELD OF 6 POSITIONS MAX
  1.  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
  1.  S Y="000000"
  1.  S X=$L(Y)-$L(W)
  1.  S W=$E(Y,1,X)_W
  1.  W !,W
  1.  G JUST