Routine: IB20P572

Information

IB20P572 ;ALB/CXW - IB*2.0*572 POST INIT: REVENUE CODE FOR MS-DRGS;08-10-2016

Package	Total	Call Graph
Kernel	2	$$DT^XLFDT MES^XPDUTL
VA FileMan	2	C^%DTC ^DIE

Name	Comments	DBIA/ICR reference
POST	;
RVDRG(IBDT317,IBDT318)	; default rvc to 124 for DRGs in Reasonable Charges (#363.2)
RVDRGQ
MSG(IBA)	;

FileNo	Call Tags
^IBA(363.2 - [#363.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399.2 - [#399.2]	RVDRG+15
^IBA(363.2 - [#363.2]	RVDRG+24, RVDRG+25, RVDRG+26, RVDRG+27
^IBE(363.1 - [#363.1]	RVDRG+18, RVDRG+19
^IBE(363.3 - [#363.3]	RVDRG+21
^XTMP(	RVDRG+9!, RVDRG+11, RVDRG+32, RVDRG+39, RVDRGQ

Name	Line Occurrences
MSG	POST+2, POST+6, RVDRG+13, RVDRG+14, RVDRG+16, RVDRGQ+1, RVDRGQ+2
RVDRG	POST+5
RVDRGQ	RVDRG+16

Name	Field # of Occurrence
DA	RVDRG+3~, RVDRG+37, RVDRG+38!, RVDRG+43, RVDRG+44!
DIE	RVDRG+3~, RVDRG+37, RVDRG+38!, RVDRG+43, RVDRG+44!
DR	RVDRG+3~, RVDRG+38!, RVDRG+44!
DT	RVDRG+3~, RVDRG+10*, RVDRG+11
IB561	RVDRG+2~, RVDRG+4*, RVDRG+9, RVDRG+11, RVDRG+32, RVDRG+39, RVDRGQ
IBA	POST+1~, MSG~, MSG+1
IBBR0	RVDRG+2~, RVDRG+21*
IBCI	RVDRG+2~, RVDRG+26*, RVDRG+27, RVDRG+32, RVDRG+37, RVDRG+39, RVDRG+43
IBCI0	RVDRG+2~, RVDRG+28*, RVDRG+29, RVDRG+30
IBCIA	RVDRG+2~, RVDRG+27*, RVDRG+28, RVDRG+32, RVDRG+36, RVDRG+39, RVDRG+42
IBCNO	RVDRG+2~, RVDRG+4, RVDRG+33, RVDRGQ
IBCNT	RVDRG+2~, RVDRG+4, RVDRG+40, RVDRG+45*, RVDRGQ, RVDRGQ+1
IBCS	RVDRG+2~, RVDRG+18*, RVDRG+19, RVDRG+23, RVDRG+32, RVDRG+39
IBCS0	RVDRG+2~, RVDRG+19*, RVDRG+20, RVDRG+21
IBD101	RVDRG+2~, RVDRG+20*, RVDRG+35
IBDRGC	RVDRG+2~, RVDRG+29*, RVDRG+31
IBDRGF	RVDRG+2~, RVDRG+30*
IBDT317	POST+1~, POST+4*, POST+5, RVDRG~, RVDRG+25
IBDT318	POST+1~, POST+4*, POST+5, RVDRG~, RVDRG+25
IBITM	RVDRG+2~, RVDRG+24*, RVDRG+25, RVDRG+26
IBNEF	RVDRG+2~, RVDRG+25*, RVDRG+26
IBRVC	RVDRG+2~, RVDRG+15*, RVDRG+16, RVDRG+42, RVDRG+44
IBXRF	RVDRG+2~, RVDRG+23*, RVDRG+24, RVDRG+25, RVDRG+26
U	POST+1*, RVDRG+11, RVDRG+20, RVDRG+21, RVDRG+28, RVDRG+31, RVDRG+36, RVDRG+39, RVDRG+42, RVDRGQ
X	RVDRG+3~, RVDRG+11, RVDRG+38!, RVDRG+44!
X1	RVDRG+3~, RVDRG+10*
X2	RVDRG+3~, RVDRG+10*
Y	RVDRG+3~, RVDRG+38!, RVDRG+44!