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

Package: Lexicon Utility

Routine: LEXNDX8


Information

LEXNDX8 ;ISL/KER - Set/kill indexes 757.02 ;04/21/2014

Source Information

Source file <LEXNDX8.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Lexicon Utility 1 $$STATCHK^LEXSRC2  

Entry Points

Name Comments DBIA/ICR reference
SAHD ; Set new value when Effective Date is Edited
; ^DD(757.28,.01,1,D0,1) = D SAHD^LEXNDX8
KHIS ; Kill Index
; ^LEX(757.02,"ACT",<code>,<status>,<date>,<ien>,<history>)
KDHIS ; Kill Default Index
; ^LEX(757.02,"ACT",<code>,<status>,<date>,<ien>,<history>)
K10 ; Kill ICD-10 Index
; ^LEX(757.02,"ADX",<dx code>,<date>,<status>,<ien>,<history>)
; ^LEX(757.02,"APR",<pr code>,<date>,<status>,<ien>,<history>)
SAHC ; Set new value when Code is Edited
; ^DD(757.02,1,1,D0,1) = D SAHC^LEXNDX8
SDHIS ; Set Default Index
; ^LEX(757.02,"ACT",<code>,<status>,<date>,<ien>,<history>)
S10 ; Set ICD-10 Index
; ^LEX(757.02,"ADX",<dx code>,<date>,<status>,<ien>,<history>)
; ^LEX(757.02,"APR",<pr code>,<date>,<status>,<ien>,<history>)
KAUPD ; Kill Update Date
KAHS ; Kill old value when Status is Edited
; ^DD(757.28,1,1,D0,2) = D KAHS^LEXIDX8
DF(X,CODE) ; Default Status
HDC ; Set Common Variables (Code, Status and Effective Date)
SAUPD ; Set Update Date
SAHS ; Set new value when Status is Edited
; ^DD(757.28,1,1,D0,1) = D SAHS^LEXNDX8
KAHD ; Kill old value when Effective Date is Edited
; ^DD(757.28,.01,1,D0,2) = D KAHD^LEXIDX8
SHIS ; Set Index
; ^LEX(757.02,"ACT",<code>,<status>,<date>,<ien>,<history>)
DHDC ; Set Default Common Variables (Code, Status and Effective Date)
; 0 node
DDTBR(SYS,STA) ; Default Date Business Rules
; Input:
; SYS - System
; STA - Status
; Output:
; If Status = 1 (Active)
; 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 (Inactive)
; 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
; ^DD(757.02,1,1,D0,2) = D KAHC^LEXNDX8

External References

