source: WorldVistAEHR/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVDDLF.m@ 632

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

initial load of WorldVistAEHR

File size: 842 bytes
Line 
1ABSVDDLF ;EAP ALTOONA EDIT LETTER FORMAT ; 26 Sep 2001 2:04 PM
2V ;;4.0;VOLUNTARY TIMEKEEPING;**25,26**;JULY 6, 1994
3 N DIC,DLAYGO,DR,DIE,ANS,%A,%,%B
4START S DIC="^ABS(503341," S DLAYGO=503341 S DIC(0)="AEMNZQL" D ^DIC G:Y<0 END
5EDIT S DIE=DIC,DA=+Y,DR="[ABSV DON LETTER FORMAT]" D ^DIE I $D(Y) G END
6 D YESNO I %=1 G START
7END ;;;;;;;;;;;;;;;
8 K DIC,DLAYGO,DIC(0),DR,DIE,%
9 Q
10YESNO ;;YES/NO PROCESSOR UTILITY
11 ;;OPTIONAL VARIABLE %A WHICH EQUALS QUESTION TEXT
12 ;;RETURNS % : 1=YES, 2=NO, 3=^, 4=ANYTHING ELSE ASK AGAIN.
13ASKIT S:'$D(%A) %A="Do you want to ENTER/EDIT another one"
14 S %B="Enter 'Yes' or 'No'. Enter '^' to Quit."
15 W !,%A_"? (Y/N) // " R ANS:$S($D(DTIME):DTIME,1:300) I (ANS["?")!(ANS="") W *7,!,%B G ASKIT
16 I ANS["^" S %=3 Q
17 S ANS=$E(ANS,1) S %=$S(ANS="Y":1,ANS="y":1,ANS="N":2,ANS="n":2,1:4) I ANS=4 G ASKIT
18 K ANS,%A,%B Q
Note: See TracBrowser for help on using the repository browser.