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 ---[H[J[2J[HRMPFPST 468 printed Nov 22, 2024@17:46:42 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
