Routine: LRX

Information

LRX ;DALOI/STAFF - UTILITY ROUTINES -- PREVIOUSLY ^LAB("X","...") ;03/31/09 11:39

Source file <LRX.m>

Name	Comments	DBIA/ICR reference
PT	; Patient info	ICR #558 Status: Active Usage: Private ICR #715 Status: Active Usage: Private ICR #5592 Status: Withdrawn Usage: Private
DEM	; Call DEM^VADPT instead of OERR used above
DD	;date/time format	ICR #5592 Status: Withdrawn Usage: Private
DDOLD	;OLD
DT	;current date format is LRDT0	ICR #715 Status: Active Usage: Private
DTOLD	;2-DIGIT
DASH	;line of dashes
EQUALS	;line of equals
DUZ	;user info	ICR #5592 Status: Withdrawn Usage: Private
DOC	;provider info	ICR #5592 Status: Withdrawn Usage: Private
PRAC(X)	;prac info
YMD	;year/month/date
STAMP	;time stamp
KEYCOM	;key to result flags
URG	;urgencies
ADD	;date format
INF	;Display Infectious Warning
LRGLIN	;
LRUID(LRAA,LRAD,LRAN)	;Extrinsic function call to create a unique
SET3
KVAR	;Kill laboratory/VADPT patient demographics
ADDPT	;Returns VAPA( Patient data
OPDPT	;Returns VAPD( Patient data
SVCPT	;Returns VASV( Patient data
OADPT	;Returns VAOA( Patient data
INPPT	;Returns VAIN( Patient data
IN5PT	;Returns VAIP( Patient data
PIDPT	;Returns VA("PID") and VA("BID") Patient Identifier
Y2K(X,LRYR)	; --> used to convert 2digit year to 4digit century and year ; 1/1/91 TO 1/1/1991
RD	;DIR read
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
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

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