RGMSCDAT.m

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 ---RGMSCDAT   595     printed  Apr 09, 2024@20:48:18                                                                                                                                                                                                     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)