Routine: LRX

Package	Total	Call Graph
VA Fileman	6	^%DT ^%DTC DT^DICRW $$GET1^DID ^DIE ^DIR
Kernel	2	(GKILL,GSET)^%ZISS ($$DT,$$FMDIFF,$$FMTE)^XLFDT
IHS Changes To Lab	1	$$ISPIMS^BLRUTIL
Lab Service	1	SSNFM^LRU

Package

Total

Call Graph

VA Fileman

^%DT ^%DTC DT^DICRW $$GET1^DID ^DIE ^DIR

Kernel

(GKILL,GSET)^%ZISS ($$DT,$$FMDIFF,$$FMTE)^XLFDT

IHS Changes To Lab

$$ISPIMS^BLRUTIL

Lab Service

SSNFM^LRU

Package	Total	Caller Graph
Lab Service	225	LR138PO LR140P LR309 LR7OGMP LR7OGU LR7OMERG LR7OSMZ1 LR7OSOS LR7OSOS1 LR7OSUM LR7OSUM3 LR7OSUM4 LRABG LRAC LRAC1 LRAC14 LRAC3 LRAC4 LRAC5 LRAC6 LRAC9 LRACFILE LRACK LRACKL LRACM1 LRACM2 LRACM2F LRACM3 LRACP LRACS LRACS1 LRACS2 LRACS3 LRACSUM LRACSUM3 LRACSUM4 LRACSUM5 LRACSUM6 LRAPAUA LRAPAUL LRAPBK LRAPJNC LRAPPF1 LRAPS1 LRAPSEM2 LRAPTT LRAR03 LRAR04 LRAR05 LRARCHE LRARCHIV LRARCHK LRAUSTA LRBEBA3 LRBLPBR1 LRCAPA12 LRCAPACC LRCAPED1 LRCAPES LRCAPL2 LRCAPS2 LRCAPW2 LRCE LRCENDEL LRCHIV LRCHIVE LRCHIVK LRCKF LRCKF68 LRCKF69 LRCONJAM LRDCOM LRDIST LRDIST1 LRDIST3 LRDIST4 LRDPA LRDPAREF LRDRAW LREXECU LRFAST LRFLAG LRGEN LRGEN1 LRGP LRGV LRGV1 LRGV2 LRGVP LRHDR LRHY0 LRHY01 LRHY4X LRHYAFT LRHYBC1 LRHYBLD LRHYDEL LRHYF1 LRHYF4 LRHYLS1 LRHYPH0 LRJOB1 LRKDIFF LRKDIFF3 LRKUR LRLABELF LRLABLD LRLABLD0 LRLABXT LRLIST LRLISTE LRLL LRLL1A LRLLP LRLLP2 LRLLP5 LRLLS LRLLS2 LRLLS3 LRLNCTOP LRLSTWRK LRLSTWRL LRMIBL LRMIEDZ2 LRMIEDZ3 LRMIEDZ4 LRMIHDR LRMILL LRMINEW LRMINEW1 LRMIPLOG LRMIPSZ LRMIPSZ1 LRMISEZ1 LRMISEZ2 LRMISEZ4 LRMISTF1 LRMITRZ1 LRMIV1 LRMIV2 LRMIV3 LRMIVER LRMIVER1 LRNDLST LRNODRAW LROCM LROE LROE1 LROLOVER LROR1 LROR2 LROR4 LROR9 LRORD LRORDGUI LROS LROW LROW2P LRPARAM LRPHEXPT LRPHITE2 LRPHITEM LRPHLIS1 LRPHLIST LRPHSET LRQC LRRMM LRRP LRRP1 LRRP1NWC LRRP1VA LRRP2 LRRP3 LRRP4 LRRP5 LRRP6 LRRP6A1 LRRP6B1 LRRSP LRSLOW LRSMAC LRSOR LRSOR1 LRSORA LRSORA2 LRSORA3 LRSORB LRSORC LRSORC1 LRSORC1A LRSORD LRSORD1 LRSORD1A LRSTUF1 LRSTUF2 LRTSTJAM LRTSTOUT LRUA LRUMD LRUMDM LRUP LRUPT LRUTT LRVER LRVER2 LRVER3A LRVR LRVR1 LRVR3 LRVRA LRVRPOC LRVRW LRWD LRWLST LRWLST1 LRWRKIN1 LRWRKINC LRWRKLS1 LRWRKLST LRWRKS LRWRKS2 LRWU5 LRWU6 LRWU7 LRZABG
Automated Lab Instruments	33	LA7CHDR LA7CQRY1 LA7HDR LA7QRY LA7QRY1 LA7SMB LA7SMP LA7SMP0 LA7UID1 LA7UID2 LA7VCIN5 LA7VIN5 LA7VLIN5 LA7VMSG1 LA7VORM1 LA7VPID LA7VQIN5 LA7VRIN5 LABERRP LADIMD LAEKT7D LAEPXD LAKDIFF LAKUR LAMIAUT1 LAMIAUT4 LAMIAUT7 LAMILL LAMIVTKD LAMIVTL1 LAMIVTLD LAPERD LAPMAXD
IHS Changes To Lab	30	BLR2SORD BLR7OGMP BLRAG02 BLRAG03 BLRAG05B BLRAG05D BLRAG08 BLRAG09 BLRAG09D BLRAG09F BLRALBA BLRALBD BLRALBM BLRALFN BLRCHGPL BLRDOSE BLRKIDSU BLRLROS BLRLRRP2 BLRMANP2 BLRMANPU BLRMIIBL BLRPRE22 BLRPRE24 BLRPRE25 BLRRLTDR BLRSGNSP BLRSHPM1 BLRSORA BLRSORC
Patient Chart	4	BPC7OGMP BPC7OGU BPCLIPL BPCLOPRT
Comprehensive Diabetes Management	1	BCDMPRE
IHS View Patient Record	1	BVPRP
Phoenix	1	BZXMIHDR

