Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LRPXCHK

Package: Lab Service

Routine: LRPXCHK


Information

LRPXCHK ;SLC/STAFF - Lab PXRMINDX Index Validation ;3/30/04 12:01

Source Information

Source file <LRPXCHK.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls