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 ---[H[J[2J[HLR7OS 442 printed Oct 16, 2024@18:06:09 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
