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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRDPAREF

Package: Lab Service

Routine: LRDPAREF


Information

LRDPAREF ;DALOI/FHS - PENDING ORDER FILE PATIENT LOOKUP ; 12/3/1997

Source Information

Source file <LRDPAREF.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; From ^LRDPA
; Initialize array LRSD.
; CDT=collection date/time
; DFN=ien of patient in selected file
; DOB=patient's date of birth
; DPF=source file (2, or 67)
; ERROR=0
; LPC=longitudinal parity check
; PNM=patient name
; RIEN=IEN of ^LRT(67
; RPSITE=primary sending site
; RSITE=sending site
; RSITEN=sending site name
; RUID=specimen unique identifier
; SEX=patient's sex
; SSN=patient's SSN
; LA7PNM=Patient Bar code read if lookup fails
; On exit LRDPF set to '67^LRT(67, DFN=RIEN
CK ;S PNM=LRSD("PNM"),SSN=LRSD("SSN"),DOB=LRSD("DOB"),SEX=LRSD("SEX"),LRXDPF=LRSD("DPF"),LRXDFN=LRSD("DFN")
OK ;
E2
E3
RUID ;
DUP
ERR ;
ERR1 ;
CLEAN ;
BAR ; Scan PD bar code for patient/specimen info
MAN ; Manual referral patient lookup
MF696 ; Manual lookup of file #69.6
DIQ ; Display patient info
ERRMSG(X,Y) ; Display error message to user
; Call with X=error message code^error message text
; Y=message prefix

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),$P(LRSD("ERROR"),"^",2),!
  • Line Location: CK+4
Function Call: WRITE
  • Prompt: !!,"Internal patient ID incorrect in ^LR( for ",PNM,"."
  • Line Location: E3+1
Function Call: WRITE
  • Prompt: !,"Contact Lab Coordinator.",$C(7)
  • Line Location: E3+2
Function Call: WRITE
  • Prompt: !,$C(7),"Internal patient ID incorrect for ",PNM,"."
  • Line Location: E3+5
Function Call: WRITE
  • Prompt: !,"Contact Lab Coordinator."
  • Line Location: E3+6
Function Call: WRITE
  • Prompt: !?5,"There are duplicate SSNs in the Referral File <abort>",!,$C(7)
  • Line Location: DUP+0
Function Call: WRITE
  • Prompt: !,"ERROR",!
  • Line Location: ERR+1
Function Call: WRITE
  • Prompt: !,"ERROR1",!
  • Line Location: ERR1+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DIQ+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^LAB(64.061 - [#64.061] FIND1^DIC
^LRO(69.6 - [#69.6] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call