Name Field # of Occurrence
$$STATCHK^LEXSRC2 DF+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LEX(757.02 - [#757.02] SAHC+4, SAHC+5, SAHC+7, SAHC+8, KAHC+4, KAHC+6, KAHC+7, KAHC+8, HDC+2, HDC+3
, HDC+4, HDC+5, HDC+8, DHDC+2, DHDC+4, SHIS+4, SHIS+5!, SHIS+6*, SHIS+8!, SHIS+9*
, SDHIS+3, SDHIS+4*, SDHIS+6*, KHIS+4, KHIS+5!, KHIS+7!, KHIS+8!, KDHIS+3, KDHIS+4!, KDHIS+6!
, S10+4, S10+9, S10+12*, K10+4, K10+9, K10+12!, DF+3, DF+4, DF+5, DF+6
, DF+7, DF+9, SAUPD+5, SAUPD+7*, KAUPD+5, KAUPD+7!
^LEX(757.03 - [#757.03] SAHC+6, KAHC+5, HDC+9, DHDC+3, S10+6, K10+6, SAUPD+6, KAUPD+6

Label References

Name Line Occurrences
$$DDTBR HDC+12, DHDC+7, DHDC+8
$$DF HDC+10, DHDC+5
HDC SAHC+9, KAHC+9, SAHD+3, KAHD+3, SAHS+3, KAHS+3
KHIS KAHC+11, KAHD+4, KAHS+4
SHIS SAHC+11, SAHD+4, SAHS+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CODE DF~, DF+7
DA SAHC+3, SAHC+9~*, KAHC+3, KAHC+9~*, HDC+1, HDC+2, HDC+5, SHIS+3, SHIS+4, SHIS+6
, SHIS+9, KHIS+3, KHIS+4, KHIS+5, KHIS+8, S10+9, S10+12, K10+9, K10+12, SAUPD+3
, KAUPD+3
DA(1 SAHC+9*, KAHC+9*, HDC+1, HDC+2, HDC+3, HDC+4, HDC+5, HDC+8, HDC+10, DHDC+5
, SHIS+3, SHIS+4, SHIS+5, SHIS+6, SHIS+8, SHIS+9, KHIS+3, KHIS+4, KHIS+5, KHIS+7
, KHIS+8, S10+4, S10+9, S10+12, K10+4, K10+9, K10+12, SAUPD+4, KAUPD+4
LEXC DF+1~, DF+7*, DF+8
LEXCOD SAHC+2~, SAHC+10*, KAHC+2~, KAHC+10*, SAHD+2~, SAHD+3, KAHD+2~, KAHD+3, SAHS+2~, SAHS+3
, KAHS+2~, KAHS+3, HDC+1*, HDC+3*, HDC+10, DHDC+2*, DHDC+5, SHIS+2, SHIS+5, SHIS+6
, SHIS+8, SHIS+9, SDHIS+2, SDHIS+4, SDHIS+6, KHIS+2, KHIS+5, KHIS+7, KHIS+8, KDHIS+2
, KDHIS+4, KDHIS+6
LEXCODX SAHC+2~, SAHC+3*, SAHC+10, KAHC+2~, KAHC+3*, KAHC+10, DHDC+2
LEXDDT SAHC+2~, KAHC+2~, SAHD+2~, KAHD+2~, SAHS+2~, KAHS+2~, HDC+1*, HDC+12*, DHDC+8*, SHIS+5
, SHIS+8, KHIS+7, KDHIS+6
LEXDF SAHC+2~, KAHC+2~, SAHD+2~, KAHD+2~, SAHS+2~, KAHS+2~, HDC+1*, DF+1~, DF+8*, DF+10
LEXDSTA SAHC+2~, KAHC+2~, SAHD+2~, KAHD+2~, SAHS+2~, KAHS+2~, HDC+1*, HDC+10*, HDC+11*, HDC+12
, DHDC+6*, DHDC+8
LEXDSYS SAHC+2~, KAHC+2~, SAHD+2~, KAHD+2~, SAHS+2~, KAHS+2~, HDC+1*, HDC+8*, HDC+9*, HDC+12
, DHDC+3*, DHDC+8
LEXDT SAUPD+1~, SAUPD+2*, SAUPD+7, KAUPD+1~, KAUPD+2*, KAUPD+7, DDTBR+13~, DDTBR+14*, DDTBR+17, DDTBR+18*
, DDTBR+20, DDTBR+21*, DDTBR+23, DDTBR+24*, DDTBR+26, DDTBR+27*, DDTBR+29*, DDTBR+30
LEXEF S10+3~, S10+10*, S10+12, K10+3~, K10+10*, K10+12
LEXEFF SAHC+2~, SAHC+10, KAHC+2~, KAHC+10, SAHD+2~, SAHD+4*, KAHD+2~, KAHD+4*, SAHS+2~, SAHS+3
, KAHS+2~, KAHS+3, HDC+1*, HDC+6*, DHDC+7*, SHIS+2, SHIS+6, SHIS+9, SDHIS+2, SDHIS+4
, SDHIS+6, KHIS+2, KHIS+5, KHIS+8, KDHIS+2, KDHIS+4, DF+1~, DF+4*, DF+5
LEXHIS SAHC+2~, SAHC+7*, SAHC+8*, SAHC+9, KAHC+2~, KAHC+7*, KAHC+8*, KAHC+9, SAHD+2~, KAHD+2~
, SAHS+2~, KAHS+2~, SAUPD+1~, SAUPD+3*, KAUPD+1~, KAUPD+3*
LEXI DF+1~, DF+2*, DF+3, DF+4, DF+5, DF+6, DF+7, DF+9
LEXIEN SAHC+2~, SAHC+3*, SAHC+4, SAHC+5, SAHC+7, SAHC+8, SAHC+9, KAHC+2~, KAHC+3*, KAHC+4
, KAHC+6, KAHC+7, KAHC+8, KAHC+9, SAHD+2~, KAHD+2~, SAHS+2~, KAHS+2~, DHDC+2, DHDC+4
, SDHIS+3, SDHIS+4, SDHIS+6, KDHIS+3, KDHIS+4, KDHIS+6, SAUPD+1~, SAUPD+4*, SAUPD+5, SAUPD+7
, KAUPD+1~, KAUPD+4*, KAUPD+5, KAUPD+7
LEXIX S10+3~, S10+7*, S10+12, K10+3~, K10+7*, K10+12
LEXL DF+1~, DF+5*, DF+6*, DF+10
LEXND S10+3~, S10+4*, S10+5, S10+8, S10+9*, S10+10, S10+11, K10+3~, K10+4*, K10+5
, K10+8, K10+9*, K10+10, K10+11, DF+1~, DF+3*
LEXNF DF+1~, DF+10*, DF+11
LEXNOD SAHC+2~, KAHC+2~, SAHD+2~, KAHD+2~, SAHS+2~, KAHS+2~, HDC+5*, HDC+6
LEXO DF+1~, DF+9*
LEXPRF SAHC+2~, SAHC+5*, KAHC+2~, KAHC+6*, SAHD+2~, KAHD+2~, SAHS+2~, KAHS+2~, HDC+4*, DHDC+4*
, SHIS+7, SDHIS+5, KHIS+6, KDHIS+5
LEXSAB SAUPD+1~, SAUPD+6*, SAUPD+7, KAUPD+1~, KAUPD+6*, KAUPD+7
LEXSB S10+3~, S10+6*, S10+7, K10+3~, K10+6*, K10+7
LEXSO S10+3~, S10+8*, S10+12, K10+3~, K10+8*, K10+12
LEXSR S10+3~, S10+5*, S10+6, K10+3~, K10+5*, K10+6
LEXSRC DF+1~, DF+3*, DF+8, SAUPD+1~, SAUPD+5*, SAUPD+6, KAUPD+1~, KAUPD+5*, KAUPD+6
LEXST S10+3~, S10+11*, S10+12, K10+3~, K10+11*, K10+12
LEXSTA SAHC+2~, SAHC+11, KAHC+2~, KAHC+11, SAHD+2~, SAHD+4, KAHD+2~, KAHD+4, SAHS+2~, SAHS+4*
, KAHS+2~, KAHS+4*, HDC+1*, HDC+6*, HDC+7*, DHDC+5*, DHDC+6*, DHDC+7, SHIS+2, SHIS+5
, SHIS+6, SHIS+8, SHIS+9, SDHIS+2, SDHIS+4, SDHIS+6, KHIS+2, KHIS+5, KHIS+7, KHIS+8
, KDHIS+2, KDHIS+4, KDHIS+6, DDTBR+13~, DDTBR+14*, DDTBR+15*, DDTBR+18, DDTBR+21, DDTBR+24, DDTBR+27
, DDTBR+29
LEXSYS SAHC+2~, SAHC+4*, SAHC+6*, KAHC+2~, KAHC+4*, KAHC+5*, SAHD+2~, KAHD+2~, SAHS+2~, KAHS+2~
, DHDC+2*, DHDC+3*, DHDC+7, DDTBR+13~, DDTBR+14*, DDTBR+15, DDTBR+17, DDTBR+20, DDTBR+23, DDTBR+26
STA DDTBR~, DDTBR+14
SYS DDTBR~, DDTBR+14
U DF+7, DF+9
X SAHC+3, SAHC+9~, KAHC+3, KAHC+9~, SAHD+4, KAHD+4, SAHS+4, KAHS+4, DF~, DF+2
, DF+11*, DF+12, SAUPD+2, KAUPD+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All