- RMPFPRE1 ;DDC/KAW-CONTINUATION OF RMPFPRE [ 06/16/95 3:06 PM ]
- ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
- F IX=1:1:8 S ST=$T(STAT+IX) D
- .S DA=$P(ST,";",3),X=$P(ST,";",4)
- .S DIE="^RMPF(791810.2,",DR=".01////"_X D ^DIE
- S X=18 F S X=$O(^RMPF(791810.2,X)) Q:'X S $P(^RMPF(791810.2,X,0),U,3)=1
- END K IX,ST,X,D,D0,DA,DI,DIC,DIE,DQ,DR Q
- STAT ;;STATUS NAME CHANGES
- ;;11;CANCELED
- ;;12;CER-TRANS
- ;;13;ORD-TRANS
- ;;14;ADJ-TRANS
- ;;15;ISS-TRANS
- ;;16;CAN-TRANS
- ;;17;CERTIFICATION PENDING
- ;;18;BACKORDERED
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPFPRE1 526 printed Jan 18, 2025@03:37:50 Page 2
- RMPFPRE1 ;DDC/KAW-CONTINUATION OF RMPFPRE [ 06/16/95 3:06 PM ]
- +1 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
- +2 FOR IX=1:1:8
- SET ST=$TEXT(STAT+IX)
- Begin DoDot:1
- +3 SET DA=$PIECE(ST,";",3)
- SET X=$PIECE(ST,";",4)
- +4 SET DIE="^RMPF(791810.2,"
- SET DR=".01////"_X
- DO ^DIE
- End DoDot:1
- +5 SET X=18
- FOR
- SET X=$ORDER(^RMPF(791810.2,X))
- if 'X
- QUIT
- SET $PIECE(^RMPF(791810.2,X,0),U,3)=1
- END KILL IX,ST,X,D,D0,DA,DI,DIC,DIE,DQ,DR
- QUIT
- STAT ;;STATUS NAME CHANGES
- +1 ;;11;CANCELED
- +2 ;;12;CER-TRANS
- +3 ;;13;ORD-TRANS
- +4 ;;14;ADJ-TRANS
- +5 ;;15;ISS-TRANS
- +6 ;;16;CAN-TRANS
- +7 ;;17;CERTIFICATION PENDING
- +8 ;;18;BACKORDERED