Routine: SCRPV1

Information

SCRPV1 ; bp/djb - PCMM Inconsistency Rpt - Main ; 8/25/99 9:52am

Source Information

Source file <SCRPV1.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Scheduling	4	$$TEAM^SCMCMU ^SCRPV1A ^SCRPV1B LIST^SCRPV1B1
IHS Changes To Scheduling	1	^BSDSCV1
Kernel	1	EN^XUTMDEVQ
MailMan	1	^XMD
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SD53P177

Entry Points

Name	Comments	DBIA/ICR reference
GETTM	;Allow the user to select multiple teams.
SET(TXT)	;Build message array
EN	;
RUN	;Gather the data and print the report.
MAILPT	;Print PATIENT error counts only.
IHS	;EP; entry point for list template ;IHS/ANMC/LJF 11/2/2000
TOP	;
IEN	;Call here to include the 404.43 IEN on the right side of the
MAIL(SCDUZ)	; Queue report as a MailMan Message.
ASKMODE()	; Which report type to run: BRIEF or DETAIL. ; B = Brief ; DP = Detailed by PATIENT ; DT = Detailed by TEAM ; Return: 0,B, or D.
EXIT	; Cleanup and Exit
DEVICE()	; Select output device.
ASKTM()	; Ask user to select teams. ; A = All Teams ; S = Select Teams ; Return: 0,A, or S.
MAILPOS	;Print POSITION error counts only.

External References

