Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LR7OS

LR7OS.m

Go to the documentation of this file.
  1. LR7OS ;DALOI/STAFF - Silent Report utilities ;May 14, 2008
  1. ;;5.2;LAB SERVICE;**121,350**;Sep 27, 1994;Build 230
  1. ;
  1. S(X,Y,Z) ;Pad over
  1. ; X=Column #
  1. ; Y=Current length
  1. ; Z=Text
  1. ; SP=TEXT SENT
  1. ; CCNT=Line position after input text
  1. ;
  1. I '$D(Z) Q ""
  1. S SP=Z
  1. I X,Y,X>Y S SP=$$RJ^XLFSTR(" ",X-Y)_Z
  1. S CCNT=$$INC(CCNT,SP)
  1. Q SP
  1. ;
  1. ;
  1. INC(X,Y) ;Character position count
  1. ; X=Current count
  1. ; Y=Text
  1. S INC=X+$L(Y)
  1. Q INC