source: FOIAVistA/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGUTDAT.m@ 1765

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

initial load of FOIAVistA 6/30/08 version

File size: 2.9 KB
Line 
1RGUTDAT ;CAIRO/DKM - Date range input;12-Oct-1998 12:01;DKM
2 ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
3 ;=================================================================
4 ; Prompt for date range (normal format)
5NORMAL D D1("P1"),D2("P2")
6 Q
7 ; Prompt for date range (inverse format)
8INVRSE D D1("PI1"),D2("PI2")
9 Q
10 ; Prompt for starting date
11D1(RGOPT) ;
12 S RGDAT1=$$ENTRY("Start date: ",.RGOPT,"",0,$Y)
13 Q
14 ; Prompt for ending date
15D2(RGOPT) ;
16 S RGDAT2=$$ENTRY("End date : ",.RGOPT,"",0,$Y+1)
17 Q
18 ; Prompt for a date
19ENTRY(%RGP,%RGOPT,%RGDAT,%RGX,%RGY,%RGTRP,%RGHLP) ;
20 N %RGD,%RGI,%RGDT,%RGZ,%RGDISV
21 S %RGX=$G(%RGX,$X),%RGY=$G(%RGY,$Y),DUZ=+$G(DUZ),IO=$G(IO,$I),DTIME=$G(DTIME,999999999),%RGOPT=$$UP^XLFSTR($G(%RGOPT)),%RGDISV=""
22 S %RGTRP=$G(%RGTRP),%RGDAT=$G(%RGDAT)
23 S:$G(%RGHLP)="" %RGHLP="HELP^RGUTDAT"
24 S:$G(%RGP)="" %RGP="Enter date: "
25 F %RGZ=0:1:9 I %RGOPT[%RGZ S %RGDISV="RGDAT"_%RGZ Q
26 U IO
27DAT1 S %RGDT="",@$$TRAP^RGZOSF("DAT1^RGUTDAT")
28 F %RGZ="P","T","F","X" S:%RGOPT[%RGZ %RGDT=%RGDT_%RGZ
29 F D Q:$D(%RGI)
30 .W $$XY^RGUT(%RGX,%RGY)_%RGP,*27,"[J"
31 .S $X=%RGX+$L(%RGP)
32 .I %RGOPT["E" S %RGI=$$ENTRY^RGUTEDT(%RGDAT,79-$X,$X,$Y,"","R")
33 .E I %RGDAT'="" S %RGI=%RGDAT,%RGDAT=""
34 .E R %RGI:DTIME
35 .I $E(%RGI)="?" D Q
36 ..W !
37 ..I %RGI["??" D HELP
38 ..E D @%RGHLP
39 ..D PAUSE()
40 ..K %RGI
41 .I %RGI=" " S %RGI=$S(%RGDISV="":"",1:$G(^DISV(DUZ,%RGDISV))) K:%RGI="" RGZ1
42 .W $$XY^RGUT(%RGX+$L(%RGP),%RGY),*27,"[K"
43 I %RGI="",%RGTRP'="" S %RGI=$G(@%RGTRP@(" "))
44 S %RGI=$$UP^XLFSTR(%RGI),%RGD=""
45 Q:"^^"[%RGI -$L(%RGI)
46 I %RGTRP'="" D I %RGD'="" S %RGOPT=$TR(%RGOPT,"I") G DAT2
47 .I $D(@%RGTRP@(%RGI)) S %RGD=@%RGTRP@(%RGI)
48 .E D
49 ..N X
50 ..S X=%RGI,%RGZ=""
51 ..F S %RGZ=$O(@%RGTRP@("?",%RGZ)) Q:%RGZ="" I %RGI?@%RGZ D Q
52 ...S %RGD=$$MSG^RGUT($G(@%RGTRP@("?",%RGZ)))
53 S %RGI=$$%DT^RGUT(%RGI,%RGDT)
54 G:%RGI=-1 DAT1
55 I %RGOPT["+",%RGI<$S(%RGI=%RGI\1:$$DT^XLFDT,1:$$NOW^XLFDT) D G DAT1
56 .D PAUSE("Must be on or after current date.")
57 I %RGOPT["-",%RGI>$S(%RGI=%RGI\1:$$DT^XLFDT,1:$$NOW^XLFDT) D G DAT1
58 .D PAUSE("Must be on or before current date.")
59 S %RGD=$$^RGCVTDT(%RGI)
60DAT2 W %RGD
61 S:%RGDISV'="" ^DISV(DUZ,%RGDISV)=%RGI
62 Q $S(%RGOPT["I":9999999-%RGI,1:%RGI)
63HELP W ?2,"Enter a valid ",$S(%RGOPT["+":"future ",%RGOPT["-":"past ",1:""),"date using one of the following formats:",!!
64 W ?5,"Format",?20,"Example",?35,"Explanation",?60,"Comments",!
65 W ?5,"------",?20,"-------",?35,"-----------",?60,"--------",!
66 W ?5,"mm/dd/yy",?20,"6/20/93",?35,"June 20, 1993",?60,"If you omit the",!
67 W ?5,"dd-mmm-yy",?20,"27-JUL-58",?35,"July 27, 1958",?60,"year, the "_$S(%RGOPT["P":"most",%RGOPT["F":"closest",1:"current"),!
68 W ?5,"mmddyy",?20,"070457",?35,"July 4, 1957",?60,$S(%RGOPT["P":"recent past date",%RGOPT["F":"future date",1:"calendar year"),!
69 W ?5,"mmm dd yyyy",?20,"JAN 5, 1984",?35,"January 5, 1984",?60,"is assumed.",!
70 W ?5,"T-n",?20,"T-5",?35,"Today's date - 5 days.",!!
71 Q
72PAUSE(%RGZ) ;
73 W $$XY^RGUT(0,22),$G(%RGZ)
74 I $$PAUSE^RGUT
75 Q
Note: See TracBrowser for help on using the repository browser.