| 1 | RMPFET62 ;DDC/KAW-CONTINUATION OF RMPFET [ 06/16/95 3:06 PM ]
|
|---|
| 2 | ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
|
|---|
| 3 | SEL ;;Select a line item from existing line item orders
|
|---|
| 4 | ;; input: RMPFX,RMPFMD,RMPFMC,RMPFHAT
|
|---|
| 5 | ;;output: RMPFY,Y1
|
|---|
| 6 | W !!,"Enter <E>dit, <D>elete" S SX="EeDd"
|
|---|
| 7 | S FL=1 D ADD I FL W ", <A>dd" S SX=SX_"Aa"
|
|---|
| 8 | D CAN^RMPFET0 I CN=1 W ", <C>ancel" S SX=SX_"Cc"
|
|---|
| 9 | W " or <RETURN> to continue: " K Y1
|
|---|
| 10 | D READ G SELE:$D(RMPFOUT)
|
|---|
| 11 | SEL1 I $D(RMPFQUT) D G SEL
|
|---|
| 12 | .W !!," Enter an <E> to edit an item,"
|
|---|
| 13 | .W !?8,"a <D> to delete an item"
|
|---|
| 14 | .W !?7,"an <A> to add an item or",!?8,"a <RETURN> to continue."
|
|---|
| 15 | .I SX["C" W !?8,"a <C> to cancel an item"
|
|---|
| 16 | .I RMPFMC>1 W !," If editing or deleting, enter the number of the item after the function choice",!?6,"(ex: E2)."
|
|---|
| 17 | .W !!,"A maximum of two aids may be ordered with a monaural fitting and"
|
|---|
| 18 | .W !,"a maximum of four aids may be ordered with a binaural fitting."
|
|---|
| 19 | G SELE:Y="" S Y1=$E(Y,1) I SX'[Y1 S RMPFQUT="" G SEL1
|
|---|
| 20 | I "Aa"[Y1 G SELE
|
|---|
| 21 | S Y2=$E(Y,2,99) I Y2,$D(RMPFMD(Y2)) S RMPFY=RMPFMD(Y2) G SELE
|
|---|
| 22 | I RMPFMC=1 S RMPFY=RMPFMD(1) G SELE
|
|---|
| 23 | SEL2 W !!,"Select number of item: " D READ G SELE:$D(RMPFOUT)!(Y="")
|
|---|
| 24 | SEL3 I $D(RMPFQUT) W !!,"Enter the number to the left of the item you wish to edit or <RETURN> to continue." G SEL2
|
|---|
| 25 | G SELE:Y="" I '$D(RMPFMD(Y)) S RMPFQUT="" G SEL2
|
|---|
| 26 | S RMPFY=RMPFMD(Y)
|
|---|
| 27 | SELE K X,Y,Y2,I,CN,SX,FL Q
|
|---|
| 28 | ADD S F=$P($G(^RMPF(791810,RMPFX,11)),U,1) G ADDE:F="" D ARRAY^RMPFDT2
|
|---|
| 29 | S (X,C)=0 F S X=$O(RMPFO(X)) Q:'X S C=C+1
|
|---|
| 30 | I F="M",C>1 S FL=0
|
|---|
| 31 | I F="B",C>3 S FL=0
|
|---|
| 32 | ADDE K C,F,X Q
|
|---|
| 33 | READ K RMPFOUT,RMPFQUT
|
|---|
| 34 | R Y:DTIME I '$T W $C(7) R Y:5 G READ:Y="." S:'$T Y=U
|
|---|
| 35 | I Y?1"^".E S (RMPFOUT,Y)="" Q
|
|---|
| 36 | S:Y?1"?".E (RMPFQUT,Y)=""
|
|---|
| 37 | Q
|
|---|
