source: FOIAVistA/trunk/r/REMOTE_ORDER_ENTRY_SYSTEM-RMPF-RMPJ/RMPFPRE2.m@ 635

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

initial load of FOIAVistA 6/30/08 version

File size: 332 bytes
Line 
1RMPFPRE2 ;DDC/KAW-CONTINUATION OF RMPFPRE [ 06/16/95 3:06 PM ]
2 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
3 I $D(^DD(791810)) S DIE=1,DA=791810,DR=".01////STATION ORDER" D ^DIE
4 I $D(^DD(791810.1)) S DIE=1,DA=791810.1,DR=".01////ORDER TYPE" D ^DIE
5 I $D(^DD(791810.2)) S DIE=1,DA=791810.2,DR=".01////ORDER STATUS" D ^DIE
6END Q
Note: See TracBrowser for help on using the repository browser.