Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RMPFPSTS

RMPFPSTS.m

Go to the documentation of this file.
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