Routine: LRJSAU2

Information

LRJSAU2 ;ALB/GTS/DK/TMK - Lab Vista Audit Utilities;08/16/2010 15:53:28

Package	Total	Call Graph
Kernel	4	$$EC^%ZOSV (,UNWIND)^%ZTER ($$FMTE,$$NOW)^XLFDT $$DEC^XLFUTL
Lab Service	3	F60^LRJSAU LRADDNOD^LRJSAU3 AUDISP^LRJSAU60
List Manager	2	PAUSE^VALM1 KILL^VALM10
MailMan	2	SENDMSG^XMXAPI TOWHOM^XMXAPIU
Toolkit	2	($$GET,EN)^XPAR EDITPAR^XPAREDIT
VA FileMan	1	(C,NOW)^%DTC

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

Package	Total	Caller Graph
Lab Service	4	LRJ BACKGROUND F60 AUD FILE LRJ BACKGROUND F60 AUDIT LRJ SYS MAP AUF60 SEND DISPLAY MESSAGE LRJ SYS MAP AUF60 SEND FILE MESSAGE
Kernel	2	^DIC(19 ^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
KILL	;Kill off build data
LISTHLMM(LRHLARY)	; Store audit information in the display array ; INPUT - ; LRHLARY - Array of raw extract data
CRTRPTAR(LRHLARY,LRFROM,LRTO,LROUTPT,LRMMARY)	; Store info in the display array ; INPUT - ; LRHLARY - Array of raw extract data ; LRFROM - Start date for report ; LRTO - End date for report ; LROUTPT - "DISPLAY" for Listman; "MAIL" for mail message ; LRMMARY - Mail message output array ;
TSKMMARY(AUTYP,AUDES,AUFMT)	;TASKMAN API for Mail Message array
TSKERR	; Error trap to send bulletin if queued report encounters a system error
CRTMMARY(LRHLARY,AUTYP,AUDES,AURTN,LRMMARY)	;Load Mail Message array
SNDMSG(LRMSUBJ,XQSND,LRMSGARY,LRTOMM,LRTASK)	;Send message to requestor
CRTXTMM(LRHLARY,AUTYP,AUDES,AURTN)	;Load Mail Message array
SNDEXT(LRMSUBJ,XQSND,LREXTARY)	;Send extract to requestor
OUTLKARY(LRHLARY,LRHLOTLK,LRMSUBJ)	;Create array of attachments
UUBEGFN(LRFILENM)	; Construct uuencode "begin" coding ; Call with LRFILENM = name of uuencoded file attachment
ENCODE(LRSTR,LRDTANOD,LRHLOTLK)	;Encode a string, keep remainder for next line
UUEN(STR)	; Uuencode string passed in.
PARAMED(AUTYP,AUDES)	;Edit the Dates referenced by tasked Option "LRJ SYS MAP [autyp] TASKMAN RPT"

External References

Name	Field # of Occurrence
C^%DTC	TSKMMARY+24
NOW^%DTC	TSKMMARY+15
$$EC^%ZOSV	TSKERR+9
^%ZTER	TSKERR+14
UNWIND^%ZTER	TSKERR+15
F60^LRJSAU	CRTMMARY+21, CRTXTMM+10
LRADDNOD^LRJSAU3	CRTRPTAR+17
AUDISP^LRJSAU60	TSKMMARY+32
PAUSE^VALM1	CRTMMARY+20, CRTXTMM+9
KILL^VALM10	LISTHLMM+10
$$FMTE^XLFDT	CRTRPTAR+14, TSKMMARY+40, TSKMMARY+57, TSKMMARY+63, TSKERR+8, CRTMMARY+23, OUTLKARY+11
$$NOW^XLFDT	TSKERR+8, OUTLKARY+11, OUTLKARY+16
$$DEC^XLFUTL	UUEN+9
SENDMSG^XMXAPI	SNDMSG+23, SNDEXT+21
TOWHOM^XMXAPIU	SNDMSG+15, SNDEXT+11
$$GET^XPAR	TSKMMARY+18
EN^XPAR	TSKMMARY+28, TSKMMARY+29
EDITPAR^XPAREDIT	PARAMED+21, PARAMED+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?10,"First invoke ""DF"" option" Line Location: CRTMMARY+19
Function Call: WRITE	Prompt: !,?10,"First invoke ""DF"" option" Line Location: CRTXTMM+8
Function Call: WRITE	Prompt: !!,"Lab "_AUDES_" Audit extract dates record the report dates" Line Location: PARAMED+10
Function Call: WRITE	Prompt: !," for the last extract created by the LRJ SYS MAP "_AUTYP_" TASKMAN RPT option." Line Location: PARAMED+11
Function Call: WRITE	Prompt: !," The LRJ LSRP "_AUTYP_" LAST END DATE is the start date used by the next execution" Line Location: PARAMED+12
Function Call: WRITE	Prompt: !," of the LRJ SYS MAP "_AUTYP_" TASKMAN RPT option.",! Line Location: PARAMED+13
Function Call: WRITE	Prompt: !!,"WARNING: Editing the LRJ LSRP "_AUTYP_" LAST END DATE will affect the information" Line Location: PARAMED+14
Function Call: WRITE	Prompt: !," reported by the LRJ SYS MAP "_AUTYP_" TASKMAN RPT option. This option makes" Line Location: PARAMED+15
Function Call: WRITE	Prompt: !," assumptions about data previously reported based upon this date." Line Location: PARAMED+16
Function Call: WRITE	Prompt: !!,"A USER CHANGING THE 'LRJ LSRP "_AUTYP_" LAST END DATE' MUST UNDERSTAND THE RESULT" Line Location: PARAMED+17
Function Call: WRITE	Prompt: !," OF THE CHANGE MADE AND RECONCILE THE REPORTS CREATED AGAINST THE PREVIOUS" Line Location: PARAMED+18
Function Call: WRITE	Prompt: !," REPORT CREATED!",!! Line Location: PARAMED+19
Function Call: WRITE	Prompt: !!,"-------------------------------------------------------------------------------" Line Location: PARAMED+22

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("LRJ SYS MAP AUD MANAGER"	KILL+2!
^TMP("LRJ SYS MAP AUD MSG"	KILL+1!
^TMP("XMY"	SNDMSG+17, SNDEXT+18, SNDEXT+23!
^TMP("XMY0"	SNDEXT+23!
^TMP($J	TSKMMARY+76!, SNDEXT+23!

Label References

Name	Line Occurrences
$$UUBEGFN	OUTLKARY+32
$$UUEN	OUTLKARY+36, ENCODE+11
CRTRPTAR	LISTHLMM+11
ENCODE	OUTLKARY+35
KILL	LISTHLMM+9
LISTHLMM	CRTMMARY+10
OUTLKARY	TSKMMARY+73, SNDEXT+20
SNDEXT	CRTXTMM+13
SNDMSG	TSKMMARY+60, TSKMMARY+74, TSKERR+11, CRTMMARY+34

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	TSKMMARY+16, TSKMMARY+17!
%H	TSKMMARY+17!, TSKMMARY+26!
>> %I(1	TSKMMARY+17!
>> %I(2	TSKMMARY+17!
>> %I(3	TSKMMARY+17!
AUDES	CRTRPTAR+10, CRTRPTAR+14, TSKMMARY~, TSKMMARY+40, TSKMMARY+57, TSKMMARY+63, TSKERR+3, TSKERR+4, CRTMMARY~, CRTMMARY+23 , CRTXTMM~, OUTLKARY+19, OUTLKARY+21, PARAMED~, PARAMED+10
AUFMT	TSKMMARY~, TSKMMARY+41, TSKMMARY+62
AURTN	CRTMMARY~, CRTXTMM~
AUSUB	TSKMMARY+11~, TSKMMARY+34*
AUTYP	TSKMMARY~, TSKMMARY+18, TSKMMARY+28, TSKMMARY+29, TSKMMARY+32, TSKMMARY+33, TSKMMARY+34, TSKMMARY+36, TSKMMARY+58, TSKMMARY+67 , TSKMMARY+72, TSKERR+2, CRTMMARY~, CRTMMARY+21, CRTMMARY+25, SNDMSG+21, CRTXTMM~, CRTXTMM+10, SNDEXT+15, OUTLKARY+17 , OUTLKARY+18, PARAMED~, PARAMED+11, PARAMED+12, PARAMED+13, PARAMED+14, PARAMED+15, PARAMED+17, PARAMED+21, PARAMED+23
DUZ	TSKMMARY+59, TSKMMARY+68, TSKERR+10, CRTMMARY+24, SNDMSG+15, CRTXTMM+12, SNDEXT+11
ERR	TSKMMARY+11~, TSKMMARY+28, TSKMMARY+29
J	UUEN+1~, UUEN+9*, UUEN+10
K	UUEN+1~, UUEN+7, UUEN+8, UUEN+9
LEN	UUEN+1~, UUEN+2*, UUEN+3, UUEN+11
LRCRLF	OUTLKARY+6~, OUTLKARY+9*, OUTLKARY+11, OUTLKARY+13, OUTLKARY+19, OUTLKARY+21, OUTLKARY+34
LRDTANOD	ENCODE~, ENCODE+11*
LRDTTM	OUTLKARY+6~, OUTLKARY+16*, OUTLKARY+17, OUTLKARY+18
LREXTARY	SNDEXT~, SNDEXT+20
LRFILENM	UUBEGFN~, UUBEGFN+6
LRFILNM	OUTLKARY+6~, OUTLKARY+31*, OUTLKARY+32
LRFILNM1	OUTLKARY+6~, OUTLKARY+17*, OUTLKARY+19, OUTLKARY+31
LRFILNM2	OUTLKARY+6~, OUTLKARY+18*, OUTLKARY+21, OUTLKARY+31
LRFROM	LISTHLMM+4~, LISTHLMM+7, LISTHLMM+11, CRTRPTAR~, CRTRPTAR+14, TSKMMARY+11~, TSKMMARY+18, TSKMMARY+21, TSKMMARY+25, TSKMMARY+29 , TSKMMARY+40, TSKMMARY+57, TSKMMARY+63, CRTMMARY+8~, CRTMMARY+16, CRTMMARY+18, CRTMMARY+23, CRTMMARY+35
LRFSTLNE	CRTRPTAR+9~, CRTRPTAR+13*
LRHLARY	LISTHLMM~, LISTHLMM+6, LISTHLMM+11, CRTRPTAR~, TSKMMARY+35, TSKMMARY+36, TSKMMARY+38, TSKMMARY+44, TSKMMARY+53, TSKMMARY+54 , TSKMMARY+56, TSKMMARY+73, TSKMMARY+76, CRTMMARY~, CRTMMARY+10, CRTMMARY+15, CRTXTMM~, CRTXTMM+5, CRTXTMM+13, OUTLKARY~ , OUTLKARY+19, OUTLKARY+21, OUTLKARY+22, OUTLKARY+29, OUTLKARY+30, OUTLKARY+33, OUTLKARY+34
LRHLOTLK	OUTLKARY~, OUTLKARY+10, OUTLKARY+11, OUTLKARY+12, OUTLKARY+13, OUTLKARY+14, OUTLKARY+19, OUTLKARY+20, OUTLKARY+21, OUTLKARY+23 , OUTLKARY+24, OUTLKARY+25, OUTLKARY+32, OUTLKARY+35, OUTLKARY+36, OUTLKARY+37, OUTLKARY+38, ENCODE~, ENCODE+11
LRI	UUEN+1~, UUEN+3*, UUEN+4
LRINSTMM	SNDMSG+8~, SNDMSG+15, SNDMSG+23, SNDEXT+6~, SNDEXT+11
LRINSTMM("ADD	R FLAGS" , SNDMSG+13, SNDEXT+8
LRINSTMM("FROM"	SNDMSG+21*
LRINSTVA	TSKMMARY+11~, SNDEXT+6~, SNDEXT+21
LRINSTVA("ADD	R FLAGS" , TSKMMARY+66, SNDEXT+14
LRINSTVA("FROM"	TSKMMARY+67, SNDEXT+15
LRLEN	ENCODE+6~, ENCODE+7*, ENCODE+12
LRLNCNT	CRTRPTAR+9~, CRTRPTAR+16*, CRTRPTAR+17
LRLNCTN	CRTRPTAR+9~
LRLPCNT	TSKMMARY+39, TSKMMARY+40, TSKMMARY+45, TSKMMARY+46, TSKMMARY+47, TSKMMARY+48, TSKMMARY+49, TSKMMARY+50, TSKMMARY+51, TSKMMARY+52 , TSKMMARY+55, TSKMMARY+56, CRTMMARY+8~, CRTMMARY+24, CRTMMARY+26, CRTMMARY+30, CRTMMARY+31, CRTMMARY+32, CRTMMARY+33, SNDMSG+8~ , SNDMSG+16, SNDMSG+17, SNDEXT+6~, SNDEXT+17, SNDEXT+18*
LRMMARY	CRTRPTAR~, CRTRPTAR+11, CRTRPTAR+17, TSKMMARY+35, TSKMMARY+36, TSKMMARY+40, TSKMMARY+46, TSKMMARY+48, TSKMMARY+50, TSKMMARY+52 , TSKMMARY+56, TSKMMARY+60, TSKMMARY+76, CRTMMARY~, CRTMMARY+25, CRTMMARY+26, CRTMMARY+31, CRTMMARY+33, CRTMMARY+34
LRMSGARY	SNDMSG~, SNDMSG+23
LRMSUBJ	TSKMMARY+11~, TSKMMARY+57, TSKMMARY+60, TSKMMARY+63, TSKMMARY+73, TSKMMARY+74, CRTMMARY+8~, CRTMMARY+23, CRTMMARY+26, CRTMMARY+34 , SNDMSG~, SNDMSG+22, SNDMSG+23, CRTXTMM+4~, CRTXTMM+6, CRTXTMM+7, CRTXTMM+13, SNDEXT~, SNDEXT+16, SNDEXT+20 , SNDEXT+21, OUTLKARY~, OUTLKARY+13
LRNODATA	OUTLKARY+6~, OUTLKARY+8, OUTLKARY+22, OUTLKARY+24, OUTLKARY+25
LRNODE	TSKMMARY+43, TSKMMARY+53, TSKMMARY+54, TSKMMARY+56, CRTMMARY+8~, CRTMMARY+28, OUTLKARY+6~, OUTLKARY+29, OUTLKARY+33*, OUTLKARY+34
LROUTNOD	OUTLKARY+6~, OUTLKARY+29*, OUTLKARY+32, OUTLKARY+35, OUTLKARY+36, OUTLKARY+37, OUTLKARY+38
LROUTPT	CRTRPTAR~, CRTRPTAR+12*, CRTRPTAR+15, CRTRPTAR+17
LRPARAM	CRTRPTAR+9~
LRQUIT	ENCODE+6~, ENCODE+7, ENCODE+8, ENCODE+9
LRREF	LISTHLMM+4~, LISTHLMM+6, LISTHLMM+7, LISTHLMM+8, CRTMMARY+8~, CRTMMARY+15, CRTMMARY+16, CRTMMARY+17, CRTMMARY+35, CRTXTMM+5* , CRTXTMM+6
LRSAVE	CRTMMARY+8~
LRSTR	OUTLKARY+6~, OUTLKARY+7, OUTLKARY+29, OUTLKARY+34, OUTLKARY+35, OUTLKARY+36, ENCODE~, ENCODE+7, ENCODE+9, ENCODE+10 , ENCODE+12
LRSUB	TSKMMARY+43, TSKMMARY+54, TSKMMARY+56, CRTMMARY+8~, CRTMMARY+28*
LRTASK	SNDMSG~, SNDMSG+10*, SNDMSG+11
LRTASKMM	SNDMSG+8~, SNDMSG+23, SNDEXT+6~
LRTASKVA	TSKMMARY+11~, SNDEXT+6~, SNDEXT+21
LRTO	LISTHLMM+4~, LISTHLMM+8, LISTHLMM+11, CRTRPTAR~, CRTRPTAR+14, TSKMMARY+11~, TSKMMARY+16, TSKMMARY+22, TSKMMARY+28, TSKMMARY+40 , TSKMMARY+57, TSKMMARY+63, CRTMMARY+8~, CRTMMARY+17*, CRTMMARY+23, CRTMMARY+35
LRTOMM	TSKMMARY+11~, TSKMMARY+60, TSKMMARY+74, CRTMMARY+8~, CRTMMARY+34, SNDMSG~, SNDMSG+23, SNDEXT+6~
LRTOMM(	SNDMSG+17*
LRTOMM("G.LRJ	" , TSKMMARY+58, TSKMMARY+72
LRTOVA	TSKMMARY+11~, SNDEXT+6~, SNDEXT+21
LRTOVA(	TSKMMARY+69, SNDEXT+18
LRTYPE	SNDMSG+8~, SNDMSG+14, SNDMSG+15, SNDEXT+6~, SNDEXT+9, SNDEXT+11
LRVALST	CRTRPTAR+9~
LRX	UUBEGFN+5~, UUBEGFN+6, UUBEGFN+7, ENCODE+6~, ENCODE+10, ENCODE+11, UUEN+1~, UUEN+4, UUEN+5, UUEN+6
NODE	CRTRPTAR+8~
S	UUEN+1~, UUEN+6*, UUEN+7
STR	UUEN~, UUEN+2, UUEN+4
TMP	UUEN+1~, UUEN+2, UUEN+10, UUEN+11*, UUEN+12
TSKCALL	TSKMMARY+11~, TSKMMARY+31*
>> VALM("TITLE"	CRTRPTAR+10*
>> VALMAR	CRTMMARY+29
X	CRTRPTAR+8~, CRTRPTAR+14*, CRTRPTAR+17, TSKMMARY+17!, TSKMMARY+25, TSKMMARY+26!, UUEN+1~
X1	CRTRPTAR+8~, TSKMMARY+22*
X2	CRTRPTAR+8~, TSKMMARY+23*
X3	CRTRPTAR+8~
XCAT	TSKMMARY+42, TSKMMARY+44, TSKMMARY+46, TSKMMARY+50, TSKMMARY+53, TSKMMARY+54, TSKMMARY+56, CRTMMARY+8~, CRTMMARY+27, CRTMMARY+29 , CRTMMARY+31, CRTMMARY+33
XMERR	SNDMSG+8~, SNDMSG+12!, SNDMSG+19, SNDEXT+6~, SNDEXT+10!, SNDEXT+19
XMSUB	TSKERR+1~, TSKERR+3*, TSKERR+11
XMTEXT	TSKERR+1~
XMTEXT(1	TSKERR+4*
XMTEXT(2	TSKERR+5*
XMTEXT(3	TSKERR+6*
XMTEXT(4	TSKERR+7*
XMTEXT(5	TSKERR+8*
XMTEXT(6	TSKERR+9*
XMY	TSKERR+1~, TSKERR+11
XMY("G.LRJ "	TSKERR+2*
XMZ	SNDMSG+8~, SNDEXT+6~
XN	CRTRPTAR+8~
XP	CRTRPTAR+8~
XQSND	TSKMMARY+11~, TSKMMARY+59, TSKMMARY+60, TSKMMARY+68, TSKMMARY+69, TSKMMARY+74, TSKERR+1~, TSKERR+10, TSKERR+11, CRTMMARY+8~ , CRTMMARY+24, CRTMMARY+34, SNDMSG~, SNDMSG+23, CRTXTMM+4~, CRTXTMM+12*, CRTXTMM+13, SNDEXT~, SNDEXT+21
XSUB	OUTLKARY+6~, OUTLKARY+28*, OUTLKARY+29, OUTLKARY+30, OUTLKARY+31, OUTLKARY+33, OUTLKARY+34
Y	UUEN+1~, UUEN+6, UUEN+7, UUEN+9
ZTIO	TSKMMARY+11~, TSKMMARY+31*

Customize PDF page

Package: Lab Service