| 1 | RMPFET5 ;DDC/KAW-ENTER/EDIT ORDER INFORMATION [ 06/16/95 3:06 PM ]
|
|---|
| 2 | ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
|
|---|
| 3 | ;;input: DFN,RMPFX,RMPFTYP,RMPFHAT,RMPFTP,RMPFSL (opt)
|
|---|
| 4 | ;;output: None
|
|---|
| 5 | Q:'$D(RMPFX) Q:'RMPFX
|
|---|
| 6 | I '$D(^RMPF(791810,RMPFX,0)) W $C(7),"*** ORDER DOES NOT EXIST ***" Q
|
|---|
| 7 | G END:'RMPFTYP!(RMPFHAT="")!(RMPFTP="")
|
|---|
| 8 | D SUB G END:$D(RMPFOUT)
|
|---|
| 9 | D ^RMPFET2:RMPFTP="P"
|
|---|
| 10 | END K DIR,DIE,DR,DA,DR,DI,D0,I,RMPFHAT,RMPFTYP,S0,RMPFSL,RMPFMOD,RM
|
|---|
| 11 | K RMPFDUP,X,Y Q
|
|---|
| 12 | SUB ;;Enter/Edit fields that apply to order type
|
|---|
| 13 | ;; input: RMPFTYP,RMPFST (opt.)
|
|---|
| 14 | ;;output: None
|
|---|
| 15 | S DR="" K RMPFMOD
|
|---|
| 16 | I '$D(RMPFSL) S X=0 F I=1:1 S X=$O(^RMPF(791810.1,RMPFTYP,100,X)) Q:'X S Y=$P(^(X,0),U,2) I Y'="" S DR=DR_$S(DR="":Y,1:";"_Y)
|
|---|
| 17 | I $D(RMPFSL) S X=0 F I=1:1 S X=$O(RMPFSL(X)) Q:X="" I $D(^RMPF(791810.1,RMPFTYP,100,X,0)) S Y=$P(^(0),U,2) I Y'="" S DR=DR_$S(DR="":Y,1:";"_Y)
|
|---|
| 18 | Q:DR="" W ! S DIE="^RMPF(791810,",DA=RMPFX D ^DIE
|
|---|
| 19 | I $D(RMPFMOD) D ^RMPFET6 Q:$D(RMPFOUT)
|
|---|
| 20 | K RMPFSL Q
|
|---|
