Routine: ECBEP2B

ECBEP2B ;BIR/MAM,JPW-Batch Entry by Procedure (cont'd) ;1 May 96

 ;;2.0; EVENT CAPTURE ;**4,10,13,18,72**;8 May 96

EN ;entry point

 S CNT=0

STUFF ; set up info to stuff

 S ECDUZ=DUZ

 W @IOF,!,"You have selected "_$S(ECCPT'="":ECPTCD_" ",1:"")_$E(ECPN,1,40)

 W $S(SYN'["NOT DEFINED":" ["_SYN_"]",1:"")_"  (#"_NATN_")"

 ;- Display CPT procedure Modifiers

 I ECCPT'="" N MOD S MOD="" F  S MOD=$O(ECMOD(ECCPT,MOD)) Q:MOD=""  D

 . W !," Modifier: ",?22,"- ",MOD," ",$E($P(ECMOD(ECCPT,MOD),U),1,55)

 W !,"for this group of patients."

 W !!,"I will now enter these patient procedures in the file.  OK ?  YES//  " R ECYN:DTIME I '$T!(ECYN="^") S ECOUT=1 Q

 S ECYN=$E(ECYN) S:ECYN="" ECYN="Y"

 I "YyNn"'[ECYN W !!,"Enter <RET> to create the entries in the file.  If you have made a mistake",!,"and do not wish to continue, enter NO.",!!,"Press <RET> to continue  " R X:DTIME G STUFF

 I "Nn"[ECYN D NO I "Yy"[ECYN Q

 W !!,"I am now sending these procedures to background for filing."

 K DIR W !! S DIR(0)="E",DIR("A")="Press <RET> to continue" D ^DIR K DIR

 S ECA=ECDT_"^"_ECL_"^"_ECS_"^"_ECM_"^"_ECD_"^"_ECPCE

 S ECOUT=2

 S (ZTSAVE("ECPT*"),ZTSAVE("ECA"),ZTSAVE("ECEC*"),ZTSAVE("ECDUZ"),ZTSAVE("ECELPT*"),ZTSAVE("ECPRVARY*"))=""

 S ZTIO="",ZTDTH=$H,ZTDESC="BATCH ENTRY EVENT CAPTURE PROCEDURES",ZTRTN="CRAM^ECBEPF" D ^%ZTLOAD,HOME^%ZIS K ECEC Q

NO ; do not stuff

 W !!,"Are you sure that you want to quit without entering any of the procedures",!,"that you have created for the patients selected ?  NO//  " R ECYN:DTIME I '$T!(ECYN="^") S ECOUT=1,ECYN="Y" Q

 S ECYN=$E(ECYN) S:ECYN="" ECYN="N" I "YyNn"'[ECYN W !!,"If you do not want to enter the procedures selected, enter YES.  If the",!,"procedures selected should be entered for the patients chosen, enter <RET>." G NO

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECBEP2B   1797     printed  Apr 09, 2024@21:01:43                                                                                                                                                                                                     Page 2

ECBEP2B   ;BIR/MAM,JPW-Batch Entry by Procedure (cont'd) ;1 May 96

 +1       ;;2.0; EVENT CAPTURE ;**4,10,13,18,72**;8 May 96

EN        ;entry point

 +1        SET CNT=0

STUFF     ; set up info to stuff

 +1        SET ECDUZ=DUZ

 +2        WRITE @IOF,!,"You have selected "_$SELECT(ECCPT'="":ECPTCD_" ",1:"")_$EXTRACT(ECPN,1,40)

 +3        WRITE $SELECT(SYN'["NOT DEFINED":" ["_SYN_"]",1:"")_"  (#"_NATN_")"

 +4       ;- Display CPT procedure Modifiers

 +5        IF ECCPT'=""

               NEW MOD

               SET MOD=""

FOR

                   SET MOD=$ORDER(ECMOD(ECCPT,MOD))

                   if MOD=""

                       QUIT

                   Begin DoDot:1

 +6                    WRITE !," Modifier: ",?22,"- ",MOD," ",$EXTRACT($PIECE(ECMOD(ECCPT,MOD),U),1,55)

                   End DoDot:1

 +7        WRITE !,"for this group of patients."

 +8        WRITE !!,"I will now enter these patient procedures in the file.  OK ?  YES//  "

           READ ECYN:DTIME

           IF '$TEST!(ECYN="^")

               SET ECOUT=1

               QUIT

 +9        SET ECYN=$EXTRACT(ECYN)

           if ECYN=""

               SET ECYN="Y"

 +10       IF "YyNn"'[ECYN

               WRITE !!,"Enter <RET> to create the entries in the file.  If you have made a mistake",!,"and do not wish to continue, enter NO.",!!,"Press <RET> to continue  "

               READ X:DTIME

               GOTO STUFF

 +11       IF "Nn"[ECYN

               DO NO

               IF "Yy"[ECYN

                   QUIT

 +12       WRITE !!,"I am now sending these procedures to background for filing."

 +13       KILL DIR

           WRITE !!

           SET DIR(0)="E"

           SET DIR("A")="Press <RET> to continue"

           DO ^DIR

           KILL DIR

 +14       SET ECA=ECDT_"^"_ECL_"^"_ECS_"^"_ECM_"^"_ECD_"^"_ECPCE

 +15       SET ECOUT=2

 +16       SET (ZTSAVE("ECPT*"),ZTSAVE("ECA"),ZTSAVE("ECEC*"),ZTSAVE("ECDUZ"),ZTSAVE("ECELPT*"),ZTSAVE("ECPRVARY*"))=""

 +17       SET ZTIO=""

           SET ZTDTH=$HOROLOG

           SET ZTDESC="BATCH ENTRY EVENT CAPTURE PROCEDURES"

           SET ZTRTN="CRAM^ECBEPF"

           DO ^%ZTLOAD

           DO HOME^%ZIS

           KILL ECEC

           QUIT

 +18       QUIT

NO        ; do not stuff

 +1        WRITE !!,"Are you sure that you want to quit without entering any of the procedures",!,"that you have created for the patients selected ?  NO//  "

           READ ECYN:DTIME

           IF '$TEST!(ECYN="^")

               SET ECOUT=1

               SET ECYN="Y"

               QUIT

 +2        SET ECYN=$EXTRACT(ECYN)

           if ECYN=""

               SET ECYN="N"

           IF "YyNn"'[ECYN

               WRITE !!,"If you do not want to enter the procedures selected, enter YES.  If the",!,"procedures selected should be entered for the patients chosen, enter <RET>."

               GOTO NO

 +3        QUIT

ECBEP2B.m