Routine: LRJSML8

Package	Total	Call Graph
Lab Service	3	($$INITCK,SETRNG)^LRJSML1 (LRADDNOD,LRNEWOUT,MMDISPC,MMDISPN,SETEPARM,SETNPARM)^LRJSML3 ($$UUEN,HANGCHAR)^LRJSMLU
MailMan	2	SENDMSG^XMXAPI TOWHOM^XMXAPIU
Kernel	1	($$FMTE,$$NOW)^XLFDT
List Manager	1	(CNTRL,KILL)^VALM10

Package	Total	Caller Graph
Lab Service	5	LRJSML LRJSML1 LRJSML2 LRJSML5 LRJSML6

Name	Comments	DBIA/ICR reference
LISTHLMM(LRHLARY)	; Store Hospital Locations in display array ; INPUT - ; LRHLARY - Array of raw extract data
CRTRPTAR(LRHLARY,LRFROM,LRTO,LROUTPT,LRMMARY)	; Store Hospital Locations in display array ; INPUT - ; LRHLARY - Raw extract data Array ; LRFROM - Report Start date ; LRTO - Report End date ; LROUTPT - "DISPLAY" - Listman; "MAIL" - mail message ; LRMMARY - Mail msg output array
XSET(LRINIT,LRFROM,LRTO)	;Set report description (first line listed)
GETDATE(LRFROM,LRTO)	;Return Report dates from ^TMP("LRJ SYS MAP HL MANAGER",$JOB)
SNDMSG(LRMSUBJ,XQSND,LRMSGARY,LRTASK)	;Send HL changes to requestor
SNDEXT(LRMSUBJ,XQSND,LREXTARY)	;Send HL changes Extract to requester
OUTLKARY(LRHLARY,LRHLOTLK,LRMSUBJ,LRRT)	;Create attachmts array
UUBEGFN(LRFILENM)	; Construct uuencode "begin" coding ; Call with LRFILENM = name of uuencoded file attachmt ; ; Returns LRX = string with "begin..."_file name
ENCODE(LRSTR,LRDTANOD,LRHLOTLK)	;Encode a string, keep remainder for next line

Name	Field # of Occurrence
$$INITCK^LRJSML1	LISTHLMM+5, CRTRPTAR+12
SETRNG^LRJSML1	LISTHLMM+7
LRADDNOD^LRJSML3	CRTRPTAR+23, CRTRPTAR+26
LRNEWOUT^LRJSML3	CRTRPTAR+64, CRTRPTAR+65, CRTRPTAR+109, CRTRPTAR+110
MMDISPC^LRJSML3	CRTRPTAR+90, CRTRPTAR+91
MMDISPN^LRJSML3	CRTRPTAR+43, CRTRPTAR+44
SETEPARM^LRJSML3	CRTRPTAR+79
SETNPARM^LRJSML3	CRTRPTAR+39, CRTRPTAR+61, CRTRPTAR+106
$$UUEN^LRJSMLU	OUTLKARY+40, OUTLKARY+56, ENCODE+11
HANGCHAR^LRJSMLU	OUTLKARY+35, OUTLKARY+51
CNTRL^VALM10	CRTRPTAR+27
KILL^VALM10	LISTHLMM+8
$$FMTE^XLFDT	XSET+9, XSET+11, OUTLKARY+14
$$NOW^XLFDT	OUTLKARY+14, OUTLKARY+19
SENDMSG^XMXAPI	SNDMSG+23, SNDEXT+23
TOWHOM^XMXAPIU	SNDMSG+14, SNDEXT+11

