source: FOIAVistA/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGMSCDAT.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: 575 bytes
Line 
1RGMSCDAT ;CAIRO/DKM - Date range input;04-Sep-1998 11:26;DKM
2 ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
3 ;=================================================================
4 ; Prompt for date range (normal format)
5NORMAL D NORMAL^RGUTDAT
6 Q
7 ; Prompt for date range (inverse format)
8INVRSE D INVRSE^RGUTDAT
9 Q
10 ; Prompt for starting date
11D1(RGOPT) ;
12 D D1^RGUTDAT(.RGOPT)
13 Q
14 ; Prompt for ending date
15D2(RGOPT) ;
16 D D2^RGUTDAT(.RGOPT)
17 Q
18 ; Prompt for a date
19ENTRY(%RGP,%RGOPT,%RGDAT,%RGX,%RGY,%RGTRP,%RGHLP) ;
20 Q $$ENTRY^RGUTDAT(.%RGP,.%RGOPT,.%RGDAT,.%RGX,.%RGY,.%RGTRP,.%RGHLP)
Note: See TracBrowser for help on using the repository browser.