source: WorldVistAEHR/trunk/g/ZZMKEDIT.zwr

Last change on this file was 613, checked in by George Lilly, 14 years ago

initial load of WorldVistAEHR

File size: 584 bytes
Line 
1FirstRelease WVEHR VER VOE1.0
2Cache 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.