Routine: SCMCMU11

Name	Comments	DBIA/ICR reference
PTTP(SCPOS,SCDATE,SCPTTP)	; -- create list of pats assigned to position sort by dfn, position
UNQ
PTTPLSTQ
QUIT	; -- quit logic ; protocol: SCMC MU QUIT
CLINICQ
SET(X)	; -- set DIR text
CLINIC	; -- display clinic to be discharged from
UNASSIGN	; -- unassign selected ; protocol: SCMC MU UNASSIGN PATIENTS
PTTPQ
PTTPLST(SCTEAM,SCDATE,SCPTTP)	; -- create list of patients assigned to team positions ; -- sort list by dfn and position ien

Name	Field # of Occurrence
^DIR	UNASSIGN+23, QUIT+11
$$PTTP^SCAPMC	PTTP+5
$$TPTM^SCAPMC24	PTTPLST+10
BACK^SCMCMU1	UNASSIGN+6, UNASSIGN+28, UNASSIGN+34, QUIT+12
DATE^SCMCMU1	PTTPLST+5, PTTP+2
PAUSE^SCMCMU1	UNASSIGN+5, UNASSIGN+31
$$QUE^SCMCMU2	UNASSIGN+26
$$SETSTR^VALM1	CLINIC+7, CLINIC+8, CLINIC+9, CLINIC+12, CLINIC+13, CLINIC+20, CLINIC+21
FULL^VALM1	UNASSIGN+9
$$FMTE^XLFDT	UNASSIGN+17

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No patients have been selected.",! Line Location: UNASSIGN+4
Function Call: WRITE	Prompt: @IOF Line Location: UNASSIGN+10
Function Call: WRITE	Prompt: !!,"Task#: ",SCTSK,! Line Location: UNASSIGN+30
Function Call: WRITE	Prompt: ! Line Location: QUIT+5
Routine Call	DIR Line Location: UNASSIGN+23 QUIT+11

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	CLINIC+21
^SCTM(404.51 - [#404.51]	UNASSIGN+15
^SCTM(404.57 - [#404.57]	UNASSIGN+16, CLINIC+18
^TMP("SCMU"	PTTPLST+6, PTTP+3

Name	Line Occurrences
CLINIC	UNASSIGN+19
CLINICQ	CLINIC+3
PTTP	PTTPLST+15
PTTPLSTQ	PTTPLST+10
PTTPQ	PTTP+5
SET	UNASSIGN+12, UNASSIGN+13, UNASSIGN+14, UNASSIGN+15, UNASSIGN+16, UNASSIGN+17, UNASSIGN+18, UNASSIGN+20, CLINIC+2, CLINIC+4 , CLINIC+10, CLINIC+14, CLINIC+22
UNQ	UNASSIGN+3

Name	Field # of Occurrence
DIR	UNASSIGN+2~, UNASSIGN+25~, QUIT+2~
DIR("A"	UNASSIGN+21, SET+1, QUIT+7, QUIT+8, QUIT+9*
DIR("B"	UNASSIGN+22, QUIT+10
DIR(0	UNASSIGN+11, QUIT+6
IOF	UNASSIGN+10
SCDATE	PTTPLST~, PTTPLST+5, PTTPLST+15, PTTP~, PTTP+2, UNASSIGN+17
SCDTE	PTTPLST+2~, PTTPLST+5, PTTPLST+10, PTTP+1~, PTTP+2, PTTP+5
>> SCMUTYPE	UNASSIGN+13, UNASSIGN+16
>> SCOK	PTTP+5*
SCPAT	PTTP+1~, PTTP+6, PTTP+7, PTTP+8
SCPATS	PTTP+1~, PTTP+3*, PTTP+4, PTTP+5, PTTP+7, PTTP+8, PTTPQ
SCPATX	PTTP+1~, PTTP+8*, PTTP+10
SCPOS	PTTPLST+2~, PTTPLST+6, PTTPLST+9, PTTPLST+10, PTTPLST+12, PTTPLST+13, PTTPLSTQ, PTTP~, PTTP+5, PTTP+10 , UNASSIGN+16, CLINIC+1~, CLINIC+16, CLINIC+17*, CLINIC+18
SCPR	PTTPLST+2~, PTTPLST+11, PTTPLST+12, PTTPLST+13
SCPRX	PTTPLST+2~, PTTPLST+13*, PTTPLST+15
SCPTTP	PTTPLST~, PTTPLST+15, PTTP~, PTTP+10
>> SCSELCNT	UNASSIGN+3, UNASSIGN+18, QUIT+4, QUIT+7
SCTEAM	PTTPLST~, PTTPLST+10, UNASSIGN+15
>> SCTPDIS(	CLINIC+17
>> SCTPDIS(0	CLINIC+3
SCTSK	UNASSIGN+25~, UNASSIGN+26*, UNASSIGN+27, UNASSIGN+30
SCX	CLINIC+1~, CLINIC+18*, CLINIC+20, CLINIC+21
U	UNASSIGN+15, UNASSIGN+16, CLINIC+20, CLINIC+21
X	SET~, SET+1
Y	PTTPLST+10, UNASSIGN+2~, UNASSIGN+24, CLINIC+1~, CLINIC+6, CLINIC+7, CLINIC+8, CLINIC+9, CLINIC+10, CLINIC+11 , CLINIC+12, CLINIC+13, CLINIC+14, CLINIC+19, CLINIC+20, CLINIC+21, CLINIC+22, QUIT+2~, QUIT+3, QUIT+12

Information