Package

Total

Caller Graph

Lab Service

225

LR138PO  LR140P  LR309  LR7OGMP  LR7OGU  LR7OMERG  LR7OSMZ1  LR7OSOS
LR7OSOS1  LR7OSUM  LR7OSUM3  LR7OSUM4  LRABG  LRAC  LRAC1  LRAC14
LRAC3  LRAC4  LRAC5  LRAC6  LRAC9  LRACFILE  LRACK  LRACKL
LRACM1  LRACM2  LRACM2F  LRACM3  LRACP  LRACS  LRACS1  LRACS2
LRACS3  LRACSUM  LRACSUM3  LRACSUM4  LRACSUM5  LRACSUM6  LRAPAUA  LRAPAUL
LRAPBK  LRAPJNC  LRAPPF1  LRAPS1  LRAPSEM2  LRAPTT  LRAR03  LRAR04
LRAR05  LRARCHE  LRARCHIV  LRARCHK  LRAUSTA  LRBEBA3  LRBLPBR1  LRCAPA12
LRCAPACC  LRCAPED1  LRCAPES  LRCAPL2  LRCAPS2  LRCAPW2  LRCE  LRCENDEL
LRCHIV  LRCHIVE  LRCHIVK  LRCKF  LRCKF68  LRCKF69  LRCONJAM  LRDCOM
LRDIST  LRDIST1  LRDIST3  LRDIST4  LRDPA  LRDPAREF  LRDRAW  LREXECU
LRFAST  LRFLAG  LRGEN  LRGEN1  LRGP  LRGV  LRGV1  LRGV2
LRGVP  LRHDR  LRHY0  LRHY01  LRHY4X  LRHYAFT  LRHYBC1  LRHYBLD
LRHYDEL  LRHYF1  LRHYF4  LRHYLS1  LRHYPH0  LRJOB1  LRKDIFF  LRKDIFF3
LRKUR  LRLABELF  LRLABLD  LRLABLD0  LRLABXT  LRLIST  LRLISTE  LRLL
LRLL1A  LRLLP  LRLLP2  LRLLP5  LRLLS  LRLLS2  LRLLS3  LRLNCTOP
LRLSTWRK  LRLSTWRL  LRMIBL  LRMIEDZ2  LRMIEDZ3  LRMIEDZ4  LRMIHDR  LRMILL
LRMINEW  LRMINEW1  LRMIPLOG  LRMIPSZ  LRMIPSZ1  LRMISEZ1  LRMISEZ2  LRMISEZ4
LRMISTF1  LRMITRZ1  LRMIV1  LRMIV2  LRMIV3  LRMIVER  LRMIVER1  LRNDLST
LRNODRAW  LROCM  LROE  LROE1  LROLOVER  LROR1  LROR2  LROR4
LROR9  LRORD  LRORDGUI  LROS  LROW  LROW2P  LRPARAM  LRPHEXPT
LRPHITE2  LRPHITEM  LRPHLIS1  LRPHLIST  LRPHSET  LRQC  LRRMM  LRRP
LRRP1  LRRP1NWC  LRRP1VA  LRRP2  LRRP3  LRRP4  LRRP5  LRRP6
LRRP6A1  LRRP6B1  LRRSP  LRSLOW  LRSMAC  LRSOR  LRSOR1  LRSORA
LRSORA2  LRSORA3  LRSORB  LRSORC  LRSORC1  LRSORC1A  LRSORD  LRSORD1
LRSORD1A  LRSTUF1  LRSTUF2  LRTSTJAM  LRTSTOUT  LRUA  LRUMD  LRUMDM
LRUP  LRUPT  LRUTT  LRVER  LRVER2  LRVER3A  LRVR  LRVR1
LRVR3  LRVRA  LRVRPOC  LRVRW  LRWD  LRWLST  LRWLST1  LRWRKIN1
LRWRKINC  LRWRKLS1  LRWRKLST  LRWRKS  LRWRKS2  LRWU5  LRWU6  LRWU7
LRZABG

