Routine: FBICDP

Package	Total	Call Graph
Fee Basis	2	$$QUESTION^FBASF $$IMPDATE^FBCSV1
VA FileMan	2	^DIC ^DIR
DRG Grouper	1	($$FILE,$$ICDOP,$$ROOT,$$SYS)^ICDEX
Kernel	1	$$FMTE^XLFDT
Lexicon Utility	1	$$IMPDATE^LEXU

Package	Total	Caller Graph
Fee Basis	1	FBPRICE1

Entry Points

Name	Comments	DBIA/ICR reference
ENICD9(FBIDT,FBPRMT,FBALW,ALDEL,ALFREQ,FBDFLT)	; prompt user for ICD procedure code and test if code is inactive
SRCH1	;
SEARCH(FBINDT)	;
CHKVERS(FBDIRY,FBDT)	; return true (1) if procedure code is a current versioned Proc code, otherwise return false (0)
ICD9ACT(IEN,FBDT)	;Is the given code active for the date? (default-today)

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"ICD Proc Code "_"("_$P(Y,U,2)_")"_" inactive on date of service ("_$$FMTE^XLFDT(FBIDT)_").",! Line Location: SRCH1+3
Function Call: WRITE	Prompt: "?? REQUIRED" Line Location: SEARCH+6
Function Call: WRITE	Prompt: " <NOTHING DELETED>" Line Location: SEARCH+10
Function Call: WRITE	Prompt: "??" Line Location: SEARCH+11
Function Call: WRITE	Prompt: !,?4,"EXIT NOT ALLOWED ??" Line Location: SEARCH+13
Routine Call	DIC Line Location: SEARCH+22
Routine Call	DIR Line Location: SEARCH+5

Name	Line Occurrences
$$ICD9ACT	SRCH1+2
$$SEARCH	SRCH1+1
SRCH1	SEARCH+6, SEARCH+8, SEARCH+11, SEARCH+13, SEARCH+24

Name	Field # of Occurrence
ALDEL	ENICD9~, ENICD9+3, SEARCH+7, SEARCH+8
ALFREQ	ENICD9~, ENICD9+4*, SEARCH+6
DIC	ENICD9+1~, SEARCH+17*, SEARCH+22!
DIC("S"	SEARCH+18*
DIC(0	SEARCH+22*
DIR	SEARCH+5!
DIR("?"	SEARCH+4*
DIR("A"	SEARCH+1, SEARCH+2
DIR(0	SEARCH+3*
DISFIL	SEARCH+14~, SEARCH+15, SEARCH+21, SEARCH+22
DLAYGO	SEARCH+21!
DT	ICD9ACT+2
FBALW	ENICD9~, ENICD9+2*, SEARCH+12
FBDFLT	ENICD9~, SEARCH+1, SEARCH+7
FBDIRY	CHKVERS~, CHKVERS+3
FBDT	CHKVERS~, CHKVERS+2, CHKVERS+3, ICD9ACT~, ICD9ACT+2*, ICD9ACT+4
FBIC9SYS	CHKVERS+1~, CHKVERS+3*, CHKVERS+4
FBICDCD	ENICD9+1~, ENICD9+5, ENICD9+6, SEARCH+1
FBICDSYS	CHKVERS+1~, CHKVERS+2*, CHKVERS+4
FBIDT	ENICD9~, ENICD9+6, SRCH1+1, SRCH1+2, SRCH1+3, SEARCH+1
FBIMPDT	ENICD9+1~, ENICD9+5*, ENICD9+6
FBINDT	SEARCH~, SEARCH+19
FBINF	CHKVERS+1~, ICD9ACT+1~, ICD9ACT+4*, ICD9ACT+5
FBPRMT	ENICD9~, SEARCH+1, SEARCH+2
FBRES	ICD9ACT+1~, ICD9ACT+3, ICD9ACT+5, ICD9ACT+6
FBYN	SEARCH+8~, SEARCH+9*, SEARCH+10
FILE	SEARCH+14~, SEARCH+16*, SEARCH+17, SEARCH+20
FILEID	SEARCH+14~, SEARCH+15*, SEARCH+16
ICDFMT	SEARCH+22!
ICDSYS	SEARCH+20*, SEARCH+22!
ICDVDT	SEARCH+14~, SEARCH+19*, SEARCH+20
IEN	ICD9ACT~, ICD9ACT+4
ROOT	SEARCH+14~, SEARCH+17*
SCREEN	SEARCH+14~, SEARCH+15*, SEARCH+18
SYS	SEARCH+14~, SEARCH+20*
U	SRCH1+3, CHKVERS+3, ICD9ACT+5
X	ENICD9+1!, SEARCH+6, SEARCH+7, SEARCH+8, SEARCH+11, SEARCH+12, SEARCH+13, SEARCH+24
Y	ENICD9+1~, SRCH1+1, SRCH1+2, SRCH1+3, SRCH1+4, SRCH1+6, SEARCH+23*, SEARCH+24, SEARCH+25