Last change
on this file since 632 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
584 bytes
|
Line | |
---|
1 | FirstRelease WVEHR VER VOE1.0
|
---|
2 | Cache 31-Jan-2008 23:07:04 ZWR
|
---|
3 | ^ZZMKEDIT="D EDIT^ZZMKEDIT($ZNAME)"
|
---|
4 | ^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"
|
---|
5 | ^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"")"
|
---|
6 | ^ZZMKEDIT("SIZE","SPACES")="F S Y=Y+1,E=E+1 Q:$E(%,E)'="" """
|
---|
Note:
See
TracBrowser
for help on using the repository browser.