Routine: SCMCBK9

Information

SCMCBK9 ;bp/cmf - multiple patient assignments mail queue - RPCVersion = 1;;Aug 7, 1998

Source file <SCMCBK9.m>

Package	Total	Call Graph
Scheduling	2	(DTLLST,PREP1,SEND,SETLST)^SCMCBK7 ($$TEXT,SETLN)^SCMCTPM
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Scheduling	1	SCMCBK8

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

Name	Line Occurrences
$$O	BLDLST+7
$$S	MAILLST+18, MAILLST+22, MAILLST+23, MAILLST+24, MAILLST+25, BLDLST+4
BLDLST	NEW, BAD, OLD
MAIL	MAILLST+33
SETLN	MAILLST+22, MAILLST+23, MAILLST+24, MAILLST+25, MAILLST+26, MAILLST+31, BLDLST+3, BLDLST+4

Name	Field # of Occurrence
DFN	MAILLST+12~, BLDLST+6, BLDLST+7, O+1
SCB	MAILLST+13~
SCBADTP	MAILLST~, BAD, O+1
SCDATE	MAILLST~, MAILLST+24
SCDELTEM	MAILLST+13~, QTMULT
SCDETAIL	MAILLST+13~
SCE	MAILLST+13~
SCFIELDA	MAILLST~, MAILLST+28
SCFIELDA(	MAILLST+29, MAILLST+30
SCFLD	MAILLST+12~, MAILLST+29*, MAILLST+30
SCJ	MAILLST+13~, BLDLST+2~, BLDLST+5*
SCL	MAILLST+13~, BLDLST~, BLDLST+4, BLDLST+5, BLDLST+7, O~, O+1, S~
SCNDX	MAILLST+12~, MAILLST+29*, MAILLST+30, MAILLST+31
SCNEWTP	MAILLST~, NEW, O+1
SCNODE	MAILLST+12~, MAILLST+30*, MAILLST+31
SCOK	MAILLST+12~
SCOLDTP	MAILLST~, OLD, O+1
SCPTNM	MAILLST+12~
SCSPACE	MAILLST+12~, MAILLST+31
SCTMNM	MAILLST+13~, MAILLST+20*, MAILLST+22
SCTOTCNT	MAILLST~, MAILLST+25, MAILLST+33
SCTP	MAILLST~, MAILLST+17, MAILLST+20, QTMULT, BLDLST+5
SCTPDT	MAILLST+11~
SCTPNM	MAILLST+12~, MAILLST+17*, MAILLST+18, MAILLST+23
TEXT	SETLN~, SETLN+1
U	MAILLST+17, MAILLST+20, MAILLST+30
VA	MAILLST+11~
VAERR	MAILLST+11~
XMDUZ	MAILLST+11~
XMSUB	MAILLST+11~, MAILLST+18*
XMTEXT	MAILLST+11~, MAILLST+19*
XMY	MAILLST+11~
XMZ	MAILLST+11~
Y	MAILLST+11~
ZTQUEUED	MAILLST+11~

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

Name	Comments	DBIA/ICR reference
S(SCL)	;return text string
QTMULT
OLD
BAD
MAILLST(SCTP,SCFIELDA,SCDATE,SCNEWTP,SCOLDTP,SCBADTP,SCTOTCNT)	; ; ;like MAILLIST^SCMCTPM(... ; Input: ; SCTP - Pointer to Team Position File (#404.57) ; SCFIELDA - Field array with internal values ; SCDATE - Effective Date ; SCNEWTP - DFN array of newly assigned to position ; SCOLDTP - DFN array of previously assigned to position ; SCBADTP - DFN array of patients unassignable to position ; SCTOTCNT - Count of DFN array passed to process
O(SCL)	;returns next patient in array
BLDLST(SCL)
MAIL
NEW
SETLN(TEXT)	;
T	;;