RMPFPST.m

RMPFPST ;DDC/MAB-POSTINIT FOR PATCH RMPF*2*5; [ 11/24/97  11:24 AM ]

 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;**5**;NOV 24, 1997

 ;;This postinit changes the NON CONTRACT ITEMS field in the Order

 ;;Type file to "allow non-contract items" for the Accessories and accessorites stock entries only

 N ZZ,I

 F I="Q","W" D

 .S ZZ=$O(^RMPF(791810.1,"AD",I,0)) Q:'ZZ

 .Q:'$D(^RMPF(791810.1,ZZ,0))

 .S DA=ZZ,DIE="^RMPF(791810.1,",DR=".09////1" D ^DIE

END K ZZ,I,DA,DIE,DR Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RMPFPST   468     printed  Apr 09, 2024@21:39:14                                                                                                                                                                                                      Page 2

RMPFPST   ;DDC/MAB-POSTINIT FOR PATCH RMPF*2*5; [ 11/24/97  11:24 AM ]

 +1       ;;2.0;REMOTE ORDER/ENTRY SYSTEM;**5**;NOV 24, 1997

 +2       ;;This postinit changes the NON CONTRACT ITEMS field in the Order

 +3       ;;Type file to "allow non-contract items" for the Accessories and accessorites stock entries only

 +4        NEW ZZ,I

 +5        FOR I="Q","W"

               Begin DoDot:1

 +6                SET ZZ=$ORDER(^RMPF(791810.1,"AD",I,0))

                   if 'ZZ

                       QUIT 

 +7                if '$DATA(^RMPF(791810.1,ZZ,0))

                       QUIT 

 +8                SET DA=ZZ

                   SET DIE="^RMPF(791810.1,"

                   SET DR=".09////1"

                   DO ^DIE

               End DoDot:1

END        KILL ZZ,I,DA,DIE,DR

           QUIT