Routine: SCMCBK7

Package	Total	Call Graph
Scheduling	2	($$TEXT,SETLN)^SCMCTMM SETLN^SCMCTPM
Kernel	1	$$FMTE^XLFDT
MailMan	1	^XMD
Registration	1	PID^VADPT6

Package	Total	Caller Graph
Scheduling	2	SCMCBK5 SCMCBK9

Entry Points

Name	Comments	DBIA/ICR reference
MAILLST(SCTM,SCFIELDA,SCDATE,SCNEWTM,SCOLDTM,SCBADTM,SCTOTCNT)	; ; ;like MAILLIST^SCMCTMM(... ; Input: ; SCTM - Pointer to Team File (#404.51) ; SCFIELDA - Field array with internal values ; SCDATE - Effective Date ; SCNEWTM - DFN array of newly assigned to team ; SCOLDTM - DFN array of previously assigned to team ; SCBADTM - DFN array of patients unassignable to team ; SCTOTCNT - Count of DFN array passed to process
NEW
BAD
OLD
MAIL
QTMULT
PREP1
SETLN(TEXT)	;
SEND(SCX)	;input SCX=points to string to use as sender
BLDLST(SCL)	;create text by new/bad/old
DTLLST	;detail the list
SETLST(SCX)	;set the list into message
RJD	;ReJect Detail
O(SCL)	;returns next patient in array
S(SCL)	;returns line of text
T	;;
1	;;There has been a new team assignment for the following patients:
2	;;There has been NO new team assignment for the following patients:
3	;;The following patients were already assigned to the target team:
4	;;Multiple PATIENT-TEAM ASSIGNMENT for ;;
5	;;Team: ;;
6	;;Effective Date: ;;
7	;;Processed: ;;
8	;;PCMM - Multiple Patient-Team Assignment
9	;;PCMM - Multiple Patient-Position Assignment

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DTLLST+1
^SCTM(404.51 - [#404.51]	MAILLST+16, MAILLST+20
^TMP("SCTM MAIL LST"	QTMULT!
^TMP($J	QTMULT+1!

Name	Line Occurrences
$$O	BLDLST+7
$$S	MAILLST+17, MAILLST+21, MAILLST+22, MAILLST+23, SEND+3, BLDLST+4
BLDLST	NEW, BAD, OLD
DTLLST	BLDLST+7
MAIL	MAILLST+31
PREP1	MAILLST+15
RJD	DTLLST+4
SEND	MAIL
SETLN	MAILLST+21, MAILLST+22, MAILLST+23, MAILLST+24, MAILLST+29, BLDLST+3, BLDLST+4, SETLST+7
SETLST	BLDLST+8

Name	Field # of Occurrence
DFN	MAILLST+12~, BLDLST+6, BLDLST+7, DTLLST+1, DTLLST+5, DTLLST+6, SETLST+4, SETLST+5, SETLST+6, RJD+3 , RJD+4, O+1
SCB	MAILLST+13~
SCBADTM	MAILLST~, BAD, RJD+3, O+1
>> SCBADTP	RJD+4
SCDATE	MAILLST~, MAILLST+22
SCDELTEM	MAILLST+13~, QTMULT, PREP1+1*
SCDETAIL	MAILLST+13~, DTLLST+3, DTLLST+5, SETLST+6, SETLST+7, SETLST+8, RJD+5*
SCE	MAILLST+13~
SCFIELDA	MAILLST~, MAILLST+26
SCFIELDA(	MAILLST+27, MAILLST+28
SCFLD	MAILLST+12~, MAILLST+27*, MAILLST+28
SCJ	MAILLST+13~, BLDLST+2~, BLDLST+5*, DTLLST+5, DTLLST+6, SETLST+3, SETLST+5, SETLST+6
SCL	MAILLST+13~, BLDLST~, BLDLST+4, BLDLST+5, BLDLST+7, DTLLST+4, O~, O+1, S~
>> SCLNCNT	PREP1+3*
>> SCMAIL1	SEND+2
SCNDX	MAILLST+12~, MAILLST+27*, MAILLST+28, MAILLST+29
SCNEWTM	MAILLST~, NEW, O+1
SCNODE	MAILLST+12~, MAILLST+28*, MAILLST+29
SCOK	MAILLST+12~, PREP1+4*
SCOLDTM	MAILLST~, OLD, O+1
SCPTNM	MAILLST+12~, DTLLST+1, DTLLST+3, DTLLST+6, SETLST+2, SETLST+3*, SETLST+5
SCSPACE	MAILLST+12~, MAILLST+29, PREP1+2*
SCTM	MAILLST~, MAILLST+16, MAILLST+20, QTMULT, BLDLST+5
SCTMNM	MAILLST+12~, MAILLST+16, MAILLST+17, MAILLST+20, MAILLST+21
SCTOTCNT	MAILLST~, MAILLST+23, MAILLST+31
SCX	SEND~, SEND+3, SETLST~, SETLST+7, RJD+2~, RJD+3, RJD+4, RJD+5
TEXT	SETLN~, SETLN+1
U	MAILLST+16, MAILLST+20, MAILLST+28, DTLLST+1, RJD+3, RJD+4
VA	MAILLST+11~
VA("PID"	DTLLST+3
VAERR	MAILLST+11~
XMDUZ	MAILLST+11~, SEND+3*
XMSUB	MAILLST+11~, MAILLST+17*
XMTEXT	MAILLST+11~, MAILLST+18*
XMY	MAILLST+11~
XMY(	SEND+2*
XMZ	MAILLST+11~
Y	MAILLST+11~
ZTQUEUED	MAILLST+11~, PREP1*

Name	Field # of Occurrence
$T(T+SCL	S+1