| 1 | PRCFSCR ;WISC@ALTOONA/CTB-AUTOMATED DISPLAY SCREEN ;10 Sep 89/3:08 PM
|
---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
| 4 | D HILO^PRCFQ Q:$D(PRCFX)'>9
|
---|
| 5 | I $E(IOST,1,2)="C-" W @IOF
|
---|
| 6 | E W !
|
---|
| 7 | 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
|
---|
| 8 | 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
|
---|
| 9 | I X2]"","Cc"[X2 S Y=$L(X1_X3),Y=IOM-Y/2 W ?Y,X1 W:X4]"" @X4 W IOINHI,X3,IOINLOW Q
|
---|
| 10 | 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
|
---|
| 11 | I X2]"" W @X2 W X1 W:X4]"" @X4 W IOINHI,X3,IOINLOW Q
|
---|
| 12 | E W ?$X+5 W X1 W:X4]"" @X4 W IOINHI,X3,IOINLOW Q
|
---|
| 13 | OUT W IOINORM K PRCFX,IOINHI,IOINLOW,IOINORM Q
|
---|
| 14 | TEST S PRCFX(.5,"~C")="TEST OF AUTOMATED SCREEN DISPLAY",PRCFX(1,"NAME: ~!")="BECKER,CHARLES T."
|
---|
| 15 | S PRCFX(2,"SSN: ")="187-40-8837"
|
---|
| 16 | G V
|
---|