ORCACT3.m

ORCACT3 ;SLC/MKB-Delayed Orders ; 08 May 2002  2:12 PM

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**7,45,48,79,141**;Dec 17, 1997

EN ; -- main entry point

 K ORVP D EN^ORQPT Q:'$G(ORVP)

 S ORTAB="DELAY" D EN^VALM("OR DELAYED ORDERS")

 Q

 ;

EN1(ORVP) ; -- entry point for use with DGPM MOVEMENT EVENTS

 Q:'$$ACCESS^ORCHTAB  ;CPRS not in user's option menu tree

 Q:'$G(ORVP)  Q:'$$REVIEW(DFN)

 N ORTAB,DFN ;protect DFN within event protocol

 S DFN=+ORVP,ORVP=DFN_";DPT(",ORTAB="DELAY" D SLCT1^ORQPT

 D EN^VALM("OR DELAYED ORDERS")

 Q

 ;

REVIEW(PAT) ; -- Want to review delayed orders?

 N X,Y,DIR Q:'$D(^OR(100,"AEVNT",PAT_";DPT(")) 0

 S DIR(0)="YA",DIR("A")="Review delayed orders? ",DIR("B")="YES"

 S DIR("?")="Answer YES to review this patient's delayed orders"

 D ^DIR

 Q +Y

 ;

INIT ; -- init variables and list array

 D TAB^ORCHART(ORTAB)

 Q

 ;

PHDR ; -- protocol menu header code

 N ORM,ORI,ORS,ORSYN

 S VALMSG=$$MSG^ORCHART D SHOW^VALM

 S ORM=+$O(^ORD(101,"B","ORC DELAY ACTIONS",0))

 S XQORM("#")=ORM_"^1:"_+$P($G(^TMP("OR",$J,"DELAY",0)),U,2),ORI=0

 F  S ORI=+$O(^ORD(101,ORM,10,"B",ORI)) Q:ORI<1  I $D(^ORD(101,ORI,2)) D

 . S ORS=0 F  S ORS=$O(^ORD(101,ORI,2,ORS)) Q:ORS'>0  S ORSYN=$G(^(ORS,0)) S:$L(ORSYN) XQORM("KEY",ORSYN)=+ORI_"^1"

 Q

 ;

HELP ; -- help code

 N X W !!,"Enter the display numbers of the items you wish to act on; a menu of"

 W !,"available actions will then be presented for selection."

 W !,"Press <return> to continue ..." R X:DTIME S VALMBCK=""

 Q

 ;

EXIT ; -- exit code

 D UNLOCK^ORX2(+ORVP) K ^TMP("OR",$J),^TMP("LRRR",$J)

 K VALMCNT,VALMHDR,VALMBG,ORQUIT,ORVP,ORSEX,ORTAB,ORPNM,ORSSN,ORL,ORDOB,ORAGE,ORPD,ORNP,ORSC,ORTS,ORWARD,ORATTEND,ORNMBR,ORACTION,OREBUILD,OREVENT

 Q

 ;

DC ; -- cancel orders

 W !!,"This action is no longer supported." H 2

 S VALMBCK=""

 Q

 ;

RELEASE ; -- Release orders to the service

 W !!,"This action is no longer supported." H 2

 S VALMBCK=""

 Q

 ;

TS ; -- Edit treating specialty

 W !!,"This action is no longer supported." H 2

 S VALMBCK=""

 Q

ORCACT3   ;SLC/MKB-Delayed Orders ; 08 May 2002  2:12 PM

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**7,45,48,79,141**;Dec 17, 1997

EN        ; -- main entry point

 +1        KILL ORVP

           DO EN^ORQPT

           IF '$GET(ORVP)

               QUIT 

 +2        SET ORTAB="DELAY"

           DO EN^VALM("OR DELAYED ORDERS")

 +3        QUIT 

 +4       ;

