RMPFPSTS ;DDC/MAB-POSTINIT FOR PATCH RMPF*2*14; [ 07/31/98 3:39 PM ]
;;2.0;REMOTE ORDER/ENTRY SYSTEM;***14***;JUL 31,1998
;;this routine changes the name on two ROES order types
F I="STOCK LEVEL CHANGE;ORDER STOCK HEARING AIDS;ST ORD","STOCK HEARING AID ORDER;STOCK HEARING AID ISSUE;STOCK" D
.S RMPFON=$P(I,";",1),RMPFNN=$P(I,";",2),RMPFAB=$P(I,";",3)
.S INT=$O(^RMPF(791810.1,"B",RMPFON,0)) Q:'INT
.S DIE="^RMPF(791810.1,",DA=INT,DR=".01////^S X=RMPFNN;.08////^S X=RMPFAB" D ^DIE K DIE,DA,DR
.I RMPFNN="ORDER STOCK HEARING AIDS" S ^RMPF(791810.1,INT,1)=".06",^RMPF(791810.1,INT,2)=".01;.06"
END K I,RMPFON,RMPFNN,RMPFAB,INT,X Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPFPSTS 647 printed Nov 22, 2024@17:46:44 Page 2
RMPFPSTS ;DDC/MAB-POSTINIT FOR PATCH RMPF*2*14; [ 07/31/98 3:39 PM ]
+1 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;***14***;JUL 31,1998
+2 ;;this routine changes the name on two ROES order types
+3 FOR I="STOCK LEVEL CHANGE;ORDER STOCK HEARING AIDS;ST ORD","STOCK HEARING AID ORDER;STOCK HEARING AID ISSUE;STOCK"
Begin DoDot:1
+4 SET RMPFON=$PIECE(I,";",1)
SET RMPFNN=$PIECE(I,";",2)
SET RMPFAB=$PIECE(I,";",3)
+5 SET INT=$ORDER(^RMPF(791810.1,"B",RMPFON,0))
if 'INT
QUIT
+6 SET DIE="^RMPF(791810.1,"
SET DA=INT
SET DR=".01////^S X=RMPFNN;.08////^S X=RMPFAB"
DO ^DIE
KILL DIE,DA,DR
+7 IF RMPFNN="ORDER STOCK HEARING AIDS"
SET ^RMPF(791810.1,INT,1)=".06"
SET ^RMPF(791810.1,INT,2)=".01;.06"
End DoDot:1
END KILL I,RMPFON,RMPFNN,RMPFAB,INT,X
QUIT
