Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SCMCTPM

Package: Scheduling

Routine: SCMCTPM


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

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All