Routine: LRAR06

Information

LRAR06 ;DALLAS/HOAK CUME ARCHIVE INITIATIVE part of 00 ; 12/12/96 10:16 ;

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	6	^%DT C^%DTC ^DIC YN^DICN ^DIE ^DIR
Lab Service	2	DEV^LRAR01 (QUIT,STEPOUT)^LRARCHIV
Kernel	1	$$FMTE^XLFDT

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

Package	Total	Caller Graph
Lab Service	1	LRARCHIV

Entry Points

Name	Comments	DBIA/ICR reference
INIT	;
RESTART	;
TAPE	;
DT	;
SET
TIME	;
END	;
QUIT	;
FIRST	;--------->by nuber of days
SECOND	;---------->by date range
THIRD	;----------->by month
FOURTH	;--------------->by quarter
AGAIN	;
FIFTH	;
PASTIT	;
QUARTER	;
FIRSTQ(LRYEAR)	;
SECONDQ(LRYEAR)	;
THIRDQ(LRYEAR)	;
FOURTHQ(LRYEAR)	;
DAYS	;

External References

Name	Field # of Occurrence
^%DT	SECOND+4, SECOND+8, THIRD+6, AGAIN+6
C^%DTC	FIRST+4
^DIC	TAPE+4
YN^DICN	RESTART+5
^DIE	SET+23
^DIR	SET+5, SET+16, TIME+11, FIRST+2, FOURTH+5
DEV^LRAR01	RESTART+8
QUIT^LRARCHIV	QUIT+1
STEPOUT^LRARCHIV	RESTART+10
$$FMTE^XLFDT	FIRST+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Search not complete." Line Location: RESTART+1
Function Call: WRITE	Prompt: !,"Searching in progress, please wait for it to finish." Line Location: RESTART+2
Function Call: WRITE	Prompt: !,"Do you want to restart the search" Line Location: RESTART+4
Function Call: WRITE	Prompt: !,"You must create a NEW name for this ARCHIVE." Line Location: TAPE+7
Function Call: WRITE	Prompt: !!,"OK BYE BYE" Line Location: TIME+12
Function Call: WRITE	Prompt: !!,"OK BYE BYE" Line Location: FIRST+3
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(X,"D")," TO ",$$FMTE^XLFDT(LR(1),"D") Line Location: FIRST+5
Function Call: WRITE	Prompt: !!,"You forgot the month." Line Location: THIRD+8
Routine Call	DIC Line Location: TAPE+4
Routine Call	DIE Line Location: SET+23
Routine Call	DIR Line Location: SET+5 SET+16 TIME+11 FIRST+2 FOURTH+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(69.9 - [#69.9]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(69.9 - [#69.9]	RESTART+9
^LAR(	RESTART+1, RESTART+3

Label References

Name	Line Occurrences
AGAIN	FOURTH+8, FIFTH+1
END	TIME+19, SECOND+4, SECOND+8, FOURTH+6, AGAIN+2, AGAIN+7, FIFTH+2
PASTIT	FIRST+7, SECOND+13, THIRD+13, FOURTH+11
QUIT	RESTART+2, RESTART+6, RESTART+9
RESTART	RESTART+6
TAPE	TAPE+7
THIRD	THIRD+8

Naked Globals

Name	Field # of Occurrence
^("LRDFN"	RESTART+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	RESTART+5*, RESTART+6
%DT	SECOND+1, SECOND+12!, THIRD+1, THIRD+12!, AGAIN+3!, AGAIN+4*
%DT("?"	THIRD+3*
%DT("??"	THIRD+4*
%DT("A"	SECOND+3, SECOND+7, THIRD+5, AGAIN+4
%DT("B"	SECOND+2, SECOND+6, THIRD+2, AGAIN+5
>> DA	TAPE+1, SET+6, SET+17, SET+20, SET+21, SET+22
DIC	TAPE+1*, SET+22, SET+24!
DIC("A"	TAPE+2*
DIC(0	TAPE+3*
>> DIE	SET+22*
DIR	SET+11!, SET+27!, TIME+18!, FIRST+1!, FIRST+7!, FOURTH+1!
DIR("?"	SET+2, SET+14, TIME+5, TIME+6, TIME+7, TIME+8, TIME+9, FOURTH+4
DIR("??"	SET+1*
DIR("A"	SET+3, SET+13, FIRST+1*
DIR("B"	SET+4, SET+15, TIME+10, FIRST+1, FOURTH+3*
DIR(0	SET, SET+13, TIME+4, FIRST+1, FOURTH+2*
DLAYGO	TAPE+4*, TAPE+5!
>> DR	SET+22*
DT	TIME+3, THIRD+2, AGAIN+5
>> DTOUT	SET+6, SET+17, TIME+12, FIRST+3, FOURTH+6
>> DUOUT	SET+6, SET+17, TIME+12, FIRST+3, FOURTH+6
>> LR(1	SET+18, SET+22, TIME+3, FIRST+4, FIRST+5, SECOND+5, SECOND+10, THIRD+10, THIRD+11, FIFTH+3* , FIRSTQ+2, SECONDQ+2, THIRDQ+2, FOURTHQ+2
>> LRD0	TIME+14, TIME+15, TIME+16
>> LRDA9	TAPE+6*, SET+20
>> LRDFN	RESTART+9*
>> LREDT	TIME+20, FIRST+6, SECOND+9, SECOND+10, THIRD+10, THIRD+11, FIFTH+4, FIRSTQ+2, SECONDQ+2, THIRDQ+2* , FOURTHQ+2*
>> LREDT3	TIME+20*
>> LRQQ	FOURTH+7, FOURTH+9, FOURTH+10*
>> LRWHICH	SET+9*
>> LRY0	SECOND+10, THIRD+11
LRYEAR	AGAIN+8*, FIRSTQ~, FIRSTQ+1, SECONDQ~, SECONDQ+1, THIRDQ~, THIRDQ+1, FOURTHQ~, FOURTHQ+1
>> LRYQ	FIRSTQ+1, FIRSTQ+2, SECONDQ+1, SECONDQ+2, THIRDQ+1, THIRDQ+2, FOURTHQ+1, FOURTHQ+2
>> OK	DT+1, SET+6, SET+7, SET+17, SET+19, TIME+2, TIME+12, TIME+15, TIME+19, FIRST+3* , SECOND+4, SECOND+8, THIRD+6, FOURTH+6, AGAIN+2, AGAIN+7*, FIFTH+2
>> P1	SET+22*
>> POP	RESTART+9
U	TAPE+7
>> X	FIRST+5, FIRST+6
>> X1	FIRST+4*
>> X2	FIRST+4*
>> Y	TAPE+5, TAPE+6, TAPE+7, SET+18, TIME+12, TIME+14, FIRST+3, FIRST+4, SECOND+4, SECOND+5 , SECOND+8, SECOND+9, THIRD+6, THIRD+8, THIRD+10, FOURTH+7, AGAIN+7, AGAIN+8, FIFTH+3, FIFTH+4

Customize PDF page

Package: Lab Service