Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LRX

Package: Lab Service

Routine: LRX


Information

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

Source Information

Source file <LRX.m>

Entry Points

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

    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
    Info |  Source |  Entry Points |  Interaction Calls