- 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 Feb 19, 2025@00:03:13 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