Routine: FBASFU

Information

FBASFU ;AISC/JLG - UTILITIES FOR ICD10 DIAGNOSIS CODE ASF (Advanced Search Functionality) ;3/26/2012

Package	Total	Call Graph
VA FileMan	2	$$FLDNUM^DILFD $$GET1^DIQ
DRG Grouper	1	($$CODEC,$$SD,$$STATCHK)^ICDEX
Fee Basis	1	$$QUESTION^FBASF
Kernel	1	$$FMTE^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Fee Basis	1	FBASF

Entry Points

Name	Comments	DBIA/ICR reference
REQFLD(FBFILE,FBFLD)
GETVAL(FBFILE,FBIEN,FBFLD)
GETDC(FBFILE,FBDFN,FBIEN)	; ; 161.01 is the sub-field authorization in fee basis patient file
GETDCUC(FBFILE,FBIEN)	;
STATCHK(ICDCODE,ICDDT)	;
PRTICD10(ICDREC)	;

External References

Name	Field # of Occurrence
$$FLDNUM^DILFD	REQFLD+1, GETVAL+7
$$GET1^DIQ	GETVAL+9
$$QUESTION^FBASF	PRTICD10+16
$$CODEC^ICDEX	GETVAL+6, GETDC+4, GETDCUC+3, STATCHK+11
$$SD^ICDEX	STATCHK+12
$$STATCHK^ICDEX	STATCHK+2
$$FMTE^XLFDT	STATCHK+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: STATCHK+14
Function Call: WRITE	Prompt: !,*7," Code is inactive" Line Location: STATCHK+15
Function Call: WRITE	Prompt: " on "_$$FMTE^XLFDT(ICDDT) Condition for execution: $G(ICDDT)>0 Line Location: STATCHK+15
Function Call: WRITE	Prompt: !,"One match found",! Line Location: PRTICD10+2
Function Call: WRITE	Prompt: !," ICD Diagnosis code: "_$P($P(ICDREC,U,1),";",2) Line Location: PRTICD10+3
Function Call: WRITE	Prompt: !," ICD Diagnosis description: "_PRTLN(I) Line Location: PRTICD10+9
Function Call: WRITE	Prompt: !,?PRTLEN,PRTLN(I) Line Location: PRTICD10+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	REQFLD+2
^FB583 - [#162.7]	GETDCUC+1, GETDCUC+2, GETDCUC+3
^FBAAA - [#161]	GETDC+2, GETDC+3, GETDC+4
^FBAAA(1	GETVAL+5, GETVAL+6

Label References

Name	Line Occurrences
$$PRTICD10	STATCHK+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
EPOS	PRTICD10+1~, PRTICD10+5, PRTICD10+8, PRTICD10+12
FBDESC	STATCHK+12*, STATCHK+13, STATCHK+16!
>> FBDFLT	PRTICD10+2, PRTICD10+15
FBDFN	GETDC~, GETDC+2, GETDC+3, GETDC+4
FBFILE	REQFLD~, REQFLD+1, REQFLD+2, GETVAL~, GETVAL+5, GETVAL+6, GETVAL+7, GETVAL+9, GETDC~, GETDC+2 , GETDC+3, GETDC+4, GETDCUC~, GETDCUC+1, GETDCUC+2, GETDCUC+3
FBFLAT	REQFLD~, REQFLD+2*, REQFLD+3
FBFLD	REQFLD~, REQFLD+1, GETVAL~, GETVAL+1, GETVAL+2, GETVAL+3, GETVAL+7
FBFLDNO	REQFLD~, REQFLD+1, REQFLD+2, GETVAL~, GETVAL+7, GETVAL+8, GETVAL+9
FBICD	STATCHK+11*, STATCHK+13, STATCHK+16!
FBIEN	GETVAL~, GETVAL+5, GETVAL+6, GETVAL+9, GETDC~, GETDC+2, GETDC+3, GETDC+4, GETDCUC~, GETDCUC+1 , GETDCUC+2, GETDCUC+3, STATCHK+11*, STATCHK+12, STATCHK+13
FBINAC	STATCHK+13*, STATCHK+14, STATCHK+16!
FBPOUT	STATCHK+1~, STATCHK+14*
FBYN	PRTICD10+14~, PRTICD10+16, PRTICD10+17, PRTICD10+18
I	PRTICD10+1~, PRTICD10+7*, PRTICD10+8, PRTICD10+9, PRTICD10+10, PRTICD10+13
ICDCODE	STATCHK~, STATCHK+2
ICDDESC	PRTICD10+1~, PRTICD10+4*, PRTICD10+8
ICDDT	STATCHK~, STATCHK+2, STATCHK+12, STATCHK+15
ICDLEN	PRTICD10+1~, PRTICD10+4*, PRTICD10+6
ICDREC	PRTICD10~, PRTICD10+2, PRTICD10+3, PRTICD10+4, PRTICD10+15, PRTICD10+19
ICDRET	STATCHK+1~, STATCHK+2, STATCHK+7, STATCHK+8, STATCHK+9, STATCHK+11, PRTICD10+1~, PRTICD10+19, PRTICD10+20
IOM	PRTICD10+5
MYARY	STATCHK+1~, STATCHK+12
NUMLN	PRTICD10+1~, PRTICD10+6*, PRTICD10+7
POSREM	PRTICD10+1~, PRTICD10+5*, PRTICD10+6, PRTICD10+11, PRTICD10+12
PRTLEN	PRTICD10+1~, PRTICD10+5*, PRTICD10+10
PRTLN	PRTICD10+1~
PRTLN(	PRTICD10+8*, PRTICD10+9, PRTICD10+10, PRTICD10+13!
SPOS	PRTICD10+1~, PRTICD10+5, PRTICD10+8, PRTICD10+11
U	REQFLD+2, GETVAL+6, STATCHK+7, STATCHK+8, STATCHK+9, STATCHK+11, PRTICD10+2, PRTICD10+3, PRTICD10+4, PRTICD10+15 , PRTICD10+19

Customize PDF page

Package: Fee Basis