RMPFPRE2.m

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 ---RMPFPRE2   338     printed  Apr 09, 2024@21:38:30                                                                                                                                                                                                     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