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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

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  
Lab Service 1 SSNFM^LRU  
Registration 1 (ADD,DEM,IN5,INP,KVA,KVAR,OAD,OERR,OPD,PID,SVC)^VADPT  

Caller Graph

Caller Graph Total: 255

Package Total Caller Graph
Lab Service 220 LR138PO  LR140P  LR309  LR7OAPKM  LR7OAPMG  LR7OGMP  LR7OGU  LR7OMERG  
LR7OSMZ1  LR7OSOS  LR7OSOS1  LR7OSUM  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  LRAPKLG  LRAPKOE  LRAPPF1  LRAPS1  LRAPSEM2  LRAPTT  
LRAR03  LRAR04  LRAR05  LRARCHE  LRARCHIV  LRARCHK  LRAUSTA  LRBEBA3  
LRBLINTG  LRBLPBR1  LRBLPCS  LRBLPUS  LRBLSRV  LRCAPA12  LRCAPACC  LRCAPES  
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  LRLABELF  
LRLABLD  LRLABLD0  LRLABXT  LRLIST  LRLISTE  LRLL  LRLL1A  LRLLP  
LRLLP2  LRLLP5  LRLLS  LRLLS2  LRLLS3  LRLNCTOP  LRLSTWRK  LRLSTWRL  
LRMIBL  LRMIEDZ2  LRMIEDZ3  LRMIHDR  LRMILL  LRMINEW  LRMINEW1  LRMIPLOG  
LRMIPSZ  LRMIPSZ1  LRMISEZ1  LRMISEZ2  LRMISEZ4  LRMISTF1  LRMIV1  LRMIV2  
LRMIV3  LRMIVER  LRMIVER1  LRNDLST  LRNODRAW  LROCM  LROE  LROE1  
LROLOVER  LROR1  LROR2  LROR4  LROR9  LRORD  LROS  LROW  
LROW2P  LRPHEXPT  LRPHITE2  LRPHITEM  LRPHLIS1  LRPHLIST  LRPHSET  LRQC  
LRRMM  LRRP  LRRP1  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  
LRUMDP  LRUP  LRUPT  LRUTT  LRUWLF  LRVER  LRVER2  LRVER3A  
LRVR  LRVR0  LRVR1  LRVR3  LRVRA  LRVRAP4  LRVRAR  LRVRPOC  
LRVRW  LRWD  LRWLST  LRWLST1  LRWRKIN1  LRWRKINC  LRWRKLS1  LRWRKLST  
LRWRKS  LRWRKS2  LRWU5  LRWU6  
Automated Lab Instruments 33 LA7HDR  LA7QRY  LA7QRY1  LA7SMB  LA7SMB1  LA7SMP  LA7SMP0  LA7UID1  
LA7UID2  LA7UIO  LA7UIO1  LA7VIN5  LA7VMSG1  LA7VORM1  LA7VPID  LABCX4D  
LABERRP  LADIMD  LAEKT7D  LAEPXD  LAHTCCAD  LAKDIFF  LAKUR  LAMIAUT1  
LAMIAUT4  LAMIAUT7  LAMILL  LAMIVTKD  LAMIVTL1  LAMIVTLD  LAMSD  LAPERD  
LAPMAXD  
Automated Medical Information Exchange 1 DVBCLABR  
Beneficiary Travel 1 DGBTVUP  

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

    External References

    Name Field # of Occurrence
    ^%DT STAMP+1, AGE2+10, AGE2+12
    ^%DTC LRUID+17
    GKILL^%ZISS LRGLIN+4
    GSET^%ZISS LRGLIN+2
    DT^DICRW DT+2, DTOLD+3
    $$GET1^DID PT+11
    ^DIE SET3+6
    ^DIR RD+4
    SSNFM^LRU PT+31, DEM+22
    ADD^VADPT ADDPT+1
    DEM^VADPT DEM+17
    IN5^VADPT IN5PT+1
    INP^VADPT INPPT+1
    KVA^VADPT KVAR+2
    KVAR^VADPT PT+3, DEM+2
    OAD^VADPT OADPT+1
    OERR^VADPT PT+23
    OPD^VADPT OPDPT+1
    PID^VADPT PIDPT+1
    SVC^VADPT SVCPT+1
    $$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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC - [#1] DEM+9
    ^LAB(62.05 - [#62.05] URG+1
    ^LR - [#63] PT+6, DEM+5, 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+18, PT+26, DEM+14, DEM+20
    DDOLD DTOLD+4
    EQUALS KEYCOM+1

    Naked Globals

    Name Field # of Occurrence
    ^( PT+12, DEM+9, URG+1, INF+1
    ^(0 PT+6, DEM+5, 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+4!, PT+5*, PT+17*, PT+26*, DEM+3!, DEM+4*, DEM+13*, DEM+20*
    AGE(2 PT+5*, PT+18*, PT+26*, DEM+4*, DEM+14*, DEM+20*
    DA LRUID+8~, SET3+5*
    DA(1 SET3+5*
    DA(2 SET3+5*
    >> DFN PT+6*, PT+8, PT+12, DEM+5*, DEM+6, DEM+9
    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+5*, PT+16*, PT+17, PT+18, PT+25*, PT+26, DEM+4*, DEM+12*, DEM+13, DEM+14
    , DEM+19*, DEM+20, KVAR+1!, AGE2~, AGE2+5, AGE2+6*, AGE2+7, AGE2+8, AGE2+9, CALC+7
    , CALC+8, CALC+9, CALC+11
    DOD PT+5*, PT+12*, PT+25*, DEM+4*, DEM+18*, KVAR+1!
    DR LRUID+8~, SET3*, SET3+2*, SET3+4*
    DT PT+17, DEM+13, DT+3, DTOLD+4
    >> DTOUT RD+4
    >> DUOUT RD+4
    HZ LRGLIN+1~, LRGLIN+3*
    I PT+2~, PT+22~, DEM+1~, DEM+16~, URG+1*, ADDPT+1~, OPDPT+1~, SVCPT+1~, OADPT+1~, INPPT+1~
    , IN5PT+1~, PIDPT+1~
    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+18, PT+26, DEM+14, DEM+20, AGE2~, AGE2+4*, AGE2+7*, AGE2+8, AGE2+9, AGE2+11
    , CALC+7, CALC+8, CALC+9, CALC+11
    LRDFN PT+6, DEM+5, INF+1, KVAR+1!
    >> LRDOC DOC+1*, DOC+2*, DOC+3*
    LRDPF PT+6*, PT+8, PT+10, PT+11, PT+14, PT+21, DEM+5*, DEM+6, DEM+8, DEM+9
    , DEM+11, DEM+16, KVAR+1!
    >> LRDT0 DT+4*
    >> LRDTO DTOLD+4*
    LREND PT+7*, PT+8*, DEM+6*, KVAR+1!, RD+3*, RD+4*
    LRJUL LRUID+8~, LRUID+18*, LRUID+19
    LRMNTH LRUID+8~, LRUID+14*, LRUID+15, LRUID+27
    >> LRORDRR LRUID+33, SET3, SET3+1
    >> LRORU3 SET3+8*
    >> LRPRAC PT+28*
    LRQTR LRUID+8~, LRUID+15*, LRUID+24
    >> LRQUIET INF+1
    LRRB PT+5*, PT+12*, PT+28*, DEM+4*, DEM+9*, KVAR+1!
    >> LRRSITE("IDTYPE" SET3+3
    >> LRRSITE("RPSITE" SET3+2
    >> LRRSITE("RSITE" SET3+2
    >> LRSD("RUID" SET3+2, SET3+3
    LRTREA PT+4!, PT+5*, PT+29*, DEM+3!, DEM+4*, 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*, LRUID+33, 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+4!, PT+5*, PT+12*, PT+27*, DEM+3!, DEM+4*, DEM+9*, KVAR+1!
    LRWRD(1 PT+28*
    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+22~, DEM+1~, DEM+16~, ADDPT+1~, OPDPT+1~, SVCPT+1~, OADPT+1~, INPPT+1~, IN5PT+1~
    , PIDPT+1~
    PNM PT+5*, PT+13*, PT+24*, DEM+4*, DEM+10*, DEM+18*, KVAR+1!
    SEX PT+5*, PT+15*, PT+25*, DEM+4*, DEM+12*, DEM+18*, KVAR+1!
    SSN PT+5*, PT+13*, PT+27*, DEM+4*, DEM+10*, DEM+19*, KVAR+1!
    SSN(1 PT+27*, DEM+19*
    U PT+6, PT+12, PT+13, PT+15, PT+16, PT+25, PT+27, DEM+5, DEM+9, DEM+10
    , DEM+12, DEM+18, DEM+19, DOC+2, PRAC+3, URG+1
    VA KVAR+1!
    VA("BID" PT+5*, PT+27, DEM+4*, DEM+19
    VA("PID" PT+5*, PT+27, DEM+4*, DEM+19
    >> VA200 PT+5*, DEM+4*
    >> VADM(1 PT+24, DEM+18
    >> VADM(3 PT+25, DEM+19
    >> VADM(4 PT+26, DEM+20
    >> VADM(5 PT+25, DEM+18
    >> VADM(6 PT+25, DEM+18
    VAERR PT+23, DEM+17, KVAR+1!
    >> VAIN(2 PT+28
    >> VAIN(3 PT+29
    >> VAIN(4 PT+27, PT+28
    >> VAIN(5 PT+28
    X PT+2~, PT+11*, PT+12*, PT+13, PT+15, PT+16, PT+22~, DEM+1~, DEM+9*, DEM+10
    , DEM+12, DEM+16~, 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+1~, OPDPT+1~, SVCPT+1~, OADPT+1~
    , INPPT+1~, IN5PT+1~, PIDPT+1~, 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+22~, DEM+1~, DEM+16~, 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+1~, OPDPT+1~, SVCPT+1~, OADPT+1~
    , INPPT+1~, IN5PT+1~, PIDPT+1~, 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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All