source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENJPARAM.m@ 1608

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

initial load of WorldVistAEHR

File size: 904 bytes
RevLine 
[613]1ENJPARAM ;(WASH ISC)/JA-Initialize Screen Variables ;5-11-92
2 ;;7.0;ENGINEERING;;Aug 17, 1993
3 ;DJEOP-ERASE FROM CURRENT XY TO END OF SCREEN
4 ;DJHIN-HIGH INTENSITY
5 ;DJLIN-LOW INTENSITY
6 S U="^",DJRJ="" S:'$D(DUZ(0)) DUZ(0)="" S:'$D(DTIME) DTIME=600 D DT^DICRW
7 S IOP="HOME" D ^%ZIS K IOP I $D(^%ZIS(2)) S IOST(0)=$O(^%ZIS(2,"B",IOST,0)) 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 I $D(DJHIN),($D(DJLIN)),($D(DJEOP)),DJHIN'="",DJLIN'="",DJEOP'="",XY'="" S XY=XY_" "_^%ZOSF("XY") S:^%ZOSF("OS")["DSM-" XY=X_" U $I:(0::::::256*DY+DX)" G BD
9 W !,"'HIGH/LOW INTENSITY', 'ERASE TO END OF PAGE' OR 'XY CRT' ATTRIBUTES"
10 W:'$D(DJPAR) !,"HAVE NOT BEEN PROPERLY DEFINED FOR YOUR TERMINAL. SEE YOUR SITE MANAGER.",*7
11 K DJRJ Q
12BD ;
13 S DJCL="S DY=23,DX=0 X XY W @DJEOP"
14 S DJCP="S DY=16,DX=0 X XY W @DJEOP"
15 S DJRJ=1 K DJJ0
16 Q
Note: See TracBrowser for help on using the repository browser.