Routine: SCMCCV4

Package	Total	Call Graph
Kernel	4	^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$LJ^XLFSTR KILL^XUSCLEAN
Scheduling	3	$$PRTP^SCAPMC8 $$DTU^SCMCCV3 $$TEAM^SCMCMU
VA Fileman	3	EN^DDIOL $$FMTE^DILIBF ^DIR
MailMan	1	^XMD
Registration	1	DEM^VADPT

Entry Points

Name	Comments	DBIA/ICR reference
SCPTLP	; Process the ^SCPT(404.43) global to gather reportable data. ; -------------------------------------------------------------------
RUNIT	; Module to gather the data and print the report. ; -------------------------------------------------------------------
PRTTMHDR	; Print the Team Sub-heading. ; -------------------------------------------------------------------
ASKTEAM()	; Prompt for "A"ll or "S"elected Teams. ; ------------------------------------------------------------------- ; Sets up the SCMCTM and SCTMNAM arrays. ; Returns a "1" to STOP, or a "0" to CONTINUE.
MAINQ	; Main module to drive this routine ; -------------------------------------------------------------------
PRTPHHDR	; Print the Physician Sub-heading. ; -------------------------------------------------------------------
TYPE()	; Ask the user to enter "A"ll or "S"elected teams. ; ------------------------------------------------------------------- ; "A" means All Teams. ; "S" means Select Teams. ; Returns a "0" to quit or a "1" to continue.
MAILIT	; Queue the report as a MailMan Message. ; -------------------------------------------------------------------
LJ(STRING,LENGTH)
EXIT	; Clean up and Exit ; -------------------------------------------------------------------
TMLP	; Allow the user to select multiple teams. ; ------------------------------------------------------------------- ; Sets up the SCMCTM and SCTMNAM arrays with the teams. ; Sets SCSTOP=1 to stop selection.
PRINT	; Store the report in temp array prior to a Mailman Message. ; -------------------------------------------------------------------
MAIN	; Main module to drive this routine ; -------------------------------------------------------------------
QIT()	; Module to QUEUE and Run this job in the Background. ; -------------------------------------------------------------------

Name	Field # of Occurrence
^%ZTLOAD	QIT+9
EN^DDIOL	MAIN+10
$$FMTE^DILIBF	SCPTLP+22
^DIR	TYPE+12
$$PRTP^SCAPMC8	SCPTLP+35
$$DTU^SCMCCV3	MAIN+5
$$TEAM^SCMCMU	TMLP+9
DEM^VADPT	SCPTLP+11
$$FMTE^XLFDT	PRINT+5
$$NOW^XLFDT	PRINT+5
$$LJ^XLFSTR	LJ
^XMD	MAILIT+7
KILL^XUSCLEAN	EXIT+3

