RMPFPSTC ;DDC/MAB-POSTINIT FOR PATCH RMPF*2*12; [ 05/12/98 2:24 PM ]
;;2.0;REMOTE ORDER/ENTRY SYSTEM;**12**;MAY 12, 1998
;;This postinit changes the NON CONTRACT ITEMS field in the Order
;;Type file to "do not allow non-contract items" for the Custom Hearing Aid entry
N ZZ
S ZZ=$O(^RMPF(791810.1,"AD","C",0)) Q:'ZZ
Q:'$D(^RMPF(791810.1,ZZ,0))
S DA=ZZ,DIE="^RMPF(791810.1,",DR=".09////0" D ^DIE
END K ZZ,I,DA,DIE,DR Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPFPSTC 435 printed Nov 22, 2024@17:46:43 Page 2
RMPFPSTC ;DDC/MAB-POSTINIT FOR PATCH RMPF*2*12; [ 05/12/98 2:24 PM ]
+1 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;**12**;MAY 12, 1998
+2 ;;This postinit changes the NON CONTRACT ITEMS field in the Order
+3 ;;Type file to "do not allow non-contract items" for the Custom Hearing Aid entry
+4 NEW ZZ
+5 SET ZZ=$ORDER(^RMPF(791810.1,"AD","C",0))
if 'ZZ
QUIT
+6 if '$DATA(^RMPF(791810.1,ZZ,0))
QUIT
+7 SET DA=ZZ
SET DIE="^RMPF(791810.1,"
SET DR=".09////0"
DO ^DIE
END KILL ZZ,I,DA,DIE,DR
QUIT
