NAMESROMEN-REFER
DESCRIPTIONThis option is used to enter the name, phone number and addressof the referring physician or institution.
CREATORPOSTMASTER
E ACTION PRESENTYES
ENTRY ACTIOND ^SROVAR I '$D(SRTN) D ^SROPS S:'$D(SRTN) XQUIT="" Q:$D(XQUIT)
EXIT ACTIOND EXIT^SROVAR
LOCKSROEDIT
MENU TEXTEnter Referring Physician Information
ROUTINEREF^SROMENU
TYPErun routine
UPPERCASE MENU TEXTENTER REFERRING PHYSICIAN INFO
X ACTION PRESENTYES
XQUIT EXECUTABLEQ