Routine: LEXNDX9

Entry Points

Name	Comments	DBIA/ICR reference
SAHD	; Set new value when Effective Date is Edited ; ^DD(757.333,.01,1,D0,1) = D SAHD^LEXNDX9
KHIS	; Kill Index ; ^LEX(757.33,"G",<code>,<date>,<status>,<ien>)
KDHIS	; Kill Default Index ; ^LEX(757.33,"G",<code>,<date>,<status>,<ien>)
SAHC	; Set new value when Code is Edited ; ^DD(757.33,1,1,D0,1) = D SAHC^LEXNDX9
SDHIS	; Set Default Index ; ^LEX(757.33,"G",<code>,<date>,<status>,<ien>)
KAHS	; Kill old value when Status is Edited ; ^DD(757.333,1,1,D0,2) = D KAHS^LEXIDX9
DF(X,CODE)	; Default Status
HDC	; Set Common Variables (Status and Effective Date)
SAHS	; Set new value when Status is Edited ; ^DD(757.333,1,1,D0,1) = D SAHS^LEXNDX9
KAHD	; Kill old value when Effective Date is Edited ; ^DD(757.333,.01,1,D0,2) = D KAHD^LEXIDX8
SHIS	; Set Index ; ^LEX(757.33,"G",<code>,<date>,<status>,<ien>)
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 ; ^DD(757.33,1,1,D0,2) = D KAHC^LEXNDX9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LEX(757.33 - [#757.33]	SAHC+5, SAHC+6, KAHC+5, KAHC+6, HDC+4, HDC+5, HDC+6, SHIS+4, SHIS+5!, SHIS+6* , SDHIS+3, SDHIS+4*, KHIS+4, KHIS+5!, KDHIS+3, KDHIS+4!, DF+3, DF+4, DF+5

Label References

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CODE	DF~
DA	SAHC+4, SAHC+7~, SAHC+8, KAHC+4, KAHC+7~, HDC+3, HDC+4, HDC+6, SHIS+3, SHIS+4 , KHIS+3, KHIS+4, KHIS+5
DA(1	SAHC+8, KAHC+7, HDC+2, HDC+4, HDC+5, HDC+6, SHIS+3, SHIS+4, SHIS+5, SHIS+6 , KHIS+3, KHIS+4, KHIS+5
LEXC	DF+1~
LEXDDT	SAHC+2~, KAHC+2~, SAHD+2~, KAHD+2~, SAHS+2~, KAHS+2~, HDC+1, HDC+9, SHIS+5
LEXDSTA	SAHC+2~, KAHC+2~, SAHD+2~, KAHD+2~, SAHS+2~, KAHS+2~, HDC+1*
LEXDSYS	SAHC+2~, KAHC+2~, SAHD+2~, KAHD+2~, SAHS+2~, KAHS+2~, HDC+1*, HDC+9
LEXDT	DDTBR+13~, DDTBR+14, DDTBR+17, DDTBR+18, DDTBR+20, DDTBR+21, DDTBR+23, DDTBR+24, DDTBR+26, DDTBR+27* , DDTBR+29*, DDTBR+30
LEXEFF	SAHC+2~, SAHC+10, KAHC+2~, KAHC+8, SAHD+2~, SAHD+6, KAHD+2~, KAHD+6, SAHS+2~, SAHS+5 , KAHS+2~, KAHS+5, HDC+1, HDC+7, SHIS+2, SHIS+6, SDHIS+2, SDHIS+4, KHIS+2, KHIS+5 , KDHIS+2, KDHIS+4, DF+1~, DF+3, DF+4
LEXHIS	SAHC+3~, SAHC+5, SAHC+6, SAHC+8, KAHC+3~, KAHC+5, KAHC+6, KAHC+7, SAHD+2~, KAHD+2~ , SAHS+2~, KAHS+2~
LEXI	DF+1~, DF+2*, DF+3, DF+4, DF+5
LEXIEN	SAHC+3~, SAHC+4, SAHC+5, SAHC+6, SAHC+8, KAHC+3~, KAHC+4, KAHC+5, KAHC+6, KAHC+7 , SAHD+2~, KAHD+2~, SAHS+2~, KAHS+2~, SDHIS+3, SDHIS+4, KDHIS+3, KDHIS+4
LEXL	DF+1~, DF+4, DF+5, DF+6
LEXMAP	SAHC+3~, KAHC+3~, SAHD+2~, KAHD+2~, SAHS+2~, KAHS+2~, HDC+1, HDC+5, SHIS+5, SHIS+6 , SDHIS+4, KHIS+5, KDHIS+4
LEXNF	DF+1~
LEXNOD	SAHC+3~, KAHC+3~, SAHD+3~, KAHD+3~, SAHS+3~, KAHS+3~, HDC+6*, HDC+7
LEXSTA	SAHC+3~, SAHC+11, KAHC+3~, KAHC+9, SAHD+3~, SAHD+5, KAHD+3~, KAHD+5, SAHS+3~, SAHS+6* , SAHS+7, KAHS+3~, KAHS+6, KAHS+7, HDC+1, HDC+7, HDC+8, HDC+9, SHIS+2, SHIS+5 , SHIS+6, SDHIS+2, SDHIS+4, KHIS+2, KHIS+5, KDHIS+2, KDHIS+4, DDTBR+13~, DDTBR+14, DDTBR+15 , DDTBR+18, DDTBR+21, DDTBR+24, DDTBR+27, DDTBR+29
LEXSYS	SAHS+3~, DDTBR+13~, DDTBR+14*, DDTBR+15, DDTBR+17, DDTBR+20, DDTBR+23, DDTBR+26
STA	DDTBR~, DDTBR+14
SYS	DDTBR~, DDTBR+14
U	HDC+5, HDC+7, DF+5
X	SAHC+7~, KAHC+7~, KAHD+6, SAHS+6, KAHS+6, DF~, DF+2, DF+6*, DF+7

Customize PDF page

Package: Lexicon Utility

Routine: LEXNDX9

Information

Source Information

Entry Points

Global Variables Directly Accessed

Label References

Local Variables

Legend: