source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCARDPAR.m@ 1714

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

initial load of WorldVistAEHR

File size: 714 bytes
Line 
1MCARDPAR ;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
14BD ;
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.