Automated Lab Instruments

LA7CHDR  LA7CQRY1  LA7HDR  LA7QRY  LA7QRY1  LA7SMB  LA7SMP  LA7SMP0
LA7UID1  LA7UID2  LA7VCIN5  LA7VIN5  LA7VLIN5  LA7VMSG1  LA7VORM1  LA7VPID
LA7VQIN5  LA7VRIN5  LABERRP  LADIMD  LAEKT7D  LAEPXD  LAKDIFF  LAKUR
LAMIAUT1  LAMIAUT4  LAMIAUT7  LAMILL  LAMIVTKD  LAMIVTL1  LAMIVTLD  LAPERD
LAPMAXD

IHS Changes To Lab

BLR2SORD  BLR7OGMP  BLRAG02  BLRAG03  BLRAG05B  BLRAG05D  BLRAG08  BLRAG09
BLRAG09D  BLRAG09F  BLRALBA  BLRALBD  BLRALBM  BLRALFN  BLRCHGPL  BLRDOSE
BLRKIDSU  BLRLROS  BLRLRRP2  BLRMANP2  BLRMANPU  BLRMIIBL  BLRPRE22  BLRPRE24
BLRPRE25  BLRRLTDR  BLRSGNSP  BLRSHPM1  BLRSORA  BLRSORC

Patient Chart

BPC7OGMP BPC7OGU BPCLIPL BPCLOPRT

Comprehensive Diabetes Management

BCDMPRE

IHS View Patient Record

BVPRP

Phoenix

BZXMIHDR

Entry Points

