Routine: SCMCMHHT

Information

SCMCMHHT ;BP-CIOFO/LLH - Historical Team Assign Sum for Mental Health ; 2/6/12 10:00am

Package	Total	Call Graph
Scheduling	4	(CKTEAM,COUNT)^SCMCMHO7 ($$DTR,$$LIST,$$PPAR,HDR)^SCRPO DISP0^SCRPW23 (END,SUBT,TITL)^SCRPW50
VA FileMan	4	^DIC YN^DICN $$GET1^DIQ ^DIR
Kernel	3	$$S^%ZTLOAD $$NOW^XLFDT EN^XUTMDEVQ

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: 1

Package	Total	Caller Graph
Scheduling	1	SCMC MH PCMM HIST TEAM SUMMARY

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Queue report
PROMPT(LIST,SCRTN,SCDESC)	;Prompt for report parameters, queue report
END
STOP	;Check for stop task request
RUN	;Print report
BUILD	;gather report information
PRINT	;Print report
SLINE(SCN,SCX,SCPF,SCLF)	;Print summary line
TLINE(SCDIV,SCTEAM,SCPNAM,SCX)	;Print broken team assignment line
PLINE(SCDIV,SCTEAM,SCPNAM,SCX)	;Print broken team assignment line
HDRX(SCX)	;extra header line
HINI	;Initialize header variables
SHDR(X)	;Print subheader
LIST(SC,WHAT,SUBH,LIMIT)	;Get list of entries from a file
TEAM
XR(SC,SUB,VAL)	;Create x-ref for printing parameters

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	STOP+1
^DIC	LIST+19
YN^DICN	EN+3
$$GET1^DIQ	BUILD+12
^DIR	PRINT+59
CKTEAM^SCMCMHO7	BUILD+6, BUILD+14
COUNT^SCMCMHO7	RUN+5
$$DTR^SCRPO	PROMPT+10
$$LIST^SCRPO	PROMPT+13
$$PPAR^SCRPO	PROMPT+20, PRINT+4
HDR^SCRPO	PRINT+4, PRINT+7, PRINT+12, PRINT+26, PRINT+43, SLINE+10, TLINE+8, PLINE+8
DISP0^SCRPW23	END, PRINT+3
END^SCRPW50	END
SUBT^SCRPW50	PROMPT+8, PROMPT+11, PROMPT+19, LIST+15
TITL^SCRPW50	PROMPT+7
$$NOW^XLFDT	HINI+4
EN^XUTMDEVQ	PROMPT+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Print Final Summary Only" Line Location: EN+3
Function Call: WRITE	Prompt: !!,"This report requires 132 column output!" Line Location: PROMPT+21
Function Call: WRITE	Prompt: ! Line Location: PROMPT+22
Function Call: WRITE	Prompt: ! Line Location: PRINT+59
Function Call: WRITE	Prompt: !,$E($P(SCN,U),1,28) Line Location: SLINE+13
Function Call: WRITE	Prompt: ?(27+(9*SCI)),$J(+$P(SCX,U,$P(SCY,U,SCI)),6,0) Line Location: SLINE+15
Function Call: WRITE	Prompt: !,$P(SCDIV,U),?32,$P(SCTEAM,U),?64,SCPNAM Line Location: TLINE+9
Function Call: WRITE	Prompt: ?96,"xxxxx"_$E($TR($P(SCX,U,2),"-",""),6,9),?108,$P(SCX,U,3),?121,$P(SCX,U,4) Line Location: TLINE+11
Function Call: WRITE	Prompt: !,$P(SCDIV,U),?24,$P(SCTEAM,U),?48,SCPNAM,?72,"xxxxx"_$E($TR($P(SCX,U,2),"-",""),6,9) Line Location: PLINE+10
Function Call: WRITE	Prompt: ?84,$P(SCX,U,5),?108,$P(SCX,U,3),?121,$P(SCX,U,4) Line Location: PLINE+11
Function Call: WRITE	Prompt: ?(45+(9*SCI)),"-------" Line Location: SHDR+8
Function Call: WRITE	Prompt: $E(SCLINE,1,30)," " Line Location: SHDR+12
Function Call: WRITE	Prompt: $E(SCLINE,1,22)," " Line Location: SHDR+17
Function Call: WRITE	Prompt: " (ALL)" Line Location: LIST+20
Routine Call	DIC Line Location: LIST+19
Routine Call	DIR Line Location: PRINT+59

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SCTM(404.51 - [#404.51]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TLINE+7, PLINE+7, HINI+4
^SCTM(404.51 - [#404.51]	BUILD+10
^TMP("SC"	END!, BUILD+3, BUILD+4, HDRX+5, HDRX+6, HDRX+7
^TMP("SCRATCH"	RUN+7!
^TMP("SCRPT"	RUN+2!, RUN+7!, PRINT+6, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+21, PRINT+25, PRINT+28 , PRINT+30, PRINT+32, PRINT+34, PRINT+35, PRINT+42, PRINT+45, PRINT+47, PRINT+49, PRINT+51, PRINT+52

Label References

Name	Line Occurrences
$$HDRX	PRINT+4, PRINT+12, PRINT+26, PRINT+43
$$LIST	PROMPT+16
@(	LIST+14
BUILD	RUN+5
END	PROMPT+10, PROMPT+18, PROMPT+20
HINI	PRINT+3
PLINE	PRINT+53
PRINT	RUN+6
PROMPT	EN+9
SHDR	PRINT+12, PRINT+26, PRINT+43, SLINE+10, TLINE+8, PLINE+8
SLINE	PRINT+14, PRINT+17, PRINT+21
STOP	RUN+5, BUILD+6, BUILD+14
TLINE	PRINT+36
XR	LIST+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+3*
DESC	EN+1~, EN+8*, EN+9
DIC	LIST+10~, TEAM*
DIC("A"	LIST+16, LIST+23
DIC("S"	LIST+17*
DIC(0	LIST+14*
DIR	PRINT+59~
DIR(0	PRINT+59*
DTOUT	LIST+10~, LIST+19
DUOUT	LIST+10~, LIST+19
IOSL	SLINE+10, TLINE+8, PLINE+8
IOST	PRINT+3, PRINT+59
LIMIT	LIST~, LIST+11*, LIST+18
LIST	EN+1~, EN+6*, EN+9, PROMPT~, PROMPT+12
RTN	EN+1~, EN+7*, EN+9
SC	PROMPT+5~, PROMPT+6*, PROMPT+10, PROMPT+13, PROMPT+16, PROMPT+20, PRINT+4, LIST~, LIST+20, LIST+22 , LIST+25, XR~, XR+5
SCA	LIST+10~, LIST+15, LIST+16, LIST+25, TEAM*
SCB	LIST+10~, LIST+16*, LIST+23
SCBDT	PROMPT+5~, PROMPT+10
SCBDT("B"	PROMPT+9*
SCDESC	PROMPT~, PROMPT+7, PROMPT+23
SCDIV	PROMPT+5~, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+27, PRINT+28, PRINT+30, PRINT+32, PRINT+34 , PRINT+35, PRINT+36, PRINT+44, PRINT+45*, PRINT+47, PRINT+49, PRINT+51, PRINT+52, PRINT+53, TLINE~ , TLINE+9, PLINE~, PLINE+10
SCEDT	PROMPT+5~, PROMPT+10
SCEDT("B"	PROMPT+9*
SCFF	PRINT+1~, PRINT+2*
SCI	PROMPT+5~, PROMPT+12, RUN+1~, PRINT+33, PRINT+34, PRINT+35, PRINT+50, PRINT+51, PRINT+52, SLINE+6~ , SLINE+15, TLINE+6~, TLINE+7, PLINE+6~, PLINE+7, SHDR+2~, SHDR+8, SHDR+12, SHDR+17, LIST+10~ , LIST+12, LIST+18*, LIST+20
SCLF	PRINT+1~, PRINT+2, PRINT+14, PRINT+17, PRINT+21, SLINE~, SLINE+10, SLINE+11, SLINE+16*
SCLINE	PRINT+1~, HINI+3*, SHDR+8, SHDR+12, SHDR+17, SHDR+18
SCN	SLINE~, SLINE+13
SCOUT	PROMPT+5~, PROMPT+6, PROMPT+12, PROMPT+13, PROMPT+16, PROMPT+18, STOP+1, RUN+1~, RUN+3, RUN+5 , BUILD+4, BUILD+10, PRINT+4, PRINT+5, PRINT+7, PRINT+12, PRINT+13, PRINT+15, PRINT+20, PRINT+23 , PRINT+26, PRINT+28, PRINT+30, PRINT+32, PRINT+34, PRINT+42, PRINT+43, PRINT+45, PRINT+47, PRINT+49 , PRINT+51, PRINT+59, SLINE+11, TLINE+8, PLINE+8, SHDR+1, LIST+10~, LIST+11, LIST+18, LIST+20 , LIST+21*
SCPAGE	PRINT+1~, PRINT+11, HINI+3
SCPF	SLINE~, SLINE+10, SLINE+11
SCPNAM	PRINT+31, PRINT+32, PRINT+34, PRINT+35, PRINT+36, PRINT+48, PRINT+49, PRINT+51, PRINT+52, PRINT+53 , TLINE~, TLINE+9, PLINE~, PLINE+10
SCPNOW	PRINT+1~, HINI+4*
SCQUIT	LIST+10~, LIST+11, LIST+18, LIST+19, LIST+25
SCRTN	PROMPT~, PROMPT+23
SCS	LIST+10~, LIST+17, TEAM*
SCT	PROMPT+5~, PROMPT+20
SCT(1	PROMPT+19*
SCTEAM	PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+29, PRINT+30, PRINT+32, PRINT+34, PRINT+35, PRINT+36 , PRINT+46, PRINT+47, PRINT+49, PRINT+51, PRINT+52, PRINT+53, TLINE~, TLINE+9, PLINE~, PLINE+10
SCTITL	PRINT+1~, PRINT+4, PRINT+7, PRINT+12, PRINT+26, PRINT+43, SLINE+10, TLINE+8, PLINE+8
SCTITL(1	HINI+2*
SCTITL(2	PRINT+4, PRINT+7!, PRINT+12, PRINT+26, PRINT+43
SCTM	BUILD+1~, BUILD+3, BUILD+4, BUILD+6, BUILD+10*, BUILD+12, BUILD+14
SCW	LIST+10~
SCW(	LIST+12*, LIST+13
SCX	PROMPT+5~, PROMPT+12, PROMPT+13, PRINT+8, PRINT+9, PRINT+14, PRINT+16, PRINT+17, PRINT+21, PRINT+35 , PRINT+36, PRINT+52, PRINT+53, SLINE~, SLINE+15, TLINE~, TLINE+7, TLINE+11, PLINE~, PLINE+7* , PLINE+10, PLINE+11, HDRX~, HDRX+4, HDRX+5, HDRX+6, HDRX+7
SCY	SLINE+6~, SLINE+7*, SLINE+15
SUB	XR~, XR+5
SUBH	LIST~, LIST+15
>> SUMON	EN+2, EN+3, PRINT+24
U	SLINE+13, SLINE+15, TLINE+7, TLINE+9, TLINE+11, PLINE+7, PLINE+10, PLINE+11, LIST+22
VAL	XR~, XR+5
WHAT	LIST~, LIST+11, LIST+13, LIST+14, LIST+20, LIST+22, LIST+25
X	SHDR~, SHDR+3, SHDR+10, SHDR+15, LIST+10~, LIST+20, LIST+21
Y	TLINE+6~, TLINE+7, PLINE+6~, PLINE+7, HINI+1~, HINI+4*, LIST+10~, LIST+22
>> ZTQUEUED	STOP+1
ZTSAVE	PROMPT+22~, PROMPT+23
ZTSAVE("SC"	PROMPT+22*
ZTSAVE("SUMON"	PROMPT+22*
ZTSAVE("^TMP(""SC"",$J,"	PROMPT+22*
>> ZTSTOP	STOP+1*

Customize PDF page

Package: Scheduling