Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ECBEN2B

ECBEN2B.m

Go to the documentation of this file.
  1. 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
  1. EN ;entry point
  1. S CNT=0
  1. STUFF ; set up info to stuff
  1. S ECDUZ=DUZ
  1. 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
  1. S ECYN=$E(ECYN) S:ECYN="" ECYN="Y"
  1. 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
  1. I "Nn"[ECYN D NO I "Yy"[ECYN S ECOUT=1 Q
  1. W !!,"I am now sending these procedures to background for filing."
  1. K DIR W !! S DIR(0)="E",DIR("A")="Press <RET> to continue" D ^DIR K DIR
  1. S ECA=ECDT_"^"_ECL_"^"_ECS_"^"_ECM_"^"_ECD_"^"_ECPCE
  1. S ECOUT=2
  1. S (ZTSAVE("ECPT*"),ZTSAVE("ECA"),ZTSAVE("ECEC*"),ZTSAVE("ECDUZ"),ZTSAVE("ECELPT*"),ZTSAVE("ECPRVARY*"))=""
  1. S ZTIO="",ZTDTH=$H,ZTDESC="BATCH ENTRY EVENT CAPTURE PROCEDURES",ZTRTN="CRAM^ECBENF" D ^%ZTLOAD,HOME^%ZIS K ECEC Q
  1. Q
  1. NO ; do not stuff
  1. 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
  1. 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
  1. Q