ECBEP1A.m

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 ---ECBEP1A   738     printed  Apr 09, 2024@21:03:52                                                                                                                                                                                                      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