Routine: LRPXCHK

Package	Total	Call Graph
Lab Service	7	(KLAB,SLAB)^LRPX $$VERIFIED^LRPXAPI ($$DFN,$$DOD,$$LRDFN,$$LRIDT,$$TEST)^LRPXAPIU (GETDATE,GETPT)^LRPXAPPU AP^LRPXCHKA MI^LRPXCHKM (AP,AUTOPSY,MICRO)^LRPXRM
IHS Changes To Lab	1	$$PATCH^BLRUTIL4
VA Fileman	1	^DIR

Package	Total	Caller Graph
Lab Service	2	LRPXCHKA LRPXCHKM

Entry Points

Name	Comments	DBIA/ICR reference
CHKPI(DFN,LRDFN)	; go thru ^LR to make sure "PI" is consistent
REPAIR	; correct invalid indexes ; kill off bad indexes ; reset all indexes at date of bad index
ALL	; check all patient indexes ; this takes a very long time ; to be used in small test accounts ; START and STOP determine range of DFNs to check
CHKPAT(DFN)	; from LRLOG
AU(DFN,LRDFN,DATE)	;
BAD(INDEX,DFN,ITEM,DATE,NODE)	; write error to screen, collect in global
TMPCHK(DFN,DATE,ITEM,NODE)	;
CHKLR(DFN)	; go thru "PI" to make sure ^LR is consistent
CH(DFN,LRDFN,DATE,LRIDT)	;
PATS	; select patients for index check
AP(DFN,LRDFN,DATE,LRIDT,SUB)	;
CHECK(REPAIR)	;
MICRO(DFN,LRDFN,DATE,LRIDT)	;
INTEG(DFN)	; make sure "PI", "IP", and "PDI" are consistent
CLEAN	; clear tmp globals ; "LRLOG" collects invalid nodes, "LRLOG PATS" are patients checked
GETREP(REPAIR,ERR)	; ; asks to repair indexes
REFVAL(REF)	; $$(reference location in ^LR) -> if ref exists 1, else 0
DATES	; check indexes for a date range of patient collections

External References

