Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORCACT3

ORCACT3.m

Go to the documentation of this file.
  1. 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
  1. EN ; -- main entry point
  1. K ORVP D EN^ORQPT Q:'$G(ORVP)
  1. S ORTAB="DELAY" D EN^VALM("OR DELAYED ORDERS")
  1. Q
  1. ;
  1. EN1(ORVP) ; -- entry point for use with DGPM MOVEMENT EVENTS
  1. Q:'$$ACCESS^ORCHTAB ;CPRS not in user's option menu tree
  1. Q:'$G(ORVP) Q:'$$REVIEW(DFN)
  1. N ORTAB,DFN ;protect DFN within event protocol
  1. S DFN=+ORVP,ORVP=DFN_";DPT(",ORTAB="DELAY" D SLCT1^ORQPT
  1. D EN^VALM("OR DELAYED ORDERS")
  1. Q
  1. ;
  1. REVIEW(PAT) ; -- Want to review delayed orders?
  1. ;*324 New Quit flags, they aren't relevent to this prompt.
  1. N X,Y,DIR,DTOUT,DUOUT,DIRUT,DIROUT
  1. Q:'$D(^OR(100,"AEVNT",PAT_";DPT(")) 0
  1. S DIR(0)="YA",DIR("A")="Review delayed orders? ",DIR("B")="YES"
  1. S DIR("?")="Answer YES to review this patient's delayed orders"
  1. D ^DIR
  1. Q +Y
  1. ;
  1. INIT ; -- init variables and list array
  1. D TAB^ORCHART(ORTAB)
  1. Q
  1. ;
  1. PHDR ; -- protocol menu header code
  1. N ORM,ORI,ORS,ORSYN
  1. S VALMSG=$$MSG^ORCHART D SHOW^VALM
  1. S ORM=+$O(^ORD(101,"B","ORC DELAY ACTIONS",0))
  1. S XQORM("#")=ORM_"^1:"_+$P($G(^TMP("OR",$J,"DELAY",0)),U,2),ORI=0
  1. F S ORI=+$O(^ORD(101,ORM,10,"B",ORI)) Q:ORI<1 I $D(^ORD(101,ORI,2)) D
  1. . 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"
  1. Q
  1. ;
  1. HELP ; -- help code
  1. N X W !!,"Enter the display numbers of the items you wish to act on; a menu of"
  1. W !,"available actions will then be presented for selection."
  1. W !,"Press <return> to continue ..." R X:DTIME S VALMBCK=""
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. D UNLOCK^ORX2(+ORVP) K ^TMP("OR",$J),^TMP("LRRR",$J)
  1. K VALMCNT,VALMHDR,VALMBG,ORQUIT,ORVP,ORSEX,ORTAB,ORPNM,ORSSN,ORL,ORDOB,ORAGE,ORPD,ORNP,ORSC,ORTS,ORWARD,ORATTEND,ORNMBR,ORACTION,OREBUILD,OREVENT
  1. Q
  1. ;
  1. DC ; -- cancel orders
  1. W !!,"This action is no longer supported." H 2
  1. S VALMBCK=""
  1. Q
  1. ;
  1. RELEASE ; -- Release orders to the service
  1. W !!,"This action is no longer supported." H 2
  1. S VALMBCK=""
  1. Q
  1. ;
  1. TS ; -- Edit treating specialty
  1. W !!,"This action is no longer supported." H 2
  1. S VALMBCK=""
  1. Q