Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRX

Package: Lab Service

Routine: LRX


Information

LRX ;SLC/BA/DALISC/FHS - UTILITY ROUTINES -- PREVIOUSLY ^LAB("X","...") ;2/8/91 07:30

Source Information

Source file <LRX.m>

Call Graph

Call Graph Total: 10

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  

Caller Graph

Caller Graph Total: 295

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  

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

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

    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

    Label References

    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

    Naked Globals

    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~
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All