Routine: LRCKPTR

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
IHS VA Utilities	1	^XBFMK
VA Fileman	1	^DIR

Package	Total	Caller Graph
Lab Service	2	LRCKF LRCKPTR

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	LRCKPTR+13
^%ZISC	LRCKPTR+14
^%ZTLOAD	LRCKPTR+14
^DIR	LRCKPTR+10
^XBFMK	LRCKPTR+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"CHECK OF POINTERS TO/FROM THE ^LR FILE",!!,"Want me to add missing nodes. " Line Location: LRCKPTR+3
Function Call: WRITE	Prompt: !!,"a 'yes' and I will add missing zero nodes that are reported,",!," and missing pointers to ^LR." Condition for execution: %=0 Line Location: LRCKPTR+3
Function Call: WRITE	Prompt: !,"CHECK OF POINTERS TO/FROM THE ^LR FILE",!! Line Location: LRCKPTR+6
Function Call: WRITE	Prompt: !! Line Location: DQ+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="P-" Line Location: DQ+0
Function Call: WRITE	Prompt: !,"BAD ENTRY IN APPLICATION GROUP" Line Location: LRP+0
Function Call: WRITE	Prompt: !,"CHECKING THE ",$P(^DIC(LRF,0),U)," FILE (#",LRF,") POINTERS.",! Line Location: LRP+1
Function Call: WRITE	Prompt: !,"Entry: ",DFN," has a invalid LR Pointer: '",LR,"'." Line Location: DPT+1
Function Call: WRITE	Prompt: !,"LR: ",LR," Is missing the zero node." Line Location: DPT+3
Function Call: WRITE	Prompt: " added" Condition for execution: LRFIX Line Location: DPT+3
Function Call: WRITE	Prompt: !!,"CHECKING THE LAB DATA FILE POINTERS.",! Line Location: LRS+0
Function Call: WRITE	Prompt: !,"LR: ",LR," Lacks a zero node." Line Location: LR+0
Function Call: WRITE	Prompt: !,"LR: ",LR," has a BAD file or entry pointer. File: ",LRDPF," Entry: ",DFN Line Location: LR+2
Function Call: WRITE	Prompt: !,"LR: ",LR,?11," Points to a BAD file: ",LRDPF Line Location: LR+3
Function Call: WRITE	Prompt: !,"LR: ",LR,?11," Points to a missing ",$P(^DIC(LRDPF,0),U)," FILE ENTRY, Entry: ",DFN Line Location: LR+4
Function Call: WRITE	Prompt: " added" Condition for execution: LRFIX Line Location: LR+4
Function Call: WRITE	Prompt: !,"LR: ",LR,?11," Points to file: ",LRDPF," Entry: ",DFN,", that doesn't have a pointer." Line Location: LR+5
Function Call: WRITE	Prompt: " added" Condition for execution: LRFIX Line Location: LR+5
Function Call: WRITE	Prompt: !,"ALL DONE",! Line Location: END+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="P-" Line Location: END+0
Routine Call	DIR Line Location: LRCKPTR+10
Routine Call	%ZIS Line Location: LRCKPTR+13

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	LRP, LRP+1, LR+1, LR+3, LR+4
^DIC("AC"	ENT+2
^LR - [#63]	DPT+2, DPT+3*, DPT+4, LR, LR+1

Name	Field # of Occurrence
^("GL"	LRP, LR+1
^("LR"	DPT, LR+6
^(0	LR+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	LRCKPTR+13*
>> D	DPT
>> DFN	LRCKPTR+13, LRP, DPT, DPT+1, DPT+2, DPT+3, DPT+4, DPT+5, LR+1*, LR+2 , LR+4, LR+5, LR+6
>> DIC	LRP*, DPT
>> DIR(0	LRCKPTR+9*
>> DIRUT	LRCKPTR+11
IO	ENT+1
IO("Q"	LRCKPTR+14!
IOF	DQ, END
IOST	DQ, END
>> LR	DPT, DPT+1, DPT+2, DPT+3, DPT+4, LRS, LR*, LR+1, LR+2, LR+3 , LR+4, LR+5, LR+6
>> LRDPF	DPT+4, LR+1, LR+2, LR+3, LR+4, LR+5, LR+6
>> LRF	ENT+2*, LRP, LRP+1, DPT+3, DPT+4
LRFIX	LRCKPTR+7, DQ!, ENT+1, DPT+3, LR+4, LR+5
LRGBL	LR+1*, LR+4, LR+5, LR+6, END!
>> POP	LRCKPTR+13
U	LRP*, LRP+1, DPT+3, DPT+4, DPT+5, LR+1, LR+4
>> X	DPT+4*, DPT+5
ZTDESC	LRCKPTR+14*!
ZTIO	LRCKPTR+14!
>> ZTQUEUED	DQ
>> ZTREQ	DQ*
ZTRTN	LRCKPTR+14*!
ZTSAVE	LRCKPTR+14!
ZTSAVE("LRFIX"	LRCKPTR+14*
ZTSK	LRCKPTR+14!

Customize PDF page

Package: Lab Service

Routine: LRCKPTR

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
DPT	DPT, DPT+1, DPT+3, DPT+6
END	DPT, LR
ENT	DQ
LR	LR, LR+2, LR+3, LR+4, LR+5, LR+7
LRP	ENT+2
LRS	ENT+3