RMPFPRE2 ;DDC/KAW-CONTINUATION OF RMPFPRE [ 06/16/95   3:06 PM ]
 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
 I $D(^DD(791810)) S DIE=1,DA=791810,DR=".01////STATION ORDER" D ^DIE
 I $D(^DD(791810.1)) S DIE=1,DA=791810.1,DR=".01////ORDER TYPE" D ^DIE
 I $D(^DD(791810.2)) S DIE=1,DA=791810.2,DR=".01////ORDER STATUS" D ^DIE
END Q