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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Lab Service 4 EN^LRDIQ  (,KEYIN)^LRDPAREX  LABKEY^LRPARAM  (INF,PT)^LRX  
VA FileMan 4 EN^DDIOL  $$FIND1^DIC  ($$GET1,GETS)^DIQ  ^DIR  
Automated Lab Instruments 1 (DPTSET,LRTSET,PT)^LA7SBCR1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRDPA  

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

External References

Name Field # of Occurrence
EN^DDIOL ERRMSG+4
$$FIND1^DIC MF696+2
$$GET1^DIQ RUID+4
GETS^DIQ MF696+11
^DIR RUID+9, MAN+11, MAN+21, MF696+8
DPTSET^LA7SBCR1 MAN+13
LRTSET^LA7SBCR1 MAN+14
PT^LA7SBCR1 BAR+4
EN^LRDIQ DIQ+7
^LRDPAREX CK+1
KEYIN^LRDPAREX MAN+17
LABKEY^LRPARAM EN+25
INF^LRX E3+8
PT^LRX E3+8

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
Routine Call
  • DIC
  • Line Location:
    • MF696+2
Routine Call
  • DIR
  • Line Location:
    • RUID+9
    • MAN+11
    • MAN+21
    • MF696+8

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( MAN+3!
^LR - [#63] OK+6, E2, E2+1*, E2+4, E3, E3+4
^LR("B" E2+2*
^LR(0 OK+4, OK+5, OK+7*, E2+4
^LRO(69.6 - [#69.6] MAN+6
^LRT(67 - [#67] E2+3*, MF696+26, MF696+27

Label References

Name Line Occurrences
BAR EN+27
CLEAN EN+30, EN+32, EN+35, CK+2, RUID+10, MAN+22
DIQ BAR+6, MAN+20
E3 OK+3
ERRMSG EN+29, EN+34
MAN EN+31
MF696 MAN+6

Naked Globals

Name Field # of Occurrence
^("LR" MF696+27
^("^LRT(67," MAN+3!
^(0 OK+7, E3+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EN+19~, BAR+2~, MAN+2~, DIQ+2~, DIQ+5*
>> DFN OK+1*, OK+2, E2+1, E3+4
DIC EN+19~, OK+2!, BAR+2~, MAN+2~, MF696+1~, DIQ+2~, DIQ+3*, DIQ+4
DIE EN+19~
DIR EN+19~, RUID+2~, BAR+2~, MAN+2~, MAN+16!, MAN+20!, MF696+1~
DIR("?" RUID+6*, RUID+7*
DIR("A" RUID+8*, MAN+10*, MAN+21*, MF696+7*
DIR("S" MF696+6*
DIR(0 RUID+5*, RUID+7*, MAN+10*, MAN+21*, MF696+5*
DIRUT EN+19~, RUID+2~, RUID+10, BAR+2~, MAN+12, MAN+16!, MF696+9
DR BAR+2~, DIQ+5*
DTOUT EN+19~, RUID+2~, BAR+2~
DUOUT EN+19~, BAR+2~
DUZ MAN+3
DX DIQ+2~
IOF DIQ+6
LA7PNM EN+21!, EN+27!
>> LA7Y(0 MF696+10*
LAIEN MF696+1~, MF696+10*, MF696+11, MF696+13, MF696+14, MF696+15, MF696+16, MF696+17, MF696+18, MF696+19
, MF696+20, MF696+21, MF696+22, MF696+24
LAIEN( MF696+13, MF696+14, MF696+15, MF696+16, MF696+17, MF696+18, MF696+19, MF696+20, MF696+21, MF696+22
, MF696+24
LAIEN(0 MF696+10*
>> LRDFN OK+2*, OK+3*, OK+5*, OK+6*, OK+7, E2, E2+1, E2+2, E2+3, E2+4
, E3, E3+3*, E3+4, E3+7*, ERR+1*, ERR1+1*, CLEAN+1*
>> LRDPF OK+3, E2+1, E3+4
>> LREND EN+24*, EN+26, EN+32, CK+2, CLEAN+1*, MAN+18, MF696+9*
>> LRLABKY EN+25
>> LRREFBAR EN+26, EN+31, MAN+6
>> LRRSITE BAR+4
>> LRRSITE("RPSITE" EN+36, MF696+19*
>> LRRSITE("RSITE" RUID+4
>> LRRSITE("SMID" MAN+6, MF696+23
>> LRRSITE("SMID-OK" MAN+6
LRSCN696 MF696+1~, MF696+3*, MF696+4*, MF696+6
LRSD EN+21!, BAR+4, MAN+13, MAN+14
LRSD( EN+23*
LRSD("CDT" MF696+18*
LRSD("DFN" MF696+27*, DIQ+1, DIQ+5
LRSD("DOB" MF696+14*
LRSD("DPF" MF696+12*, DIQ+3
LRSD("ERROR" EN+28, EN+29, EN+30, EN+31, EN+33, EN+34, CK+2, CK+3*, CK+4, BAR+5
, MAN+9*, MAN+12*, MAN+18*, MAN+19, MAN+22*, MF696+25*, ERRMSG+3
LRSD("LRDFN" MF696+27*
LRSD("PNM" MF696+13*
LRSD("RACE" MF696+16*
LRSD("RIEN" E2+3, MF696+26*, MF696+27
LRSD("RPSITE" EN+36*, MF696+19*
LRSD("RSITE" MF696+20*
LRSD("RSITEN" MF696+21*
LRSD("RUID" RUID+1, RUID+11*, MF696+22*
LRSD("SEX" MF696+15*
LRSD("SMID" MF696+23*
LRSD("SSN" MF696+17*, MF696+24*, MF696+25, MF696+26
>> PNM E3+1, E3+5
S DIQ+2~, DIQ+5*
U OK+5
>> VA200 OK+2*
X OK+3*, E2+3, RUID+2~, MAN+2~, MAN+15, MF696+1~, ERRMSG~, ERRMSG+3*, ERRMSG+4
Y EN+23*, OK+1*, OK+3, RUID+2~, RUID+11, MAN+2~, MAN+13, MAN+14, MAN+22, MF696+1~
, MF696+2*, MF696+3, MF696+10, ERRMSG~, ERRMSG+3
Y(0 MF696+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All