source: FOIAVistA/trunk/r/REMOTE_ORDER_ENTRY_SYSTEM-RMPF-RMPJ/RMPFEM.m@ 1166

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1RMPFEM ;DDC/KAW-INACTIVATE A LINE ITEM [ 06/16/95 3:06 PM ]
2 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
3RMPFSET I '$D(RMPFMENU) D MENU^RMPFUTL I '$D(RMPFMENU) W !!,$C(7),"*** A MENU SELECTION MUST BE MADE ***" Q ;;RMPFMENU must be defined
4 I '$D(RMPFSTAN)!'$D(RMPFDAT)!'$D(RMPFSYS) D ^RMPFUTL Q:'$D(RMPFSTAN)!'$D(RMPFDAT)!'$D(RMPFSYS)
5 W @IOF,!!,"INACTIVATE A LINE ITEM"
6 W !!,"Inactivating a line item will make that item unavailable for selection in the"
7 W !,"ordering of new products. This option should be used to disallow items no"
8 W !,"longer under contract."
9SEL W !! S DIC=791811,DIC(0)="AEQM" D ^DIC G END:Y=-1 S LI=+Y
10 S MK=$P(^RMPF(791811,LI,0),U,2),CS=$P(^(0),U,4)
11 W !!,"Item",?22,"Make",?40,"Price"
12 W !,"--------------------",?22,"----------------",?40,"-------"
13 W !,$E($P(Y,U,2),1,20),?22,$E(MK,1,16),?40,"$",$J(CS,6,2)
14 G A2:$D(^RMPF(791811,LI,"I"))
15A1 W !!,"Are you sure you wish to inactivate this item? NO// "
16 D READ G END:$D(RMPFOUT)
17A11 I $D(RMPFQUT) W !!,"Type <Y>es to prevent the item from being ordered or <N>o to exit." G A1
18 S:Y="" Y="N" S Y=$E(Y,1) I "NnYs"'[Y S RMPFQUT="" G A11
19 G SEL:"Nn"[Y S $P(^RMPF(791811,LI,"I"),U)=1
20 W !!,"*** ITEM INACTIVATED ***"
21 G SEL
22A2 W !!,"This item has already been inactivated. Do you wish to re-activate? NO// "
23 D READ G END:$D(RMPFOUT)
24A21 I $D(RMPFQUT) W !!,"Type <Y>es to re-activate the item. If the item is no longer",!,"under contract, any orders will be rejected from the DDC.",!,"Enter <N>o or <RETURN> to exit without change." G A2
25 S:Y="" Y="N" S Y=$E(Y,1) I "YyNn"'[Y S RMPFQUT="" G A21
26 G SEL:"Nn"[Y K ^RMPF(791811,LI,"I")
27 W !!,"*** ITEM RE-ACTIVATED ***" G SEL:"Nn"[Y K ^RMPF(791811,LI,"I") G SEL
28END K %,CS,LI,MK,DIC,DISYS,X,Y,RMPFOUT,RMPFQUT Q
29READ K RMPFOUT,RMPFQUT
30 R Y:DTIME I '$T W $C(7) R Y:5 G READ:Y="." S:'$T Y=U
31 I Y?1"^".E S (RMPFOUT,Y)="" Q
32 S:Y?1"?".E (RMPFQUT,Y)=""
33 Q
Note: See TracBrowser for help on using the repository browser.