SDFORM.m

SDFORM ;IOFO BAY PINES/ESW - FORMAT MESSAGES ;09/02/2004 2:10 PM [5/19/05 8:24am]

 ;;5.3;Scheduling;**327,1015**;Aug 13, 1993;Build 21

 ;This routine may be called to format a text up to four columns.

 ;The returned value may be asigned to an array element used in

 ;a message creation

 ;================================================

FORM(FIRST,FN,SECOND,SN,THIRD,TN,FOURTH,FRN) ;

 ;

 ;FIRST,SECOND,THIRD,FOURTH - names of variables containing text values or text strings 

 ;                                to be included in a formatted message

 ;FN,SN,TN - numbers assigned for a text and spaces up to the next column

 ;

 ;Output: formatted text

 ;

 N FS,SS,TS,FNS,SNS,TNS

 S:'$D(THIRD) THIRD=""

 S:'$D(FOURTH) FOURTH=""

 S:'$D(TN) TN=""

 S:'$D(SN) SN=""

 S:'$D(FRN) FRN=""

 S FNS=FN-$L(FIRST) S:FNS'>0 FNS=1,FIRST=$E(FIRST,1,$L(FIRST)-1) S $P(FS," ",FNS)=""

 S SNS=SN-$L(SECOND) S:SNS'>0 SNS=1,SECOND=$E(SECOND,1,$L(SECOND)-1) S $P(SS," ",SNS)=""

 S TNS=TN-$L(THIRD) S:TNS'>0 TNS=1,THIRD=$E(THIRD,1,$L(THIRD)-1) S $P(TS," ",TNS)=""

 Q FIRST_FS_SECOND_SS_THIRD_TS_FOURTH

SDFORM    ;IOFO BAY PINES/ESW - FORMAT MESSAGES ;09/02/2004 2:10 PM [5/19/05 8:24am]

 +1       ;;5.3;Scheduling;**327,1015**;Aug 13, 1993;Build 21

 +2       ;This routine may be called to format a text up to four columns.

 +3       ;The returned value may be asigned to an array element used in

 +4       ;a message creation

 +5       ;================================================

FORM(FIRST,FN,SECOND,SN,THIRD,TN,FOURTH,FRN) ;

 +1       ;

 +2       ;FIRST,SECOND,THIRD,FOURTH - names of variables containing text values or text strings 

 +3       ;                                to be included in a formatted message

 +4       ;FN,SN,TN - numbers assigned for a text and spaces up to the next column

 +5       ;

 +6       ;Output: formatted text

 +7       ;

 +8        NEW FS,SS,TS,FNS,SNS,TNS

 +9        IF '$DATA(THIRD)

               SET THIRD=""

 +10       IF '$DATA(FOURTH)

               SET FOURTH=""

 +11       IF '$DATA(TN)

               SET TN=""

 +12       IF '$DATA(SN)

               SET SN=""

 +13       IF '$DATA(FRN)

               SET FRN=""

 +14       SET FNS=FN-$LENGTH(FIRST)

           IF FNS'>0

               SET FNS=1

               SET FIRST=$EXTRACT(FIRST,1,$LENGTH(FIRST)-1)

           SET $PIECE(FS," ",FNS)=""

 +15       SET SNS=SN-$LENGTH(SECOND)

           IF SNS'>0

               SET SNS=1

               SET SECOND=$EXTRACT(SECOND,1,$LENGTH(SECOND)-1)

           SET $PIECE(SS," ",SNS)=""

 +16       SET TNS=TN-$LENGTH(THIRD)

           IF TNS'>0

               SET TNS=1

               SET THIRD=$EXTRACT(THIRD,1,$LENGTH(THIRD)-1)

           SET $PIECE(TS," ",TNS)=""

 +17       QUIT FIRST_FS_SECOND_SS_THIRD_TS_FOURTH