LRPXCHK ;SLC/STAFF - Lab PXRMINDX Index Validation ;3/30/04 12:01
Source file <LRPXCHK.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PATS | ; select patients for index check
|
|
DATES | ; check indexes for a date range of patient collections
|
|
CHECK(REPAIR) | ;
|
|
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
; find bad nodes, ; store as ^TMP("LRLOG",$J,DFN,DATE,ITEM,INDEX)=NODE ; only when ^TMP("LRLOG PATS",$J) is present ; if ^TMP("LRLOG PATS",$J) is not present, write to screen |
|
INTEG(DFN) | ; make sure "PI", "IP", and "PDI" are consistent
|
|
CHKLR(DFN) | ; go thru "PI" to make sure ^LR is consistent
|
|
CHKPI(DFN,LRDFN) | ; go thru ^LR to make sure "PI" is consistent
|
|
TMPCHK(DFN,DATE,ITEM,NODE) | ;
|
|
BAD(INDEX,DFN,ITEM,DATE,NODE) | ; write error to screen, collect in global
|
|
CLEAN | ; clear tmp globals
; "LRLOG" collects invalid nodes, "LRLOG PATS" are patients checked |
|
REFVAL(REF) | ; $$(reference location in ^LR) -> if ref exists 1, else 0
|
|
REPAIR | ; correct invalid indexes
; kill off bad indexes ; reset all indexes at date of bad index |
|
CH(DFN,LRDFN,DATE,LRIDT) | ;
|
|
MICRO(DFN,LRDFN,DATE,LRIDT) | ;
|
|
AP(DFN,LRDFN,DATE,LRIDT,SUB) | ;
|
|
AU(DFN,LRDFN,DATE) | ;
|
|
GETREP(REPAIR,ERR) | ;
; asks to repair indexes |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|