source: FOIAVistA/trunk/r/OCCURRENCE_SCREEN-QAO/QAOSENT1.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1QAOSENT1 ;HISC/DAD-ENTER EDIT AN OCCURRENCE (Cont.) ;2/4/93 08:01
2 ;;3.0;Occurrence Screen;;09/14/1993
3 S QAOSQUIT=""
4 F QAOSD0=0:0 S QAOSD0=$O(^QA(741,"AA",QASCRN,QADATE,QANAME,QAOSD0)) Q:QAOSD0'>0 S LOC=$S($D(^QA(741,QAOSD0,0))#2:$P(^(0),"^",11)+1\3+1,1:0) S:LOC $P(QAOSQUIT,"^",LOC)=1
5 I QAOSQUIT="" S QAOSQUIT=0 G EXIT
6 I +QAOSQUIT D G EXIT
7 . W !!?5,"*** THIS OCCURRENCE HAS ALREADY BEEN ENTERED ***",*7
8 . W !!?5,"To create another similar occurrence screen record for this"
9 . W !?5,"patient, enter a UNIQUE DATE AND TIME for the occurrence.",!
10 . S QAOSQUIT=1
11 . Q
12 W !!?5,"*** A SIMILAR 'DELETED' OCCURRENCE HAS BEEN FOUND ***",*7,!
13ASK ;
14 W !?5,"Do you want to continue"
15 S %=2 D YN^DICN S QAOSQUIT=$S(%=2:1,%=-1:1,1:0) G:QAOSQUIT EXIT
16 I '% D G ASK
17 . W !!?5,"Please answer Y(es) or N(o)"
18 . W !!,"Answering Y(es) will add a new record to the file."
19 . W !,"Answering N(o) will abort the entry process and allow you to enter"
20 . W !,"a different new record, or you may use the 'Reopen Closed/Deleted"
21 . W !,"Occurrence Screen Record' option to work with the old record.",!
22 . Q
23EXIT ;
24 K %,QAOSD0
25 Q
Note: See TracBrowser for help on using the repository browser.