Routine: PXCEVFI4

Information

PXCEVFI4 ;ISL/dee - Routine to display a visit or v-file entry and input providers in to V PROVIDER from other V Files ;6/20/96

Package	Total	Call Graph
VA Fileman	3	$$EXTERNAL^DILFD ^DIR ^DIWP

Package	Total	Caller Graph
PCE Patient Care Encounter	3	PXBDCPT PXCEAE1 PXCEVFI1

Name	Comments	DBIA/ICR reference
WRAP(X,DIWR,WRAPPED)	;Copies the text in X into the array WRAPPED
DISPLAY	; -- display the data
PROVIDER(PXCEPRV)	;See if it is a new provider and if it is add them.

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !,$P(PXCETEXT,"~",5),PXCEEXT Line Location: DISPLAY+15
Function Call: WRITE	Prompt: !,$P(PXCETEXT,"~",5),$G(PXCEWRAP(1)) Line Location: DISPLAY+19
Function Call: WRITE	Prompt: !,$J("",$L($P(PXCETEXT,"~",5))),PXCEWRAP(PXCECOUN) Line Location: DISPLAY+22
Routine Call	DIR Line Location: PROVIDER+16

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPRV - [#9000010.06]	PROVIDER+6
^AUPNVPRV("AD"	PROVIDER+6
^TMP("PXK"	PROVIDER+9, PROVIDER+19, PROVIDER+21, PROVIDER+22, PROVIDER+23, PROVIDER+24, PROVIDER+25*
^UTILITY($J	WRAP+2!, WRAP+7, WRAP+8!

Name	Line Occurrences
WRAP	DISPLAY+18

Name	Field # of Occurrence
DA	PROVIDER+2~, PROVIDER+12~
DIERR	DISPLAY+11~, DISPLAY+13
DIR	PROVIDER+2~, PROVIDER+12~
DIR("A"	PROVIDER+14*
DIR("B"	PROVIDER+15*
DIR(0	PROVIDER+13*
>> DIRF	WRAP+4*
DIWF	WRAP+1~
DIWL	WRAP+1~, WRAP+3*, WRAP+7
DIWR	WRAP~
>> DTOUT	PROVIDER+11
>> DUOUT	PROVIDER+11
>> PXCEAFTR(	DISPLAY+6
>> PXCECAT	DISPLAY+1, DISPLAY+3
PXCECODE	DISPLAY+3~*
PXCECOUN	DISPLAY+17~, DISPLAY+20, DISPLAY+21, DISPLAY+22
PXCEDILF	DISPLAY+11~
PXCEEXT	DISPLAY+2~, DISPLAY+6, DISPLAY+7, DISPLAY+12, DISPLAY+13, DISPLAY+14, DISPLAY+15, DISPLAY+18
>> PXCEFILE	DISPLAY+12
PXCEINDX	WRAP+1~, WRAP+6, WRAP+7
PXCEINT	DISPLAY+2~, DISPLAY+6*, DISPLAY+7, DISPLAY+8, DISPLAY+9, DISPLAY+12, DISPLAY+13
PXCEKPRV	PROVIDER+1~, PROVIDER+3, PROVIDER+9, PROVIDER+10
PXCELINE	DISPLAY+2~, DISPLAY+5*
PXCENPRV	PROVIDER+1~, PROVIDER+19, PROVIDER+20, PROVIDER+21, PROVIDER+22, PROVIDER+23, PROVIDER+24, PROVIDER+25
>> PXCEPAT	PROVIDER+23
>> PXCEPKG	PROVIDER+25
PXCEPRIM	PROVIDER+1~, PROVIDER+4, PROVIDER+6, PROVIDER+9*, PROVIDER+11, PROVIDER+15, PROVIDER+17
PXCEPRV	PROVIDER~, PROVIDER+6, PROVIDER+9, PROVIDER+23
>> PXCESOR	PROVIDER+25
PXCETEXT	DISPLAY+2~, DISPLAY+5*, DISPLAY+6, DISPLAY+9, DISPLAY+12, DISPLAY+14, DISPLAY+15, DISPLAY+18, DISPLAY+19, DISPLAY+22
>> PXCEVIEN	PROVIDER+6, PROVIDER+23
PXCEVPRV	PROVIDER+1~, PROVIDER+3, PROVIDER+6, PROVIDER+7
PXCEWRAP	DISPLAY+17~, DISPLAY+18
PXCEWRAP(	DISPLAY+21, DISPLAY+22
PXCEWRAP(1	DISPLAY+19
WRAPPED	WRAP~
WRAPPED(	WRAP+7*
X	WRAP~, PROVIDER+2~
Y	PROVIDER+2~, PROVIDER+17*, PROVIDER+23

Name	Field # of Occurrence
$T(FORMAT+PXCELINE^@PXCECODE	DISPLAY+5