| [613] | 1 | ORKREC ; SLC/AEB - Recipient Options - Order Checking Parameters Management ;9/22/97
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**9,85**;Dec 17, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | PFLAG ;
|
|---|
| 5 | N ORKT,ORKPAR,PIEN,ORKEDIT,ORKLST,ORKIEN,ORKV
|
|---|
| 6 | S ORKT="Enable/Disable an Order Check for Yourself",PIEN=0
|
|---|
| 7 | D TITLE(ORKT)
|
|---|
| 8 | S PIEN=$O(^XTV(8989.51,"B","ORK PROCESSING FLAG",PIEN)) Q:PIEN=""
|
|---|
| 9 | S ORKPAR=PIEN
|
|---|
| 10 | ;
|
|---|
| 11 | ;get a list of order checks that cannot be edited by end user:
|
|---|
| 12 | S ORKIEN=0 F S ORKIEN=$O(^ORD(100.8,ORKIEN)) Q:+$G(ORKIEN)<1 D
|
|---|
| 13 | .S ORKV=$$GET^XPAR("ALL","ORK EDITABLE BY USER",ORKIEN,"I")
|
|---|
| 14 | .S:$L(ORKV) ORKEDIT(ORKIEN)=ORKV
|
|---|
| 15 | ;
|
|---|
| 16 | D PROC
|
|---|
| 17 | Q
|
|---|
| 18 | USRCHKS ; List order checks a user could receive
|
|---|
| 19 | D USRCHKS^ORKUTL(DUZ)
|
|---|
| 20 | Q
|
|---|
| 21 | PROC ; Process Parameter Settings
|
|---|
| 22 | W !,$$DASH($S($D(IOM):IOM-1,1:78))
|
|---|
| 23 | N ENT
|
|---|
| 24 | S ENT=DUZ_";VA(200," ;Entity is the recipient/user
|
|---|
| 25 | D EDIT^XPAREDIT(ENT,ORKPAR)
|
|---|
| 26 | Q
|
|---|
| 27 | TITLE(ORKT) ;
|
|---|
| 28 | ; Center and write title - Parameter to be set
|
|---|
| 29 | S IOP=0 D ^%ZIS K IOP W @IOF
|
|---|
| 30 | W !,?(80-$L(ORKT)-1/2),ORKT
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | DASH(N) ;extrinsic function returns N dashes
|
|---|
| 34 | N X
|
|---|
| 35 | S $P(X,"-",N+1)=""
|
|---|
| 36 | Q X
|
|---|
