Routine: BLRICDU0

Name	Comments	DBIA/ICR reference
DESCICD(ICD,BLRVDT)	; EP - DESCRIPTION is now a multiple
CURINACT(ICD)	; EP - Determine if ICD is Currently Inactive
FINDER(BLRINP,RES)	; EP - Mimic FIND^DIC call
EEP	; Ersatz EP
SETDICS	; EP - Set the DIC("S") based on Today
INACTDT(ICD,BLRVDT)
SETDICSD(DT)	; EP - Set the DIC("S") based on DT
DIAGICD(ICD,BLRVDT)	; EP - DIAGNOSIS is now a multiple
ICD10IDT(DATE,TYPE)	; EP - Return the Implementation Date for the ICD-10

Name	Field # of Occurrence
EEP2^BLRGMENU	EEP+1
$$GET1^DIQ	ICD10IDT+5
$$ICDDX^ICDEX	FINDER+5
$$DT^XLFDT	CURINACT+5, SETDICS+6
$$FMADD^XLFDT	DESCICD+6, DIAGICD+6, INACTDT+11

FileNo	Call Tags
^ICDS - [#80.4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ICD9 - [#80]	DESCICD+3, DESCICD+7, DESCICD+10, DESCICD+13, DIAGICD+3, DIAGICD+7, DIAGICD+10, DIAGICD+13, INACTDT+5, INACTDT+12 , INACTDT+17, INACTDT+20, CURINACT+5, CURINACT+7, CURINACT+10, CURINACT+13
^ICDS("B"	ICD10IDT+4

Name	Line Occurrences
$$DESCICD	FINDER+14
ICD10IDT	INACTDT+3, CURINACT+3, SETDICS+3, SETDICSD+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BLRINP	FINDER~, FINDER+5
BLRVDT	DESCICD~, DESCICD+5, DESCICD+6, DESCICD+7, DIAGICD~, DIAGICD+5, DIAGICD+6, DIAGICD+7, INACTDT~, INACTDT+5 , INACTDT+7, INACTDT+11*, INACTDT+12, INACTDT+15
DATE	ICD10IDT~, ICD10IDT+5, ICD10IDT+6
DESCDATE	DESCICD+1~, DESCICD+7*, DESCICD+8, DESCICD+10
DESCNUM	DESCICD+1~, DESCICD+10*, DESCICD+11, DESCICD+13
DESCRIP	DESCICD+1~, DESCICD+3, DESCICD+13, DESCICD+15
DIAGDATE	DIAGICD+1~, DIAGICD+7*, DIAGICD+8, DIAGICD+10
DIAGDESC	DIAGICD+1~, DIAGICD+3, DIAGICD+13, DIAGICD+15
DIAGNUM	DIAGICD+1~, DIAGICD+10*, DIAGICD+11, DIAGICD+13
>> DIC("S"	SETDICS+6, SETDICS+9, SETDICSD+6, SETDICSD+9
DT	SETDICSD~, SETDICSD+6
ICD	FINDER+1~, FINDER+13*, FINDER+14, DESCICD~, DESCICD+3, DESCICD+7, DESCICD+10, DESCICD+13, DIAGICD~, DIAGICD+3 , DIAGICD+7, DIAGICD+10, DIAGICD+13, INACTDT~, INACTDT+5, INACTDT+12, INACTDT+17, INACTDT+20, CURINACT~, CURINACT+5 , CURINACT+7, CURINACT+10, CURINACT+13
ICD10DT	SETDICS+1~, SETDICSD+1~
ICDDATE	INACTDT+1~, INACTDT+3, INACTDT+5, CURINACT+1~, CURINACT+3, CURINACT+5, SETDICS+3, SETDICS+6, SETDICSD+3, SETDICSD+6
ICDSTR	FINDER+1~, FINDER+5, FINDER+6, FINDER+10, FINDER+11, FINDER+12, FINDER+13, ICD10IDT+1~, ICD10IDT+3, ICD10IDT+4
IEN	ICD10IDT+1~, ICD10IDT+4*, ICD10IDT+5
RES	FINDER~, FINDER+3!
RES("DILIST"	FINDER+8, FINDER+9, FINDER+10, FINDER+11, FINDER+12, FINDER+14
STATUS	INACTDT+9~, INACTDT+20, INACTDT+21, CURINACT+1~, CURINACT+13, CURINACT+14
STSDATE	INACTDT+9~, INACTDT+12, INACTDT+13, INACTDT+15, INACTDT+17, CURINACT+1~, CURINACT+7, CURINACT+8, CURINACT+10
STSNUM	INACTDT+9~, INACTDT+17, INACTDT+18, INACTDT+20, CURINACT+1~, CURINACT+10, CURINACT+11, CURINACT+13
TYPE	ICD10IDT~, ICD10IDT+3

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRICDU0

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: