ORKREC ; SLC/AEB - Recipient Options - Order Checking Parameters Management ;9/22/97
;;3.0;ORDER ENTRY/RESULTS REPORTING;**9,85**;Dec 17, 1997
;
PFLAG ;
N ORKT,ORKPAR,PIEN,ORKEDIT,ORKLST,ORKIEN,ORKV
S ORKT="Enable/Disable an Order Check for Yourself",PIEN=0
D TITLE(ORKT)
S PIEN=$O(^XTV(8989.51,"B","ORK PROCESSING FLAG",PIEN)) Q:PIEN=""
S ORKPAR=PIEN
;
;get a list of order checks that cannot be edited by end user:
S ORKIEN=0 F S ORKIEN=$O(^ORD(100.8,ORKIEN)) Q:+$G(ORKIEN)<1 D
.S ORKV=$$GET^XPAR("ALL","ORK EDITABLE BY USER",ORKIEN,"I")
.S:$L(ORKV) ORKEDIT(ORKIEN)=ORKV
;
D PROC
Q
USRCHKS ; List order checks a user could receive
D USRCHKS^ORKUTL(DUZ)
Q
PROC ; Process Parameter Settings
W !,$$DASH($S($D(IOM):IOM-1,1:78))
N ENT
S ENT=DUZ_";VA(200," ;Entity is the recipient/user
D EDIT^XPAREDIT(ENT,ORKPAR)
Q
TITLE(ORKT) ;
; Center and write title - Parameter to be set
S IOP=0 D ^%ZIS K IOP W @IOF
W !,?(80-$L(ORKT)-1/2),ORKT
Q
;
DASH(N) ;extrinsic function returns N dashes
N X
S $P(X,"-",N+1)=""
Q X
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORKREC 1077 printed Nov 22, 2024@17:41:10 Page 2
ORKREC ; SLC/AEB - Recipient Options - Order Checking Parameters Management ;9/22/97
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**9,85**;Dec 17, 1997
+2 ;
PFLAG ;
+1 NEW ORKT,ORKPAR,PIEN,ORKEDIT,ORKLST,ORKIEN,ORKV
+2 SET ORKT="Enable/Disable an Order Check for Yourself"
SET PIEN=0
+3 DO TITLE(ORKT)
+4 SET PIEN=$ORDER(^XTV(8989.51,"B","ORK PROCESSING FLAG",PIEN))
if PIEN=""
QUIT
+5 SET ORKPAR=PIEN
+6 ;
+7 ;get a list of order checks that cannot be edited by end user:
+8 SET ORKIEN=0
FOR
SET ORKIEN=$ORDER(^ORD(100.8,ORKIEN))
if +$GET(ORKIEN)<1
QUIT
Begin DoDot:1
+9 SET ORKV=$$GET^XPAR("ALL","ORK EDITABLE BY USER",ORKIEN,"I")
+10 if $LENGTH(ORKV)
SET ORKEDIT(ORKIEN)=ORKV
End DoDot:1
+11 ;
+12 DO PROC
+13 QUIT
USRCHKS ; List order checks a user could receive
+1 DO USRCHKS^ORKUTL(DUZ)
+2 QUIT
PROC ; Process Parameter Settings
+1 WRITE !,$$DASH($SELECT($DATA(IOM):IOM-1,1:78))
+2 NEW ENT
+3 ;Entity is the recipient/user
SET ENT=DUZ_";VA(200,"
+4 DO EDIT^XPAREDIT(ENT,ORKPAR)
+5 QUIT
TITLE(ORKT) ;
+1 ; Center and write title - Parameter to be set
+2 SET IOP=0
DO ^%ZIS
KILL IOP
WRITE @IOF
+3 WRITE !,?(80-$LENGTH(ORKT)-1/2),ORKT
+4 QUIT
+5 ;
DASH(N) ;extrinsic function returns N dashes
+1 NEW X
+2 SET $PIECE(X,"-",N+1)=""
+3 QUIT X
