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
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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECBEP2B 1797 printed Nov 22, 2024@17:07:08 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
