Routine: LRJSML

Information

LRJSML ;ALB/GTS - Lab Vista Hospital Location Utilities;02/24/2010 11:00:25

Package	Total	Call Graph
Lab Service	3	GETDATE^LRJSML8 BLDREC^LRJSMLA ($$BLDNUM,$$VERNUM,ADD)^LRJSMLU
Kernel	1	$$FMTE^XLFDT
List Manager	1	(CNTRL,KILL)^VALM10
Toolkit	1	$$GET^XPAR
VA FileMan	1	^%DT

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

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

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; -- header code
INIT	;* init variables and list array
CLEAR(LRFROM,LRTO,LRHLARY)	;* clean up entries
MSG	; -- set default message
REFRESH(LRFROM,LRTO,LRHLARY)	;* refresh display
BUILD(LRFROM,LRTO,LRHLARY)	; -- build display array
LISTHL(LRFROM,LRTO,LRHLARY)	; -- place Hospital Locations in the display array
BREAK(VALMCNT,X,NODE)	; -- break into 79/80 char chunks for display
CREATRPT(LRFROM,LRTO,LRHLARY)	;Create array of HL changes between selected dates
DATEENT(LRPRMPT,LRBD,LRED)	;Prompt for extract date
DISPEXT(LRHLARY)	;Display Raw HL changes extracted
MMHDR	; -- header code for Mail Message display

External References

Name	Field # of Occurrence
^%DT	DATEENT+18, DATEENT+24
GETDATE^LRJSML8	DISPEXT+10
BLDREC^LRJSMLA	CREATRPT+12
$$BLDNUM^LRJSMLU	HDR+2, MMHDR+2
$$VERNUM^LRJSMLU	HDR+2, MMHDR+2
ADD^LRJSMLU	BUILD+13, LISTHL+5, LISTHL+7, BREAK+4, BREAK+7, BREAK+9, BREAK+11
CNTRL^VALM10	BUILD+14, LISTHL+6
KILL^VALM10	BUILD+10, LISTHL+2
$$FMTE^XLFDT	MSG+5, LISTHL+4
$$GET^XPAR	MSG+2, MSG+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," Enter Hospital Location Extract Date Range...",! Line Location: CREATRPT+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("LRJ SYS MAP HL INIT MGR"	DISPEXT+15!
^TMP("LRJ SYS USER MANAGER - DATES"	DISPEXT+12, DISPEXT+13, DISPEXT+14*

Label References

Name	Line Occurrences
$$DATEENT	CREATRPT+5, CREATRPT+7
BREAK	LISTHL+11
BUILD	REFRESH+1
CLEAR	INIT+7
CREATRPT	INIT+2
HDR	DISPEXT+7
LISTHL	BUILD+16
MSG	INIT+8, REFRESH+2, CREATRPT+9, DISPEXT+17
REFRESH	CLEAR+1, DISPEXT+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATEENT+17*, DATEENT+28!
%DT("A"	DATEENT+15*
%DT("B"	DATEENT+16, DATEENT+23
%DT(0	DATEENT+13, DATEENT+14
C	BREAK+1~, BREAK+2, BREAK+4, BREAK+5, BREAK+7, BREAK+9, BREAK+11
DIR	CREATRPT+1~
>> DTOUT	DATEENT+25, DATEENT+26
>> IOINORM	BUILD+14, LISTHL+6
>> IOUOFF	BUILD+14, LISTHL+6
>> IOUON	BUILD+14, LISTHL+6
LAOUT	BREAK+1~, BREAK+6, BREAK+7, BREAK+8, BREAK+9, BREAK+10*, BREAK+11
LAX	BREAK+1~, BREAK+3*, BREAK+4, BREAK+6, BREAK+8, BREAK+10
LRAUTMSG	MSG+1~, MSG+5, MSG+8, MSG+9
LRBD	DATEENT~, DATEENT+25, DATEENT+26
LRBEGIN	MSG+1~, MSG+2*, MSG+4, MSG+5, MSG+7
LRDT	DATEENT+11~, DATEENT+27*, DATEENT+29
LRED	DATEENT~, DATEENT+13, DATEENT+14
LREND	MSG+1~, MSG+3*, MSG+4, MSG+5, MSG+7
LRFROM	INIT+1~, INIT+2, INIT+3, INIT+6, INIT+7, CLEAR~, CLEAR+1, REFRESH~, REFRESH+1, BUILD~ , BUILD+12, BUILD+16, LISTHL~, LISTHL+4, CREATRPT~, CREATRPT+5, CREATRPT+6, CREATRPT+7, CREATRPT+12, DISPEXT+6~ , DISPEXT+10, DISPEXT+11, DISPEXT+12, DISPEXT+14, DISPEXT+16
LRGOOD	DATEENT+11~, DATEENT+12, DATEENT+22, DATEENT+26
LRHLARY	CLEAR~, CLEAR+1, REFRESH~, REFRESH+1, BUILD~, BUILD+7, BUILD+16, LISTHL~, LISTHL+9, LISTHL+10 , CREATRPT~, CREATRPT+12, DISPEXT~, DISPEXT+16
LRJERRCT	BUILD+9~
LRPRMPT	DATEENT~, DATEENT+15, DATEENT+18, DATEENT+21
LRSTATUS	BUILD+9~
LRTO	INIT+1~, INIT+2, INIT+3, INIT+6, INIT+7, CLEAR~, CLEAR+1, REFRESH~, REFRESH+1, BUILD~ , BUILD+12, BUILD+16, LISTHL~, LISTHL+4, CREATRPT~, CREATRPT+7, CREATRPT+8, CREATRPT+12, DISPEXT+6~, DISPEXT+10 , DISPEXT+11, DISPEXT+13, DISPEXT+14, DISPEXT+16
LRX	BUILD+9~, BUILD+12*, BUILD+13, BUILD+14
NODE	LISTHL+1~, LISTHL+8, LISTHL+9, LISTHL+10, LISTHL+11, BREAK~, BREAK+3
SUBNODE	BREAK+1~
>> VALMBCK	INIT+4, REFRESH+3, DISPEXT+18*
>> VALMBG	REFRESH+4, DISPEXT+19
VALMCNT	BUILD+11, BUILD+13, BUILD+14, LISTHL+3, LISTHL+5, LISTHL+6, LISTHL+7, LISTHL+11, BREAK~, BREAK+4 , BREAK+7, BREAK+9, BREAK+11
>> VALMHDR(1	HDR+1, MMHDR+1
>> VALMHDR(2	HDR+2, MMHDR+2
>> VALMQUIT	INIT+5*
>> VALMSG	MSG+9*
X	LISTHL+1~, LISTHL+4, LISTHL+5, LISTHL+6, LISTHL+10, LISTHL+11, BREAK~, BREAK+3, DATEENT+25, DATEENT+26
Y	DATEENT+25, DATEENT+26, DATEENT+27, DATEENT+28!

Customize PDF page

Package: Lab Service