Name	Line Occurrences (* Changed, ! Killed)
^TMP("LRJ SYS MAP HL INIT MGR"	GETDATE+9, GETDATE+12
^TMP("XMY"	SNDMSG+16, SNDMSG+25!, SNDEXT+18, SNDEXT+25!
^TMP("XMY0"	SNDMSG+25!, SNDEXT+25!
^TMP($J	XSET+11, SNDMSG+25!, SNDEXT+25!

Name	Line Occurrences
$$UUBEGFN	OUTLKARY+31, OUTLKARY+47
$$XSET	CRTRPTAR+19
CRTRPTAR	LISTHLMM+9
ENCODE	OUTLKARY+37, OUTLKARY+39, OUTLKARY+53, OUTLKARY+55
OUTLKARY	SNDEXT+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DUZ	SNDMSG+14, SNDEXT+11
>> IOINORM	CRTRPTAR+27
>> IOUOFF	CRTRPTAR+27
>> IOUON	CRTRPTAR+27
LRCBED	CRTRPTAR+8~, CRTRPTAR+16, CRTRPTAR+78, CRTRPTAR+96
LRCHAR	OUTLKARY+7~, OUTLKARY+9*, OUTLKARY+35, OUTLKARY+51
LRCLOC	CRTRPTAR+8~, CRTRPTAR+16, CRTRPTAR+82, CRTRPTAR+86, CRTRPTAR+94*
LRCRLF	OUTLKARY+7~, OUTLKARY+12*, OUTLKARY+14, OUTLKARY+16, OUTLKARY+22, OUTLKARY+24, OUTLKARY+36, OUTLKARY+52
LRCRM	CRTRPTAR+8~, CRTRPTAR+16, CRTRPTAR+78, CRTRPTAR+95
LRDTANOD	ENCODE~, ENCODE+11*
LRDTTM	OUTLKARY+7~, OUTLKARY+19*, OUTLKARY+20, OUTLKARY+21
LREXTARY	SNDEXT~, SNDEXT+22
LRFILENM	UUBEGFN~, UUBEGFN+6
LRFILNM1	OUTLKARY+7~, OUTLKARY+20*, OUTLKARY+22, OUTLKARY+31
LRFILNM2	OUTLKARY+7~, OUTLKARY+21*, OUTLKARY+24, OUTLKARY+47
LRFROM	LISTHLMM+4~, LISTHLMM+6, LISTHLMM+7, LISTHLMM+9, CRTRPTAR~, CRTRPTAR+19, XSET~, XSET+9, GETDATE~, GETDATE+9 , GETDATE+10, GETDATE+11
LRFSTLNE	CRTRPTAR+9~, CRTRPTAR+14, CRTRPTAR+38, CRTRPTAR+51, CRTRPTAR+60, CRTRPTAR+72, CRTRPTAR+78, CRTRPTAR+100, CRTRPTAR+105, CRTRPTAR+117*
LRHD	CRTRPTAR+8~, CRTRPTAR+17, CRTRPTAR+18, CRTRPTAR+38, CRTRPTAR+50, CRTRPTAR+60, CRTRPTAR+71, CRTRPTAR+105, CRTRPTAR+116*
LRHLARY	LISTHLMM~, LISTHLMM+9, CRTRPTAR~, CRTRPTAR+31, CRTRPTAR+32, CRTRPTAR+75, OUTLKARY~, OUTLKARY+25, OUTLKARY+34, OUTLKARY+36 , OUTLKARY+50, OUTLKARY+52
LRHLOTLK	OUTLKARY~, OUTLKARY+13, OUTLKARY+14, OUTLKARY+15, OUTLKARY+16, OUTLKARY+17, OUTLKARY+22, OUTLKARY+23, OUTLKARY+24, OUTLKARY+26 , OUTLKARY+27, OUTLKARY+28, OUTLKARY+31, OUTLKARY+37, OUTLKARY+39, OUTLKARY+40, OUTLKARY+41, OUTLKARY+42, OUTLKARY+47, OUTLKARY+53 , OUTLKARY+55, OUTLKARY+56, OUTLKARY+57, OUTLKARY+58, ENCODE~, ENCODE+11
LRINIT	LISTHLMM+4~, LISTHLMM+5, LISTHLMM+6, LISTHLMM+7, CRTRPTAR+9~, CRTRPTAR+12, CRTRPTAR+13, CRTRPTAR+19, XSET~, XSET+9 , XSET+10
LRINSTMM	SNDMSG+7~, SNDMSG+14, SNDMSG+23, SNDEXT+6~, SNDEXT+11
LRINSTMM("ADD	R FLAGS" , SNDMSG+12, SNDEXT+8
LRINSTMM("FROM"	SNDMSG+21*
LRINSTVA	SNDEXT+6~, SNDEXT+23
LRINSTVA("ADD	R FLAGS" , SNDEXT+14*
LRINSTVA("FROM"	SNDEXT+15*
LRLEN	ENCODE+6~, ENCODE+7*, ENCODE+12
LRLNCNT	CRTRPTAR+9~, CRTRPTAR+22*, CRTRPTAR+23, CRTRPTAR+44, CRTRPTAR+65, CRTRPTAR+91, CRTRPTAR+110
LRLNCTN	CRTRPTAR+9~
LRLOC	CRTRPTAR+8~, CRTRPTAR+16, CRTRPTAR+41, CRTRPTAR+47, CRTRPTAR+57, CRTRPTAR+62, CRTRPTAR+68, CRTRPTAR+73, CRTRPTAR+102, CRTRPTAR+107 , CRTRPTAR+113*
LRLPCNT	SNDMSG+7~, SNDMSG+15, SNDMSG+16, SNDEXT+6~, SNDEXT+17, SNDEXT+18
LRMMARY	CRTRPTAR~, CRTRPTAR+10*, CRTRPTAR+23, CRTRPTAR+26, CRTRPTAR+43, CRTRPTAR+44, CRTRPTAR+64, CRTRPTAR+65, CRTRPTAR+90, CRTRPTAR+91 , CRTRPTAR+109, CRTRPTAR+110
LRMSGARY	SNDMSG~, SNDMSG+23, SNDMSG+25
LRMSUBJ	SNDMSG~, SNDMSG+22, SNDMSG+23, SNDEXT~, SNDEXT+16, SNDEXT+22, SNDEXT+23, OUTLKARY~, OUTLKARY+16
LRNEWLOC	CRTRPTAR+9~, CRTRPTAR+15, CRTRPTAR+88, CRTRPTAR+101
LRNODATA	OUTLKARY+7~, OUTLKARY+11, OUTLKARY+25, OUTLKARY+27, OUTLKARY+28
LRNODE	OUTLKARY+7~, OUTLKARY+32, OUTLKARY+34, OUTLKARY+35, OUTLKARY+36, OUTLKARY+48, OUTLKARY+49, OUTLKARY+50, OUTLKARY+51, OUTLKARY+52
LRNOTCHG	CRTRPTAR+9~, CRTRPTAR+13*, CRTRPTAR+17, CRTRPTAR+18, CRTRPTAR+38, CRTRPTAR+60, CRTRPTAR+78, CRTRPTAR+105
LROBED	CRTRPTAR+8~, CRTRPTAR+16, CRTRPTAR+38, CRTRPTAR+49, CRTRPTAR+60, CRTRPTAR+70, CRTRPTAR+105, CRTRPTAR+115
LROUTNOD	OUTLKARY+7~, OUTLKARY+33, OUTLKARY+37, OUTLKARY+39, OUTLKARY+40, OUTLKARY+41, OUTLKARY+42, OUTLKARY+46, OUTLKARY+47, OUTLKARY+53 , OUTLKARY+55, OUTLKARY+56, OUTLKARY+57, OUTLKARY+58
LROUTPT	CRTRPTAR~, CRTRPTAR+11*, CRTRPTAR+21, CRTRPTAR+23, CRTRPTAR+24, CRTRPTAR+26, CRTRPTAR+43, CRTRPTAR+44, CRTRPTAR+64, CRTRPTAR+65 , CRTRPTAR+90, CRTRPTAR+91, CRTRPTAR+109, CRTRPTAR+110
LRPARAM	CRTRPTAR+9~, CRTRPTAR+39, CRTRPTAR+43, CRTRPTAR+44, CRTRPTAR+61, CRTRPTAR+64, CRTRPTAR+65, CRTRPTAR+79, CRTRPTAR+90, CRTRPTAR+91 , CRTRPTAR+106, CRTRPTAR+109, CRTRPTAR+110
LRPARAM("LRCBED"	CRTRPTAR+96
LRPARAM("LRCLOC"	CRTRPTAR+86*, CRTRPTAR+94
LRPARAM("LRCRM"	CRTRPTAR+95
LRPARAM("LRFSTLNE"	CRTRPTAR+51, CRTRPTAR+72, CRTRPTAR+100, CRTRPTAR+117
LRPARAM("LRHD"	CRTRPTAR+50, CRTRPTAR+71, CRTRPTAR+116
LRPARAM("LRLOC"	CRTRPTAR+41, CRTRPTAR+47, CRTRPTAR+62, CRTRPTAR+68, CRTRPTAR+107*, CRTRPTAR+113
LRPARAM("LRNEWLOC"	CRTRPTAR+88*, CRTRPTAR+101
LRPARAM("LROBED"	CRTRPTAR+49, CRTRPTAR+70, CRTRPTAR+115
LRPARAM("LRPBED"	CRTRPTAR+99
LRPARAM("LRPLOC"	CRTRPTAR+87*, CRTRPTAR+97
LRPARAM("LRPRM"	CRTRPTAR+98
LRPARAM("LRRM"	CRTRPTAR+48, CRTRPTAR+69, CRTRPTAR+114
LRPARAM("XN"	CRTRPTAR+40, CRTRPTAR+84
LRPARAM("XP"	CRTRPTAR+85*
LRPBED	CRTRPTAR+8~, CRTRPTAR+16, CRTRPTAR+78, CRTRPTAR+99
LRPLOC	CRTRPTAR+8~, CRTRPTAR+16, CRTRPTAR+83, CRTRPTAR+87, CRTRPTAR+97*
LRPRM	CRTRPTAR+8~, CRTRPTAR+16, CRTRPTAR+78, CRTRPTAR+98
LRQUIT	ENCODE+6~, ENCODE+7, ENCODE+8, ENCODE+9
LRRM	CRTRPTAR+8~, CRTRPTAR+16, CRTRPTAR+38, CRTRPTAR+48, CRTRPTAR+60, CRTRPTAR+69, CRTRPTAR+105, CRTRPTAR+114
LRRT	OUTLKARY~, OUTLKARY+8*, OUTLKARY+9, OUTLKARY+35, OUTLKARY+51
LRSTR	OUTLKARY+7~, OUTLKARY+10, OUTLKARY+36, OUTLKARY+37, OUTLKARY+39, OUTLKARY+40, OUTLKARY+45, OUTLKARY+52, OUTLKARY+53, OUTLKARY+55 , OUTLKARY+56, ENCODE~, ENCODE+7, ENCODE+9, ENCODE+10, ENCODE+12*
LRTASK	SNDMSG~, SNDMSG+9*, SNDMSG+10
LRTASKMM	SNDMSG+7~, SNDMSG+23, SNDEXT+6~
LRTASKVA	SNDEXT+6~, SNDEXT+23
LRTO	LISTHLMM+4~, LISTHLMM+6, LISTHLMM+7, LISTHLMM+9, CRTRPTAR~, CRTRPTAR+19, XSET~, XSET+9, GETDATE~, GETDATE+12
LRTOMM	SNDMSG+7~, SNDMSG+23, SNDEXT+6~
LRTOMM(	SNDMSG+16, SNDMSG+19
LRTOMM("G.LRJ	SYS MAP HL TASK REPORT" , SNDMSG+20*
LRTOVA	SNDEXT+6~, SNDEXT+23
LRTOVA(	SNDEXT+18*
LRTYPE	SNDMSG+7~, SNDMSG+13, SNDMSG+14, SNDEXT+6~, SNDEXT+9, SNDEXT+11
LRVALST	CRTRPTAR+9~, CRTRPTAR+38, CRTRPTAR+39, CRTRPTAR+60, CRTRPTAR+61, CRTRPTAR+78, CRTRPTAR+79, CRTRPTAR+105, CRTRPTAR+106
LRX	XSET+8~, XSET+9, XSET+11, XSET+12, UUBEGFN+5~, UUBEGFN+6, UUBEGFN+7, ENCODE+6~, ENCODE+10, ENCODE+11
LRXN	CRTRPTAR+8~, CRTRPTAR+32*, CRTRPTAR+35, CRTRPTAR+40, CRTRPTAR+54, CRTRPTAR+81, CRTRPTAR+82, CRTRPTAR+84
LRXP	CRTRPTAR+8~, CRTRPTAR+75*, CRTRPTAR+83, CRTRPTAR+85
NODE	CRTRPTAR+8~, CRTRPTAR+30, CRTRPTAR+31, CRTRPTAR+32, CRTRPTAR+74*, CRTRPTAR+75
>> VALMCNT	CRTRPTAR+25*, CRTRPTAR+26, CRTRPTAR+27, CRTRPTAR+43, CRTRPTAR+64, CRTRPTAR+90, CRTRPTAR+109
X	CRTRPTAR+8~, CRTRPTAR+19*, CRTRPTAR+23, CRTRPTAR+26, CRTRPTAR+27
XMERR	SNDMSG+7~, SNDMSG+11!, SNDMSG+18, SNDEXT+6~, SNDEXT+10!, SNDEXT+20
XMZ	SNDMSG+7~, SNDEXT+6~
XQSND	SNDMSG~, SNDMSG+19, SNDMSG+23, SNDEXT~, SNDEXT+23

Customize PDF page

Package: Lab Service

Routine: LRJSML8

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: