Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
714 bytes
|
Rev | Line | |
---|
[628] | 1 | MCARDPAR ;WISC/TJK,JA-INITIATE SCREEN VARIABLES ;7/18/96 09:32
|
---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
---|
| 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 | D HOME^%ZIS ;,^%ZIS9
|
---|
| 8 | S X="IOEDEOP;IOINHI;IOINLOW"
|
---|
| 9 | D ENDR^%ZISS S DJHIN=IOINHI,DJLIN=IOINLOW,DJEOP=IOEDEOP,XY=IOXY
|
---|
| 10 | I $D(DJHIN),($D(DJLIN)),($D(DJEOP)),DJHIN'="",DJLIN'="",DJEOP'="",XY'="" S XY=XY_" "_^%ZOSF("XY") G BD
|
---|
| 11 | W !,"'HIGH/LOW INTENSITY', 'ERASE TO END OF PAGE' OR 'XY CRT' ATTRIBUTES"
|
---|
| 12 | W !,"HAVE NOT BEEN PROPERLY DEFINED FOR YOUR TERMINAL. SEE YOUR SITE MANAGER.",*7
|
---|
| 13 | K DJRJ Q
|
---|
| 14 | BD ;
|
---|
| 15 | S DJCL="S DY=23,DX=0 X XY W DJEOP"
|
---|
| 16 | S DJCP="S DY=16,DX=0,MCMASS=1 X XY W DJEOP K MCDID"
|
---|
| 17 | S DJRJ=1 K DJJ0,IOSC
|
---|
| 18 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.