- 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 Jan 18, 2025@03:29:01 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