Routine: LRNINES7

Package	Total	Call Graph
Kernel	4	ENS^%ZISS $$FMTE^XLFDT $$CJ^XLFSTR (EXIT,INIT,TITLE,UPDATE)^XPDID
VA Fileman	2	C^%DTC %XY^%RCR
Lab Service	1	^LRKILL

Package	Total	Caller Graph
Lab Service	2	LR TASK 7 9s LR156P

Entry Points

Name	Comments	DBIA/ICR reference
BYE68
MOVE	;
FIXALL	;
FIXLR	;
DONE
CONTROL	;
TASK	;
BAKDOR	;-->Maybe the ^LAC can provide accn.
SCRNOFF	;
INIT	;
JOBTIME	;
SET(LRDFN)	;
COUNT	;
FINDLR	;----------find ALL the 7 nines in ALL OF LR
FLASH	;
END	;
FIXLAC	;
LAC(LRDFN,LRODT,LRIDT)	;
ACCN(LRNODE)	;
LRODT	;
LRSN	;
ALT	;
LRIDT	;
SCRNON	;
CHKLAC	;
FIX68	; ; COLL. TIME

External References

Name	Field # of Occurrence
C^%DTC	TASK+13
%XY^%RCR	FIXLAC+9, FIXLR+5
ENS^%ZISS	SCRNON+3
^LRKILL	DONE+2
$$FMTE^XLFDT	FLASH+6, FLASH+8
$$CJ^XLFSTR	FLASH+6, FLASH+8
EXIT^XPDID	SCRNOFF+4
INIT^XPDID	JOBTIME+7
TITLE^XPDID	TASK+11, FINDLR+9, COUNT+8
UPDATE^XPDID	MOVE+9, ALT+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"All occurences of 7 9s have been removed and their effects in" Line Location: DONE+0
Function Call: WRITE	Prompt: !,"your data base have been disarmed.",! Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Line Location: TASK+8
Function Call: WRITE	Prompt: !!,"Mission debreifing:" Line Location: TASK+22
Function Call: WRITE	Prompt: !,"No problems related to 7-9s have been observed for Yesterday and Today." Line Location: TASK+23
Function Call: WRITE	Prompt: @IOF Line Location: FINDLR+6
Function Call: WRITE	Prompt: "Found ",LRCOUNT," occurrances of 7 9s in ^LR" Line Location: FINDLR+15
Function Call: WRITE	Prompt: @IOF Line Location: COUNT+5
Function Call: WRITE	Prompt: IORVON Line Location: MOVE+11
Function Call: WRITE	Prompt: ">" Line Location: MOVE+12
Function Call: WRITE	Prompt: IORVOFF Line Location: MOVE+13
Function Call: WRITE	Prompt: IOELALL Line Location: MOVE+15
Function Call: WRITE	Prompt: $P((LRIN/LRJT0)*100,"."),"%" Line Location: MOVE+16
Function Call: WRITE	Prompt: IORVON Line Location: ALT+12
Function Call: WRITE	Prompt: ">" Line Location: ALT+13
Function Call: WRITE	Prompt: IORVOFF Line Location: ALT+14
Function Call: WRITE	Prompt: IOELALL Line Location: ALT+16
Function Call: WRITE	Prompt: $P(LRHUN,"."),"%" Line Location: ALT+18
Function Call: WRITE	Prompt: IOG1 Line Location: SCRNON+2
Function Call: WRITE	Prompt: IODHLT,$$CJ^XLFSTR($$FMTE^XLFDT(LRDT7,"D"),IOM) Line Location: FLASH+6
Function Call: WRITE	Prompt: IODHLB,$$CJ^XLFSTR($$FMTE^XLFDT(LRDT7,"D"),IOM) Line Location: FLASH+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAC("LRAC" - [#64.7]	LAC+7, LAC+9, LAC+10, FIXLAC+10, FIXLAC+11, FIXLAC+12!
^LR - [#63]	FINDLR+11, SET+5, COUNT+14, COUNT+15, FIXLR+6, FIXLR+7, FIXLR+8!
^LR(0	FINDLR+3
^LRO(68 - [#68]	BAKDOR+3, LRSN+1, LRODT+4, FIX68+6, FIX68+7
^LRO(69 - [#69]	TASK+16, LRODT+1, FIX68+5, FIX68+7
^TMP("LR"	CONTROL+1!, TASK+3!, SET+6, COUNT+3, COUNT+10, COUNT+12, CHKLAC+4

Label References

Name	Line Occurrences
ACCN	COUNT+16
ALT	MOVE+3
CHKLAC	ACCN+4
FINDLR	CONTROL+2
FIX68	LRIDT+6
FIXALL	CONTROL+5
FIXLAC	LAC+11
FIXLR	LAC+14, FIXLAC+14
FLASH	SCRNON+4
JOBTIME	TASK+10, FINDLR+8, COUNT+7
LAC	LRODT+9, BYE68, CHKLAC+7
MOVE	SET+3, COUNT+13, COUNT+17
SCRNOFF	TASK+19, FINDLR+16
SCRNON	JOBTIME+14
SET	TASK+16, FINDLR+13

Naked Globals

Name	Field # of Occurrence
^(0	LRSN+1, LAC+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %X	FIXLAC+8, FIXLR+4
>> %Y	FIXLAC+7, FIXLR+3
>> %ZIS	SCRNON+3*
DT	TASK+13, TASK+15
>> DX	TASK+9, FINDLR+7, FINDLR+14, COUNT+6, JOBTIME+13, MOVE+6, MOVE+14, ALT+8, ALT+15, FLASH+4
>> DY	TASK+9, FINDLR+7, FINDLR+14, COUNT+6, JOBTIME+13, MOVE+6, MOVE+14, ALT+8, ALT+15, FLASH+4 , FLASH+7*
>> I	ALT+7*
>> IODHLB	FLASH+8
>> IODHLT	FLASH+6
>> IOELALL	MOVE+15, ALT+16
IOF	TASK+8, FINDLR+6, COUNT+5
IOM	FLASH+6, FLASH+8
>> IORVOFF	MOVE+13, ALT+14
>> IORVON	MOVE+11, ALT+12
IOST	TASK+8, TASK+21, FINDLR+6, SET+3, COUNT+5, COUNT+13, COUNT+17, JOBTIME+2, JOBTIME+7, JOBTIME+11 , MOVE+1, ALT+1, SCRNON+1, SCRNOFF+1
>> IOXY	TASK+9, FINDLR+7, FINDLR+14, COUNT+6, JOBTIME+13, MOVE+6, MOVE+14, ALT+8, ALT+15, FLASH+4 , FLASH+7
>> LACNODE	LAC+10, LAC+11, LAC+12, FIXLAC+3, FIXLAC+4
>> LR(1	FLASH+3
>> LRA	TASK+7, FINDLR+4, JOBTIME+6, ALT+4, SCRNOFF+3*
LRAA	ACCN+6!, BAKDOR+3*, BAKDOR+6, LRSN+1, LRODT+4, FIX68+6, FIX68+7
LRACCN	ACCN+6!, BAKDOR+2, BAKDOR+3, BAKDOR+4, BAKDOR+5, LAC+12
LRAD	ACCN+6!, BAKDOR+4*, BAKDOR+6, LRSN+1, LRODT+1, LRODT+4, FIX68+6, FIX68+7
LRALT	JOBTIME+5!, MOVE+4, ALT+3, ALT+5*
LRAN	ACCN+6!, BAKDOR+5*, BAKDOR+6, LRSN+1, LRODT+4, FIX68+6, FIX68+7
>> LRCNTLR	TASK+6, TASK+7, FINDLR+3, FINDLR+4, COUNT+4*, JOBTIME+6, JOBTIME+8, ALT+4, SCRNOFF+3
>> LRCOUNT	TASK+5, FINDLR+10, FINDLR+15, SET+6, COUNT+1, COUNT+3*, COUNT+4
LRDFN	TASK+14, TASK+16, FINDLR+10, FINDLR+11, FINDLR+13, SET~, SET+5, SET+6, COUNT+9, COUNT+10 , COUNT+12, COUNT+14, COUNT+15, LRODT+9, BYE68, LAC~, LAC+7, LAC+9, LAC+10, FIXLAC+10 , FIXLAC+11, FIXLAC+12, CHKLAC+4, CHKLAC+7, FIXLR+6, FIXLR+7, FIXLR+8
>> LRDT0	TASK+13*, TASK+15
>> LRDT7	FLASH+3*, FLASH+6, FLASH+8
>> LRECIP	MOVE+5*, MOVE+6, MOVE+8
>> LRHUN	ALT+17*, ALT+18
>> LRI	TASK+7, FINDLR+4, JOBTIME+6, ALT+4, SCRNOFF+3*
LRIDT	LRODT+8, LRODT+9, LRIDT+4, BYE68, LAC~, FIXLAC+11, CHKLAC+6*, CHKLAC+7, FIXLR+6, FIXLR+7 , FIX68+6
>> LRIN	TASK+7, FINDLR+4, JOBTIME+6, MOVE+6, MOVE+8, MOVE+9, MOVE+16, ALT+4, ALT+8, ALT+9 , ALT+10, ALT+17, SCRNOFF+3*
>> LRJT0	JOBTIME+6, MOVE+3, MOVE+5, MOVE+7, MOVE+16, ALT+4, ALT+17, SCRNOFF+3*
>> LRLONG	FIXLAC+3*, FIXLAC+4
LRNODE	COUNT+15*, COUNT+16, ACCN~, ACCN+4, BAKDOR+2, BAKDOR+4, LRODT+5, CHKLAC+1, CHKLAC+2
LRODT	TASK+15, TASK+16, ACCN+6!, LRODT+1, LRODT+4, LRODT+5, LRODT+6, LRODT+7, LRODT+9!, LRODT+10 , LRIDT+2, LRIDT+3, LAC~, CHKLAC+2, CHKLAC+4, CHKLAC+6, CHKLAC+7, FIX68+5, FIX68+7
>> LRODT1	LRODT+6, LRODT+8, LRODT+9, LRIDT+2, LRIDT+4, BYE68, FIXLAC+10, FIXLAC+11, FIXLR+7
>> LROK	BAKDOR+6*
LRSN	ACCN+6!, LRSN+1*, LRODT+1, FIX68+4, FIX68+5, FIX68+7
>> LRSUB	SET+4, SET+5, SET+6, COUNT+11, COUNT+12*, COUNT+14, COUNT+15, FIXLR+6, FIXLR+7, FIXLR+8
>> LRT70	TASK+7, FINDLR+4, JOBTIME+6, ALT+4, SCRNOFF+3*
>> LRTAC	LAC+8, LAC+9, LAC+10, FIXLAC+10, FIXLAC+11, FIXLAC+12
>> LRTIC	CONTROL+3, LAC+6, LAC+7, LAC+9, LAC+10, FIXLAC+10, FIXLAC+11, FIXLAC+12, MOVE+7, MOVE+8*
>> LRTJ0	ALT+6*
LRTOE	LAC+1!, LAC+14, FIXLAC+15*
>> LRX6	COUNT+2, COUNT+3
>> OK	JOBTIME+12*
>> TMP("LR"	TASK+20
U	FINDLR+3, BAKDOR+2, BAKDOR+4, LRSN+1, LRODT+5, LAC+11, LAC+12, FIXLAC+10, FIXLAC+11, CHKLAC+2 , FIXLR+7, FIX68+6, FIX68+7
>> X	TASK+13
>> X1	TASK+13*
>> X2	TASK+13*
>> XPDIDTOT	JOBTIME+8*
>> XPDIDVT	JOBTIME+6, SCRNOFF+3

Customize PDF page

Package: Lab Service

Routine: LRNINES7

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: