source:
WorldVistAEHR/trunk/r/REMOTE_ORDER_ENTRY_SYSTEM-RMPF-RMPJ/RMPFPRE2.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 332 bytes |
Line | |
---|---|
1 | RMPFPRE2 ;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 |
6 | END Q |
Note:
See TracBrowser
for help on using the repository browser.