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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LEX10CS

Package: Lexicon Utility

Routine: LEX10CS


Information

LEX10CS ;ISL/KER - ICD-10 Code Set ;11/16/2016

Source Information

Source file <LEX10CS.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Lexicon Utility 10 $$CODELIST^LEX10CS2  I10C^LEX10DBC  MAJ^LEX10DBR  I10T^LEX10DBT  ($$ISCAT,DXARY)^LEX10DU  I9T^LEX10DX  $$FIN^LEX10PR  $$TAX^LEX10TAX  
PTX^LEXTOKN  $$IMPDATE^LEXU  
Kernel 2 $$DT^XLFDT  $$UP^XLFSTR  
DRG Grouper 1 ($$DTBR,$$ICDOP,$$LD)^ICDEX  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 20

Package Total Caller Graph
Lexicon Utility 3 LEX10DBT  LEX10DL  LEX10PL  
Automated Information Collection System 2 IBDLXDG  IBDUTICD  
Clinical Reminders 2 PXRMLEXL  PXRMTXIM  
DRG Grouper 2 ICDCODLK  ICDDSLK  
Registration 2 DGICD  DGICP  
Emergency Department Integration Software 1 EDPFLEX  
Fee Basis 1 FBASF  
Hospital Based Home Care 1 HBHCLKU1  
Lab Service 1 LRAPICD  
Mental Health 1 YSLXDG  
Order Entry Results Reporting 1 ORWLEX  
PCE Patient Care Encounter 1 PXDSLK  
Prosthetics 1 RMPOICD1  
Surgery 1 SROICD  

Entry Points

