RMPFPRE1.m

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 ---RMPFPRE1   526     printed  Apr 09, 2024@21:38:24                                                                                                                                                                                                     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