source: WorldVistAEHR/trunk/r/EVENT_CAPTURE-EC--ECT--ECX/ECBEP2B.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.7 KB
RevLine 
[613]1ECBEP2B ;BIR/MAM,JPW-Batch Entry by Procedure (cont'd) ;1 May 96
2 ;;2.0; EVENT CAPTURE ;**4,10,13,18,72**;8 May 96
3EN ;entry point
4 S CNT=0
5STUFF ; set up info to stuff
6 S ECDUZ=DUZ
7 W @IOF,!,"You have selected "_$S(ECCPT'="":ECPTCD_" ",1:"")_$E(ECPN,1,40)
8 W $S(SYN'["NOT DEFINED":" ["_SYN_"]",1:"")_" (#"_NATN_")"
9 ;- Display CPT procedure Modifiers
10 I ECCPT'="" N MOD S MOD="" F S MOD=$O(ECMOD(ECCPT,MOD)) Q:MOD="" D
11 . W !," Modifier: ",?22,"- ",MOD," ",$E($P(ECMOD(ECCPT,MOD),U),1,55)
12 W !,"for this group of patients."
13 W !!,"I will now enter these patient procedures in the file. OK ? YES// " R ECYN:DTIME I '$T!(ECYN="^") S ECOUT=1 Q
14 S ECYN=$E(ECYN) S:ECYN="" ECYN="Y"
15 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
16 I "Nn"[ECYN D NO I "Yy"[ECYN Q
17 W !!,"I am now sending these procedures to background for filing."
18 K DIR W !! S DIR(0)="E",DIR("A")="Press <RET> to continue" D ^DIR K DIR
19 S ECA=ECDT_"^"_ECL_"^"_ECS_"^"_ECM_"^"_ECD_"^"_ECPCE
20 S ECOUT=2
21 S (ZTSAVE("ECPT*"),ZTSAVE("ECA"),ZTSAVE("ECEC*"),ZTSAVE("ECDUZ"),ZTSAVE("ECELPT*"),ZTSAVE("ECPRVARY*"))=""
22 S ZTIO="",ZTDTH=$H,ZTDESC="BATCH ENTRY EVENT CAPTURE PROCEDURES",ZTRTN="CRAM^ECBEPF" D ^%ZTLOAD,HOME^%ZIS K ECEC Q
23 Q
24NO ; do not stuff
25 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
26 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
27 Q
Note: See TracBrowser for help on using the repository browser.