Routine: LEXNDX8

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

Customize PDF page

Package: Lexicon Utility

Routine: LEXNDX8

Information

Source Information

Call Graph

Call Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: