RGMSCDAT ;CAIRO/DKM - Date range input;04-Sep-1998 11:26;DKM
;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
;=================================================================
; Prompt for date range (normal format)
NORMAL D NORMAL^RGUTDAT
Q
; Prompt for date range (inverse format)
INVRSE D INVRSE^RGUTDAT
Q
; Prompt for starting date
D1(RGOPT) ;
D D1^RGUTDAT(.RGOPT)
Q
; Prompt for ending date
D2(RGOPT) ;
D D2^RGUTDAT(.RGOPT)
Q
; Prompt for a date
ENTRY(%RGP,%RGOPT,%RGDAT,%RGX,%RGY,%RGTRP,%RGHLP) ;
Q $$ENTRY^RGUTDAT(.%RGP,.%RGOPT,.%RGDAT,.%RGX,.%RGY,.%RGTRP,.%RGHLP)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGMSCDAT 595 printed Dec 13, 2024@01:42:06 Page 2
RGMSCDAT ;CAIRO/DKM - Date range input;04-Sep-1998 11:26;DKM
+1 ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
+2 ;=================================================================
+3 ; Prompt for date range (normal format)
NORMAL DO NORMAL^RGUTDAT
+1 QUIT
+2 ; Prompt for date range (inverse format)
INVRSE DO INVRSE^RGUTDAT
+1 QUIT
+2 ; Prompt for starting date
D1(RGOPT) ;
+1 DO D1^RGUTDAT(.RGOPT)
+2 QUIT
+3 ; Prompt for ending date
D2(RGOPT) ;
+1 DO D2^RGUTDAT(.RGOPT)
+2 QUIT
+3 ; Prompt for a date
ENTRY(%RGP,%RGOPT,%RGDAT,%RGX,%RGY,%RGTRP,%RGHLP) ;
+1 QUIT $$ENTRY^RGUTDAT(.%RGP,.%RGOPT,.%RGDAT,.%RGX,.%RGY,.%RGTRP,.%RGHLP)
