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

Package: Lexicon Utility

Routine: LEXNDX9


Information

LEXNDX9 ;ISL/KER - Set/kill indexes 757.07/757.33 ;05/23/2017

Source Information

Source file <LEXNDX9.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Kernel 1 $$UP^XLFSTR  

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

Package Total Caller Graph
Lexicon Utility 1 ^LEX(757.07  

Entry Points

Name Comments DBIA/ICR reference
SAHD ; Set new value when Effective Date is Edited
KHIS ; Kill "G" Index
KDHIS ; Kill "G" Index Default
SAHC ; Set new value when Code is Edited
SAED(X,Y,IENS) ; Set "AED" Phrase Index
SDHIS ; Set "G" Index Default
KD(X,IENS) ; Kill "D" KWIC Index
PR(X,ARY) ; Parse Expression into Tokens
KAHS ; Kill old value when Status is Edited
DF(X,CODE) ; Default Status
SD(X,IENS) ; Set "D" KWIC Index
HDC ; Set Common Variables (Status and Effective Date)
SAHS ; Set new value when Status is Edited
KAHD ; Kill old value when Effective Date is Edited
SHIS ; Set "G" Index
TM(X,Y) ; Trim Character Y - Default " "
KAED(X,Y,IENS) ; Kill "AED" Phrase Index
DDTBR(SYS,STA) ; Default Date Business Rules
; Input:
; SYS - System
; STA - Status
; Output:
; If Status = 1 (Give)
; If SYS = ICD/ICP use October 1, 1978 2781001
; If SYS = CPT/CPC use January 1, 1989 2890101
; If SYS is not listed above, use 2960923
; If Status = 0 (InGive)
; If SYS = ICD/ICP use October 2, 1978 2791001
; If SYS = CPT/CPC use January 2, 1989 2900101
; If SYS is not listed above, use 2960924
KAHC ; Kill old value when Code is Edited

External References

Name Field # of Occurrence
$$UP^XLFSTR SD+2, KD+2, SAED+3, KAED+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LEX(757.07 - [#757.07] SD+2*, KD+2*, SAED+3*, KAED+3!
^LEX(757.33 - [#757.33] SAHC+2, SAHC+3, KAHC+2, KAHC+3, SHIS+1, SHIS+2!*, SDHIS+1, SDHIS+2*, KHIS+1, KHIS+2!
, KDHIS+1, KDHIS+2!, HDC+1, HDC+2, DF+1, DF+2

Label References

Name Line Occurrences
$$DDTBR HDC+3
$$TM SD+2, KD+2, SAED+2, KAED+2
HDC SAHC+4, KAHC+4, SAHD+2, KAHD+2, SAHS+2, KAHS+2
KHIS KAHC+4, KAHD+2, KAHS+2
PR SD+1, KD+1
SHIS SAHC+4, SAHD+2, SAHS+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARY SD+1~, SD+3!, KD+1~, KD+3!, PR~, PR+1!
ARY( SD+1, SD+2, KD+1, KD+2, PR+6*, PR+8, PR+9*, PR+13, PR+14*
CC PR+8~*, PR+9
CHR PR+4~*, PR+5, PR+6, PR+7, PR+9
CODE DF~
CT PR+1~, PR+3*
CTL PR+1~, PR+2*, PR+5, PR+7, PR+11
CUR PR+1~, PR+3*, PR+4*, PR+6, PR+12
DA SAHC+1, SAHC+4~*, KAHC+1, KAHC+4~*, SHIS+1, KHIS+1, KHIS+2, HDC+1, HDC+2
DA(1 SAHC+4*, KAHC+4*, SHIS+1, SHIS+2, KHIS+1, KHIS+2, HDC+1, HDC+2
EXM SAED+1~, SAED+2*, SAED+3, KAED+1~, KAED+2*, KAED+3
EXP PR+1~*, PR+3, PR+4, PR+10
I SD+1~*, SD+2, KD+1~*, KD+2, SAED+1~, SAED+2*, KAED+1~, KAED+2*
IENS SD~, SD+1, SD+2, KD~, KD+1, KD+2, SAED~, SAED+1, SAED+3, KAED~
, KAED+1, KAED+3
IENS(1 SD+1, SD+2, KD+1, KD+2, SAED+1, SAED+3, KAED+1, KAED+3
LEXC DF+1~
LEXDDT SAHC+1~, KAHC+1~, SAHD+1~, KAHD+1~, SAHS+1~, KAHS+1~, SHIS+2, HDC+1*, HDC+3*
LEXDSTA SAHC+1~, KAHC+1~, SAHD+1~, KAHD+1~, SAHS+1~, KAHS+1~, HDC+1*
LEXDSYS SAHC+1~, KAHC+1~, SAHD+1~, KAHD+1~, SAHS+1~, KAHS+1~, HDC+1*, HDC+3
LEXDT DDTBR+13~, DDTBR+14*, DDTBR+16, DDTBR+17*, DDTBR+18, DDTBR+19*, DDTBR+20, DDTBR+21*, DDTBR+22, DDTBR+23*
, DDTBR+24*, DDTBR+25
LEXEFF SAHC+1~, SAHC+4, KAHC+1~, KAHC+4, SAHD+1~, SAHD+2, KAHD+1~, KAHD+2*, SAHS+1~, SAHS+2
, KAHS+1~, KAHS+2, SHIS+1, SHIS+2, SDHIS+1, SDHIS+2, KHIS+1, KHIS+2, KDHIS+1, KDHIS+2
, HDC+1*, HDC+2*, DF+1~*, DF+2
LEXHIS SAHC+1~, SAHC+2*, SAHC+3*, SAHC+4, KAHC+1~, KAHC+2*, KAHC+3*, KAHC+4, SAHD+1~, KAHD+1~
, SAHS+1~, KAHS+1~
LEXI DF+1~*, DF+2
LEXIEN SAHC+1~*, SAHC+2, SAHC+3, SAHC+4, KAHC+1~*, KAHC+2, KAHC+3, KAHC+4, SAHD+1~, KAHD+1~
, SAHS+1~, KAHS+1~, SDHIS+1, SDHIS+2, KDHIS+1, KDHIS+2
LEXL DF+1~, DF+2*
LEXMAP SAHC+1~, KAHC+1~, SAHD+1~, KAHD+1~, SAHS+1~, KAHS+1~, SHIS+2, SDHIS+2, KHIS+2, KDHIS+2
, HDC+1*, HDC+2*
LEXNF DF+1~
LEXNOD SAHC+1~, KAHC+1~, SAHD+1~, KAHD+1~, SAHS+1~, KAHS+1~, HDC+2*
LEXSTA SAHC+1~, SAHC+4, KAHC+1~, KAHC+4, SAHD+1~, SAHD+2, KAHD+1~, KAHD+2, SAHS+1~, SAHS+2*
, KAHS+1~, KAHS+2*, SHIS+1, SHIS+2, SDHIS+1, SDHIS+2, KHIS+1, KHIS+2, KDHIS+1, KDHIS+2
, HDC+1*, HDC+2*, HDC+3*, DDTBR+13~, DDTBR+14*, DDTBR+15*, DDTBR+17, DDTBR+19, DDTBR+21, DDTBR+23
, DDTBR+24
LEXSYS SAHS+1~, DDTBR+13~, DDTBR+14*, DDTBR+15, DDTBR+16, DDTBR+18, DDTBR+20, DDTBR+22
NXT PR+8~, PR+10*, PR+11
OUT PR+1~, PR+3*
P1 PR+1~, PR+3*
P2 PR+1~, PR+3*
PC PR+1~, PR+3*, PR+4, PR+10
PIE SAED+1~, SAED+2*, SAED+3, KAED+1~, KAED+2*, KAED+3
PRE PR+1~, PR+3*, PR+6*, PR+12*
ST PR+1~, PR+3*
STA DDTBR~, DDTBR+14
STR SAED+1~, SAED+2*, KAED+1~, KAED+2*
SYS DDTBR~, DDTBR+14
TC PR+1~, PR+3*, PR+6, PR+8, PR+9, PR+11*, PR+13*, PR+14
TKN SD+2~*, KD+2~*, PR+14~*
U HDC+2, DF+2
X SAHC+4~, KAHC+4~, KAHD+2, SAHS+2, KAHS+2, SD~, SD+1, KD~, KD+1, SAED~
, SAED+1, SAED+2, KAED~, KAED+1, KAED+2, DF~, DF+1, DF+2*, DF+3, PR~
, PR+1, TM~, TM+1*, TM+2*, TM+3
Y SAED~, SAED+1, SAED+2, KAED~, KAED+1, KAED+2, TM~, TM+1*, TM+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All