Routine: SCMCTPM

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

SCMCTPM ;ALB/REW - Patient Position Changes MailMessages ; 26 Mar 1996

Source Information

Source file <SCMCTPM.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Scheduling	3	$$PCMMXMY^SCAPMC25 $$PCMAIL^SCMCMM $$DDNAME^SCMCRU
VA Fileman	3	EN^DDIOL FIELD^DID $$EXTERNAL^DILFD
MailMan	1	^XMD
Registration	1	PID^VADPT6

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Scheduling	4	SCAPMC21 SCMCBK7 SCMCBK9 SCMCCV

Entry Points

Name	Comments	DBIA/ICR reference
QTTXT
QTMULT
END
TEXT(SCFILE,SCNODE,SCPC,SCSPACE,SCLAB)	;returns fldname & external value
DDNAME(FILE,FIELD)	;return the fieldname
BAD
NEW
MAIL	;Do Patient Team Changes MailMan Message ; - called by SCMC PT TEAM CHANGES MAIL MESSAGE protocol
SETLN(TEXT)	;
MAILLST(SCTP,SCFIELDA,SCDATE,SCNEWTP,SCOLDTP,SCBADTP)	; ; 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

Name	Field # of Occurrence
EN^DDIOL	MAILLST+27
FIELD^DID	DDNAME+2
$$EXTERNAL^DILFD	TEXT+18
$$PCMMXMY^SCAPMC25	MAIL+15, NEW+1, BAD+5
$$PCMAIL^SCMCMM	MAIL+39
$$DDNAME^SCMCRU	TEXT+15
PID^VADPT6	MAIL+17, NEW+2, BAD+7
^XMD	MAIL+41, BAD+16

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	MAILLST+33
^DPT - [#2]	MAIL+18, NEW+3, BAD+6
^SCPT(404.42 - [#404.42]	MAIL+13
^SCTM(404.51 - [#404.51]	MAILLST+30
^SCTM(404.57 - [#404.57]	MAILLST+25, MAILLST+29, MAILLST+30
^TMP("SCTP MAIL LST"	NEW+4, NEW+5, NEW+7, NEW+9, NEW+10, BAD+8, BAD+9, BAD+11, BAD+13, BAD+14 , QTMULT!
^TMP($J	END!, SETLN+4*, QTMULT+1!

Label References

Name	Line Occurrences
$$TEXT	MAIL+24, MAIL+29, MAIL+35, MAIL+37, MAILLST+39
END	MAIL+2, MAIL+15
QTMULT	MAILLST+9, MAILLST+10, MAILLST+11
QTTXT	TEXT+11
SETLN	MAIL+21, MAIL+22, MAIL+24, MAIL+26, MAIL+27, MAIL+29, MAIL+31, MAIL+32, MAIL+38, MAILLST+31 , MAILLST+32, MAILLST+34, MAILLST+35, MAILLST+39, MAILLST+40, MAILLST+41, NEW+10, BAD+1, BAD+2, BAD+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	MAIL+4~, MAIL+13, MAIL+15, MAIL+18, MAIL+39, MAILLST+13~, MAILLST+42, NEW, NEW+1, NEW+3 , NEW+4, NEW+5, NEW+8, NEW+9, NEW+10, BAD+3, BAD+4, BAD+5, BAD+6, BAD+8 , BAD+9, BAD+12, BAD+13*, BAD+14
>> DGQUIET	MAILLST+27
DT	MAIL+39, MAILLST+19, MAILLST+20
DUZ	MAIL+40, BAD+15
FIELD	DDNAME~, DDNAME+2
FILE	DDNAME~, DDNAME+2
SCB	MAILLST+13~, MAILLST+17, MAILLST+19, MAILLST+22
SCBADTP	MAILLST~, BAD, BAD+4
SCDATE	MAILLST~, MAILLST+22, MAILLST+23, MAILLST+33
SCDELTEM	MAILLST+13~, MAILLST+15*, QTMULT
SCDETAIL	MAILLST+13~, NEW+10, BAD+14
SCE	MAILLST+13~, MAILLST+18, MAILLST+20, MAILLST+23
SCFIELDA	MAILLST~, MAILLST+16, MAILLST+36
SCFIELDA(	MAILLST+17, MAILLST+18, MAILLST+37, MAILLST+38
SCFILE	TEXT~, TEXT+15, TEXT+18
SCFLD	MAIL+28, MAIL+33, TEXT+8~, TEXT+12, TEXT+15, TEXT+18, MAILLST+13~, MAILLST+37, MAILLST+38
SCINT	TEXT+8~, TEXT+10*, TEXT+11, TEXT+18
SCLAB	TEXT~, TEXT+14, TEXT+16, TEXT+17
SCLAB2	MAIL+34~, MAIL+36*, MAIL+37
SCLNCNT	MAIL+4~, MAIL+19, MAIL+39, SETLN+3, SETLN+4, MAILLST+26
SCNDX	MAILLST+13~, MAILLST+37*, MAILLST+38, MAILLST+39
SCNEWTP	MAILLST~, MAILLST+10, MAILLST+11, NEW
SCNODE	MAIL+4~, TEXT~, TEXT+10, MAILLST+13~, MAILLST+38*, MAILLST+39
>> SCNOMAIL	MAIL+2, MAILLST+9
SCOK	MAILLST+13~, MAILLST+28, NEW+1, BAD+5*
SCOLDTP	MAILLST~
SCPAD	MAIL+4~
SCPC	TEXT~, TEXT+10, TEXT+12
SCPTNM	MAIL+4~, MAIL+18, MAIL+19, MAILLST+13~, NEW+3, NEW+4, NEW+5, NEW+6, NEW+7, NEW+9 , BAD+6, BAD+8, BAD+9, BAD+10, BAD+11*, BAD+13
>> SCPTTPAF	MAIL+13, MAIL+24, MAIL+37
>> SCPTTPB4	MAIL+13, MAIL+29, MAIL+35
SCSPACE	MAIL+4~, MAIL+6, MAIL+24, MAIL+29, MAIL+31, MAIL+35, MAIL+37, MAIL+38, TEXT~, TEXT+16 , TEXT+17, MAILLST+13~, MAILLST+21, MAILLST+39
SCSTAT	MAIL+4~, MAIL+10, MAIL+11, MAIL+12*, MAIL+13, MAIL+19, MAIL+20, MAIL+25, MAIL+30
>> SCTMAF	MAIL+8
SCTMAR	MAIL+4~
SCTMAR(	MAIL+8, MAIL+9
>> SCTMB4	MAIL+9
SCTMNM	MAILLST+13~, MAILLST+30*, MAILLST+31
SCTP	MAILLST~, MAILLST+25, MAILLST+29, MAILLST+30, NEW+4, NEW+5, NEW+7, NEW+9, NEW+10, BAD+8 , BAD+9, BAD+11, BAD+13, BAD+14, QTMULT
>> SCTPAF	MAIL+10, MAIL+12
>> SCTPB4	MAIL+11, MAIL+12
SCTPDT	MAIL+4~, MAILLST+12~
SCTPDT("BEGIN"	MAILLST+22*
SCTPDT("END"	MAILLST+23*
SCTPDT("INCL"	MAILLST+24*
SCTPNM	MAILLST+13~, MAILLST+25, MAILLST+26, MAILLST+29, MAILLST+32
SCTPXM	MAIL+4~
SCX	MAIL+23, MAIL+24, MAIL+28, MAIL+29, MAIL+33, MAIL+35, MAIL+37, TEXT+8~, TEXT+9, TEXT+15* , TEXT+16, TEXT+17, TEXT+18*, QTTXT, DDNAME+1~
SCX("LABEL"	DDNAME+3
SCY	MAIL+4~, MAIL+34~, MAIL+35*, MAIL+36, MAIL+38
SCZ	MAIL+34~, MAIL+37*, MAIL+38
TEXT	SETLN~, SETLN+1, SETLN+4
U	MAIL+18, TEXT+10, MAILLST+25, MAILLST+29, MAILLST+30, MAILLST+38, NEW+3, BAD+6
VA	MAIL+3~, MAILLST+12~
VA("BID"	MAIL+19
VA("PID"	NEW+4, BAD+8
VAERR	MAIL+3~, MAILLST+12~
XMDUZ	MAIL+3~, MAIL+40, MAILLST+12~, BAD+15
XMSUB	MAIL+3~, MAIL+19, MAILLST+12~, MAILLST+26
XMTEXT	MAIL+3~, MAIL+19, MAILLST+12~, MAILLST+26
XMY	MAIL+3~, MAILLST+12~
XMZ	MAIL+3~, MAILLST+12~
Y	MAIL+3~, MAILLST+12~, MAILLST+33*, MAILLST+34
ZTQUEUED	MAIL+3~, MAIL+5, MAILLST+12~, MAILLST+14

Customize PDF page

Package: Scheduling

Routine: SCMCTPM

Call Graph Total: 8

Caller Graph Total: 4