Routine: RMPOPIN1

Package	Total	Call Graph
VA FileMan	2	DELIX^DDMOD (EN1,ENALL)^DIK
Kernel	1	DE^XUSHSHP

Entry Points

Name	Comments	DBIA/ICR reference
START	;conversion of 442 ien and po
DES	;remove duplicate/extra HCPCS description 'B' cross-reference &
EXIT	;Kill variables
46	;deletes 'AD' cross-ref of file #665
POST46	;re-index the field #10,19.2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"INVALID ENTRY POINT...." Line Location: RMPOPIN1+3
Function Call: WRITE	Prompt: !!,"*Converting file 442 IEN and PO. Please be patient.*" Line Location: START+1
Function Call: WRITE	Prompt: !!,"*Done Converting file 442 IEN and PO*" Line Location: START+17
Function Call: WRITE	Prompt: !!,"*Starting clean-up of HCPCS Description*" Line Location: DES+2
Function Call: WRITE	Prompt: !!,"*Done clean-up of HCPCS Description*" Line Location: DES+9
Function Call: WRITE	Prompt: !!,"*** Reindexing 'AHO & AD' cross reference of file #665....." Line Location: POST46+1

FileNo	Call Tags
^RMPR(665 - [#665]	Classic Fileman Calls, DELIX^DDMOD

Name	Line Occurrences (* Changed, ! Killed)
^PRC(442 - [#442]	START+8
^RMPO(665.72 - [#665.72]	START+2, START+3, START+10, START+11, START+14, START+15
^RMPR(661.1 - [#661.1]	DES+3!, DES+4!, DES+5, DES+6, DES+10
^RMPR(665 - [#665]	POST46+2!, POST46+4

Name	Field # of Occurrence
DA	DES+7, EXIT+1!, POST46+4, POST46+5!
DA(1	DES+7, POST46+4
DIK	DES+7, EXIT+1!, 46+2!, POST46+3, POST46+4*, POST46+5!
DIK(1	DES+3, POST46+3, POST46+4*
I	POST46+4*, POST46+5!
J	POST46+4*, POST46+5!
RADX	46+1*, 46+2!, POST46+5!
RD	DES+5*, DES+6, EXIT+1!
RDA	START+2*, START+3, START+10, START+11, START+12, START+14, START+15, START+16, EXIT+1!
REN	START+2*, START+3, START+9, START+10, START+11, START+12, START+13, START+14, START+15, START+16 , EXIT+1!
RI	DES+4*, DES+5, DES+6, DES+7, EXIT+1!
RJ	DES+4*, DES+5, DES+6, DES+7, EXIT+1!
RMDAT0	START+3*, START+4, START+5, START+6, START+9, START+13, EXIT+1!
RMIEN	START+5*, START+7, START+8, START+9, EXIT+1!
RMPO	START+6*, START+13, EXIT+1!
RSI	START+2*, START+3, START+10, START+11, START+14, START+15, EXIT+1!
U	START+4, START+5, START+6, START+9, START+10, START+13, START+14
X	START+9, START+10, START+11, START+12, START+13, START+14, START+15, START+16, EXIT+1!
X1	START+9, START+13, EXIT+1!
X2	START+9, START+13, EXIT+1!