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: LRUBL

Package: Lab Service

Routine: LRUBL


Information

LRUBL ;AVAMC/REG - FIND PATIENT MISMATCHES ;2/18/93 13:24

Source Information

Source file <LRUBL.m>

Entry Points

Name Comments DBIA/ICR reference
QUE
W
H
END

Interaction Calls

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