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 ---[H[J[2J[HPRCFSCR 986 printed Oct 16, 2024@18:05:08 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
