Routine: IBDFLST

Information

IBDFLST ;ALM/MAF - Maintenance Utility Invalid Codes List - MAY 17 1995

Source file <IBDFLST.m>

Package	Total	Call Graph
VA Fileman	3	^DIC WAIT^DICD ^DIR
Registration	2	EN^VALM ($$LOWER,FULL)^VALM1
Automated Information Collection System	1	HEADER^IBDFLST1
DRG Grouper	1	$$CPT^ICPTCOD
Kernel	1	DISP^XQORM1

Name	Comments	DBIA/ICR reference
TMP	; -- Set up Array
QUIT	; -- Kill variables and reset to last display if no change has been taken place.
SET	; -- Set up list array
HDR	; -- header code
JUMP1
JMP
VISIT	; -- Gets visit code listing of invalid codes
SETSTR(S,V,X,L)	; -- insert text(S) into variable(V) ; S := string ; V := destination ; X := @ col X ; L := # of chars
HLP	; -- help code
JUMP	; -- Jump action to display a specific category on the screen.
START	; -- Ask what invalid code you want to display CPT/ ICD9/ Visit
INIT	; -- Set up list for display
EXIT
JSEL	; -- Convert number selected to name
ALPHA	; - Alphabetize by category
ICD9
CPT
LOOP	; -- Loop thru global ^TMP("ALPHA",$J) alphabetic by category

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: START+5
Function Call: WRITE	Prompt: ! Line Location: START+8
Function Call: WRITE	Prompt: !!,"There is no data listed for this Clinic Group" Line Location: JUMP1+3
Function Call: WRITE	Prompt: !! Line Location: HLP+1
Routine Call	VALM Line Location: START+11
Routine Call	DIC Line Location: JUMP+2 JMP+1
Routine Call	DIR Line Location: START+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(81.1 - [#81.1]	CPT+6, VISIT+10, JUMP1+2
^IBD(357.99 - [#357.99]	JSEL+1
^IBE(357.69 - [#357.69]	VISIT+2, VISIT+3
^ICD9 - [#80]	ICD9
^ICM - [#80.3]	ICD9+1, JUMP1+2
^ICPT - [#81]	CPT
^TMP("ALPHA"	LOOP+2, ALPHA+1*, EXIT!
^TMP("CGIDX"	JSEL+1
^TMP("CODE"	TMP+1*, EXIT!
^TMP("CODEIDX"	TMP+2*, EXIT!

Name	Field # of Occurrence
DIC	JUMP+2!, JMP, JMP+1!
DIC("A"	JMP*
DIC(0	JUMP+2, JMP
DIR	START+4!
DIR("A"	START+3*
DIR("B"	START+3*
DIR(0	START+3*
>> DIRUT	START+4
IBDCAT	LOOP+2*, EXIT+1!
>> IBDCNT	INIT+2, SET+2, TMP+1
>> IBDCNT1	INIT+2, SET+1, SET+4, TMP+1, TMP+2
IBDFC	EXIT+1!
IBDFC(	LOOP+7, JUMP1+3, JUMP1+4
IBDFCAT	INIT+1~, CPT+6, ICD9+1, VISIT+10, LOOP+1, LOOP+2, LOOP+5, LOOP+7, SET+10, TMP+2 , ALPHA+1, JUMP1+1~, JUMP1+2*, JUMP1+3, JUMP1+4
IBDFCNT1	EXIT+1!
IBDFCODE	INIT+1~, CPT+5, ICD9+1, VISIT+8, LOOP+4, SET+6, TMP+2, ALPHA+1
IBDFDESC	INIT+1~, CPT+5, ICD9+1, VISIT+9, LOOP+6, SET+8, TMP+2, ALPHA+1
IBDFDIS	START+1~, START+9*, HDR+1, INIT+3, JUMP+2, JMP, JUMP1+2
IBDFIFN	INIT+1~, CPT, CPT+3, ICD9, VISIT+7, LOOP+2, LOOP+3*, TMP+2, ALPHA+1
>> IBDFNODE	CPT+3, CPT+4, CPT+5, CPT+6, ICD9, ICD9+1, VISIT+5, VISIT+6, VISIT+7, VISIT+8 , VISIT+9, VISIT+10, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6
IBDFTYP	START+8*, START+9, EXIT+1!
>> IBDFVAL	SET+4, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11
>> IBDFVST	VISIT+2*, VISIT+3, VISIT+5
>> IBDVALM	JSEL+1*
IEN	VISIT+1~, VISIT+3*, VISIT+4
L	SETSTR~, SETSTR+6
S	SETSTR~, SETSTR+6
V	SETSTR~, SETSTR+6
>> VALMBCK	JMP+2, JUMP1+4
>> VALMBG	JMP+2, JUMP1+4
>> VALMCNT	INIT+2, SET+2, TMP+1, TMP+2
>> VALMHDR(1	HDR+1*
X	START+6, START+8, SETSTR~, SETSTR+6, SET+3, SET+5, SET+7, SET+9, SET+11, TMP+1 , JUMP+2, JMP+2, JSEL+1, HLP+1*
>> XQORNOD(0	JUMP+2
>> Y	START+4, JUMP+2*, JUMP1, JUMP1+2