VistA-WorldVistAEHR/r/REMOTE_ORDER_ENTRY_SYSTEM-R.../RMPFPRE2.m

7 lines
332 B
Mathematica

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