Routine: IBTRED

Information

IBTRED ;ALB/AAS - EXPAND/EDIT CLAIMS TRACKING ENTRY ; 01-JUL-1993

Source file <IBTRED.m>

Package	Total	Call Graph
Integrated Billing	7	$$ENCL^IBAMTS2 SET^IBCNSP $$DAT1^IBOUTL ($$EXPAND,EN)^IBTRE ^IBTRED0 (,4)^IBTRED01 PROT^IBTRPR
Registration	4	(INP,PID)^VADPT EN^VALM FULL^VALM1 (CLEAN,KILL,SET)^VALM10
VA Fileman	2	DT^DICRW D^DIQ
Kernel	1	DISP^XQORM1
Outpatient Pharmacy	1	EN^PSOCPVW

Package	Total	Caller Graph
Integrated Billing	8	IBTOBI IBTRCD IBTRDD IBTRED0 IBTRED01 IBTRED1 IBTRVD IBTRVD0

Name	Comments	DBIA/ICR reference
ENCLQ
EN	; -- main entry point for IBT EXPAND/EDIT TRACKING
HDR	; -- header code
ETYPQ
VISIT	; -- Visit info Region
3	; -- visit region for rx refill
1	; -- visit region for admission or scheduled admission
ENCL(IBOE)	; -- output format of classifications
INIT	; -- init variables and list array
2	; -- visit region for outpatient care
EXIT	; -- exit code
4	; -- Visit region for prosthetics
BLD	; -- list builder
BLANK(LINE)	; -- Build blank line
ETYP(IBTRN)	; -- Expand type of epidose and date
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+4

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	1+1
^DPT - [#2]	HDR+2
^IBE(356.6 - [#356.6]	BLD+8, VISIT+5, ETYP+3
^IBT(356 - [#356]	HDR+2, BLD+7, ETYP+2
^PSDRUG - [#50]	3+9
^PSRX - [#52]	3+9
^SC - [#44]	2+5
^SCE - [#409.68]	2+5, 2+6, 2+7
^TMP("IBTRED"	BLD+2!

Name	Field # of Occurrence
^(0	HDR+2
^(1	BLD+7

Name	Field # of Occurrence
DFN	EN+2!, HDR+2
DT	EN+1
I	BLD+3, ENCL+1~, ENCL+4
IBCL	ENCL+1~, ENCL+4, ENCLQ
IBCL1	ENCL+1~, ENCL+3*, ENCL+4
IBETYP	BLD+1~, BLD+8, VISIT+4, VISIT+5~, VISIT+6
>> IBETYPD	ETYP+3*, ETYP+4, ETYP+5
IBFASTXT	EN+5!
IBOE	VISIT+1~, 2+1*, 2+3, 2+5, 2+6, 2+7, 2+8, ENCL~, ENCL+2, ENCL+3
IBTRC	EN+2!
IBTRD	EN+2!
IBTRN	EN+2!, EN+3, HDR+2, HDR+3, BLD+7, EXIT+1!, ETYP~, ETYP+2
IBTRND	BLD+1~, BLD+7, BLD+8, VISIT+5, 1+1, 1+3, 2+1, 2+2, 3+3, 3+4 , 3+5, 3+6, 3+7, 3+8, 3+9, 3+10, ETYP+2, ETYP+3, ETYP+5
IBTRND1	BLD+1~, BLD+7*
IBTRND2	BLD+1~
>> IBTRPRF	BLD+4*, BLD+5
IBTRV	EN+2!
IBY	ETYP+1~, ETYP+5, ETYPQ
>> IORVOFF	VISIT+3
>> IORVON	VISIT+3
LINE	BLANK~, BLANK+1
OFFSET	VISIT+1~, VISIT+2*, VISIT+3, VISIT+4, 1+4, 1+5, 1+6, 2+2, 2+4, 2+5 , 2+6, 2+7, 2+8, 3+4, 3+5, 3+6, 3+7, 3+8, 3+9, 3+10
PSONTALK	3+1~, 3+2*
PSOTMP	3+1~
PSOTMP(	3+5
PSOTMP(52	3+4, 3+6, 3+7, 3+8, 3+10
START	VISIT+1~, VISIT+2*, VISIT+3, VISIT+4, 1+4, 1+5, 1+6, 2+2, 2+4, 2+5 , 2+6, 2+7, 2+8, 3+4, 3+5, 3+6, 3+7, 3+8, 3+9, 3+10
>> VA("BID"	HDR+2
>> VA200	1+2*
>> VAIN	1+2
>> VAIN(3	1+6
>> VAIN(4	1+5
>> VAIN(7	1+3*, 1+4
>> VAINDT	1+1*
>> VALMBG	INIT+2*
>> VALMCNT	INIT+2, BLD+9
VALMEVL	EN+2!
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+3*
VALMQUIT	INIT+1!, EXIT+1!
X	BLD+5, VISIT+6, 3+3, HELP+1, ENCL+1~, ENCL+4*
XQORS	EN+2!
>> Y	1+3*