| 1 | DENTDPAR ;WASH ISC/TJK,JA-INITIATE SCREEN VARIABLES ;09/29/87 11:15 AM;12/02/91 12:20 PM
|
|---|
| 2 | ;;1.2;DENTAL;***15**;Oct 08, 1992
|
|---|
| 3 | ;DJEOP-ERASE FROM CURRENT XY TO END OF SCREEN
|
|---|
| 4 | ;DJHIN-HIGH INTENSITY
|
|---|
| 5 | ;DJLIN-LOW INTENSITY
|
|---|
| 6 | S DJRJ="" D DT^DICRW
|
|---|
| 7 | ;I $D(IOST(0))#2 S:$D(^%ZIS(2,IOST(0),7)) DJHIN=$P(^(7),U,1),DJLIN=$P(^(7),U,2),XY="" S:$D(^(1)) (X,XY)=$P(^(1),U,5) S:$D(^(5)) DJEOP=$P(^(5),U,7)
|
|---|
| 8 | D HOME^%ZIS ;,^%ZIS9
|
|---|
| 9 | ;S DJHIN=IOSC(IOST(0),"INHI"),DJLIN=IOSC(IOST(0),"INLOW"),DJEOP=IOSC(IOST(0),"EOP"),XY=IOXY
|
|---|
| 10 | S X="IOEDEOP;IOINHI;IOINLOW"
|
|---|
| 11 | D ENDR^%ZISS S DJHIN=IOINHI,DJLIN=IOINLOW,DJEOP=IOEDEOP,XY=IOXY
|
|---|
| 12 | I $D(DJHIN),($D(DJLIN)),($D(DJEOP)),DJHIN'="",DJLIN'="",DJEOP'="",XY'="" S XY=XY_" "_^%ZOSF("XY") G BD
|
|---|
| 13 | W !,"'HIGH/LOW INTENSITY', 'ERASE TO END OF PAGE' OR 'XY CRT' ATTRIBUTES"
|
|---|
| 14 | W !,"HAVE NOT BEEN PROPERLY DEFINED FOR YOUR TERMINAL. SEE YOUR SITE MANAGER.",*7
|
|---|
| 15 | K DJRJ Q
|
|---|
| 16 | BD ;
|
|---|
| 17 | S DJCL="S DY=23,DX=0 X XY W DJEOP"
|
|---|
| 18 | S DJCP="S DY=16,DX=0 X XY W DJEOP"
|
|---|
| 19 | S DJRJ=1 K DJJ0,IOSC
|
|---|
| 20 | Q
|
|---|
