LR7OS.m

LR7OS ; IHS/DIR/AAB - Silent Report utilities ; [ 8/11/97 ]

 ;;5.2;LR;**1003**;JUN 01, 1998

 ;

 ;;5.2;LAB SERVICE;**121**;Sep 27, 1994

S(X,Y,Z) ;Pad over

 ;X=Column #

 ;Y=Current length

 ;Z=Text

 ;SP=TEXT SENT

 ;CCNT=Line position after input text

 I '$D(Z) Q ""

 S SP=Z I X,Y,X>Y S SP=$E("                                                                             ",1,X-Y)_Z

 S CCNT=$$INC(CCNT,SP)

 Q SP

INC(X,Y) ;Character position count

 ;X=Current count

 ;Y=Text

 S INC=X+$L(Y)

 Q INC

LR7OS     ; IHS/DIR/AAB - Silent Report utilities ; [ 8/11/97 ]

 +1       ;;5.2;LR;**1003**;JUN 01, 1998

 +2       ;

 +3       ;;5.2;LAB SERVICE;**121**;Sep 27, 1994

S(X,Y,Z)  ;Pad over

 +1       ;X=Column #

 +2       ;Y=Current length

 +3       ;Z=Text

 +4       ;SP=TEXT SENT

 +5       ;CCNT=Line position after input text

 +6        IF '$DATA(Z)

               QUIT ""

 +7        SET SP=Z

           IF X

               IF Y

                   IF X>Y

                       SET SP=$EXTRACT("                                                                             ",1,X-Y)_Z

 +8        SET CCNT=$$INC(CCNT,SP)

 +9        QUIT SP

INC(X,Y)  ;Character position count

 +1       ;X=Current count

 +2       ;Y=Text

 +3        SET INC=X+$LENGTH(Y)

 +4        QUIT INC