Routine: IB20PT62

Package	Total	Call Graph
VA Fileman	2	NOW^%DTC EN^DIU2

Package	Total	Caller Graph
Integrated Billing	1	IB20PT61

Entry Points

Name	Comments	DBIA/ICR reference
MVDX	; -- move procedures from file 399 fields 64-68 to new file 362.2
DQ362	;transfer entries from 362.2 to 362.3
DQ399
SETDX
DXCPTCV	;transfer/convert associated dx (399,304,7->399,304,10)

Name	Field # of Occurrence
NOW^%DTC	DQ399, DQ399+11
EN^DIU2	DQ362+8

Name	Line Occurrences
Function Call: WRITE	Prompt: !," Completed!" Line Location: DQ399+12
Function Call: WRITE	Prompt: !!," Moving diagnosis to new file" Line Location: DQ362+2
Function Call: WRITE	Prompt: "." Line Location: DQ362+7
Function Call: WRITE	Prompt: " Completed!" Line Location: DQ362+9

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	DQ399+4, DQ399+5, DQ399+6, DQ399+7, DQ399+8, DXCPTCV+2, DXCPTCV+3, DXCPTCV+4, DXCPTCV+6*, DXCPTCV+7 , MVDX+3
^IBA(362.2	IB20PT62+5, DQ362+3, DQ362+4
^IBA(362.3 - [#362.3]	DXCPTCV+5, SETDX, SETDX+1, SETDX+2, SETDX+3, SETDX+4, SETDX+5, SETDX+6, SETDX+7, SETDX+8 , SETDX+9, SETDX+10, SETDX+11, SETDX+12, SETDX+13
^IBE(350.9 - [#350.9]	DQ399+10*

Name	Field # of Occurrence
^("M"	DQ399+5
^(0	DQ399+5

Name	Field # of Occurrence
>> %	DQ399, DQ399+11
DIU	DQ362+8*!
DIU(0	DQ362+8*
DT	DQ399+10
IBC	MVDX+2~, MVDX+3*, MVDX+4
IBCIFN	DQ399+1~, DQ399+3, DQ399+4, DQ399+5, DQ399+6, DQ399+7, DQ399+8, DQ362+1~, DQ362+5*, DQ362+6 , DXCPTCV+2, DXCPTCV+3, DXCPTCV+4, DXCPTCV+5, DXCPTCV+6, DXCPTCV+7, MVDX+3, SETDX, SETDX+5, SETDX+7 , SETDX+8
IBCNT	DQ399+3, DQ399+9, DQ362+1~, DQ362+3, DQ362+7
>> IBCNTD	DQ399+3, SETDX+14
IBCP	DXCPTCV+1~, DXCPTCV+3*, DXCPTCV+4, DXCPTCV+6
IBD	DQ362+1~, DQ362+4*, DQ362+5
IBDA	DQ362+1~, MVDX+2~, SETDX+2, SETDX+4, SETDX+5, SETDX+6, SETDX+7, SETDX+8, SETDX+9, SETDX+12
IBDIFN	DQ362+1~, DQ362+3*, DQ362+4
IBDX	DQ362+1~, DQ362+5, DQ362+6, DXCPTCV+1~, DXCPTCV+4, DXCPTCV+5, MVDX+2~, MVDX+4*, SETDX, SETDX+5 , SETDX+6, SETDX+7
IBDXP	DXCPTCV+1~, DXCPTCV+5*, DXCPTCV+6
>> IBECDT	DQ399+11*
IBP	DQ362+1~, DQ362+5, MVDX+2~, MVDX+4, SETDX+5, SETDX+8
>> IBSCDT	DQ399*
IBTRNSF	IB20PT62+5~*, DQ399+7
U	DQ399+6, DQ399+8, DQ362+5, DXCPTCV+4, DXCPTCV+6
>> ZTQUEUED	IB20PT62+3, DQ399+2, DQ399+9, DQ399+12, DQ362+2, DQ362+7, DQ362+9