XBDHDSP.m

XBDHDSP ; IHS/ADC/GTH - PUTS SPACES BETWEEN HEADERS ; [ 02/07/97   3:02 PM ]

 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 ;

NEW ;

 NEW XBDHCHN1,XBDHI,XBDHTH,XBDHREP

INIT ;

 S XBDHTH=XBDHCHN-1,XBDHNSL=XBDHTHLW-XBDHCHLW

 I $P(^TMP("XBDH",$J,"HEADER",1),V,8)>0 G EXIT

 S $P(^TMP("XBDH",$J,"HEADER",XBDHTH),V,8)=0

 W !!,"IT IS NOW TIME TO INSERT SPACES BETWEEN HEADER FIELDS",!

CQ ;

 S DIR(0)="SO^1:REPATITIVE SPACING;2:MANUAL SPACING;3:AUTOMATIC SPACING",DIR("A")="Your choice",DIR("B")=1,DIR("?")="Automatic spacing puts maximum no. of spaces possible between fields."

 D ^DIR

 KILL DIR

 S XBDHX=Y

 I XBDHX="" G AUTO

 I XBDHX=1 G REP

MANUAL ;

 S XBDHCHN1=""

 F XBDHL=0:0 S XBDHCHN1=$O(^TMP("XBDH",$J,"HEADER",XBDHCHN1)) G:XBDHCHN1=XBDHTH!(XBDHCHN1="") EXIT D MAN

EXIT ;

 S DIR("B")="NO",DIR(0)="YO",DIR("A")="Want to make any more spacing changes"

 D ^DIR

 KILL DIR

 I Y=1 W !! G CQ

 I Y=U S XBDHQUIT="" Q

 Q

 ;