Name	Field # of Occurrence
^BSDSCV1	RUN+1
^DIR	ASKTM+18, ASKMODE+15
$$TEAM^SCMCMU	GETTM+9
^SCRPV1A	IHS+9, MAIL+12
^SCRPV1B	MAILPOS+22, MAILPT+22, IHS+10
LIST^SCRPV1B1	IHS+5
^XMD	MAIL+21
EN^XUTMDEVQ	DEVICE+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Please wait..." Line Location: IHS+6
Function Call: WRITE	Prompt: "Please wait..." Line Location: IHS+7
Function Call: WRITE	Prompt: !,"This report may take a long time to run." Line Location: DEVICE+5
Function Call: WRITE	Prompt: !,"Queuing is recommended.",! Line Location: DEVICE+6
Function Call: WRITE	Prompt: @IOF,!?COL,"PCMM INCONSISTENCY REPORT" Line Location: ASKTM+10
Function Call: WRITE	Prompt: !,LINE Line Location: ASKTM+11
Function Call: WRITE	Prompt: !!,"T E A M S" Line Location: ASKTM+12
Function Call: WRITE	Prompt: ! Line Location: GETTM+9
Function Call: WRITE	Prompt: !!,"R E P O R T T Y P E" Line Location: ASKMODE+8
Routine Call	DIR Line Location: ASKTM+18 ASKMODE+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SCTM(404.51 - [#404.51]	GETTM+10
^TMP("PCMM PATIENT"	IHS+2!, IHS+12!, MAIL+4!, MAIL+23!, MAILPT+4, MAILPT+6, MAILPT+8, MAILPT+15
^TMP("PCMM POSITION"	IHS+3!, IHS+13!, MAIL+5!, MAIL+24!, MAILPOS+4, MAILPOS+6, MAILPOS+8, MAILPOS+15
^TMP("SCMSG"	MAIL+6!, MAIL+25!, SET+1*

Label References

Name	Line Occurrences
$$ASKMODE	TOP+9
$$ASKTM	TOP+5
$$DEVICE	TOP+11
EN	IEN+7
EXIT	TOP+5
GETTM	TOP+6
MAILPOS	MAIL+13
MAILPT	MAIL+14
SET	MAIL+9, MAILPOS+11, MAILPOS+12, MAILPOS+13, MAILPOS+14, MAILPOS+16, MAILPOS+18, MAILPOS+27, MAILPT+11, MAILPT+12 , MAILPT+13, MAILPT+14, MAILPT+16, MAILPT+18, MAILPT+27
TOP	TOP+6, TOP+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GETTM+5~
%XX	DEVICE+2~
%Y	GETTM+5~
%Y1	GETTM+5~
%ZHFN	DEVICE+2~
C	GETTM+5~
CNT	GETTM+4~, MAIL+1~, MAIL+8, SET+1, SET+2
COL	ASKTM+6~, ASKTM+9*, ASKTM+10
DDH	GETTM+5~
DFN	MAILPT+1~, MAILPT+5, MAILPT+6, MAILPT+8
DFNNAM	MAILPT+1~, MAILPT+3, MAILPT+4, MAILPT+6, MAILPT+8
DIR	ASKTM+5~, ASKMODE+6~
DIR("?"	ASKTM+15, ASKTM+16, ASKTM+17, ASKMODE+12, ASKMODE+13, ASKMODE+14
DIR("A"	ASKTM+14, ASKMODE+10
DIR("B"	ASKMODE+11*
DIR(0	ASKTM+13, ASKMODE+9
DIROUT	ASKTM+5~, ASKMODE+6~
DIRUT	ASKTM+5~, ASKTM+19, ASKMODE+6~, ASKMODE+16
DT	GETTM+9
DTOUT	ASKTM+5~, ASKMODE+6~
DUOUT	ASKTM+5~, ASKMODE+6~
ERROR	MAILPOS+1~, MAILPT+1~
ERROR(	MAILPOS+9*, MAILPOS+20, MAILPOS+27
ERROR("PT"	MAILPT+9*, MAILPT+20, MAILPT+27
IOF	ASKTM+10
IOM	ASKTM+8, ASKTM+9
IOST	RUN+1, IHS+7
LINE	ASKTM+6~, ASKTM+8*, ASKTM+11
ND	GETTM+4~, GETTM+10*, GETTM+11
NUM	MAILPOS+1~, MAILPOS+3, MAILPOS+4, MAILPOS+6, MAILPOS+8, MAILPOS+9, MAILPOS+19, MAILPOS+20, MAILPOS+21, MAILPT+1~ , MAILPT+7, MAILPT+8, MAILPT+9, MAILPT+19, MAILPT+20, MAILPT+21*, MAILPT+27
NUM1	MAILPOS+1~, MAILPOS+21*, MAILPOS+27
POP	DEVICE+1~, DEVICE+14
POS	MAILPOS+1~, MAILPOS+7, MAILPOS+8
QUE	DEVICE+2~
QUIT	EN+1~, TOP+2*, MAIL+1~
RESULT	EN+1~, TOP+11*, MAIL+1~
SCDUZ	MAIL~, MAIL+18
SCESEQ	GETTM+5~
SCIEN	IEN+5~, IEN+6*
SCLSEQ	GETTM+5~
SCMODE	EN+1~, TOP+1!, TOP+9*
SCN	GETTM+5~
SCPOS	EN+1~
SCTM	EN+1~, TOP+1!, TOP+6, GETTM+7!, GETTM+8, GETTM+15
SCTM(	GETTM+13, GETTM+14*
SCTYPE	EN+1~, TOP+1!, MAIL+1~
SCTYPE("TM"	TOP+5, TOP+6, TOP+9, IHS+5, DEVICE+4, MAIL+11
SCX	DEVICE+1~
TM	MAILPOS+1~, MAILPOS+5, MAILPOS+6, MAILPOS+8
TMI	GETTM+4~, GETTM+9*, GETTM+10, GETTM+13, GETTM+14
TMN	GETTM+4~, GETTM+11*, GETTM+12
TXT	MAILPOS+1~, MAILPOS+22, MAILPOS+24, MAILPOS+25, MAILPOS+26, MAILPOS+27, MAILPT+22, MAILPT+24, MAILPT+25, MAILPT+26 , MAILPT+27, SET~, SET+1
U	GETTM+11
>> VALM	IHS+7
X	ASKTM+5~, GETTM+5~, ASKMODE+6~
XMDUZ	MAIL+2~, MAIL+16*, MAIL+17
XMSUB	MAIL+2~, MAIL+19*
XMTEXT	MAIL+2~, MAIL+20*
XMY	MAIL+2~
XMY(	MAIL+17, MAIL+18
Y	ASKTM+5~, ASKTM+19, ASKMODE+6~, ASKMODE+16
ZTDESC	DEVICE+1~, DEVICE+9*, DEVICE+13
>> ZTQUEUED	IHS+7
ZTRTN	DEVICE+1~, DEVICE+8*, DEVICE+13
ZTSAVE	DEVICE+1~, DEVICE+13
ZTSAVE("SC*"	DEVICE+10*
ZTSAVE("SCTM("	DEVICE+12*
ZTSAVE("SCTYPE("	DEVICE+11*

Marked Items

Name	Field # of Occurrence
$T(TXT+NUM1^SCRPV1B	MAILPOS+22
$T(TXT+NUM^SCRPV1B	MAILPT+22

Customize PDF page

Package: Scheduling

Routine: SCRPV1

Call Graph Total: 8

Caller Graph Total: 1