Name	Comments	DBIA/ICR reference
AGE2(DOB,LRCDT)	;Entry point if passing only a valid Date without patient ; DOB, LRCDT must be defined in VA FileManager internal format ; Date error will return 99yr
INPPT	;Returns VAIN( Patient data ; N X,I,N,Y D INP^VADPT Q
DOC	;provider info	ICR #5592 Status: Withdrawn Usage: Private
DD	;date/time format	ICR #5592 Status: Withdrawn Usage: Private
DEM	;Call DEM^VADPT instead of OERR used above
KEYCOM	;key to result flags
DT	;current date format is LRDT0	ICR #715 Status: Active Usage: Private
OADPT	;Returns VAOA( Patient data ; N X,I,N,Y D OAD^VADPT Q
PT	;patient info	ICR #558 Status: Active Usage: Private ICR #715 Status: Active Usage: Private ICR #5592 Status: Withdrawn Usage: Private
RD	;DIR read
ADDPT	;Returns VAPA( Patient data ; N X,I,N,Y D ADD^VADPT Q
IN5PT	;Returns VAIP( Patient data ; N X,I,N,Y D IN5^VADPT Q
PRAC(X)	;prac info
OPDPT	;Returns VAPD( Patient data ; N X,I,N,Y D OPD^VADPT Q
URG	;urgencys
PIDPT	;Returns VA("PID") and VA("BID") Patient Identifier ; N X,I,N,Y D PID^VADPT Q
STAMP	;time stamp
DTOLD	;2-DIGIT
EQUALS	;line of equals
DASH	;line of dashes
DUZ	;user info	ICR #5592 Status: Withdrawn Usage: Private
YMD	;year/month/date
SET3
INF	;Display Infectious Warning
DDOLD	;OLD
LRGLIN	;
LRUID(LRAA,LRAD,LRAN)	;Extrinsic function call to create a unique
ADD	;date format
Y2K(X,LRYR)	; --> used to convert 2digit year to 4digit century and year ; 1/1/91 TO 1/1/1991
KVAR	;Kill laboratory/VADPT patient demographics
CALC	;Calculate timeframe based on difference between DOB and collection ; date. Time is stripped off. ; .0001-24 hour = dy ; 0-29 days = dy ; 30-730 dy = mo ; >24 mo = yr
SVCPT	;Returns VASV( Patient data ; N X,I,N,Y D SVC^VADPT Q

External References

Name	Field # of Occurrence
^%DT	STAMP+1, AGE2+10, AGE2+12
^%DTC	LRUID+17
GKILL^%ZISS	LRGLIN+4
GSET^%ZISS	LRGLIN+2
$$ISPIMS^BLRUTIL	PT+6, PT+25, DEM+5, DEM+20, KVAR+5, ADDPT+2, OPDPT+2, SVCPT+2, OADPT+2, INPPT+2 , IN5PT+2, PIDPT+2
DT^DICRW	DT+2, DTOLD+3
$$GET1^DID	PT+14
^DIE	SET3+6
^DIR	RD+4
SSNFM^LRU	PT+32, DEM+24
$$DT^XLFDT	AGE2+4
$$FMDIFF^XLFDT	CALC+11
$$FMTE^XLFDT	DD+1, DT+3, Y2K+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E("--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------",1,IOM-1) Line Location: DASH+1
Function Call: WRITE	Prompt: !,$E("====================================================================================================================================================================================================================",1,IOM-1) Line Location: EQUALS+1
Function Call: WRITE	Prompt: !!," ------------------------------ COMMENTS ------------------------------",!," Key: 'L' = reference Low, 'H' = reference Hi, '*' = critical range" Line Location: KEYCOM+1
Function Call: WRITE	Prompt: !,$C(7)," Pat Info: ",^(.091) Line Location: INF+1
Function Call: WRITE	Prompt: IOG1 Line Location: LRGLIN+2
Function Call: WRITE	Prompt: IOHL Line Location: LRGLIN+3
Function Call: WRITE	Prompt: IOG0 Line Location: LRGLIN+4
Function Call: WRITE	Prompt: ! Line Location: LRGLIN+5
Function Call: WRITE	Prompt: ! Line Location: RD+3
Routine Call	DIE Line Location: SET3+6
Routine Call	DIR Line Location: RD+4

FileNo	Call Tags
^DIC - [#1]	GET1^DID

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	DEM+13
^LAB(62.05 - [#62.05]	URG+1
^LR - [#63]	PT+11, DEM+10, INF+1
^LRO(68 - [#68]	LRUID+7, LRUID+9, LRUID+11, LRUID+28, LRUID+29, LRUID+32, SET3+3, SET3+7, SET3+8
^VA(200 - [#200]	DUZ+1, DOC+2, PRAC+3

Name	Line Occurrences
$$AGE2	PT+20, PT+28, DEM+16, DEM+23
@(	PT+6, PT+25, DEM+5, DEM+20, KVAR+5, ADDPT+2, OPDPT+2, SVCPT+2, OADPT+2, INPPT+2 , IN5PT+2, PIDPT+2
DDOLD	DTOLD+4
EQUALS	KEYCOM+1

Name	Field # of Occurrence
^(	PT+15, DEM+13, URG+1, INF+1
^(0	PT+11, DEM+10, DUZ+1, URG+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	YMD+1*!
%D	YMD+1*!
%DT	DT+1~, DTOLD+2~, STAMP+1*, AGE2+3~, AGE2+12!
>> %H	YMD+1
%I	DT+1~, DTOLD+2~
%M	YMD+1*!
%Y	YMD+1*!
AGE	PT+10!, PT+19, PT+28, DEM+9!, DEM+15, DEM+23
AGE(2	PT+20, PT+28, DEM+16, DEM+23
DA	LRUID+8~, SET3+5*
DA(1	SET3+5*
DA(2	SET3+5*
>> DFN	PT+11, PT+12, PT+15, DEM+10, DEM+11, DEM+13
DIC	DT+1~, DTOLD+2~
DICS	DT+1~, DTOLD+2~
DIE	LRUID+8~, SET3+5*
DIK	DT+1~, DTOLD+2~
>> DIROUT	RD+4
>> DIRUT	RD+4
DLAYGO	LRUID+8~, SET3+5*
DOB	PT+10, PT+18, PT+19, PT+20, PT+27, PT+28, DEM+9, DEM+14, DEM+15, DEM+16 , DEM+22, DEM+23, KVAR+1!, AGE2~, AGE2+5, AGE2+6*, AGE2+7, AGE2+8, AGE2+9, CALC+7 , CALC+8, CALC+9, CALC+11
DOD	PT+10, PT+15, PT+27*, KVAR+1!
DR	LRUID+8~, SET3, SET3+2, SET3+4*
DT	PT+19, DEM+15, DT+3, DTOLD+4
>> DTOUT	RD+4
>> DUOUT	RD+4
HRCN	PT+7, DEM+6, KVAR+6!
HZ	LRGLIN+1~, LRGLIN+3*
I	PT+2~, PT+23~, DEM+1~, DEM+18~, URG+1*, ADDPT+2~, OPDPT+2~, SVCPT+2~, OADPT+2~, INPPT+2~ , IN5PT+2~, PIDPT+2~
IO	INF+1
>> IOG0	LRGLIN+4
>> IOG1	LRGLIN+2
>> IOHL	LRGLIN+3
IOM	DASH+1, EQUALS+1
LRAA	LRUID~, LRUID+7, LRUID+9, LRUID+11, LRUID+29, SET3+5, SET3+8
LRAD	LRUID~, LRUID+12, LRUID+13, LRUID+14, LRUID+17, LRUID+29, SET3+5, SET3+8
LRAN	LRUID~, LRUID+20, LRUID+22, LRUID+25, LRUID+27, LRUID+29, SET3+5, SET3+8
LRANSX	RD+2!, RD+5*
LRANSY	RD+2!, RD+5*
LRCDT	PT+20, PT+28, DEM+16, DEM+23, AGE2~, AGE2+4, AGE2+7, AGE2+8, AGE2+9, AGE2+11 , CALC+7, CALC+8, CALC+9, CALC+11
LRDFN	PT+11, DEM+10, INF+1, KVAR+1!
>> LRDOC	DOC+1, DOC+2, DOC+3*
LRDPF	PT+11, PT+12, PT+13, PT+14, PT+16, PT+22, DEM+10, DEM+11, DEM+12, DEM+13 , DEM+18, KVAR+1!
>> LRDT0	DT+4*
>> LRDTO	DTOLD+4*
LREND	PT+12, DEM+11, KVAR+1!, RD+3, RD+4
LRJUL	LRUID+8~, LRUID+18*, LRUID+19
LRMNTH	LRUID+8~, LRUID+14*, LRUID+15, LRUID+27
>> LRORDRR	SET3, SET3+1
>> LRORU3	SET3+8*
>> LRPRAC	PT+30*
LRQTR	LRUID+8~, LRUID+15*, LRUID+24
>> LRQUIET	INF+1
LRRB	PT+10, PT+15, PT+30, DEM+9, DEM+13*, KVAR+1!
>> LRRSITE("IDTYPE"	SET3+3
>> LRRSITE("RPSITE"	SET3+2
>> LRRSITE("RSITE"	SET3+2
>> LRSD("RUID"	SET3+2, SET3+3
LRTREA	PT+10!, PT+31, DEM+9!*, KVAR+1!
LRTYPE	LRUID+8~, LRUID+11*, LRUID+16, LRUID+21, LRUID+23, LRUID+26
LRUID	LRUID+8~, LRUID+9, LRUID+10, LRUID+19, LRUID+20, LRUID+22, LRUID+24, LRUID+25, LRUID+27, LRUID+29 , LRUID+31, LRUID+32, SET3, SET3+2, SET3+3, SET3+4, SET3+9
LRURG	URG+1!
LRURG(	URG+1*
LRURG(0	URG+1*
>> LRUSI	DUZ+1*
>> LRUSNM	DUZ+1*
LRWRD	PT+10!, PT+15, PT+29, DEM+9!, DEM+13*, KVAR+1!
LRWRD(1	PT+30*
LRYR	Y2K~, Y2K+4*, Y2K+6
LRYR1	LRUID+8~, LRUID+12*, LRUID+19, LRUID+24, LRUID+27
LRYR2	LRUID+8~, LRUID+13*, LRUID+22
N	PT+2~, PT+23~, DEM+1~, DEM+18~, ADDPT+2~, OPDPT+2~, SVCPT+2~, OADPT+2~, INPPT+2~, IN5PT+2~ , PIDPT+2~
PNM	PT+10, PT+16, PT+26, DEM+9, DEM+14, DEM+21, KVAR+1!
SEX	PT+10, PT+17, PT+27, DEM+9, DEM+14, DEM+21, KVAR+1!
SSN	PT+10, PT+16, PT+29, DEM+9, DEM+17, DEM+22, KVAR+1!
U	PT+11, PT+15, PT+16, PT+17, PT+18, PT+27, PT+29, DEM+10, DEM+13, DEM+14 , DEM+17, DEM+21, DEM+22, DOC+2, PRAC+3, URG+1
VA	KVAR+1!
VA("BID"	PT+10, DEM+9
VA("PID"	PT+10, DEM+9
>> VA200	PT+10, DEM+9
>> VADM(1	PT+26, DEM+21
>> VADM(2	PT+29, DEM+22
>> VADM(3	PT+27, DEM+22
>> VADM(4	PT+28, DEM+23
>> VADM(5	PT+27, DEM+21
>> VADM(6	PT+27
VAERR	PT+25, DEM+20, KVAR+1!
>> VAIN(2	PT+30
>> VAIN(3	PT+31
>> VAIN(4	PT+29, PT+30
>> VAIN(5	PT+30
X	PT+2~, PT+14, PT+15, PT+16, PT+17, PT+18, PT+23~, DEM+1~, DEM+13, DEM+14 , DEM+17, DEM+18~, DT+1~, DTOLD+2~, DUZ+1, DOC+1, DOC+2, PRAC~, PRAC+2, PRAC+3 , YMD+1, STAMP+1, LRUID+18, LRUID+30~, LRUID+31, LRUID+32, ADDPT+2~, OPDPT+2~, SVCPT+2~, OADPT+2~ , INPPT+2~, IN5PT+2~, PIDPT+2~, Y2K~, Y2K+6, RD+1~, RD+5, AGE2+3~, AGE2+7, AGE2+11 , CALC+9, CALC+10, CALC+11, CALC+12, CALC+13*
>> X1	LRUID+17*
>> X2	LRUID+17*
Y	PT+2~, PT+23~, DEM+1~, DEM+18~, DD+1, DD+2, DDOLD+1, DDOLD+2, DT+3, DT+4 , DTOLD+4, PRAC+1~, PRAC+3, PRAC+4, PRAC+5, ADD+1, ADDPT+2~, OPDPT+2~, SVCPT+2~, OADPT+2~ , INPPT+2~, IN5PT+2~, PIDPT+2~, Y2K+6, Y2K+7, Y2K+8, Y2K+9, RD+1~, RD+5, AGE2+3~ , AGE2+10, AGE2+12
YR	Y2K+5~

Customize PDF page

Package: Lab Service

Routine: LRX

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 295

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: