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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPFPRE2 338 printed Sep 11, 2024@02:56:38 Page 2
RMPFPRE2 ;DDC/KAW-CONTINUATION OF RMPFPRE [ 06/16/95 3:06 PM ]
+1 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
+2 IF $DATA(^DD(791810))
SET DIE=1
SET DA=791810
SET DR=".01////STATION ORDER"
DO ^DIE
+3 IF $DATA(^DD(791810.1))
SET DIE=1
SET DA=791810.1
SET DR=".01////ORDER TYPE"
DO ^DIE
+4 IF $DATA(^DD(791810.2))
SET DIE=1
SET DA=791810.2
SET DR=".01////ORDER STATUS"
DO ^DIE
END QUIT
