SCCVEGU0.m

SCCVEGU0 ;ALB/JRP - UTILS FOR ENCNTR CNVRSN GLBL ESTMTR;11-JAN-1996

 ;;5.3;Scheduling;**211**;Aug 13, 1993

INSERT(INSTR,OUTSTR,COLUMN,LENGTH) ;INSERT A STRING INTO ANOTHER

 ;INPUT  : INSTR - String to insert

 ;         OUTSTR - String to insert into

 ;         COLUMN - Where to begin insertion (defaults to end of OUTSTR)

 ;         LENGTH - Number of characters to clear from OUTSTR

 ;                  (defaults to length of INSTR)

 ;OUTPUT : s - INSTR will be placed into OUTSTR starting at COLUMN

 ;             using LENGTH characters

 ;         "" - Error (bad input)

 ;

 ;NOTE : This module is based on $$SETSTR^VALM1

 ;

 N STRING

 Q:'$D(INSTR)!'$D(OUTSTR) ""

 I '$G(COLUMN) N COLUMN S COLUMN=$L(OUTSTR)+1

 I '$G(LENGTH) N LENGTH S LENGTH=$L(INSTR)

 S INSTR=$S($L(INSTR)<LENGTH:INSTR_$J("",LENGTH-$L(INSTR)),1:INSTR)

 S $E(OUTSTR,COLUMN,COLUMN+LENGTH-1)=INSTR

 Q OUTSTR

 ;

CENTER(CNTRSTR,MARGIN) ;CENTER A STRING

 ;INPUT  : CNTRSTR - String to center

 ;         MARGIN - Margin width to center within (defaults to 80)

 ;OUTPUT : s - INSTR will be centered in a margin width of MARGIN

 ;         "" - Error (bad input)

 ;NOTES  : A margin width of 80 will be used when MARGIN<1

 ;       : CNTRSTR will be returned when $L(CNTRSTR)>MARGIN

 ;

 N STRING,FROM

 ;Check input

 Q:($G(CNTRSTR)="") ""

 I $G(MARGIN)<1 N MARGIN S MARGIN=80

 Q:($L(CNTRSTR)>MARGIN) CNTRSTR

 S STRING="",$P(STRING," ",MARGIN+1)="",FROM=(MARGIN\2)-($L(CNTRSTR)\2)+1

 S $E(STRING,FROM,FROM+$L(CNTRSTR)-1)=CNTRSTR

 Q STRING

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SCCVEGU0   1541     printed  Apr 09, 2024@21:58:51                                                                                                                                                                                                    Page 2

SCCVEGU0  ;ALB/JRP - UTILS FOR ENCNTR CNVRSN GLBL ESTMTR;11-JAN-1996

 +1       ;;5.3;Scheduling;**211**;Aug 13, 1993

INSERT(INSTR,OUTSTR,COLUMN,LENGTH) ;INSERT A STRING INTO ANOTHER

 +1       ;INPUT  : INSTR - String to insert

 +2       ;         OUTSTR - String to insert into

 +3       ;         COLUMN - Where to begin insertion (defaults to end of OUTSTR)

 +4       ;         LENGTH - Number of characters to clear from OUTSTR

 +5       ;                  (defaults to length of INSTR)

 +6       ;OUTPUT : s - INSTR will be placed into OUTSTR starting at COLUMN

 +7       ;             using LENGTH characters

 +8       ;         "" - Error (bad input)

 +9       ;

 +10      ;NOTE : This module is based on $$SETSTR^VALM1

 +11      ;

 +12       NEW STRING

 +13       if '$DATA(INSTR)!'$DATA(OUTSTR)

               QUIT ""

 +14       IF '$GET(COLUMN)

               NEW COLUMN

               SET COLUMN=$LENGTH(OUTSTR)+1

 +15       IF '$GET(LENGTH)

               NEW LENGTH

               SET LENGTH=$LENGTH(INSTR)

 +16       SET INSTR=$SELECT($LENGTH(INSTR)<LENGTH:INSTR_$JUSTIFY("",LENGTH-$LENGTH(INSTR)),1:INSTR)

 +17       SET $EXTRACT(OUTSTR,COLUMN,COLUMN+LENGTH-1)=INSTR

 +18       QUIT OUTSTR

 +19      ;

CENTER(CNTRSTR,MARGIN) ;CENTER A STRING

 +1       ;INPUT  : CNTRSTR - String to center

 +2       ;         MARGIN - Margin width to center within (defaults to 80)

 +3       ;OUTPUT : s - INSTR will be centered in a margin width of MARGIN

 +4       ;         "" - Error (bad input)

 +5       ;NOTES  : A margin width of 80 will be used when MARGIN<1

 +6       ;       : CNTRSTR will be returned when $L(CNTRSTR)>MARGIN

 +7       ;

 +8        NEW STRING,FROM

 +9       ;Check input

 +10       if ($GET(CNTRSTR)="")

               QUIT ""

 +11       IF $GET(MARGIN)<1

               NEW MARGIN

               SET MARGIN=80

 +12       if ($LENGTH(CNTRSTR)>MARGIN)

               QUIT CNTRSTR

 +13       SET STRING=""

           SET $PIECE(STRING," ",MARGIN+1)=""

           SET FROM=(MARGIN\2)-($LENGTH(CNTRSTR)\2)+1

 +14       SET $EXTRACT(STRING,FROM,FROM+$LENGTH(CNTRSTR)-1)=CNTRSTR

 +15       QUIT STRING

 +16      ;