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: LEXU4

Package: Lexicon Utility

Routine: LEXU4


Information

LEXU4 ;ISL/KER - Miscellaneous Lexicon Utilities ;12/19/2014

Source Information

Source file <LEXU4.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lexicon Utility 4 $$FIN^LEX10PR  ($$CSYS,$$IMPDATE)^LEXU  $$CODSAB^LEXU2  $$PERIOD^LEXU4  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
DRG Grouper 1 ($$CODEABA,$$ICDDX,$$ICDOP,$$ROOT)^ICDEX  
Kernel 1 ($$DT,$$FMDIFF)^XLFDT  

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: 3

Package Total Caller Graph
Lexicon Utility 3 LEXU  LEXU2  LEXU4  

Entry Points

Name Comments DBIA/ICR reference
SYSC(X) ; System from Code (must be unique)
PFI(FRAG,CDT,ARY) ; Get Procedure Fragment Info
HIST(CODE,SYS,ARY) ; Get Activation History for a Code
;
; Input:
;
; CODE ICD Code (required)
; SYS Coding System
; .ARY Array, passed by Reference (required)
;
; Output:
;
; $$HIST Number of Histories Found
; or
; -1 ^ error message
;
; ARY(0) = Number of Activation History
; ARY(0,0) = Code ^ Source Abbreviation ^ Source Nomenclature
; ARY(<date>,<status>) = Comment
LAST(X,SYS,CDT) ; Last Activation ^ Inactivation
PERIOD(CODE,SYS,ARY) ; Get Activation/Inactivation Periods for a Code
ACT(CODE,SYS,ARY) ; Get Activations
REUSE(X,SYS) ; Is a code "re-used"
VP(CODE,SYS,EFF) ; Variable Pointer ^ Description
REVISE(X,SYS) ; Is a code "revised"
TM(X,Y) ; Trim Character Y - Default " "

External References

Name Field # of Occurrence
$$CODEABA^ICDEX VP+6, VP+11
$$ICDDX^ICDEX VP+9
$$ICDOP^ICDEX VP+13
$$ROOT^ICDEX VP+7, VP+12
$$CPT^ICPTCOD VP+17
$$FIN^LEX10PR PFI+41
$$CSYS^LEXU HIST+21, HIST+24, PERIOD+54, REUSE+17, REVISE+15, ACT+4, ACT+7
$$IMPDATE^LEXU PFI+34
$$CODSAB^LEXU2 PERIOD+57
$$PERIOD^LEXU4 LAST+15
$$DT^XLFDT HIST+27, PERIOD+84, VP+4, REUSE+16, REVISE+14, LAST+14, ACT+10, PFI+34
$$FMDIFF^XLFDT REUSE+24

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICPT("BA" VP+15
^LEX(757.01 - [#757.01] PERIOD+80
^LEX(757.02 - [#757.02] HIST+20, HIST+29, HIST+31, HIST+32, PERIOD+53, PERIOD+59, PERIOD+60, PERIOD+61, PERIOD+63, PERIOD+64
, PERIOD+65, ACT+3, ACT+12, ACT+14, ACT+15, SYSC+15, SYSC+16, SYSC+17
^LEX(757.03 - [#757.03] HIST+23, PERIOD+56, ACT+6
^LEX(757.033 - [#757.033] PFI+36, PFI+37, PFI+39

Label References

Name Line Occurrences
$$ACT REUSE+17, REVISE+15
$$SYSC HIST+22, ACT+5
$$VP PERIOD+86

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARY HIST~, HIST+19!, PERIOD~, PERIOD+58!, PERIOD+91!*, ACT~, ACT+2!, PFI~, PFI+33!, PFI+41!
ARY( HIST+34, HIST+35*, HIST+36, HIST+37, HIST+38!, HIST+39, HIST+40, HIST+42*, HIST+43*, HIST+45*
, HIST+46, HIST+47*!, HIST+48, HIST+49*!, HIST+50, HIST+51, HIST+52, HIST+53*, PERIOD+92, ACT+17
, ACT+18*, ACT+19, ACT+20, ACT+21!, ACT+22, ACT+23
ARY(0 HIST+34*, HIST+50!, HIST+55*, HIST+56*, PERIOD+93*, PERIOD+94*, PERIOD+95, ACT+17*
CDT LAST~, LAST+14, PFI~, PFI+34
CODE HIST~, HIST+19, PERIOD~, PERIOD+52, VP~, VP+2, ACT~, ACT+2
DT REUSE+16, REVISE+14
EFF VP~, VP+4
FRAG PFI~, PFI+33
LEXA HIST+18~, HIST+36*, HIST+38*, HIST+39*, HIST+41*, HIST+42, REUSE+15~, REUSE+16*, REVISE+13~, REVISE+14*
, ACT+1~, ACT+19*
LEXAC REUSE+15~, REVISE+13~
LEXACT PERIOD+50~, PERIOD+58!
LEXACT( PERIOD+62*, PERIOD+67, PERIOD+70, PERIOD+71*, PERIOD+72!, PERIOD+73, PERIOD+78
LEXARY LAST+14~, LAST+15
LEXARY( LAST+16, LAST+17
LEXARY(0 LAST+15
LEXC HIST+18~, HIST+32~, HIST+33*, HIST+50*, HIST+51, HIST+52, HIST+53, PERIOD+50~, PERIOD+92*, PERIOD+93
, PERIOD+94, ACT+1~, ACT+15~, ACT+16*, PFI+33~
LEXD PERIOD+50~, REUSE+18*, REUSE+20, REUSE+21, REUSE+23, REUSE+24, REUSE+25, REVISE+16*, REVISE+18, REVISE+19
, REVISE+21, REVISE+22, PFI+33~, PFI+34*, PFI+35*, PFI+37, PFI+41
LEXDES VP+1~, VP+4*, VP+9*, VP+13*, VP+17*, VP+18
LEXDIF REUSE+19~, REUSE+24*, REVISE+17~
LEXDT PERIOD+50~, PERIOD+59*, PERIOD+60, PERIOD+62, PERIOD+63*, PERIOD+64, PERIOD+66, PERIOD+67*, PERIOD+68, PERIOD+70
, PERIOD+72, PERIOD+73*, PERIOD+76, PERIOD+78, PERIOD+89, PERIOD+90, LAST+14~*, LAST+18, LAST+19
LEXE HIST+18~, HIST+28~*, HIST+29*, HIST+31, HIST+34, HIST+35, HIST+36*, HIST+37, HIST+38, HIST+39*
, HIST+40, HIST+42, HIST+43, HIST+45, HIST+46, HIST+47, HIST+48, HIST+49, REUSE+19~, REUSE+20*
, REUSE+25, REVISE+17~, REVISE+18*, REVISE+22, ACT+1~, ACT+11~*, ACT+12*, ACT+14, ACT+17, ACT+18
, ACT+19*, ACT+20, ACT+21, ACT+22*, ACT+23, PFI+33~, PFI+37*, PFI+38, PFI+39
LEXEF PERIOD+50~, PERIOD+74~, PERIOD+84*, PERIOD+86, PERIOD+92*, VP+1~, VP+4*, VP+9, VP+13, VP+17
, REUSE+15~, REVISE+13~
LEXEXI PERIOD+50~, PERIOD+61~*, PERIOD+62, PERIOD+65~*, PERIOD+66, PERIOD+69~, PERIOD+70*, PERIOD+71, PERIOD+74~, PERIOD+78*
, PERIOD+79*, PERIOD+80, PERIOD+89
LEXEXP PERIOD+50~, PERIOD+74~, PERIOD+80*, PERIOD+90
LEXF PFI+33~*, PFI+36, PFI+37, PFI+39
LEXH REUSE+15~, REUSE+17*, REVISE+13~, REVISE+15*
LEXHARY REUSE+15~, REUSE+17, REVISE+13~, REVISE+15
LEXHARY( REUSE+18, REUSE+20, REUSE+21, REUSE+22, REVISE+16, REVISE+18, REVISE+19, REVISE+20
LEXHARY(0 REUSE+17!, REVISE+15!
LEXI HIST+18~, HIST+27*, HIST+29, HIST+31, HIST+34, HIST+35, HIST+51*, HIST+52, HIST+53, PERIOD+50~
, VP+1~, VP+6~*, VP+8, VP+11~*, VP+12, VP+15~*, VP+16, REUSE+15~, REUSE+16*, REVISE+13~
, REVISE+14*, ACT+1~, ACT+10*, ACT+11, ACT+12, ACT+14, PFI+33~, PFI+34*, PFI+35
LEXIDT PERIOD+50~, PERIOD+74~, PERIOD+76*, PERIOD+79, PERIOD+82, PERIOD+84, PERIOD+88*, PERIOD+89
LEXIEN PERIOD+50~, PERIOD+60~*, PERIOD+61, PERIOD+64~*, PERIOD+65
LEXINA PERIOD+51~, PERIOD+58!
LEXINA( PERIOD+66*, PERIOD+68, PERIOD+72!, PERIOD+76, PERIOD+79, PERIOD+82!
LEXLA LAST+14~, LAST+16*, LAST+18*, LAST+20
LEXLI LAST+14~, LAST+16*, LAST+19*, LAST+20
LEXN HIST+18~, HIST+32~*, HIST+33, HIST+50*, HIST+54*, HIST+55, HIST+56, ACT+1~, ACT+15~*, ACT+16
, ACT+18, PFI+33~, PFI+39*, PFI+40, PFI+41
LEXND PERIOD+51~, PERIOD+61~*, PERIOD+65~*
LEXNOM HIST+18~, HIST+23*, ACT+1~, ACT+6*
LEXO LAST+14~, LAST+16*, LAST+17, LAST+18
LEXP HIST+18~, HIST+48*, ACT+1~
LEXPD REUSE+19~, REUSE+21*, REUSE+22, REUSE+23, REUSE+24, REUSE+25, REVISE+17~, REVISE+19*, REVISE+20, REVISE+21
, REVISE+22
LEXPDT PERIOD+51~, PERIOD+69~, PERIOD+70*, PERIOD+71
LEXPE REUSE+19~, REUSE+22*, REUSE+25, REVISE+17~, REVISE+20*, REVISE+22
LEXPER PERIOD+51~, PERIOD+91
LEXPER( PERIOD+89*, PERIOD+90*
LEXPS REUSE+19~, REUSE+21*, REUSE+22, REUSE+23, REUSE+25, REVISE+17~, REVISE+19*, REVISE+20, REVISE+21, REVISE+22
LEXR VP+1~, VP+6~, VP+7*, VP+8, VP+11~, VP+12*, VP+15~, VP+16*
LEXRD REUSE+15~, REUSE+18*, REUSE+25*, REUSE+26, REVISE+13~, REVISE+16*, REVISE+22*, REVISE+23
LEXREU REUSE+15~, REUSE+18*, REUSE+25*, REUSE+26
LEXREV REVISE+13~, REVISE+16*, REVISE+22*, REVISE+23
LEXRU REUSE+15~, REVISE+13~
LEXS HIST+18~, HIST+30~*, HIST+31*, HIST+32, HIST+37*, HIST+38, HIST+40*, HIST+41, HIST+42, HIST+43
, HIST+44, HIST+45, HIST+47, HIST+49, REUSE+19~, REUSE+20*, REUSE+23, REUSE+25, REVISE+17~, REVISE+18*
, REVISE+21, REVISE+22, ACT+1~, ACT+13~*, ACT+14*, ACT+15, ACT+20*, ACT+21, ACT+23~*, SYSC+14~
, SYSC+16!
LEXS( SYSC+17*
LEXS(" " SYSC+18
LEXS(0 SYSC+18
LEXSAB HIST+18~, HIST+21*, HIST+24*, HIST+26*, ACT+1~, ACT+4*, ACT+7*, ACT+9*
LEXSD PERIOD+51~, PERIOD+54*, PERIOD+94
LEXSI HIST+18~, HIST+24*, HIST+25*, HIST+56, ACT+1~, ACT+7*, ACT+8*
LEXSIEN SYSC+14~, SYSC+16*, SYSC+17
LEXSO HIST+18~, HIST+19*, HIST+20, HIST+22, HIST+29, HIST+31, HIST+56, PERIOD+51~, PERIOD+52*, PERIOD+53
, PERIOD+57, PERIOD+59, PERIOD+60, PERIOD+63, PERIOD+64, PERIOD+86, VP+1~, VP+2*, VP+3, VP+6
, VP+9, VP+11, VP+13, VP+15, VP+17, REUSE+15~, REUSE+16*, REUSE+17, REVISE+13~, REVISE+14*
, REVISE+15, LAST+14~, LAST+15*, ACT+1~, ACT+2*, ACT+3, ACT+5, ACT+12, ACT+14, SYSC+14~*
, SYSC+15, SYSC+16
LEXSRC HIST+18~, HIST+21*, HIST+22*, HIST+23, HIST+24, HIST+33, REUSE+15~, REUSE+17*, REVISE+13~, REVISE+15*
, ACT+1~, ACT+4*, ACT+5*, ACT+6, ACT+7, ACT+16
LEXSTA ACT+11~*, ACT+17, ACT+18
LEXSY PERIOD+51~, PERIOD+61~*, PERIOD+62, PERIOD+65~*, PERIOD+66
LEXSYS PERIOD+51~, PERIOD+54*, PERIOD+55, PERIOD+56, PERIOD+57, PERIOD+62, PERIOD+66, PERIOD+86, PERIOD+94, VP+1~
, VP+2*, VP+3, VP+5, VP+6, VP+9, VP+10, VP+11, VP+13, VP+14, REUSE+15~
, REUSE+16*, REUSE+17, REVISE+13~, REVISE+14*, REVISE+15
LEXT LAST+14~, LAST+17~*, LAST+19
LEXTD HIST+18~, HIST+27*, HIST+52, REUSE+15~, REUSE+16*, REVISE+13~, REVISE+14*, LAST+14~*, ACT+1~, ACT+10*
LEXVP PERIOD+51~, PERIOD+74~, PERIOD+86*, PERIOD+89, VP+1~, VP+4*, VP+8*, VP+12*, VP+16*, VP+18
SYS HIST~, HIST+21, PERIOD~, PERIOD+54, VP~, VP+2, REUSE~, REUSE+16, REVISE~, REVISE+14
, LAST~, LAST+15, ACT~, ACT+4
U PERIOD+94, VP+9, VP+13, VP+17
X HIST+18~, HIST+55*, HIST+57, REUSE~, REUSE+16, REUSE+26*, REUSE+27, REVISE~, REVISE+14, REVISE+23*
, REVISE+24, LAST~, LAST+15*, LAST+20*, LAST+21, ACT+1~*, ACT+23*, ACT+24, PFI+33~, PFI+41*
, PFI+42, SYSC~, SYSC+14, SYSC+18*, TM~, TM+1*, TM+2*, TM+3*, TM+4
Y TM~, TM+1*, TM+2, TM+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All