Name	Field # of Occurrence
$$PATCH^BLRUTIL4	CHKPAT+1, CHKPI+1, TMPCHK+1, MICRO+1, AP+1, AU+1
^DIR	GETREP+7
KLAB^LRPX	REPAIR+19
SLAB^LRPX	CH+11
$$VERIFIED^LRPXAPI	CH+2
$$DFN^LRPXAPIU	DATES+14
$$DOD^LRPXAPIU	REPAIR+7
$$LRDFN^LRPXAPIU	CHECK+5, ALL+13, CHKPAT+9, REPAIR+6
$$LRIDT^LRPXAPIU	DATES+5, DATES+6, REPAIR+10
$$TEST^LRPXAPIU	CHKPI+11, CH+9
GETDATE^LRPXAPPU	DATES+3
GETPT^LRPXAPPU	PATS+3
AP^LRPXCHKA	CHKPI+16
MI^LRPXCHKM	CHKPI+15
AP^LRPXRM	AP+6
AUTOPSY^LRPXRM	AU+10
MICRO^LRPXRM	MICRO+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,CNT," Patients to check" Line Location: DATES+18
Function Call: WRITE	Prompt: !,"DFN: ",DFN," LRDFN: ",$$LRDFN^LRPXAPIU(DFN) Line Location: CHECK+5
Function Call: WRITE	Prompt: !,"Indexes were valid" Line Location: CHECK+11
Function Call: WRITE	Prompt: !,CNT," Patients with invalid indexes" Line Location: CHECK+12
Function Call: WRITE	Prompt: !,"WARNING - checking ALL patients",! Line Location: ALL+7
Function Call: WRITE	Prompt: !,"DFN: ",DFN," LRDFN: ",$$LRDFN^LRPXAPIU(DFN) Line Location: ALL+13
Function Call: WRITE	Prompt: !,?5,INDEX," ",DFN," ",ITEM," ",DATE," ",NODE Line Location: BAD+1
Function Call: WRITE	Prompt: ! Line Location: GETREP+10
Routine Call	DIR Line Location: GETREP+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ALL+12
^LR - [#63]	DATES+9, DATES+13, CHKPAT+11, CH+5, CH+7, MICRO+4, AP+4, AU+3, AU+4, AU+6 , AU+7, AU+8
^PXRMINDX(63	CHKPAT+12, CHKPAT+13, CHKPAT+15, CHKPAT+16, CHKPAT+17, CHKPI+14, TMPCHK+3, MICRO+5, AP+5, AU+9
^TMP("LRLOG PATS"	PATS+4, PATS+6, DATES+16, CHECK+4, CLEAN+3!
^TMP("LRLOG"	CHECK+9, BAD+2*, CLEAN+2!, REPAIR+5, REPAIR+9, REPAIR+13, REPAIR+15, REPAIR+16
^TMP("LRPX"	MICRO+3!, MICRO+4, MICRO+5, MICRO+7!, AP+3!, AP+4, AP+5, AP+7!, AU+5!, AU+6* , AU+7, AU+8, AU+9*, AU+11!
^TMP("LRPXCHK"	CHKPAT+8!, CHKPAT+11, CHKPAT+12, CHKPAT+13, CHKPAT+17, CHKPAT+21!, INTEG+3, INTEG+5, INTEG+7, INTEG+8 , INTEG+10, INTEG+13, INTEG+15, INTEG+17, INTEG+18, INTEG+20, INTEG+23, INTEG+25, INTEG+27, INTEG+28 , INTEG+30, CHKLR+3, CHKLR+5, CHKLR+7, CHKPI+5, CHKPI+6, CHKPI+10

Label References

Name	Line Occurrences
$$REFVAL	CHKLR+8
AP	REPAIR+24
AU	REPAIR+25
BAD	INTEG+9, INTEG+11, INTEG+19, INTEG+21, INTEG+29, INTEG+31, CHKLR+8, CHKPI+14, TMPCHK+3
CH	REPAIR+22
CHECK	PATS+8, DATES+19
CHKLR	CHKPAT+19
CHKPAT	CHECK+6, ALL+14
CHKPI	CHKPAT+20
CLEAN	PATS+2, PATS+9, DATES+2, DATES+20, ALL+6, ALL+16
GETREP	PATS+7, DATES+4, ALL+8
INTEG	CHKPAT+18
MICRO	REPAIR+23
REPAIR	CHECK+13, ALL+15

Naked Globals

Name	Field # of Occurrence
^("AU"	AU+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	DATES+1~, DATES+7, DATES+17, DATES+18, CHECK+1~, CHECK+7, CHECK+10, CHECK+11, CHECK+12
DAT	CH+1~, CH+3*, CH+6
DATE	INTEG+1~, INTEG+2, INTEG+3, INTEG+5, INTEG+7, INTEG+8, INTEG+9, INTEG+10, INTEG+11, INTEG+14* , INTEG+15, INTEG+17, INTEG+18, INTEG+19, INTEG+20, INTEG+21, INTEG+24, INTEG+25, INTEG+27, INTEG+28 , INTEG+29, INTEG+30, INTEG+31, CHKLR+1~, CHKLR+4, CHKLR+5, CHKLR+7, CHKLR+8, CHKPI+3~, CHKPI+7 , CHKPI+14, TMPCHK~, TMPCHK+3, BAD~, BAD+1, BAD+2, REPAIR+3~, REPAIR+8, REPAIR+9, REPAIR+10 , REPAIR+13, REPAIR+15, REPAIR+16, REPAIR+19, REPAIR+22, REPAIR+23, REPAIR+24, REPAIR+25, CH~, CH+11 , MICRO~, MICRO+5, MICRO+6, AP~, AP+5, AP+6, AU~, AU+9
DATE1	DATES+1~, DATES+3, DATES+5
DATE2	DATES+1~, DATES+3, DATES+6
DFN	PATS+1~, PATS+3, PATS+4, DATES+1~, DATES+14, DATES+15, DATES+16, CHECK+1~, CHECK+3, CHECK+4* , CHECK+5, CHECK+6, CHECK+8, CHECK+9, ALL+5~, ALL+11, ALL+12, ALL+13, ALL+14, CHKPAT~ , CHKPAT+9, CHKPAT+12, CHKPAT+13, CHKPAT+16, CHKPAT+17, CHKPAT+18, CHKPAT+19, CHKPAT+20, INTEG~, INTEG+3 , INTEG+5, INTEG+7, INTEG+8, INTEG+9, INTEG+10, INTEG+11, INTEG+13, INTEG+15, INTEG+17, INTEG+18 , INTEG+19, INTEG+20, INTEG+21, INTEG+25, INTEG+27, INTEG+28, INTEG+29, INTEG+30, INTEG+31, CHKLR~ , CHKLR+3, CHKLR+5, CHKLR+7, CHKLR+8, CHKPI~, CHKPI+14, CHKPI+15, CHKPI+16, TMPCHK~, TMPCHK+3 , BAD~, BAD+1, BAD+2, REPAIR+3~, REPAIR+4, REPAIR+5, REPAIR+6, REPAIR+7, REPAIR+9, REPAIR+13 , REPAIR+15, REPAIR+16, REPAIR+19, REPAIR+22, REPAIR+23, REPAIR+24, REPAIR+25, CH~, CH+11, MICRO~ , MICRO+5, MICRO+6, AP~, AP+5, AP+6, AU~, AU+9
DIR	GETREP+2~!, GETREP+7!
DIR("A"	GETREP+5*
DIR("B"	GETREP+6*
DIR(0	GETREP+4*
DIRUT	GETREP+2~
DOD	REPAIR+3~, REPAIR+7*, REPAIR+25
DTOUT	GETREP+2~, GETREP+8
ERR	PATS+1~, PATS+3, PATS+7, DATES+3, DATES+4, ALL+5~, ALL+8, GETREP~, GETREP+3, GETREP+8
INDEX	BAD~, BAD+1, BAD+2, REPAIR+3~, REPAIR+14, REPAIR+15, REPAIR+16
ITEM	CHKPAT+7~, CHKPAT+14, CHKPAT+15, CHKPAT+16, CHKPAT+17, INTEG+1~, INTEG+4, INTEG+5, INTEG+7, INTEG+8 , INTEG+9, INTEG+10, INTEG+11, INTEG+12, INTEG+13, INTEG+15, INTEG+17, INTEG+18, INTEG+19, INTEG+20 , INTEG+21, INTEG+22, INTEG+23, INTEG+25, INTEG+27, INTEG+28, INTEG+29, INTEG+30, INTEG+31, CHKLR+1~ , CHKLR+2, CHKLR+3, CHKLR+5, CHKLR+7, CHKLR+8, CHKPI+3~, CHKPI+11, CHKPI+12, CHKPI+14, TMPCHK~ , TMPCHK+3, BAD~, BAD+1, BAD+2, REPAIR+3~, REPAIR+12, REPAIR+13*, REPAIR+15, REPAIR+16, REPAIR+19
LRDFN	DATES+1~, DATES+8, DATES+9, DATES+13, DATES+14, CHKPAT+7~, CHKPAT+9, CHKPAT+10, CHKPAT+11, CHKPAT+20 , CHKPI~, CHKPI+5, CHKPI+6, CHKPI+10, CHKPI+13, CHKPI+15, CHKPI+16, REPAIR+6, REPAIR+22, REPAIR+23 , REPAIR+24, REPAIR+25, CH~, CH+2, CH+3, CH+5, CH+7, MICRO~, MICRO+4, MICRO+6 , AP~, AP+4, AP+6, AU~, AU+3, AU+4, AU+6, AU+7, AU+8, AU+10
LRDN	CHKPI+3~, CHKPI+9, CHKPI+10, CHKPI+11, CHKPI+13, CH+1~, CH+4, CH+5, CH+6, CH+7 , CH+9
LRIDT	DATES+1~, DATES+12, DATES+13, CHKPI+3~, CHKPI+4, CHKPI+5, CHKPI+6, CHKPI+10, CHKPI+13, REPAIR+10* , REPAIR+22, REPAIR+23, REPAIR+24, CH~, CH+2, CH+3, CH+5, CH+7, MICRO~, MICRO+4 , MICRO+6, AP~, AP+4, AP+6
NODE	INTEG+1~, INTEG+6, INTEG+7, INTEG+8, INTEG+9, INTEG+10, INTEG+11, INTEG+16, INTEG+17, INTEG+18 , INTEG+19, INTEG+20, INTEG+21, INTEG+26, INTEG+27, INTEG+28, INTEG+29, INTEG+30, INTEG+31, CHKLR+1~ , CHKLR+6, CHKLR+7, CHKLR+8, CHKPI+3~, CHKPI+13, CHKPI+14, TMPCHK~, TMPCHK+3, BAD~, BAD+1 , BAD+2, REPAIR+3~, REPAIR+16, REPAIR+17, REPAIR+18, REPAIR+19, CH+1~, CH+6*, CH+11
OK	DATES+1~, DATES+10, DATES+11, DATES+13, DATES+17
REF	REFVAL~, REFVAL+2, REFVAL+3, REFVAL+5, REFVAL+6, REFVAL+7*, REFVAL+8
REPAIR	PATS+1~, PATS+7, PATS+8, DATES+1~, DATES+4, DATES+19, CHECK~, CHECK+2, CHECK+13, ALL+5~ , ALL+8, ALL+15, REPAIR+3~!, REPAIR+11!, GETREP~, GETREP+3, GETREP+9*
REPAIR(	REPAIR+18*, REPAIR+21
START	DATES+1~, DATES+6, DATES+12, ALL+5~, ALL+9, ALL+11
STOP	DATES+1~, DATES+5, DATES+13, ALL+5~, ALL+10, ALL+12
SUB	DATES+1~, DATES+11, DATES+13, REFVAL+1~, REFVAL+3, REFVAL+4, REFVAL+5, REPAIR+20, REPAIR+21*, REPAIR+22 , REPAIR+23, REPAIR+24, AP~, AP+4, AP+6
TEMP	CH+1~, CH+7*, CH+8
TEST	CH+1~, CH+8, CH+9, CH+10, CH+11
U	CHKPI+8, CH+8, AU+4, GETREP+8
X	GETREP+2~
Y	GETREP+2~, GETREP+8, GETREP+9
ZERO	CHKPI+3~, CHKPI+6*, CHKPI+7, CHKPI+8

Customize PDF page

Package: Lab Service

Routine: LRPXCHK

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: