PRCFSCR.m

PRCFSCR ;WISC@ALTOONA/CTB-AUTOMATED DISPLAY SCREEN ;10 Sep 89/3:08 PM

V ;;5.1;IFCAP;;Oct 20, 2000

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 D HILO^PRCFQ Q:$D(PRCFX)'>9

 I $E(IOST,1,2)="C-" W @IOF

 E  W !

 N N,N1,X1,X2,X3,X4,I,Y,X S N=0 F I=1:1 S N=$O(PRCFX(N)) G:N="" OUT D LINE

LINE S N1=$O(PRCFX(N,0)) Q:N1=""!(N'>0)  S X1=$P(N1,"~"),X2=$P(N1,"~",2),X3=$P(PRCFX(N,N1),"~"),X4=$P(PRCFX(N,N1),"~",2) I X2="",X4="" W:$X+($L(X1)+$L(X3))>IOM ! W:$X>1 ?$X+5 W X1,IOINHI,X3,IOINLOW Q

 I X2]"","Cc"[X2 S Y=$L(X1_X3),Y=IOM-Y/2 W ?Y,X1 W:X4]"" @X4 W IOINHI,X3,IOINLOW Q

 I X2]"","Rr"[X2 S Y=$L(X1_X3),Y=IOM-Y-1 W:Y'>$X ! W ?Y,X1 W:X4]"" @X4 W IOINHI,X3,IOINLOW Q

 I X2]"" W @X2 W X1 W:X4]"" @X4 W IOINHI,X3,IOINLOW Q

 E  W ?$X+5 W X1 W:X4]"" @X4 W IOINHI,X3,IOINLOW Q

OUT W IOINORM K PRCFX,IOINHI,IOINLOW,IOINORM Q

TEST S PRCFX(.5,"~C")="TEST OF AUTOMATED SCREEN DISPLAY",PRCFX(1,"NAME: ~!")="BECKER,CHARLES T."

 S PRCFX(2,"SSN: ")="187-40-8837"

 G V

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCFSCR   986     printed  Apr 09, 2024@21:06:21                                                                                                                                                                                                      Page 2

PRCFSCR   ;WISC@ALTOONA/CTB-AUTOMATED DISPLAY SCREEN ;10 Sep 89/3:08 PM

V         ;;5.1;IFCAP;;Oct 20, 2000

 +1       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +2        DO HILO^PRCFQ

           if $DATA(PRCFX)'>9

               QUIT 

 +3        IF $EXTRACT(IOST,1,2)="C-"

               WRITE @IOF

 +4       IF '$TEST

               WRITE !

 +5        NEW N,N1,X1,X2,X3,X4,I,Y,X

           SET N=0

           FOR I=1:1

               SET N=$ORDER(PRCFX(N))

               if N=""

                   GOTO OUT

               DO LINE

LINE       SET N1=$ORDER(PRCFX(N,0))

           if N1=""!(N'>0)

               QUIT 

           SET X1=$PIECE(N1,"~")

           SET X2=$PIECE(N1,"~",2)

           SET X3=$PIECE(PRCFX(N,N1),"~")

           SET X4=$PIECE(PRCFX(N,N1),"~",2)

           IF X2=""

               IF X4=""

                   if $X+($LENGTH(X1)+$LENGTH(X3))>IOM

                       WRITE !

                   if $X>1

                       WRITE ?$X+5

                   WRITE X1,IOINHI,X3,IOINLOW

                   QUIT 

 +1        IF X2]""

               IF "Cc"[X2

                   SET Y=$LENGTH(X1_X3)

                   SET Y=IOM-Y/2

                   WRITE ?Y,X1

                   if X4]""

                       WRITE @X4

                   WRITE IOINHI,X3,IOINLOW

                   QUIT 

 +2        IF X2]""

               IF "Rr"[X2

                   SET Y=$LENGTH(X1_X3)

                   SET Y=IOM-Y-1

                   if Y'>$X

                       WRITE !

                   WRITE ?Y,X1

                   if X4]""

                       WRITE @X4

                   WRITE IOINHI,X3,IOINLOW

                   QUIT 

 +3        IF X2]""

               WRITE @X2

               WRITE X1

               if X4]""

                   WRITE @X4

               WRITE IOINHI,X3,IOINLOW

               QUIT 

 +4       IF '$TEST

               WRITE ?$X+5

               WRITE X1

               if X4]""

                   WRITE @X4

               WRITE IOINHI,X3,IOINLOW

               QUIT 

OUT        WRITE IOINORM

           KILL PRCFX,IOINHI,IOINLOW,IOINORM

           QUIT 

TEST       SET PRCFX(.5,"~C")="TEST OF AUTOMATED SCREEN DISPLAY"

           SET PRCFX(1,"NAME: ~!")="BECKER,CHARLES T."

 +1        SET PRCFX(2,"SSN: ")="187-40-8837"

 +2        GOTO V