EN1(ORVP) ; -- entry point for use with DGPM MOVEMENT EVENTS

 +1       ;CPRS not in user's option menu tree

           IF '$$ACCESS^ORCHTAB

               QUIT 

 +2        IF '$GET(ORVP)

               QUIT 

           IF '$$REVIEW(DFN)

               QUIT 

 +3       ;protect DFN within event protocol

           NEW ORTAB,DFN

 +4        SET DFN=+ORVP

           SET ORVP=DFN_";DPT("

           SET ORTAB="DELAY"

           DO SLCT1^ORQPT

 +5        DO EN^VALM("OR DELAYED ORDERS")

 +6        QUIT 

 +7       ;

REVIEW(PAT) ; -- Want to review delayed orders?

 +1        NEW X,Y,DIR

           IF '$DATA(^OR(100,"AEVNT",PAT_";DPT("))

               QUIT 0

 +2        SET DIR(0)="YA"

           SET DIR("A")="Review delayed orders? "

           SET DIR("B")="YES"

 +3        SET DIR("?")="Answer YES to review this patient's delayed orders"

 +4        DO ^DIR

 +5        QUIT +Y

 +6       ;

INIT      ; -- init variables and list array

 +1        DO TAB^ORCHART(ORTAB)

 +2        QUIT 

 +3       ;

PHDR      ; -- protocol menu header code

 +1        NEW ORM,ORI,ORS,ORSYN

 +2        SET VALMSG=$$MSG^ORCHART

           DO SHOW^VALM

 +3        SET ORM=+$ORDER(^ORD(101,"B","ORC DELAY ACTIONS",0))

 +4        SET XQORM("#")=ORM_"^1:"_+$PIECE($GET(^TMP("OR",$JOB,"DELAY",0)),U,2)

           SET ORI=0

 +5        FOR 

               SET ORI=+$ORDER(^ORD(101,ORM,10,"B",ORI))

               IF ORI<1

                   QUIT 

               IF $DATA(^ORD(101,ORI,2))

                   Begin DoDot:1

 +6                    SET ORS=0

                       FOR 

                           SET ORS=$ORDER(^ORD(101,ORI,2,ORS))

                           IF ORS'>0

                               QUIT 

                           SET ORSYN=$GET(^(ORS,0))

                           IF $LENGTH(ORSYN)

                               SET XQORM("KEY",ORSYN)=+ORI_"^1"

                   End DoDot:1

 +7        QUIT 

 +8       ;

HELP      ; -- help code

 +1        NEW X

           WRITE !!,"Enter the display numbers of the items you wish to act on; a menu of"

 +2        WRITE !,"available actions will then be presented for selection."

 +3        WRITE !,"Press <return> to continue ..."

           READ X:DTIME

           SET VALMBCK=""

 +4        QUIT 

 +5       ;

EXIT      ; -- exit code

 +1        DO UNLOCK^ORX2(+ORVP)

           KILL ^TMP("OR",$JOB),^TMP("LRRR",$JOB)

 +2        KILL VALMCNT,VALMHDR,VALMBG,ORQUIT,ORVP,ORSEX,ORTAB,ORPNM,ORSSN,ORL,ORDOB,ORAGE,ORPD,ORNP,ORSC,ORTS,ORWARD,ORATTEND,ORNMBR,ORACTION,OREBUILD,OREVENT

 +3        QUIT 

 +4       ;

DC        ; -- cancel orders

 +1        WRITE !!,"This action is no longer supported."

           HANG 2

 +2        SET VALMBCK=""

 +3        QUIT 

 +4       ;

RELEASE   ; -- Release orders to the service

 +1        WRITE !!,"This action is no longer supported."

           HANG 2

 +2        SET VALMBCK=""

 +3        QUIT 

 +4       ;

TS        ; -- Edit treating specialty

 +1        WRITE !!,"This action is no longer supported."

           HANG 2

 +2        SET VALMBCK=""

 +3        QUIT