- 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 Feb 18, 2025@23:31:17 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