7 lines
584 B
Plaintext
7 lines
584 B
Plaintext
FirstRelease WVEHR VER VOE1.0
|
|
Cache 31-Jan-2008 23:07:04 ZWR
|
|
^ZZMKEDIT="D EDIT^ZZMKEDIT($ZNAME)"
|
|
^ZZMKEDIT("SIZE")="N %,%LABEL,%LI,%LIS,E,I S Y=0 F I=1:1 S %=$T(+I) Q:%="""" S %LABEL=$L($P(%,"" ""))+1,E=%LABEL+1,Y=Y+%LABEL X ^ZZMKEDIT(""SIZE"",""LIS"") S:$E(%,E)'="";""!($E(%,E+1)="";"") Y=Y+$L(%)-(E-1) S Y=Y+2"
|
|
^ZZMKEDIT("SIZE","LIS")="X:$E(%,E)="" "" ^ZZMKEDIT(""SIZE"",""SPACES"") F S %LI=$E(%,E)=""."" Q:'%LI S %LIS=$E(%,E+1)="" "",Y=Y+%LI+%LIS,E=E+%LI+%LIS I %LIS,$E(%,E)="" "" X ^ZZMKEDIT(""SIZE"",""SPACES"")"
|
|
^ZZMKEDIT("SIZE","SPACES")="F S Y=Y+1,E=E+1 Q:$E(%,E)'="" """
|