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