DGHELP1.m

DGHELP1 ; IHS/DSD/ENM - ADMISSION HELP RTN [ 03/29/1999  9:07 AM ]

 ;;5.3;Registration;**1015**;MAR 25, 1999;Build 21

 W !,"Enter a 'Admission Date/Time' using the correct format!!",!

 Q

DEL ;EP

 W !,"OK"

 Q

DGHELP1   ; IHS/DSD/ENM - ADMISSION HELP RTN [ 03/29/1999  9:07 AM ]

 +1       ;;5.3;Registration;**1015**;MAR 25, 1999;Build 21

 +2        WRITE !,"Enter a 'Admission Date/Time' using the correct format!!",!

 +3        QUIT 

DEL       ;EP

 +1        WRITE !,"OK"

 +2        QUIT