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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: LR7OB63

Package: Lab Service

Routine: LR7OB63


Information

LR7OB63 ;DALOI/JMC - Get Lab data from 63 ;05/10/11 13:51

Source Information

Source file <LR7OB63.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Lab Service 7 MI^LR7OB63A  SS^LR7OB63C  AU^LR7OB63D  $$ORD^LR7OR2  $$PLSADDR^LR7OSUM2  $$EN^LRLRRVF  $$TSTRES^LRRPU  
Kernel 3 $$FMTE^XLFDT  $$TRIM^XLFSTR  $$NAME^XUSER  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Lab Service 6 LR7OB630  LR7OB63C  LR7OB63D  LR7OB68  LR7OR1  LR7OR2  

Entry Points

Name Comments DBIA/ICR reference
EM ;Electron Microscopy
POINTER(FILE,FIELD,RESULT) ;Interpret pointer values
CH ;Chem, Hem, Tox, Ria, Ser, etc.
PLS ; List reporting and performing laboratories
; If multiple performing labs then list tests associated with each lab.
BB ;Blood bank
NODEPIK(FILE,NODE,PIECE,DATA) ;Set field name and data into X
63(CTR,LRDFN,SS,IVDT,CORRECT) ;Get data from file 63
; CTR=Counter
; LRDFN=Patient ID
; SS=Subscript for results 'CH'-Chem Tox 'MI'-Microbiology, etc.
; IVDT=Inverse D/T verified
; CORRECT=1 if a corrected result, 0 if not
; See ^LR7OB69 for description of LRX array
STRIP(TEXT) ;Strips white space from text
SP ;Surgical Pathology
MI ;Microbiology
RRDT(LRDT) ; Display report released date/time
CY ;Cytology
BB1(SPECMEN) ;Blood bank
AU ;Autopsy
INTP ; Check and add any file #60 interpretation
RESULT(TEST,RESULT) ;Convert result to external format
SET(FILE,FIELD,RESULT) ;Interpret set of codes
UNIT(X,SPEC,SEX,DOB,AGE) ;Find units and ref range
ORDP(LRPROV) ; Display ordering provider in comment

External References

