Routine: SCMCBK4

Information

SCMCBK4 ;bp/cmf - multiple patient assignments mail queue - RPCVersion = 1; AUG 5, 1998

Source file <SCMCBK4.m>

Name	Comments	DBIA/ICR reference
QUEUED(SCX)	;if XWBAPVER=1 ; ;SCX=1: called from ptfile^scmcbk ; ;SCX=2: called from posfile^scmcbk
QMPTTM	; process patient team assignments
FILEQ
QMPTPO	;process patient position assignments
SETUP
CLEANUP	;;;K ^TMP(SCJOB,"SC PATIENT LIST")
S(SCX)	;return text string
T	;;