- ECBEN2B ;BIR/MAM,JPW-New Batch Entry (cont'd.) ;1 May 96
- ;;2.0; EVENT CAPTURE ;**4,5,10,13,72**;8 May 96
- EN ;entry point
- S CNT=0
- STUFF ; set up info to stuff
- S ECDUZ=DUZ
- W @IOF,!,"You have completed "_COUNT_" procedure"_$S(COUNT=1:"",1:"s")_" for the patients selected.",!!,"I will now enter these 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 S ECOUT=1 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^ECBENF" 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[HECBEN2B 1537 printed Feb 18, 2025@23:23:16 Page 2
- ECBEN2B ;BIR/MAM,JPW-New Batch Entry (cont'd.) ;1 May 96
- +1 ;;2.0; EVENT CAPTURE ;**4,5,10,13,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 completed "_COUNT_" procedure"_$SELECT(COUNT=1:"",1:"s")_" for the patients selected.",!!,"I will now enter these procedures in the file. OK ? YES// "
- READ ECYN:DTIME
- IF '$TEST!(ECYN="^")
- SET ECOUT=1
- QUIT
- +3 SET ECYN=$EXTRACT(ECYN)
- if ECYN=""
- SET ECYN="Y"
- +4 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
- +5 IF "Nn"[ECYN
- DO NO
- IF "Yy"[ECYN
- SET ECOUT=1
- QUIT
- +6 WRITE !!,"I am now sending these procedures to background for filing."
- +7 KILL DIR
- WRITE !!
- SET DIR(0)="E"
- SET DIR("A")="Press <RET> to continue"
- DO ^DIR
- KILL DIR
- +8 SET ECA=ECDT_"^"_ECL_"^"_ECS_"^"_ECM_"^"_ECD_"^"_ECPCE
- +9 SET ECOUT=2
- +10 SET (ZTSAVE("ECPT*"),ZTSAVE("ECA"),ZTSAVE("ECEC*"),ZTSAVE("ECDUZ"),ZTSAVE("ECELPT*"),ZTSAVE("ECPRVARY*"))=""
- +11 SET ZTIO=""
- SET ZTDTH=$HOROLOG
- SET ZTDESC="BATCH ENTRY EVENT CAPTURE PROCEDURES"
- SET ZTRTN="CRAM^ECBENF"
- DO ^%ZTLOAD
- DO HOME^%ZIS
- KILL ECEC
- QUIT
- +12 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