Routine: LRRPU

Package	Total	Call Graph
VA FileMan	3	$$GET1^DID ($$EXTERNAL,$$ROOT)^DILFD $$GET1^DIQ
Kernel	2	$$FMDIFF^XLFDT $$TRIM^XLFSTR
Lab Service	1	($$DATE,DATE)^LRDAGE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 14

Package	Total	Caller Graph
Lab Service	11	LR7OB63 LR7OGG LR7OGMC LR7OR2 LR7OSUM1 LRCAPDAR LRDIQ LRMIEDZ2 LRRP1 LRVER4 LRVR4
DSS Extracts	1	ECXLABN
Dietetics	1	FHASM4
Pharmacy Benefits Management	1	PSULRHL1

Entry Points

Name	Comments	DBIA/ICR reference
TSTRES(LRDFN,LRSS,LRIDT,LRDN,LR60,LRCODE)	; Test results and parameters ; Call with LRDFN = ien of entry in file #63 ; LRSS = subscript in file #63, currently only "CH" supported ; LRIDT = inverse date/time of result ; LRDN = ien of data name in "CH" subscript ; LR60 = pointer to file 60 test related to this dataname (optional) ; LRCODE = 1 - return NLT/LOINC codes (optional)	ICR #4658 Status: Active Usage: Controlled Subscription
CALCAGE(DOB,LRCDT)	; Calculate age based on difference between DOB and collection date.

Name

Comments

DBIA/ICR reference

TSTRES(LRDFN,LRSS,LRIDT,LRDN,LR60,LRCODE)

; Test results and parameters
; Call with LRDFN = ien of entry in file #63
; LRSS = subscript in file #63, currently only "CH" supported
; LRIDT = inverse date/time of result
; LRDN = ien of data name in "CH" subscript
; LR60 = pointer to file 60 test related to this dataname (optional)
; LRCODE = 1 - return NLT/LOINC codes (optional)

ICR #4658

Status: Active

Usage: Controlled Subscription

CALCAGE(DOB,LRCDT)

; Calculate age based on difference between DOB and collection date.

External References

Name	Field # of Occurrence
$$GET1^DID	TSTRES+14
$$EXTERNAL^DILFD	TSTRES+15
$$ROOT^DILFD	TSTRES+38
$$GET1^DIQ	TSTRES+65, TSTRES+69, TSTRES+70
$$DATE^LRDAGE	CALCAGE+7
DATE^LRDAGE	CALCAGE+7
$$FMDIFF^XLFDT	CALCAGE+10
$$TRIM^XLFSTR	TSTRES+54, TSTRES+55

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
63.04	EXTERNAL^DILFD, GET1^DID
^LAM - [#64]	GET1^DIQ
^LAB(95.3 - [#95.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	TSTRES+41, TSTRES+42
^LAM("E"	TSTRES+64
^LR - [#63]	TSTRES+12, TSTRES+23, TSTRES+36, TSTRES+37

Label References

Name	Line Occurrences
$$CALCAGE	TSTRES+40

Naked Globals

Name	Field # of Occurrence
^(0	TSTRES+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGE	TSTRES+35~, TSTRES+40, CALCAGE+9, CALCAGE+10*, CALCAGE+11
>> DFN	TSTRES+36*, TSTRES+39
DOB	TSTRES+35~, TSTRES+39*, TSTRES+40, CALCAGE~, CALCAGE+7, CALCAGE+10
>> I	TSTRES+63*, TSTRES+64, TSTRES+67
LR60	TSTRES~, TSTRES+41*, TSTRES+42
LR61	TSTRES+35~, TSTRES+37*, TSTRES+42
LR64	TSTRES+61~, TSTRES+64*, TSTRES+65
LRCDT	TSTRES+35~, TSTRES+37*, TSTRES+40, CALCAGE~, CALCAGE+7, CALCAGE+10
LRCODE	TSTRES~, TSTRES+60
LRDFN	TSTRES~, TSTRES+12, TSTRES+23, TSTRES+36, TSTRES+37
LRDN	TSTRES~, TSTRES+12, TSTRES+14, TSTRES+15, TSTRES+41
LRDPF	TSTRES+35~, TSTRES+36*, TSTRES+38
LRFLAG	TSTRES+11~, TSTRES+22, TSTRES+23, TSTRES+25, TSTRES+34
LRHI	TSTRES+35~, TSTRES+44*, TSTRES+47, TSTRES+48
LRIDT	TSTRES~, TSTRES+12, TSTRES+23, TSTRES+37
LRLO	TSTRES+35~, TSTRES+44*, TSTRES+46, TSTRES+48
LRNR	TSTRES+11~, TSTRES+22*, TSTRES+26, TSTRES+27, TSTRES+28
LRSS	TSTRES~, TSTRES+12, TSTRES+14, TSTRES+23, TSTRES+37
LRTHI	TSTRES+35~, TSTRES+44*, TSTRES+45, TSTRES+50, TSTRES+51
LRTLO	TSTRES+35~, TSTRES+44*, TSTRES+45, TSTRES+49, TSTRES+51
LRX	TSTRES+11~, TSTRES+12*, TSTRES+13, TSTRES+22, TSTRES+23, TSTRES+57, TSTRES+62, TSTRES+76, TSTRES+78
LRY	TSTRES+11~, TSTRES+13, TSTRES+15, TSTRES+16, TSTRES+26, TSTRES+27, TSTRES+28, TSTRES+43, TSTRES+48, TSTRES+51 , TSTRES+54, TSTRES+55, TSTRES+57, TSTRES+73, TSTRES+76, TSTRES+78, TSTRES+80
SEX	TSTRES+35~, TSTRES+39*
U	TSTRES+36, TSTRES+44
X	TSTRES+11~, TSTRES+15, TSTRES+16, TSTRES+35~, TSTRES+37, TSTRES+38, TSTRES+39, TSTRES+42, TSTRES+43, TSTRES+44 , TSTRES+62, TSTRES+63, TSTRES+64, TSTRES+67, TSTRES+68, TSTRES+69, TSTRES+70, TSTRES+72, TSTRES+73, CALCAGE+10
Y	TSTRES+11~, TSTRES+64, TSTRES+65, TSTRES+66, TSTRES+67, TSTRES+69, TSTRES+72
Y(0	TSTRES+70, TSTRES+71, TSTRES+72

Customize PDF page

Package: Lab Service