Routine: SCMCTPM

Information

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

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

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
Scheduling	5	SCAPMC21 SCMC PT POSITION CHANGE MAIL MESSAGE SCMCBK7 SCMCBK9 SCMCCV
Kernel	1	^ORD(101

Entry Points

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

External References

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