NAMESC MAKE CONSULT APPOINTMENT
DESCRIPTIONAllows user to make a consult appointment for a specific time fora patient in a clinic. This is a clone of the 'Make Appointment'option except that it allows users to make appointments for patientswho are not enrolled in a clinic and who are designated as 'RestrictedConsults' through certain patient-team assignments.
CREATORUSER,ONE
E ACTION PRESENTYES
ENTRY ACTIONS SCOKCONS=1 K ORACTION,ORVP,XQORQUIT D HDLKILL^SDAMEVT
EXIT ACTIONK SCOKCONS D SDM^SDKILL K ORACTION,ORVP,XQORQUIT D HDLKILL^SDAMEVT
LOCKSC CONSULT
MENU TEXTMake Consult Appointment
PACKAGESCHEDULING
ROUTINESDM
TYPErun routine
UPPERCASE MENU TEXTMAKE CONSULT APPOINTMENT
X ACTION PRESENTYES