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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECBEP1A 738 printed Dec 13, 2024@01:56:56 Page 2
ECBEP1A ;BIR;JPW-Batch Entry by Procedure (cont'd) ;2 Mar 96
+1 ;;2.0; EVENT CAPTURE ;**4,5,72**;8 May 96
DATE ;select date
+1 KILL %DT
SET %DT="AEXR"
+2 IF ECDDT=""
IF $GET(ECDR)]""
SET %DT("B")=ECDR
GOTO DATE1
+3 IF ECDDT'=""
SET %DT("B")=ECDDT
+4 ;
+5 ; ALB/ESD - Prevent future dates from being entered
DATE1 SET %DT("A")="Procedure Date and Time: "
SET %DT(0)="-NOW"
DO ^%DT
IF Y<0
SET ECOUT=1
QUIT
+1 SET ECDT=+Y
SET (ECDATE,ECDR)=$$FMTE^XLFDT(ECDT)
KILL %DT
+2 ;
+3 ;select provider(s) with active person class
+4 DO ASKPRV^ECPRVMUT("",ECDT,.ECPRVARY,.ECOUT)
+5 IF $GET(ECOUT)
SET ECOUT=1
KILL ECPRVARY
QUIT
+6 ;
CAT ;select category
+1 DO ^ECBEP1B
KILL ECPRVARY
IF ECOUT=2
DO MSG
SET ECOUT=2
QUIT
END QUIT
+1 ;
MSG ;quit msg
+1 WRITE !!,"No action taken.",!!,"Press <RET> to continue "
READ X:DTIME
SET ECOUT=1
+2 QUIT
