NAMESRCODING EDIT
DESCRIPTIONThis option is used to enter/edit the final CPT and ICD codes for anoperation or non-OR procedure.
CREATORUSER,SEVENTEEN
DELEGABLEYES
E ACTION PRESENTYES
ENTRY ACTIOND ^SROVAR Q:$D(XQUIT) S:$D(SRTN) SRTNK=SRTN D:'$D(SRTN) ^SROPS1 S:'$D(SRTN) XQUIT="" Q:$D(XQUIT)
EXIT ACTIONK:'$D(SRTNK) SRTN K SRTNK D EXIT^SROVAR
MENU TEXTUpdate/Verify Procedure/Diagnosis Codes
PACKAGESURGERY
ROUTINESROCD
TYPErun routine
UPPERCASE MENU TEXTUPDATE/VERIFY PROCEDURE/DIAGNO
X ACTION PRESENTYES
XQUIT EXECUTABLEQ