Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRUBL

Package: Lab Service

Routine: LRUBL


Information

LRUBL ; IHS/DIR/FJE - FIND PATIENT MISMATCHES 13:24 ;

Source Information

Source file <LRUBL.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 2 ($$INS,SSN,V)^LRU  (BEG,END)^LRUTL  
VA Fileman 2 ^%DT  D^DIQ  

Entry Points

Name Comments DBIA/ICR reference
H
QUE
W ;W !!,P," not ",$P(Y,"^")," (SSN: ",$P(Y,"^",9),") Unit IFN:",A S M=M+1
END

External References

Name Field # of Occurrence
^%DT H
D^DIQ W+2, H
$$INS^LRU H
SSN^LRU W+1
V^LRU END
BEG^LRUTL LRUBL+5
END^LRUTL QUE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"FIND PATIENT MISMATCHES IN VA PATIENT NUMBER FIELD OF FILE 65"
  • Line Location: LRUBL+4
Function Call: WRITE
  • Prompt: !!,"# units: ",LRC,!,"# relocations: ",C,!,"# missmatches: ",M
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !!,P," not ",$P(Y,"^")," (HRCN: ",HRCN,") Unit IFN:",A
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,"DATE/TIME RELOCATION: "
  • Line Location: W+2
Function Call: WRITE
  • Prompt: Y,?45,"Unit ID: ",$P(^LRD(65,A,0),"^")
  • Line Location: W+2
Function Call: WRITE
  • Prompt: @IOF,Y," ",$$INS^LRU,!,"PATIENT MISMATCHES IN 65.03,.07 DATA ELEMENT"
  • Line Location: H+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] QUE
^LRD(65 - [#65] QUE, W+2

Label References

Name Line Occurrences
END LRUBL+4, LRUBL+5, QUE+1
H QUE
W QUE

Naked Globals

Name Field # of Occurrence
^( QUE
^(0 QUE

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT H*
>> A QUE*, W+1, W+2
>> B QUE*
>> C QUE*, QUE+1
>> DFN QUE*
>> HRCN W+1
IO QUE
IOF H
>> LRC QUE*, QUE+1
>> M QUE*, QUE+1, W+1*
>> P QUE*, W+1
>> POP LRUBL+5
>> X QUE*, W+2, H*
>> Y QUE*, W+1, W+2*, H
>> ZTRTN LRUBL+5*
>> ZTSK LRUBL+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All