Name Comments DBIA/ICR reference
CODELIST(X,LEXSPEC,LEXSUB,LEXD,LEXL,LEXF) ;
; NOTE: Routine split due to SACC Limits on size, see LEX10CS2
  • ICR #5681
    • Status: Active
    • Usage: Supported
    PCSOK(X,LEXD) ; PCS data is OK
    DIAGSRCH(X,LEXDATA,LEXD,LEXL,LEXF) ; ICD-10 Diagnosis Search
  • ICR #5681
    • Status: Active
    • Usage: Supported
    PCSDIG(X,LEXD) ; Return ICD-10 Codes Expanding On Input
  • ICR #5681
    • Status: Active
    • Usage: Supported
    D10(LEX) ; Get One Code (unversioned)
    ICDSRCH(X,LEXDATA,LEXD,LEXL,LEXF) ; ICD Diagnosis Search
  • ICR #5681
    • Status: Active
    • Usage: Supported
    TAX(X,LEXSRC,LEXDT,LEXSUB,LEXVER) ; Taxonomies
  • ICR #5681
    • Status: Active
    • Usage: Supported
    PCSALL ; Return PCS data for full 7 digit code
    OUT ; Out Array
    WDS(X) ; Words in String

    External References

    Name Field # of Occurrence
    $$DTBR^ICDEX PCSALL+2
    $$ICDOP^ICDEX PCSALL+3
    $$LD^ICDEX PCSALL+7
    $$CODELIST^LEX10CS2 CODELIST+2
    I10C^LEX10DBC DIAGSRCH+68
    MAJ^LEX10DBR DIAGSRCH+53
    I10T^LEX10DBT DIAGSRCH+69
    $$ISCAT^LEX10DU DIAGSRCH+55
    DXARY^LEX10DU ICDSRCH+51, OUT+4
    I9T^LEX10DX ICDSRCH+49
    $$FIN^LEX10PR PCSDIG+49
    $$TAX^LEX10TAX TAX+1
    PTX^LEXTOKN WDS+1
    $$IMPDATE^LEXU ICDSRCH+43, PCSOK+2
    $$DT^XLFDT PCSALL+2
    $$UP^XLFSTR ICDSRCH+41, DIAGSRCH+50, DIAGSRCH+53, PCSDIG+33

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^LEX(757.01 - [#757.01] WDS+4, D10+3
    ^LEX(757.02 - [#757.02] DIAGSRCH+63, DIAGSRCH+64, PCSOK+4, PCSOK+5, PCSOK+6, D10+4, D10+5, D10+6, D10+7, D10+8
    ^LEX(757.03 - [#757.03] PCSDIG+40
    ^LEX(757.033 - [#757.033] PCSDIG+34, PCSDIG+39, PCSDIG+42, PCSDIG+48
    ^TMP("LEXDX" DIAGSRCH+45!, OUT+1!
    ^TMP("LEXTKN" WDS+1!, WDS+2, WDS+3, WDS+5!

    Label References

    Name Line Occurrences
    $$DIAGSRCH ICDSRCH+46
    $$PCSOK PCSDIG+44
    $$WDS DIAGSRCH+65
    OUT DIAGSRCH+53
    PCSALL PCSDIG+37

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DT PCSALL+1
    ICD10 ICDSRCH+41~, ICDSRCH+43*, ICDSRCH+45
    ICDFMT DIAGSRCH+48~
    ICDSYS DIAGSRCH+48~
    ICDVDT DIAGSRCH+48~
    LELXI PCSDIG+32~
    LEX ICDSRCH+40~, ICDSRCH+51!, DIAGSRCH+46~, PCSDIG+32~, D10~, D10+2, D10+11*, D10+12
    LEXA PCSALL+1~, PCSALL+7, D10+1~
    LEXA( D10+9*, D10+10, D10+11
    LEXA(1 PCSALL+8
    LEXC WDS+2~*, WDS+4*, WDS+5, PCSOK+1~*, PCSOK+4
    LEXCD PCSDIG+32~, PCSALL+3*, PCSALL+4, PCSALL+5, PCSALL+6, PCSALL+7, D10+1~, D10+5~, D10+7*, D10+9
    LEXCS ICDSRCH+40~, ICDSRCH+46*, ICDSRCH+49*, DIAGSRCH+47~, DIAGSRCH+50*
    LEXCTL PCSDIG+32~, PCSDIG+41*, PCSDIG+55
    LEXD ICDSRCH~, ICDSRCH+45, DIAGSRCH~, DIAGSRCH+50, PCSDIG~, PCSDIG+33*, PCSDIG+44, PCSDIG+49, PCSALL+1*, PCSALL+2*
    , PCSALL+3, PCSALL+7, PCSOK~, PCSOK+2*, PCSOK+5, CODELIST~, CODELIST+2
    LEXDATA ICDSRCH~, ICDSRCH+39!, ICDSRCH+46, DIAGSRCH~, DIAGSRCH+45!
    LEXDATA(0 OUT+6*
    LEXDT TAX~, TAX+1
    LEXEF PCSOK+5~*, PCSOK+6, D10+1~, D10+5~, D10+8*, D10+9, D10+10*, D10+11
    LEXEXIT PCSDIG+32~, PCSDIG+38*, PCSDIG+39, PCSDIG+40*, PCSDIG+41*, PCSDIG+42, PCSDIG+43*
    LEXF ICDSRCH~, ICDSRCH+45, ICDSRCH+46, DIAGSRCH~, DIAGSRCH+50, PCSDIG+47~, PCSDIG+49*, PCSDIG+53*, PCSDIG+54, PCSOK+1~*
    , PCSOK+3, CODELIST~, CODELIST+2
    LEXFA PCSDIG+47~, PCSDIG+49
    LEXFA(2 PCSDIG+50
    LEXFA(3 PCSDIG+51
    LEXFA(4 PCSDIG+52
    LEXFA(5 PCSDIG+53, PCSDIG+54
    LEXFI ICDSRCH+40~, ICDSRCH+51*, DIAGSRCH+46~, OUT+4*
    LEXFIL ICDSRCH+40~, ICDSRCH+45*, ICDSRCH+48*, ICDSRCH+49, DIAGSRCH+46~, DIAGSRCH+50*, DIAGSRCH+59*, DIAGSRCH+60*, DIAGSRCH+68, DIAGSRCH+69
    LEXI WDS+2~*, WDS+3, PCSDIG+32~, PCSDIG+38*, PCSDIG+39*, PCSDIG+40, PCSDIG+48*, PCSDIG+49, PCSOK+1~, PCSOK+2*
    LEXIEN D10+1~, D10+2*, D10+3, D10+4
    LEXII PCSDIG+32~, PCSDIG+40*, PCSDIG+42
    LEXINC ICDSRCH+41~, DIAGSRCH+47~
    LEXIS DIAGSRCH+47~, DIAGSRCH+55*, DIAGSRCH+58
    LEXK PCSOK+1~
    LEXL ICDSRCH~, ICDSRCH+46, ICDSRCH+47, DIAGSRCH~, DIAGSRCH+54, CODELIST~, CODELIST+2
    LEXLD PCSALL+1~, PCSALL+7*
    LEXLEN ICDSRCH+40~, ICDSRCH+47*, ICDSRCH+49, DIAGSRCH+46~, DIAGSRCH+54*, DIAGSRCH+58*, DIAGSRCH+68, DIAGSRCH+69, PCSDIG+32~, PCSDIG+35*
    , PCSDIG+36*, PCSDIG+37, PCSDIG+43, PCSDIG+45
    LEXN PCSOK+1~
    LEXNXT PCSDIG+32~, PCSDIG+45*, PCSDIG+46, PCSDIG+48, PCSDIG+50, PCSDIG+51, PCSDIG+52, PCSDIG+54, PCSDIG+55
    LEXO PCSOK+1~, PCSOK+3*, PCSOK+4*, PCSOK+5, PCSOK+6
    LEXOK ICDSRCH+40~, DIAGSRCH+46~, DIAGSRCH+62*, DIAGSRCH+63*, DIAGSRCH+64*, DIAGSRCH+65*, DIAGSRCH+66*, DIAGSRCH+67, DIAGSRCH+68, DIAGSRCH+69
    , PCSDIG+44~*
    LEXOUT ICDSRCH+40~, ICDSRCH+49!, ICDSRCH+51!*, ICDSRCH+53*, ICDSRCH+54*, DIAGSRCH+46~, DIAGSRCH+53, DIAGSRCH+67!, DIAGSRCH+68, DIAGSRCH+69
    , OUT+5*, OUT+7*, OUT+8
    LEXOUT(0 ICDSRCH+50, OUT+1, OUT+2, OUT+3, OUT+4
    LEXPCDAT PCSDIG+31!, PCSDIG+56*
    LEXPCDAT("NEXLEV" PCSDIG+46, PCSDIG+50*, PCSDIG+51*, PCSDIG+52*, PCSDIG+54*
    LEXPCDAT("PCSDESC" PCSALL+8*
    LEXPCDAT("STATUS" PCSALL+5*, PCSALL+6*
    LEXPCS PCSDIG+32~, PCSDIG+41*, PCSDIG+42*, PCSDIG+43, PCSDIG+44, PCSDIG+45, PCSDIG+55*
    LEXPR ICDSRCH+41~, ICDSRCH+50*, ICDSRCH+52, ICDSRCH+54, DIAGSRCH+47~, OUT+3*
    LEXS PCSOK+1~
    LEXSAB D10+1~, D10+2*, D10+5
    LEXSIEN D10+1~, D10+4*, D10+5, D10+6, D10+7, D10+8
    LEXSPEC CODELIST~, CODELIST+2
    LEXSRC TAX~, TAX+1
    LEXSUB CODELIST~, CODELIST+2, TAX~, TAX+1
    LEXT WDS+2~, WDS+3*, WDS+4
    LEXTK DIAGSRCH+63~, DIAGSRCH+65*, DIAGSRCH+66
    LEXTLX DIAGSRCH+47~, OUT+4*, OUT+5, OUT+6
    LEXTMP ICDSRCH+40~, DIAGSRCH+46~, DIAGSRCH+61*, DIAGSRCH+62, DIAGSRCH+63, DIAGSRCH+64, DIAGSRCH+65, DIAGSRCH+66, DIAGSRCH+68
    LEXTOT ICDSRCH+40~, ICDSRCH+50*, ICDSRCH+51, ICDSRCH+52, ICDSRCH+54, DIAGSRCH+47~, OUT+3*, OUT+7
    LEXVDT ICDSRCH+40~, ICDSRCH+45*, ICDSRCH+46, ICDSRCH+49, DIAGSRCH+46~, DIAGSRCH+50*, DIAGSRCH+53, DIAGSRCH+59, DIAGSRCH+60, DIAGSRCH+68
    , DIAGSRCH+69, D10+1~, D10+2*
    LEXVER TAX~, TAX+1
    LEXX ICDSRCH+40~, ICDSRCH+41*, ICDSRCH+42, ICDSRCH+43, ICDSRCH+46, ICDSRCH+49, DIAGSRCH+46~, DIAGSRCH+50*, DIAGSRCH+51, DIAGSRCH+52
    , DIAGSRCH+53, DIAGSRCH+55, DIAGSRCH+61, DIAGSRCH+69
    U OUT+2
    X ICDSRCH~, ICDSRCH+41, ICDSRCH+43, ICDSRCH+44*, ICDSRCH+45, ICDSRCH+46*, ICDSRCH+54*, ICDSRCH+55, DIAGSRCH~, DIAGSRCH+49*
    , DIAGSRCH+50, OUT+8*, OUT+9, WDS~, WDS+1*, WDS+5*, WDS+6, PCSDIG~, PCSDIG+33*, PCSDIG+34
    , PCSDIG+35*, PCSDIG+36, PCSDIG+41, PCSDIG+43, PCSDIG+48, PCSALL+3, PCSOK~, PCSOK+1, PCSOK+2*, PCSOK+4
    , PCSOK+6*, PCSOK+7, CODELIST~, CODELIST+2, TAX~, TAX+1
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All