23 lines
716 B
Mathematica
23 lines
716 B
Mathematica
ECBEP1A ;BIR;JPW-Batch Entry by Procedure (cont'd) ;2 Mar 96
|
|
;;2.0; EVENT CAPTURE ;**4,5,72**;8 May 96
|
|
DATE ;select date
|
|
K %DT S %DT="AEXR"
|
|
I ECDDT="",$G(ECDR)]"" S %DT("B")=ECDR G DATE1
|
|
I ECDDT'="" S %DT("B")=ECDDT
|
|
;
|
|
; ALB/ESD - Prevent future dates from being entered
|
|
DATE1 S %DT("A")="Procedure Date and Time: ",%DT(0)="-NOW" D ^%DT I Y<0 S ECOUT=1 Q
|
|
S ECDT=+Y,(ECDATE,ECDR)=$$FMTE^XLFDT(ECDT) K %DT
|
|
;
|
|
;select provider(s) with active person class
|
|
D ASKPRV^ECPRVMUT("",ECDT,.ECPRVARY,.ECOUT)
|
|
I $G(ECOUT) S ECOUT=1 K ECPRVARY Q
|
|
;
|
|
CAT ;select category
|
|
D ^ECBEP1B K ECPRVARY I ECOUT=2 D MSG S ECOUT=2 Q
|
|
END Q
|
|
;
|
|
MSG ;quit msg
|
|
W !!,"No action taken.",!!,"Press <RET> to continue " R X:DTIME S ECOUT=1
|
|
Q
|