ORCACT3 ;SLC/MKB-Delayed Orders ; 6/8/10 9:58am
;;3.0;ORDER ENTRY/RESULTS REPORTING;**7,45,48,79,141,324**;Dec 17, 1997;Build 2
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?
;*324 New Quit flags, they aren't relevent to this prompt.
N X,Y,DIR,DTOUT,DUOUT,DIRUT,DIROUT
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORCACT3 2153 printed Apr 09, 2024@21:42:22 Page 2
ORCACT3 ;SLC/MKB-Delayed Orders ; 6/8/10 9:58am
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**7,45,48,79,141,324**;Dec 17, 1997;Build 2
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 ;*324 New Quit flags, they aren't relevent to this prompt.
+2 NEW X,Y,DIR,DTOUT,DUOUT,DIRUT,DIROUT
+3 if '$DATA(^OR(100,"AEVNT",PAT_";DPT("))
QUIT 0
+4 SET DIR(0)="YA"
SET DIR("A")="Review delayed orders? "
SET DIR("B")="YES"
+5 SET DIR("?")="Answer YES to review this patient's delayed orders"
+6 DO ^DIR
+7 QUIT +Y
+8 ;
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