Name	Line Occurrences (* Changed, ! Killed)
^SCPT(404.43 - [#404.43]	SCPTLP+19
^SCTM(404.51 - [#404.51]	TMLP+12, SCPTLP+27, SCPTLP+31
^SCTM(404.57 - [#404.57]	SCPTLP+24

Name	Line Occurrences
$$ASKTEAM	QIT+7
$$LJ	PRINT+34
$$QIT	MAIN+7
$$TYPE	ASKTEAM+8
EXIT	MAINQ+5, RUNIT+10
MAILIT	RUNIT+9
PRINT	RUNIT+3
PRTPHHDR	PRINT+24
PRTTMHDR	PRINT+16
RUNIT	MAINQ+7
SCPTLP	RUNIT+2
TMLP	ASKTEAM+13

Name	Field # of Occurrence
^(	PRINT+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	SCPTLP+3, SCPTLP+8, SCPTLP+9, SCPTLP+12, SCPTLP+13, SCPTLP+15, SCPTLP+45, PRINT+27, PRINT+28, PRINT+30
DIR	TYPE+6~
DIR("?"	TYPE+8, TYPE+9, TYPE+10*
DIR(0	TYPE+7*
>> DIRUT	TYPE+13
DT	TMLP+9, SCPTLP+20
DUZ	MAILIT+4
>> I	RUNIT+5, PRTTMHDR+4
LENGTH	LJ~
>> REPORT	MAINQ+3*, MAINQ+4, EXIT+2
>> SCACTDT	SCPTLP+3, SCPTLP+16, SCPTLP+17, SCPTLP+18, SCPTLP+45, PRINT+29, PRINT+30, PRINT+31
>> SCASNDT	SCPTLP+22, SCPTLP+46, PRINT+2
>> SCBLK	RUNIT+6, PRINT+6*, PRINT+10, PRINT+12, PRINT+19, PRTTMHDR+9, PRTTMHDR+10, PRTPHHDR+5, PRTPHHDR+6, PRTPHHDR+10 , PRTPHHDR+12
SCCNT	SCPTLP+41~, SCPTLP+42, SCPTLP+44, SCPTLP+45, SCPTLP+46, PRINT+31, PRINT+32
SCCTR	TMLP+5~, TMLP+6, TMLP+11, TMLP+16
SCDATES	SCPTLP+34~
>> SCDBL	PRINT+8*, PRTTMHDR+5, PRTTMHDR+7
>> SCDSH	PRINT+7*, PRTTMHDR+10, PRTPHHDR+6, PRTPHHDR+12
SCG	SCPTLP+2~, SCPTLP+7*, SCPTLP+8, SCPTLP+9
SCG2	SCPTLP+2~, SCPTLP+15*, SCPTLP+16, SCPTLP+17, SCPTLP+18
>> SCGOTONE	RUNIT+4, PRINT+3, PRINT+37
>> SCLNSEQ	PRINT+3*
>> SCLNUP	RUNIT+5, RUNIT+7, PRINT+4*, PRINT+11, PRINT+13, PRINT+20, PRINT+35, PRTTMHDR+4, PRTTMHDR+5, PRTTMHDR+6 , PRTTMHDR+7, PRTTMHDR+8, PRTTMHDR+9, PRTTMHDR+10, PRTPHHDR+4, PRTPHHDR+5, PRTPHHDR+6, PRTPHHDR+9, PRTPHHDR+11, PRTPHHDR+13
SCMCERR	SCPTLP+2~, SCPTLP+34~
>> SCMCSTOP	QIT+7*, MAINQ+5
SCMCTM	ASKTEAM+6!, ASKTEAM+7, ASKTEAM+13, TMLP+16, SCPTLP+29, PRINT+12
SCMCTM(	TMLP+10, TMLP+11*, SCPTLP+29
>> SCMCTYPE	ASKTEAM+8*, ASKTEAM+9, ASKTEAM+11, ASKTEAM+13
SCMCVAR	SCPTLP+2~, SCPTLP+34~, SCPTLP+35*, SCPTLP+36
>> SCPHYPOS	SCPTLP+39, SCPTLP+45, SCPTLP+46, PRINT+2, PRINT+22, PRINT+23, PRINT+26, PRINT+28, PRINT+30, PRTPHHDR+5 , PRTPHHDR+6
>> SCPOSNM	SCPTLP+25*
>> SCPTNM	SCPTLP+12, SCPTLP+45, SCPTLP+46, PRINT+2, PRINT+25, PRINT+26, PRINT+28, PRINT+30, PRINT+34
>> SCPTSSN	SCPTLP+13, SCPTLP+46, PRINT+2
>> SCREC1	SCPTLP+19*, SCPTLP+20, SCPTLP+21
>> SCREC2	SCPTLP+24*, SCPTLP+25, SCPTLP+26
>> SCREC3	SCPTLP+31*, SCPTLP+32
>> SCRPDT	PRINT+5*, PRINT+10
>> SCSEQ1	SCPTLP+3, SCPTLP+18, SCPTLP+19
>> SCSTATUS	SCPTLP+3*
SCSTOP	TMLP+5~, TMLP+6, TMLP+7, TMLP+14, PRINT+3*
SCTMNAM	ASKTEAM+6!, ASKTEAM+7, TMLP+16
SCTMNAM(	TMLP+13*, SCPTLP+4
>> SCTMNM	SCPTLP+32, SCPTLP+43, SCPTLP+46, PRINT+2, PRINT+15*, PRINT+17, PRTTMHDR+5, PRTTMHDR+6, PRTTMHDR+7
>> SCTMNO	SCPTLP+26, SCPTLP+27, SCPTLP+29, SCPTLP+31, SCPTLP+42, SCPTLP+43, SCPTLP+44, SCPTLP+45, SCPTLP+46, PRINT+17 , PRINT+18, PRINT+23, PRINT+26, PRINT+28, PRINT+30, PRINT+32
>> SCTMPOS	SCPTLP+3, SCPTLP+17, SCPTLP+18, SCPTLP+24, SCPTLP+35
SCTMREC	TMLP+5~, TMLP+12*, TMLP+13
SCTNAME	SCPTLP+2~, SCPTLP+3, SCPTLP+4, SCPTLP+5
SCX	QIT+2~, QIT+8, PRINT+32, PRINT+34
SCY	MAIN+2!, MAIN+10
SCY(1	MAIN+3*
SCY(2	MAIN+4*
SCY(3	MAIN+5*
SCY(4	MAIN+6*
SCY(5	MAIN+7*
SCY(6	MAIN+9*
SCZZPROV	SCPTLP+2~, SCPTLP+34~
SCZZPROV(1	SCPTLP+37, SCPTLP+39
STOP	ASKTEAM+5~, ASKTEAM+7, ASKTEAM+9, ASKTEAM+11, ASKTEAM+13*, ASKTEAM+14
>> STORE	MAINQ+2*, MAINQ+4, SCPTLP+5, SCPTLP+42, SCPTLP+43, SCPTLP+44, SCPTLP+45, SCPTLP+46, PRINT+15, PRINT+17 , PRINT+23, PRINT+26, PRINT+28, PRINT+30, PRINT+32, EXIT+2
STRING	RUNIT+5, RUNIT+6, PRINT+10, PRINT+12, PRINT+19, PRINT+34, LJ~, PRTTMHDR+2~, PRTTMHDR+4, PRTTMHDR+5 , PRTTMHDR+6, PRTTMHDR+7, PRTTMHDR+8, PRTTMHDR+9, PRTTMHDR+10, PRTPHHDR+2~, PRTPHHDR+4, PRTPHHDR+5, PRTPHHDR+6, PRTPHHDR+9* , PRTPHHDR+10, PRTPHHDR+12
TM	TMLP+8~, TMLP+9*, TMLP+10, TMLP+11, TMLP+12, TMLP+13
U	TMLP+13, SCPTLP+20, SCPTLP+21, SCPTLP+25, SCPTLP+26, SCPTLP+32, SCPTLP+39, SCPTLP+46, PRINT+34
VA	SCPTLP+10~
VA("PID"	SCPTLP+13
VADM	SCPTLP+10~
VADM(1	SCPTLP+12
VAERR	SCPTLP+10~
XMDUZ	MAILIT+2~, MAILIT+3*, MAILIT+4
XMSUB	MAILIT+2~, MAILIT+5*
XMTEXT	MAILIT+2~, MAILIT+6*
XMY	MAILIT+2~
XMY(	MAILIT+4*
>> Y	TYPE+13, SCPTLP+21*, SCPTLP+22
ZTDESC	QIT+2~, QIT+4*
ZTDTH	QIT+2~, QIT+5*
ZTIO	QIT+2~, QIT+6*
ZTRTN	QIT+2~, QIT+3*
ZTSAVE	QIT+2~
ZTSAVE(	QIT+8*
ZTSK	MAIN+8!, QIT+10

Customize PDF page

Package: Scheduling

Routine: SCMCCV4

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: