source: FOIAVistA/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGMSCALR.m@ 1288

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

initial load of FOIAVistA 6/30/08 version

File size: 344 bytes
Line 
1RGMSCALR ;CAIRO/DKM - Send alert to user(s) via kernel or mail;04-Sep-1998 11:26;DKM
2 ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
3 ;=================================================================
4 ; Old entry point
5ALERT(XQAMSG,RGUSR) ;
6 D ALERT^RGUTALR(.XQAMSG,.RGUSR)
7 Q
8MAIL(RGMSG,XMY,XMSUB,XMDUZ) ;
9 D MAIL^RGUTALR(.RGMSG,.XMY,.XMSUB,.XMDUZ)
10 Q
Note: See TracBrowser for help on using the repository browser.