Routine: LRCAPAM4

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
MailMan	1	^XMD
VA Fileman	1	^DIR

Package	Total	Caller Graph
Lab Service	1	LR WKLD LMIP 4

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
ASK1	;
ERR	;
PRINT	;
CHK
NEWMSG	;
EN1	;
EXIT	;
CLEAN
GO	;
MAIL	;
LOOP1	;
DQ

External References

Name	Field # of Occurrence
^%ZIS	ASK1+2
^%ZISC	CLEAN, CLEAN+3
^%ZTLOAD	ASK1+3
^DIR	GO+1
$$FMTE^XLFDT	DQ+3, MAIL+1
$$NOW^XLFDT	DQ+3
^XMD	MAIL+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!! Line Location: EN1+1
Function Call: WRITE	Prompt: !?(IOM-$L(LINE))\2,LINE,! Line Location: EN1+2
Function Call: WRITE	Prompt: !?(IOM-$L(LINE))\2,LINE,! Line Location: EN1+3
Function Call: WRITE	Prompt: !?(IOM-$L(LINE))\2,LINE,! Line Location: EN1+4
Function Call: WRITE	Prompt: !?(IOM-$L(LINE))\2,LINE,! Line Location: EN1+5
Function Call: WRITE	Prompt: !?(IOM-$L(LINE))\2,LINE,! Line Location: EN1+6
Function Call: WRITE	Prompt: !?(IOM-$L(LINE))\2,LINE,! Line Location: EN1+7
Function Call: WRITE	Prompt: !!?10,"TO CONTINUE YOU MUST ENTER 'YES' - PROCESS ABORTED",! Line Location: GO+1
Function Call: WRITE	Prompt: !?10,"Device to print processing errors if any are detected.",! Line Location: ASK1+1
Function Call: WRITE	Prompt: !,$S($G(ZTSK):"Queued to "_ION,1:"Error Not Queued"),! Line Location: ASK1+3
Function Call: WRITE	Prompt: !!?5,"Processing data and building Mailman messages ",! Line Location: DQ+2
Function Call: WRITE	Prompt: !?15,$TR($$FMTE^XLFDT($$NOW^XLFDT,"1M"),"@"," "),! Line Location: DQ+3
Function Call: WRITE	Prompt: !!,"No data in global !!",$C(7) Line Location: DQ+5
Function Call: WRITE	Prompt: !!?10,"^LAB(""LABWL"" is corrupt ",!!,$C(7) Line Location: DQ+7
Function Call: WRITE	Prompt: !?20,LRTXT,!! Line Location: EXIT+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST)="P" Line Location: EXIT+1
Function Call: WRITE	Prompt: !!,"DONE",!! Line Location: EXIT+1
Function Call: WRITE	Prompt: !?20,LRTXT,! Line Location: EXIT+2
Function Call: WRITE	Prompt: !!?5,"Header Block Corrupted (^LAH(LABWL,"_LRSLN_")",! Line Location: LOOP1+3
Function Call: WRITE	Prompt: !!?5,"Starting charater not correct at position "_LRSLN_" ABORTED",!! Line Location: LOOP1+5
Function Call: WRITE	Prompt: !!?5," Sequence not correct ^LAB(LABWL,"_LRSLN_")",! Line Location: LOOP1+6
Function Call: WRITE	Prompt: !!,"Data is not in proper sequence [Error = ^LAB(LABWL,"_LRSLN_")" Line Location: CHK+8
Function Call: WRITE	Prompt: !!?4,"Error in the call to Mailman",! Line Location: MAIL+3
Function Call: WRITE	Prompt: !,LRSUB,!,"Mailman message number ",XMZ Line Location: MAIL+4
Function Call: WRITE	Prompt: !!?10,"UNABLE TO STORE MESSAGE NUMBER IN ^LRO(67.9 FILE",!! Line Location: ERR+1
Function Call: WRITE	Prompt: !!?5,"Error at subscript < "_LRSLN_" >",!,"Listing of surrounding data",!! Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"^LAH(LABWL,",I,") =",!,?6,^(I),! Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: PRINT+4
Routine Call	DIR Line Location: GO+1
Routine Call	%ZIS Line Location: ASK1+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	MAIL+5
^LAH("LABWL"	DQ+4, DQ+6, DQ+9, PRINT+3
^LRO(67.9 - [#67.9]	MAIL+7, MAIL+9*
^TMP($J	EN1+1!, DQ+1!, CLEAN!, LOOP1+1, CHK+10, CHK+11, NEWMSG+2!, NEWMSG+5*

Label References

Name	Line Occurrences
CLEAN	GO+1, ASK1+2, ASK1+3
ERR	MAIL+6, MAIL+7
EXIT	GO+1, DQ+5, DQ+6
LOOP1	DQ+9
MAIL	NEWMSG+1
NEWMSG	DQ+10, LOOP1+2, CHK+10
PRINT	DQ+6, LOOP1+3, LOOP1+5, LOOP1+6, CHK

Naked Globals

Name	Field # of Occurrence
^(	DQ+9, PRINT+3
^(0	CHK+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ASK1+2!*, CLEAN!
>> DEQUEUED	DQ
DIR	GO+1!, ASK1+2!, CLEAN!
DIR("A"	GO+1*
DIR("B"	GO+1*
DIR(0	GO+1*
>> DIRUT	GO+1
DUZ	MAIL+2
I	PRINT+1~, PRINT+3*
IO	DQ, EXIT+2
IO("Q"	ASK1+3
IO(0	EXIT+2
IOF	EN1+1, EXIT+1
IOM	EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7
ION	ASK1+3
IOST	ASK1+4, EXIT+1
LINE	EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, CLEAN+1!
LRCHC	DQ+8, CLEAN+1!, CHK+10, CHK+11, NEWMSG+3*
LRCHK	CLEAN+2!, LOOP1+4*, LOOP1+5, LOOP1+6, CHK+1, CHK+2, CHK+3, CHK+4, CHK+5, CHK+6 , CHK+7
LRCPM	DQ+4*, CLEAN+1!, CHK+10
>> LRDEBUG	CLEAN
LRDLN	DQ+8, DQ+10, CLEAN+1!, LOOP1+1, CHK+11, CHK+12, NEWMSG+3
LRDV1	CLEAN+1!, LOOP1+1, LOOP1+2, LOOP1+3, NEWMSG+4, MAIL+5
LRDV1X	CLEAN+2!, MAIL+5*, MAIL+6, MAIL+7, MAIL+9
LRDV2	CLEAN+1!, LOOP1+1, LOOP1+2, LOOP1+3, NEWMSG+4, MAIL+5
LRDV2X	CLEAN+2!, MAIL+5*, MAIL+6, MAIL+7, MAIL+9
LRDVDT	CLEAN+1!, LOOP1+1, LOOP1+2, LOOP1+3, NEWMSG+4, MAIL+7
LREND	GO+1, DQ+6, DQ+7, DQ+9, DQ+10, EXIT+1, CLEAN+1!, LOOP1+3, LOOP1+5, LOOP1+6 , CHK, CHK+9, NEWMSG+1, MAIL+3
LRHD1	DQ+6, DQ+7, DQ+8, CLEAN+1!, LOOP1+1, CHK+10, NEWMSG+4*, NEWMSG+5, MAIL+1
LRLLN	DQ+4*, CLEAN+1!
LRMSM	CLEAN+1!
LRMSN	DQ+8, CLEAN+3!, NEWMSG+1, NEWMSG+3, MAIL+1
LRSEQ	DQ+8, CLEAN+2!, LOOP1+1, LOOP1+2, LOOP1+6, CHK+1, CHK+2, CHK+3, CHK+4, CHK+5 , CHK+6, CHK+7, CHK+10, NEWMSG+3*
LRSLN	DQ+9*, CLEAN+1!, LOOP1+1, LOOP1+3, LOOP1+5, LOOP1+6, CHK+8, PRINT+2, PRINT+3
LRSUB	CLEAN+1!, MAIL+1*, MAIL+4
LRTXT	DQ+9, EXIT+1, EXIT+2, CLEAN+3!, LOOP1+1, LOOP1+2, LOOP1+4, CHK+10, CHK+11, NEWMSG+4
LRX	CLEAN+2!, CLEAN+3!, LOOP1+4*
LRX4	CLEAN+3!, MAIL+8*
LRXM	CLEAN+3!, MAIL+7, MAIL+8, MAIL+9
NODE	CLEAN+3!, MAIL+7*, MAIL+9
>> POP	ASK1+2
U	LOOP1+1, LOOP1+2, NEWMSG+4, MAIL+1, MAIL+8
X	CLEAN+3!, PRINT+1~, PRINT+3*
XMDUZ	CLEAN+3!, MAIL+2*
XMSUB	CLEAN+3!, MAIL+1*
XMTEXT	CLEAN+3!, MAIL+2*
XMY	CLEAN+3!
XMY(	MAIL+2*
XMZ	CLEAN+3!, MAIL+3, MAIL+4, MAIL+8
Y	GO+1, CLEAN+3!
>> ZTDESC	ASK1+3*
>> ZTDTH	ASK1+3*
>> ZTIO	ASK1+3*
>> ZTREQ	DQ*
>> ZTRTN	ASK1+3*
ZTSK	ASK1+2!, ASK1+3, CLEAN+2!

Customize PDF page

Package: Lab Service

Routine: LRCAPAM4

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: