Routine: IBTRE5

Information

IBTRE5 ;ALB/AAS - CLAIMS TRACKING EDIT PROVIDER ; 1-SEP-93

Source Information

Source file <IBTRE5.m>

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
Integrated Billing	7	$$DAT1^IBOUTL $$CDT^IBTODD1 LOCKED^IBTRCD1 (,$$EXPAND)^IBTRE $$TRTP^IBTRE1 $$DGPM^IBTRE3 $$ASK^IBTRE4
VA Fileman	4	^DIC FILE^DICN ^DIE IX1^DIK
Kernel	2	ENDR^%ZISS $$FMADD^XLFDT
Registration	1	(FULL,PAUSE)^VALM1
Scheduling	1	ASK^SDCO3

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
Integrated Billing	8	IBTOBI4 IBTRC1 IBTRE1 IBTRPR2 IBTRV1 IBTRV2 IBTRV3 ^IBT(356.94

Entry Points

Name	Comments	DBIA/ICR reference
ADD(IBTRN,TYPE)	; -- Add a new provider
NXT
ADDQ
DICSQ
PRVDQ
EDTQ
DTCHKQ
EN(IBTRN)	; -- entry point for protocols
APRVD(IBTRN,IBETYP)	; -- add admitting provider
ENQ	;
SET(IBTRN)	; -- set array
LIST(IBXY)	;List Provider Array
APRVDQ
SETQ
EDT(IBAPR,IBDR)	; -- edit entry
PRVD(IBTRN,IBETYP)	; -- add/edit provider
DTCHK(DA,X)	; -- input transform for 356.94;.01. date not before admission or after discharge
DICS(Y)	; -- called by input transform and screen logic for type of provider
NEW(VA200,IBTRN,TYPE)	; -- file new entry
NEWQ

External References

Name	Field # of Occurrence
ENDR^%ZISS	APRVD+7, PRVD+6
^DIC	NXT+3
FILE^DICN	NEW+7
^DIE	EDT+7
IX1^DIK	NEW+8
$$DAT1^IBOUTL	LIST+8
$$CDT^IBTODD1	DTCHK+6
LOCKED^IBTRCD1	EDT+5
^IBTRE	%
$$EXPAND^IBTRE	LIST+8
$$TRTP^IBTRE1	EN+9
$$DGPM^IBTRE3	NEW+8, SET+2
$$ASK^IBTRE4	PRVD+9
ASK^SDCO3	EN+14
FULL^VALM1	EN+5
PAUSE^VALM1	EN+10, EN+15, APRVD+5, PRVD+4
$$FMADD^XLFDT	DTCHK+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Clinical Information comes from the parent package." Line Location: EN+10
Function Call: WRITE	Prompt: !!,"Can not add provider to outpatient visits prior to Check-out.",! Line Location: EN+15
Function Call: WRITE	Prompt: !!,"You can only enter and admitting provider for an admission",! Line Location: APRVD+5
Function Call: WRITE	Prompt: ! Line Location: APRVD+10
Function Call: WRITE	Prompt: !!,"You can only enter a provider for an admission",! Line Location: PRVD+4
Routine Call	DIE Line Location: EDT+7
Routine Call	DIC Line Location: NXT+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^IBT(356.94 - [#356.94]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBT(356 - [#356]	EN+7, NEW+5, DTCHK+4
^IBT(356.94 - [#356.94]	EN+22, APRVD+8, APRVD+11, NEW+8*, EDT+5, EDT+6, EDT+8, SET+4, LIST+6, DICS+4 , DTCHK+4
^VA(200 - [#200]	APRVD+9, LIST+7

Label References

Name	Line Occurrences
$$NEW	NXT+5
ADD	APRVD+11, PRVD+11
ADDQ	NXT+3
APRVD	EN+22
APRVDQ	APRVD+5
DICSQ	DICS+3
DTCHKQ	DTCHK+3, DTCHK+5, DTCHK+7, DTCHK+8, DTCHK+9
EDT	APRVD+10, PRVD+12, NXT+6
EDTQ	EDT+5
ENQ	EN+10, EN+13
LIST	PRVD+9
NXT	NXT+6
PRVD	EN+26
PRVDQ	PRVD+4, PRVD+10
SET	PRVD+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	APRVD+2~, PRVD+3~, NEW+2~, NEW+8, EDT+2~, EDT+4, EDT+6, DICS+4, DTCHK~, DTCHK+3 , DTCHK+4
DD	APRVD+2~, NEW+2~
DIC	APRVD+2~, PRVD+3~, ADD+2~, NXT+2, NXT+3!, NEW+2~, NEW+6
DIC("A"	NXT*
DIC("S"	NXT+1*
DIC(0	NXT+2, NEW+6
DIE	APRVD+2~, PRVD+3~, EDT+2~, EDT+4*
DIK	NEW+2~, NEW+6*
DINUM	NEW+2~
DLAYGO	NEW+2~, NEW+6*
DO	APRVD+2~, NEW+2~
DR	APRVD+2~, PRVD+3~, EDT+2~, EDT+3*
DT	DTCHK+9
DTOUT	ADD+2~, ADDQ
>> DUOUT	ADDQ
DUTOU	ADD+2~
I	NEW+2~, LIST+3~, LIST+5*, LIST+6, LIST+8
IBAPR	APRVD+2~, APRVD+3, APRVD+8, APRVD+9, APRVD+10, NXT+5, NXT+6, NEW+7, NEW+8, NEWQ , EDT~, EDT+4, EDT+5, EDT+8
IBCDT	DTCHK+1~, DTCHK+6*, DTCHK+7, DTCHK+8
IBCNT	EN+4~, PRVD+9, ADD+3, NXT, NXT+3, NXT+4, SET+3, SET+5, SET+6
>> IBDA	APRVD+8, APRVD+10, SET+4, SET+6
IBDGPM	EN+4~, EN+7, EN+20, EN+22, APRVD+5, APRVD+8, APRVD+11, PRVD+4, SET+1~, SET+2 , SET+4
IBDR	EDT~, EDT+3
IBETYP	EN+4~, EN+9*, EN+10, EN+13, EN+19, EN+22, EN+26, APRVD~, APRVD+5, PRVD~ , PRVD+2, PRVD+4
IBOK	DTCHK+1~, DTCHK+2, DTCHK+7, DTCHK+8, DTCHK+9, DTCHKQ
IBPRV	SET+1~, SET+3, SET+4
>> IBQUIT	PRVD+10*
>> IBSEL	EN+23, PRVD+8, PRVD+9, PRVD+10, PRVD+11, PRVD+12, ADDQ*
IBTNOD	LIST+3~, LIST+6*, LIST+7, LIST+8
IBTRN	EN~, EN+7, EN+9, EN+22, EN+26, APRVD~, APRVD+11, PRVD~, PRVD+1, PRVD+9 , PRVD+11, ADD~, NXT+5, NEW~, NEW+5, NEW+8, SET~, SET+2, DTCHK+1~, DTCHK+4* , DTCHK+5, DTCHK+6
IBTRND	EN+4~, EN+7*, EN+14, EN+15
IBXD	LIST+3~, LIST+7*, LIST+8
IBXY	EN+4~, PRVD+9, LIST~
IBXY(	PRVD+12, SET+6*, LIST+5, LIST+6
IBY	DICS+1~, DICS+2, DICS+3, DICS+4*, DICSQ
IOINHI	APRVD+2~, APRVD+9, PRVD+7
IOINORM	APRVD+2~, APRVD+9, PRVD+7
J	NEW+2~
SDCOQUIT	EN+14!
TYPE	ADD~, ADD+4*, NXT, NXT+5, NXT+6, NEW~, NEW+8
U	DICS+4
VA200	NEW~, NEW+8
>> VALMBCK	EN+6, EN+16, EN+27*
X	APRVD+7, PRVD+6, ADD+2~, NXT+2, NEW+2~, NEW+5, DTCHK~, DTCHK+3, DTCHK+7, DTCHK+8 , DTCHK+9
Y	ADD+2~, NXT+3, NXT+5, NEW+2~, NEW+7, DICS~, DICS+3, DICS+4

Customize PDF page

Package: Integrated Billing

Routine: IBTRE5

Call Graph Total: 15

Caller Graph Total: 8