MAN ;

 S XBDHY=$C(64+XBDHCHN1),XBDHZ=^TMP("XBDH",$J,"HEADER",XBDHCHN1)

 W !!,"PUT SPACES AFTER HEADER """,$C(64+XBDHCHN1),""""

 W !,"TOTAL NUMBER OF UNUSED COLUMNS LEFT: ",XBDHNSL

 W !,"TOTAL NUMBER OF HEADERS LEFT: ",XBDHTH+1-XBDHCHN1,!

SP ;

 S DIR(0)="NO^::",DIR("A")="How many spaces do you want after field "_$C(64+XBDHCHN1)

 S:$G(DIR("B"))]"" DIR("B")=XBDHX

 D ^DIR

 KILL DIR

 S XBDHX=Y

 I XBDHX="" S XBDHCHN1=XBDHTH-1 Q

 I XBDHX?1"^"1U,$E(XBDHX,2)']$C(64+XBDHTH),($A(XBDHX)-64)'=XBDHTH S XBDHCHN1=$A($E(XBDHX,2))-64 G MAN

 I XBDHX'=+XBDHX W *7,*7,*13,$J("",IOM),*13 G SP

 I (XBDHX-$P(^TMP("XBDH",$J,"HEADER",XBDHCHN1),V,8))>XBDHNSL W *7,*7,*13,$J("",IOM),*13 G SP

 S XBDHY=$P(^TMP("XBDH",$J,"HEADER",XBDHCHN1),V,8),$P(^TMP("XBDH",$J,"HEADER",XBDHCHN1),V,8)=XBDHX,XBDHNSL=XBDHNSL-XBDHX+XBDHY

 D ^XBDHD1

 Q

 ;

AUTO ;

 S XBDHNSL=(XBDHTHLW-XBDHCHLW),XBDHY=XBDHNSL\(XBDHTH-1),XBDHZ=XBDHNSL-(XBDHY*(XBDHTH-1)),XBDHCHN1=""

 F XBDHI=1:1 S XBDHCHN1=$O(^TMP("XBDH",$J,"HEADER",XBDHCHN1)) Q:XBDHCHN1=XBDHTH!(XBDHCHN1="")  S XBDHX=XBDHY S:XBDHI'>XBDHZ XBDHX=XBDHX+1 S $P(^TMP("XBDH",$J,"HEADER",XBDHCHN1),V,8)=XBDHX

 S XBDHNSL=0

 D ^XBDHD1

 G EXIT

 ;

REP ;

 W !

 S XBDHNSL=(XBDHTHLW-XBDHCHLW),XBDHREP=XBDHNSL\(XBDHTH-1),XBDHCHN1=""

EREP ;

 S DIR(0)="NO^0:"_XBDHREP_":",DIR("A")="How many spaces between each header field",DIR("B")=XBDHREP

 D ^DIR

 KILL DIR

 S XBDHX=Y

 I XBDHX'=+XBDHX W *7,*7,*13,$J("",IOM),*13 G EREP

 I XBDHX>XBDHREP W *7,*7,*13,$J("",IOM),*13 G EREP

 I XBDHX="" S XBDHX=0

 F XBDHI=1:1 S XBDHCHN1=$O(^TMP("XBDH",$J,"HEADER",XBDHCHN1)) Q:XBDHCHN1=XBDHTH!(XBDHCHN1="")  S:XBDHCHN1'["." $P(^TMP("XBDH",$J,"HEADER",XBDHCHN1),V,8)=XBDHX,XBDHNSL=XBDHNSL-XBDHX

 D ^XBDHD1

 G EXIT

 ; 

NOTES ; 

 ; PUTS SPACES BETWEEN FIELDS ON THE HEADER LINE

 ; INPUT = XBDHCHLW,XBDHTHLW,XBDHCHN

 ; OUTPUT = 8TH PIECE OF ^TMP("XBDH",$J,"HEADER",XBDHCHN)

 ; IGNORES PURE MUMPS EXPRESSION AS DESIGNATED BY DECIMAL XBDHCHN

XBDHDSP   ; IHS/ADC/GTH - PUTS SPACES BETWEEN HEADERS ; [ 02/07/97   3:02 PM ]

 +1       ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 +2       ;

NEW       ;

 +1        NEW XBDHCHN1,XBDHI,XBDHTH,XBDHREP

INIT      ;

 +1        SET XBDHTH=XBDHCHN-1

           SET XBDHNSL=XBDHTHLW-XBDHCHLW

 +2        IF $PIECE(^TMP("XBDH",$JOB,"HEADER",1),V,8)>0

               GOTO EXIT

 +3        SET $PIECE(^TMP("XBDH",$JOB,"HEADER",XBDHTH),V,8)=0

 +4        WRITE !!,"IT IS NOW TIME TO INSERT SPACES BETWEEN HEADER FIELDS",!

CQ        ;

 +1        SET DIR(0)="SO^1:REPATITIVE SPACING;2:MANUAL SPACING;3:AUTOMATIC SPACING"

           SET DIR("A")="Your choice"

           SET DIR("B")=1

           SET DIR("?")="Automatic spacing puts maximum no. of spaces possible between fields."

 +2        DO ^DIR

 +3        KILL DIR

 +4        SET XBDHX=Y

 +5        IF XBDHX=""

               GOTO AUTO

 +6        IF XBDHX=1

               GOTO REP

MANUAL    ;

 +1        SET XBDHCHN1=""

 +2        FOR XBDHL=0:0

               SET XBDHCHN1=$ORDER(^TMP("XBDH",$JOB,"HEADER",XBDHCHN1))

               IF XBDHCHN1=XBDHTH!(XBDHCHN1="")

                   GOTO EXIT

               DO MAN

EXIT      ;

 +1        SET DIR("B")="NO"

           SET DIR(0)="YO"

           SET DIR("A")="Want to make any more spacing changes"

 +2        DO ^DIR

 +3        KILL DIR

 +4        IF Y=1

               WRITE !!

               GOTO CQ

 +5        IF Y=U

               SET XBDHQUIT=""

               QUIT 

 +6        QUIT 

 +7       ;

MAN       ;

 +1        SET XBDHY=$CHAR(64+XBDHCHN1)

           SET XBDHZ=^TMP("XBDH",$JOB,"HEADER",XBDHCHN1)

 +2        WRITE !!,"PUT SPACES AFTER HEADER """,$CHAR(64+XBDHCHN1),""""

 +3        WRITE !,"TOTAL NUMBER OF UNUSED COLUMNS LEFT: ",XBDHNSL

 +4        WRITE !,"TOTAL NUMBER OF HEADERS LEFT: ",XBDHTH+1-XBDHCHN1,!

SP        ;

 +1        SET DIR(0)="NO^::"

           SET DIR("A")="How many spaces do you want after field "_$CHAR(64+XBDHCHN1)

 +2        IF $GET(DIR("B"))]""

               SET DIR("B")=XBDHX

 +3        DO ^DIR

 +4        KILL DIR

 +5        SET XBDHX=Y

 +6        IF XBDHX=""

               SET XBDHCHN1=XBDHTH-1

               QUIT 

 +7        IF XBDHX?1"^"1U

               IF $EXTRACT(XBDHX,2)']$CHAR(64+XBDHTH)

                   IF ($ASCII(XBDHX)-64)'=XBDHTH

                       SET XBDHCHN1=$ASCII($EXTRACT(XBDHX,2))-64

                       GOTO MAN

 +8        IF XBDHX'=+XBDHX

               WRITE *7,*7,*13,$JUSTIFY("",IOM),*13

               GOTO SP

 +9        IF (XBDHX-$PIECE(^TMP("XBDH",$JOB,"HEADER",XBDHCHN1),V,8))>XBDHNSL

               WRITE *7,*7,*13,$JUSTIFY("",IOM),*13

               GOTO SP

 +10       SET XBDHY=$PIECE(^TMP("XBDH",$JOB,"HEADER",XBDHCHN1),V,8)

           SET $PIECE(^TMP("XBDH",$JOB,"HEADER",XBDHCHN1),V,8)=XBDHX

           SET XBDHNSL=XBDHNSL-XBDHX+XBDHY

 +11       DO ^XBDHD1

 +12       QUIT 

 +13      ;

AUTO      ;

 +1        SET XBDHNSL=(XBDHTHLW-XBDHCHLW)

           SET XBDHY=XBDHNSL\(XBDHTH-1)

           SET XBDHZ=XBDHNSL-(XBDHY*(XBDHTH-1))

           SET XBDHCHN1=""

 +2        FOR XBDHI=1:1

               SET XBDHCHN1=$ORDER(^TMP("XBDH",$JOB,"HEADER",XBDHCHN1))

               IF XBDHCHN1=XBDHTH!(XBDHCHN1="")

                   QUIT 

               SET XBDHX=XBDHY

               IF XBDHI'>XBDHZ

                   SET XBDHX=XBDHX+1

               SET $PIECE(^TMP("XBDH",$JOB,"HEADER",XBDHCHN1),V,8)=XBDHX

 +3        SET XBDHNSL=0

 +4        DO ^XBDHD1

 +5        GOTO EXIT

 +6       ;

REP       ;

 +1        WRITE !

 +2        SET XBDHNSL=(XBDHTHLW-XBDHCHLW)

           SET XBDHREP=XBDHNSL\(XBDHTH-1)

           SET XBDHCHN1=""

EREP      ;

 +1        SET DIR(0)="NO^0:"_XBDHREP_":"

           SET DIR("A")="How many spaces between each header field"

           SET DIR("B")=XBDHREP

 +2        DO ^DIR

 +3        KILL DIR

 +4        SET XBDHX=Y

 +5        IF XBDHX'=+XBDHX

               WRITE *7,*7,*13,$JUSTIFY("",IOM),*13

               GOTO EREP

 +6        IF XBDHX>XBDHREP

               WRITE *7,*7,*13,$JUSTIFY("",IOM),*13

               GOTO EREP

 +7        IF XBDHX=""

               SET XBDHX=0

 +8        FOR XBDHI=1:1

               SET XBDHCHN1=$ORDER(^TMP("XBDH",$JOB,"HEADER",XBDHCHN1))

               IF XBDHCHN1=XBDHTH!(XBDHCHN1="")

                   QUIT 

               IF XBDHCHN1'["."

                   SET $PIECE(^TMP("XBDH",$JOB,"HEADER",XBDHCHN1),V,8)=XBDHX

                   SET XBDHNSL=XBDHNSL-XBDHX

 +9        DO ^XBDHD1

 +10       GOTO EXIT

 +11      ; 

NOTES     ; 

 +1       ; PUTS SPACES BETWEEN FIELDS ON THE HEADER LINE

 +2       ; INPUT = XBDHCHLW,XBDHTHLW,XBDHCHN

 +3       ; OUTPUT = 8TH PIECE OF ^TMP("XBDH",$J,"HEADER",XBDHCHN)

 +4       ; IGNORES PURE MUMPS EXPRESSION AS DESIGNATED BY DECIMAL XBDHCHN