source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LR7OS.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 446 bytes
Line 
1LR7OS ;slc/dcm - Silent Report utilities ;8/11/97
2 ;;5.2;LAB SERVICE;**121**;Sep 27, 1994
3S(X,Y,Z) ;Pad over
4 ;X=Column #
5 ;Y=Current length
6 ;Z=Text
7 ;SP=TEXT SENT
8 ;CCNT=Line position after input text
9 I '$D(Z) Q ""
10 S SP=Z I X,Y,X>Y S SP=$E(" ",1,X-Y)_Z
11 S CCNT=$$INC(CCNT,SP)
12 Q SP
13INC(X,Y) ;Character position count
14 ;X=Current count
15 ;Y=Text
16 S INC=X+$L(Y)
17 Q INC
Note: See TracBrowser for help on using the repository browser.