source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFSCR.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 970 bytes
RevLine 
[613]1PRCFSCR ;WISC@ALTOONA/CTB-AUTOMATED DISPLAY SCREEN ;10 Sep 89/3:08 PM
2V ;;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
8LINE 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
13OUT W IOINORM K PRCFX,IOINHI,IOINLOW,IOINORM Q
14TEST 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
Note: See TracBrowser for help on using the repository browser.