source: WorldVistAEHR/trunk/r/REMOTE_ORDER_ENTRY_SYSTEM-RMPF-RMPJ/RMPFEP2.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 657 bytes
RevLine 
[613]1RMPFEP2 ;DDC/KAW-ENTER/EDIT PRODUCTS FOR PSAS [ 06/16/95 3:06 PM ]
2 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
3 W @IOF,!,"PRODUCT ENTER/EDIT"
4 W !!,"*** USE THIS OPTION WITH CAUTION ***"
5 W !!!,"Products must be entered or edited ONLY as directed by the DDC."
6 W !!,"If entries vary in any way (even by one character) from the entry in the DDC",!,"file, all orders for which this entry is chosen will be rejected."
7P1 W ! S DIC="^RMPF(791811,",DIC(0)="AEQLM",DLAYGO=791811
8 D ^DIC G END:Y=-1 S DIE=DIC,DA=+Y,DR=".01;.03;.04;.05;.08;.09" D ^DIE
9 K DIC,DIC,DA,DR,DD,DO,DQ,D0,DDH
10 G P1
11END K X,Y,DIC,DIE,DA,DR,DD,DO,DQ,D0,H,DI,DISYS,%,I,C,%R,%Y,DLAYGO Q
Note: See TracBrowser for help on using the repository browser.