Name Field # of Occurrence
MI^LR7OB63A MI+1
SS^LR7OB63C EM+1, SP+1, CY+1
AU^LR7OB63D AU+1
$$ORD^LR7OR2 CH+6
$$PLSADDR^LR7OSUM2 PLS+11, PLS+28
$$EN^LRLRRVF CH+23
$$TSTRES^LRRPU CH+22
$$FMTE^XLFDT RRDT+2
$$TRIM^XLFSTR CH+25
$$GET^XPAR PLS+8
$$NAME^XUSER ORDP+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( NODEPIK+2, NODEPIK+3, SET+1, POINTER+2, POINTER+4
^LAB(60 - [#60] CH+17, CH+19, CH+21, CH+26, CH+30, UNIT+9, RESULT+4, INTP+4, INTP+6
^LAM - [#64] CH+21
^LR - [#63] CH+3, CH+15, CH+34, CH+35, BB1+3, BB1+7, BB1+10, PLS+9, INTP+3
^TMP( CH+2!, CH+46!
^TMP("LRPLS" CH+30*, PLS+16, PLS+17, PLS+19, PLS+23, PLS+34!
^TMP("LRX" CH+27, CH+28*, CH+34*, BB1+9*, BB1+10*, ORDP+3, ORDP+4*, ORDP+5*, PLS+5, PLS+12*
, PLS+13*, PLS+14*, PLS+20*, PLS+25*, PLS+27*, PLS+29*, PLS+30*, PLS+32*, RRDT+4, RRDT+5*
, INTP+6*

Label References

Name Line Occurrences
$$NODEPIK BB1+8
$$POINTER NODEPIK+3
$$RESULT CH+25
$$SET NODEPIK+3
@( 63+9
BB1 BB+1
INTP CH+29
ORDP CH+35
PLS CH+45
RRDT CH+36

Naked Globals

Name Field # of Occurrence
^( CH+15, BB1+7, BB1+10, INTP+6
^(0 CH+3, CH+21, BB1+3, UNIT+9
^(64 CH+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE CH+10~, CH+12*, UNIT~
>> BYPASS CH+15
CNT ORDP+1~, ORDP+3*, ORDP+4*, ORDP+5, PLS+3~, PLS+5*, PLS+12*, PLS+13*, PLS+14*, PLS+20*
, PLS+25*, PLS+27*, PLS+29*, PLS+30*, PLS+32, RRDT+1~, RRDT+4*, RRDT+5
>> CONTROL 63+7
CORRECT 63~, CH+4, BB1+3
CTR 63~, CH+27, CH+28, CH+34, CH+37, BB1+9, BB1+10, ORDP+3, ORDP+4, ORDP+5
, PLS+5, PLS+12, PLS+13, PLS+14, PLS+20, PLS+25, PLS+27, PLS+29, PLS+30, PLS+32
, RRDT+4, RRDT+5, INTP+6
CTR1 BB1+2~, BB1+3*, BB1+9*
DATA NODEPIK~, NODEPIK+3
>> DFN CH+8, CH+11
DOB CH+10~, CH+11*, CH+12, UNIT~
DT CH+12
FIELD SET~, SET+1, POINTER~, POINTER+2, POINTER+4
FILE NODEPIK~, NODEPIK+2, NODEPIK+3, SET~, SET+1, POINTER~, POINTER+2, POINTER+4
>> GOTCOM( CH+32, CH+33*
HI UNIT+7~, UNIT+13
I CH+1~, CH+2*, CH+46*, STRIP+1~, STRIP+2*
IFN 63+8~, CH+14*, CH+15*, CH+16, CH+17, CH+22, CH+26, CH+33*, CH+34*, BB1+6*
, BB1+7*, BB1+8, BB1+10*
>> IFN1 BB1+7*, BB1+8
INTP INTP+2~, INTP+5*, INTP+6*
IVDT 63~, CH+3, CH+6, CH+15, CH+22, CH+30, CH+32, CH+33, CH+34, CH+35
, CH+43, BB1+3, BB1+7, BB1+10, PLS+9, PLS+16, PLS+17, PLS+19, PLS+23, PLS+34
, INTP+3
LINE PLS+3~, PLS+11*, PLS+13, PLS+14, PLS+22*, PLS+25*, PLS+26*, PLS+27, PLS+28*, PLS+29
, PLS+30
LLEN PLS+3~, PLS+22*, PLS+25*, PLS+26*
LO UNIT+7~, UNIT+13
LRCW RESULT+3~, RESULT+4*
LRDFN 63~, CH+3, CH+6, CH+15, CH+22, CH+32, CH+33, CH+34, CH+35, BB1+3
, BB1+7, BB1+10, PLS+9, INTP+3
>> LRDPF CH+8, CH+11
LRDT RRDT~, RRDT+2
LRPLS PLS+3~, PLS+18*, PLS+19*, PLS+23, PLS+28
>> LRPLSAVE CH+37, CH+42
>> LRPLSAVE("CH" CH+43*
>> LRPLSAVE(0 CH+37*
LRPROV ORDP~, ORDP+2
>> LRSA( CH+16
>> LRSB CH+15
>> LRSB( CH+15, CH+16
LRX CH+1~, CH+22*, CH+23, CH+24, CH+30, PLS+3~, PLS+9*, PLS+10, PLS+11
LRY ORDP+1~, ORDP+2*, ORDP+5, RRDT+1~, RRDT+2*, RRDT+3*, RRDT+5
MPLS PLS+3~, PLS+16*, PLS+17*, PLS+21
NODE NODEPIK~, NODEPIK+2
PIECE NODEPIK~, NODEPIK+2
PLS PLS+3~, PLS+16*, PLS+17
PORDER CH+1~, CH+26*, CH+27*, CH+28, INTP+6
RESULT RESULT~, RESULT+4, SET~, SET+1, POINTER~, POINTER+3, POINTER+4
SEX CH+8~*, UNIT~
SPEC UNIT~, UNIT+9, INTP+2~, INTP+3*, INTP+4, INTP+6
SPECMEN BB1~, BB1+5
SS 63~, 63+9
TEST RESULT~, RESULT+4
TESTNAME PLS+3~, PLS+22*, PLS+23*, PLS+24, PLS+26
TEXT STRIP~, STRIP+2
>> TSTY( CH+15
X CH+15*, CH+17, BB1+8*, BB1+9, NODEPIK+2*, NODEPIK+3*, NODEPIK+4, UNIT~, UNIT+9*, UNIT+10
, UNIT+11, UNIT+12, UNIT+14, RESULT+3~, RESULT+4*, RESULT+5, STRIP+1~, STRIP+2*, STRIP+3, SET+1*
, SET+2, POINTER+1~, POINTER+2*, POINTER+3, POINTER+4, PLS+3~, PLS+24*, PLS+25, PLS+26
X0 CH+1~, CH+3*, CH+4, CH+5, CH+36, BB1+2~, BB1+3*
X1 BB1+7*, BB1+8, RESULT+3~, RESULT+4*, POINTER+3*, POINTER+4*, POINTER+5
XNODE BB1+2~, BB1+7*
Y NODEPIK+1~, NODEPIK+3*
Y1 CH+1~, CH+17*, CH+19, CH+21, CH+22, CH+25, CH+26, CH+28, CH+30, BB1+2~
, BB1+10*, NODEPIK+1~, NODEPIK+3*, INTP+4, INTP+6
>> Y10 CH+20*, CH+21*, CH+28
>> Y11 CH+20*, CH+21*, CH+28
Y12 CH+1~, CH+17*, CH+28
Y14 CH+1~, CH+20*, CH+24*, CH+28, UNIT+8*, UNIT+14*
Y15 CH+1~, CH+19*, CH+28, BB1+2~
Y16 CH+1~, CH+5*, CH+28
Y17 CH+1~, CH+6*, CH+28
Y18 CH+1~, CH+6*, CH+28, BB1+2~, BB1+3*, BB1+9
Y19 BB1+2~, BB1+3*, BB1+5, BB1+9
Y2 CH+1~, CH+17*, CH+18, CH+23*, CH+25*, CH+28, BB1+2~, BB1+10*, NODEPIK+1~, NODEPIK+3*
Y3 CH+1~, CH+17*, CH+23*, CH+28, BB1+2~
Y4 CH+1~, CH+23*, CH+28, BB1+2~, UNIT+8*, UNIT+10*
Y5 CH+1~, CH+23*, CH+28, BB1+2~, UNIT+8*, UNIT+13*
Y6 CH+1~, CH+4*, CH+18*, CH+28, BB1+2~, BB1+3*, BB1+9
>> Y9 CH+20*, CH+21*, CH+28
Z NODEPIK+1~, NODEPIK+2*, NODEPIK+3

Marked Items

Name Field # of Occurrence
$T(@SS 63+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All