Routine: BLRRLICD

Package	Total	Call Graph
DRG Grouper	2	($$ICDDX,$$ICDOP)^ICDEX $$CPT^ICPTCOD
IHS Standard Terminology	1	$$CONC^BSTSAPI
Kernel	1	$$VERSION^XPDUTL
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
CHKFH1	;
FHCHK	;PEP - called from input tx on FAMILY HISTORY .01 field
CHKOP2	;CODING SYSTEM 2 - ICD9
CONC(IN)	;PEP - called to return ICD codes for a snomed concept ID
CHKPL(Y)	; SCREEN OUT E CODES AND INACTIVE CODES
CHKOP31	;coding system 31 - ICD10
CHKDX1	;CODING SYSTEM 1 - ICD9
CHKE	;EP - ECODE SCREEN
CHKEX1	;CODING SYSTEM 1 - ICD9
CPT	;EP - screen on CPT from V CPT .01 and V Procedure
CHKPL30	;coding system 30 - ICD10
OPSEX	; IF 'USE WITH SEX' FIELD HAS A VALUE CHECK THAT VALUE AGAINST AUPNSEX
CHKDX30	;coding system 30 - ICD10
IMP(D)	;PEP - which coding system should be used:
CHKCPT(Y)	;check CPT for valid date, inactive flag
CHKOP(Y)	;EP
CHKPL1	;CODING SYSTEM 1 - ICD9
UNCODE(D)	;
ICDOPCHK	;EP called from input tx on V PROCEDURE .01 SCREEN OUT E CODES AND INACTIVE CODES
IMPOP(D)	;PEP - which coding system should be used:
RFB	;EP - ECODE SCREEN
PLACE	;EP - ECODE SCREEN
CHKE1(Y)	;EP SCREEN OUT E CODES AND INACTIVE CODES
CHKRFB(Y)	; SCREEN Z18-Z18.9
CHKFH(Y)	;EP - SCREEN OUT E CODES AND INACTIVE CODES
CHKEX30	;coding system 30 - ICD10
CHKRFB1	;CODING SYSTEM 1 - ICD9
EOP	;
CHK(Y)	;EP - SCREEN OUT E CODES AND INACTIVE CODES
CHKFH30	;
CHKRFB30	;coding system 30 - ICD10
CSEX	; IF 'USE WITH SEX' FIELD HAS A VALUE CHECK THAT VALUE AGAINST AUPNSEX
CSEX30	; IF 'USE WITH SEX' FIELD HAS A VALUE CHECK THAT VALUE AGAINST AUPNSEX
CSEX31	; IF 'USE WITH SEX' FIELD HAS A VALUE CHECK THAT VALUE AGAINST AUPNSEX

External References

Name	Field # of Occurrence
$$CONC^BSTSAPI	CONC+23
^DIR	EOP+4
$$ICDDX^ICDEX	CHK+11, CHKFH+7, CHKE1+10, CHKPL+11, CHKRFB+11, CONC+31
$$ICDOP^ICDEX	CHKOP+10
$$CPT^ICPTCOD	CHKCPT+9
$$VERSION^XPDUTL	CHKCPT+10, CHKFH1+8, CHKFH30+9, CHKEX1+2, CHKEX1+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICD0 - [#80.1]	ICDOPCHK+2
^ICD9 - [#80]	BLRRLICD+4, CHKFH1+9, CHKFH30+10, CHKE+2, CHKEX1+4, FHCHK+4, PLACE+2, RFB+2
^ICDS - [#80.4]	IMP+10, IMP+11, IMPOP+10, IMPOP+11
^ICDS("F"	IMP+7, IMP+9, IMPOP+7, IMPOP+9
^ICPT - [#81]	CPT+3, CHKCPT+11

Label References

Name	Line Occurrences
$$CHK	BLRRLICD+3
$$CHKCPT	CPT+2
$$CHKE1	CHKE+1
$$CHKFH	FHCHK+3
$$CHKOP	ICDOPCHK+1
$$CHKPL	PLACE+1
$$CHKRFB	RFB+1
$$IMP	CHK+10, CHKFH+6, CHKE1+9, CHKPL+10, CHKRFB+9, CONC+28, UNCODE+3
$$IMPOP	CHKOP+9
$$UNCODE	CONC+26, CONC+32, CONC+33
@(	CHK+14, CHKOP+12, CHKFH+9, CHKE1+12, CHKPL+13, CHKRFB+13
CSEX	CHKEX1+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CHK+1~, CHK+11, CHK+12, CHKDX1+1, CHKDX1+2, CSEX+2, CHKDX30+1, CHKDX30+2, CHKDX30+3, CHKDX30+4 , CHKDX30+5, CSEX30+2, CHKCPT+2~, CHKCPT+9, CHKCPT+10, CHKOP+6~, CHKOP+10, CHKOP+11, CHKOP2+1, OPSEX+2 , CHKOP31+1, CSEX31+2, CHKFH+2~, CHKFH+7, CHKFH+8, CHKFH1+2, CHKFH1+3, CHKFH1+4, CHKFH1+5, CHKFH1+6 , CHKFH1+8, CHKFH30+2, CHKFH30+3, CHKFH30+4, CHKFH30+5, CHKFH30+6, CHKFH30+7, CHKFH30+9, CHKE1+1~, CHKE1+10* , CHKE1+11, CHKEX1+1, CHKEX1+2, CHKEX30+3, CHKEX30+4, CHKEX30+5, CHKEX30+6, CHKEX30+8, CHKPL+1~, CHKPL+11* , CHKPL+12, CHKPL1+1, CHKPL1+2, CHKPL30+3, CHKPL30+5, CHKRFB+1~, CHKRFB+11*, CHKRFB+12, CHKRFB30+3, CHKRFB30+5
A	CHK+1~, CHKCPT+2~, CHKCPT+11, CHKOP+6~, CHKFH+2~, CHKFH1+1, CHKFH1+2, CHKFH1+3, CHKFH1+4, CHKFH1+5 , CHKFH1+6, CHKFH1+7, CHKFH1+9, CHKFH1+11, CHKFH30+1, CHKFH30+2, CHKFH30+3, CHKFH30+4, CHKFH30+5, CHKFH30+6 , CHKFH30+7, CHKFH30+8, CHKFH30+10, CHKFH30+12, CHKE1+1~, CHKEX1+4*, CHKEX1+6, CHKPL+1~, CHKRFB+1~
AUPND	CONC+19~, CONC+22*, CONC+26, CONC+28, CONC+31, CONC+32, CONC+33
AUPNDFN	CONC+19~, CONC+20*
AUPNI	CONC+19~, CONC+25, CONC+26, CONC+29, CONC+30, CONC+32, CONC+33, CONC+35
AUPNIMP	CONC+19~, CONC+28*
AUPNIN1	CONC+19~, CONC+21*, CONC+23
AUPNP	CONC+19~, CONC+31*, CONC+32, CONC+33
>> AUPNQ	EOP+1, EOP+5
>> AUPNSEX	CHK+9*, CSEX+1, CSEX+2, CSEX30+1, CSEX30+2, OPSEX+1, OPSEX+2, CSEX31+1, CSEX31+2
AUPNV	CONC+19~, CONC+23, CONC+25, CONC+26, CONC+35*, CONC+36
AUPNY	CONC+19~, CONC+29, CONC+30, CONC+31
AUPNZ	CONC+19~, CONC+29*, CONC+30, CONC+32, CONC+33
D	IMP~, IMP+5, IMP+14, IMP+15, IMP+16, IMPOP~, IMPOP+5, IMPOP+14, IMPOP+15, IMPOP+16 , CHK+1~, CHK+6, CHK+7, CHK+8, CHK+10, CHK+11, CHKCPT+2~, CHKCPT+4, CHKCPT+6, CHKCPT+7 , CHKCPT+9, CHKCPT+12, CHKOP+6~, CHKOP+7, CHKOP+8, CHKOP+9, CHKOP+10, CHKFH+2~, CHKFH+3, CHKFH+4 , CHKFH+5, CHKFH+6, CHKFH+7, CHKFH1+10, CHKFH1+11, CHKFH30+11, CHKFH30+12, CHKE1+1~, CHKE1+6, CHKE1+7* , CHKE1+8, CHKE1+9, CHKE1+10, CHKEX1+5, CHKEX1+6, CHKPL+1~, CHKPL+6, CHKPL+7, CHKPL+8, CHKPL+10 , CHKPL+11, CHKRFB+1~, CHKRFB+6, CHKRFB+7, CHKRFB+8, CHKRFB+9, CHKRFB+11, UNCODE~, UNCODE+1, UNCODE+3
DFOUT	EOP+3~
>> DIFGLINE	CHKFH+1
DIR	EOP+2~, EOP+4!
DIR(0	EOP+4*
DIRUT	EOP+3~
DLOUT	EOP+3~
DT	IMP+5, IMPOP+5, CHK+8, CHKCPT+7, CHKOP+8, CHKFH+5, CHKE1+8, CHKPL+8, CHKRFB+8, CONC+22 , UNCODE+1
DTOUT	EOP+3~
DUOUT	EOP+3~, EOP+5
DUZ("AG"	CHK+2, CHKCPT+1, CHKOP+2, CHKE1+2, CHKPL+2, CHKRFB+2
I	CHK+1~, CHK+10, CHK+12, CHK+13, CHK+14, CHKCPT+2~, CHKCPT+11, CHKCPT+12, CHKOP+6~, CHKOP+9 , CHKOP+11, CHKOP+12, CHKFH+2~, CHKFH+6, CHKFH+8, CHKFH+9, CHKFH1+9, CHKFH1+10, CHKFH30+10, CHKFH30+11 , CHKE1+1~, CHKE1+9, CHKE1+11, CHKE1+12, CHKEX1+4, CHKEX1+5, CHKPL+1~, CHKPL+10, CHKPL+12, CHKPL+13 , CHKRFB+1~, CHKRFB+9, CHKRFB+10, CHKRFB+12, CHKRFB+13, UNCODE+2~, UNCODE+3*, UNCODE+4
IN	CONC~, CONC+20, CONC+21, CONC+22
IOF	EOP+6
J	CHKEX30+1~, CHKEX30+2, CHKEX30+3, CHKEX30+4, CHKEX30+5, CHKEX30+6, CHKEX30+7, CHKPL30+1~, CHKPL30+2, CHKPL30+3* , CHKPL30+4, CHKRFB30+1~, CHKRFB30+2, CHKRFB30+3, CHKRFB30+4
>> LRCDT	CHK+7, CHKCPT+6, CHKOP+7, CHKFH+4, CHKE1+7, CHKPL+7, CHKRFB+7
>> SEX	CHK+9
U	IMP+10, IMP+11, IMPOP+10, IMPOP+11, CHK+12, CHKDX1+1, CHKDX1+2, CSEX+2, CHKDX30+1, CHKDX30+2 , CHKDX30+3, CHKDX30+4, CHKDX30+5, CSEX30+2, CHKCPT+10, CHKCPT+11, CHKOP+11, CHKOP2+1, OPSEX+2, CHKOP31+1 , CSEX31+2, CHKFH+8, CHKFH1+2, CHKFH1+3, CHKFH1+4, CHKFH1+5, CHKFH1+6, CHKFH1+8, CHKFH1+9, CHKFH30+2 , CHKFH30+3, CHKFH30+4, CHKFH30+5, CHKFH30+6, CHKFH30+7, CHKFH30+9, CHKFH30+10, CHKE1+11, CHKEX1+1, CHKEX1+2 , CHKEX1+4, CHKEX30+3, CHKEX30+4, CHKEX30+5, CHKEX30+6, CHKEX30+8, CHKPL+12, CHKPL1+1, CHKPL1+2, CHKPL30+3 , CHKPL30+5, CHKRFB+12, CHKRFB30+3, CHKRFB30+5, CONC+20, CONC+21, CONC+22, CONC+25, CONC+26, CONC+32 , CONC+33, CONC+35
X	IMP+6~, IMP+9, IMP+10, IMP+11, IMP+13, IMP+14, IMP+15, IMP+16, IMPOP+6~, IMPOP+9* , IMPOP+10, IMPOP+11, IMPOP+13*, IMPOP+14, IMPOP+15, IMPOP+16
Y	BLRRLICD+3, BLRRLICD+4, IMP+6~, IMP+8, IMP+15, IMP+16, IMP+17, IMP+18, IMPOP+6~, IMPOP+8* , IMPOP+15, IMPOP+16, IMPOP+17*, IMPOP+18, CHK~, CHK+11, CPT+2, CPT+3, CHKCPT~, CHKCPT+9 , CHKCPT+11, ICDOPCHK+1, ICDOPCHK+2, CHKOP~, CHKOP+10, CHKFH~, CHKFH+7, CHKFH1+9, CHKFH30+10, CHKE+1 , CHKE+2, CHKE1~, CHKE1+10, CHKEX1+4, FHCHK+3, FHCHK+4, PLACE+1, PLACE+2, CHKPL~, CHKPL+11 , RFB+1, RFB+2, CHKRFB~, CHKRFB+11
Z	IMP+6~, IMPOP+6~
Z(	IMP+11, IMP+13, IMP+15, IMP+16, IMP+17, IMPOP+11, IMPOP+13, IMPOP+15, IMPOP+16, IMPOP+17
Z(0	IMP+17, IMPOP+17

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRRLICD

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: