Routine: BPCGDX

Name	Comments	DBIA/ICR reference
GETTXT	; Handles text entries
EN	;
GETKWD	; Handles keywords
SETRES	; Copy from ^BPCTMP to BPCRES
KWLC	; Look in Keyword Lookup Control file for synonyms
GETNUM	; Handles numeric entries
SETMATCH	; ; Validate the ICD9 code : It doesn't start with an E, It's not ; inactive, and if Patient sex is set, and if sex is defined for this ; code, they're equal.
KILL	;
DXLIST(BPCRES,BPCX,BPCMAX,BPCMORE,BPCPARAM)	;EP REMOTE PROC: BPC GETDIAGNOSISLIST

RPC Name	Call Tags
BPC GETDIAGNOSISLIST	DXLIST

Name	Line Occurrences (* Changed, ! Killed)
^AICDKWLC(1	EN+6, KWLC+3
^BGUTMP(	EN+2!, SETMATCH+8, SETRES+3, SETRES+4, SETRES+6*, SETRES+7!
^ICD9 - [#80]	SETMATCH+4, SETMATCH+6
^ICD9("AIHS"	EN+6, KWLC+3, GETKWD+2
^ICD9("BA"	GETNUM+2, GETNUM+3, GETNUM+4
^ICD9("D"	GETTXT+2
^ICM - [#80.3]	SETMATCH+6

Name	Field # of Occurrence
^(	KWLC+3, SETRES+4

Name	Field # of Occurrence
BPCC	EN+1, GETNUM+2, GETNUM+3, GETNUM+4, GETNUM+5!, GETTXT+2*, KILL+1!
BPCCAT	SETMATCH+6*, SETMATCH+8, KILL+1!
BPCCDE	SETMATCH+6, SETMATCH+7, SETMATCH+8, SETRES+3, KILL+1!
BPCCTR	EN+1, SETRES+4, SETRES+5, SETRES+6, KILL+1!
BPCDATA	SETMATCH+4*, SETMATCH+5, SETMATCH+6, SETMATCH+8, KILL+1!
BPCDESC	SETMATCH+6*, SETMATCH+8, KILL+1!
BPCFND	GETNUM+2, GETNUM+3, GETNUM+4, GETNUM+5!
BPCGUI	DXLIST+1, EN+1, EN+4, KILL+1!
BPCI	GETNUM+4, GETKWD+2, GETTXT+2*, SETMATCH+4, SETMATCH+6, SETMATCH+8, KILL+1!
BPCLEN	EN+1*, GETNUM+2, GETNUM+3, GETNUM+4, GETTXT+2, KILL+1!
BPCLSQA	EN+2, SETRES+3, KILL+1!
BPCLSQP	EN+2*, SETRES+4, KILL+1!
BPCMAX	DXLIST~, EN+4*, SETRES+4, KILL+1!
BPCMORE	DXLIST~, EN+1*, EN+2, EN+5, EN+6, SETRES+3, KILL+1!
BPCN	EN+5, KWLC+2, KWLC+3*, KWLC+4!, KILL+1!
BPCN1	KWLC+3*, KWLC+4!
BPCNEXT	GETNUM+2, GETNUM+3, GETNUM+5!, KILL+1!
BPCPARAM	DXLIST~, EN+5, KILL+1!
BPCPRM1	EN+5*, KILL+1!
>> BPCPSEX	SETMATCH+5
BPCPV	EN+5*, SETRES+7!
BPCPVS	EN+5*, SETRES+7!
BPCRES	DXLIST~, EN+2!
BPCRES(	SETRES+4, SETRES+6
BPCRES(0	EN+3, SETRES+2, SETRES+5, SETRES+6
BPCRES(1	EN+3, SETRES+2
BPCSEQ	EN+2, SETMATCH+8, SETRES+2, SETRES+3, SETRES+4, SETRES+5, SETRES+6, KILL+1!
BPCSUB	EN+1*, EN+2, SETMATCH+8, SETRES+3, SETRES+4, SETRES+6, SETRES+7, KILL+1!
BPCSVX	KWLC+2*, KWLC+3, KWLC+4!
BPCX	DXLIST~, EN+1, EN+3, EN+6, GETNUM+2, GETNUM+3, GETNUM+4, KWLC+2, KWLC+3*, GETKWD+2 , GETTXT+2, KILL+1!
BPCXS	KILL+1!
U	EN+1*, EN+2, SETMATCH+5, SETMATCH+6, SETMATCH+8, SETRES+3, SETRES+6
>> XWBWRAP	EN+1*

Information