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
|
|
DEM | ; Call DEM^VADPT instead of OERR used above
|
|
DD | ;date/time format
|
|
DDOLD | ;OLD
|
|
DT | ;current date format is LRDT0
|
|
DTOLD | ;2-DIGIT
|
|
DASH | ;line of dashes
|
|
EQUALS | ;line of equals
|
|
DUZ | ;user info
|
|
DOC | ;provider info
|
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|