ORKREC.m

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

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