AGNAMOPT.m

AGNAMOPT ; IHS/SD/EFG - ROUTINES FOR MENU OPTION NAM ;  

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 ;

 ;THIS ROUTINE WAS CREATED TO CLEAN UP THE NAM MENU OPTION

 ;AND TO ALLOW FOR POSSIBLE LOGIC FLOW CHANGES

 Q

EN ;EP

 D HDR^AG

 D NAME^AGMAN

 Q:'$D(AG("NEWNAME"))

 D DFN^AGFACE

 D DFN^AGNDX1

 D DFN^AGCARD

 Q

AGNAMOPT  ; IHS/SD/EFG - ROUTINES FOR MENU OPTION NAM ;  

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2       ;

 +3       ;THIS ROUTINE WAS CREATED TO CLEAN UP THE NAM MENU OPTION

 +4       ;AND TO ALLOW FOR POSSIBLE LOGIC FLOW CHANGES

 +5        QUIT 

EN        ;EP

 +1        DO HDR^AG

 +2        DO NAME^AGMAN

 +3        IF '$DATA(AG("NEWNAME"))

               QUIT 

 +4        DO DFN^AGFACE

 +5        DO DFN^AGNDX1

 +6        DO DFN^AGCARD

 +7        QUIT