LR7OS.m

LR7OS ;DALOI/STAFF - Silent Report utilities ;May 14, 2008

 ;;5.2;LAB SERVICE;**121,350**;Sep 27, 1994;Build 230

 ;

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=$$RJ^XLFSTR(" ",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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LR7OS   442     printed  Apr 09, 2024@21:16:39                                                                                                                                                                                                        Page 2

LR7OS     ;DALOI/STAFF - Silent Report utilities ;May 14, 2008

 +1       ;;5.2;LAB SERVICE;**121,350**;Sep 27, 1994;Build 230

 +2       ;

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       ;

 +7        IF '$DATA(Z)

               QUIT ""

 +8        SET SP=Z

 +9        IF X

               IF Y

                   IF X>Y

                       SET SP=$$RJ^XLFSTR(" ",X-Y)_Z

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

 +11       QUIT SP

 +12      ;

 +13      ;

INC(X,Y)  ;Character position count

 +1       ; X=Current count

 +2       ; Y=Text

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

 +4        QUIT INC