Routine: ECPRVMUT

Package	Total	Call Graph
VA FileMan	4	UPDATE^DIE ^DIK ($$GET1,GETS)^DIQ ^DIR
Event Capture	2	COMP^ECPRVMUT ($$CLASS,$$DICLK,COMP)^ECPRVUTL
Kernel	1	$$GET^XUA4A72

Package	Total	Caller Graph
Event Capture	30	ECBEN1A ECBEN1B ECBEN2A ECBEN2U ECBENF ECBEP1A ECBEP1B ECBEP2A ECBEPF ECED1 ECED3 ECEDF ECEFPAT ECMLMD ECMLMF ECNTPCE ECOSSUM ECPAT ECPCER ECPCEU ECPROV3 ECPRSUM1 ECPRVMUT ECRDSSA ECRPROC ECRPRSN ECRPRSN2 ECUERPC ECUERPC2 ECV3RPC
DSS Extracts	3	ECXEC ECXECMDI ECXUEC

Entry Points

Name	Comments	DBIA/ICR reference
GETPRV(ECIEN,OUTARR)	;Returns providers associated with an encounter	ICR #4460 Status: Active Usage: Supported
GETPPRV(ECIEN,ECPPROV)	;returns primary provider associated with an encounter ; Input: ECIEN - IEN entry in file 721/^ECH(	ICR #4460 Status: Active Usage: Supported
FILPRV(ECIEN,ECPRVARY,ECOUT)	;File multiple providers for an encounter ; Input: ECIEN - IEN entry in file 721/^ECH( ; ECPRVARY - array with providers ; ECOUT - Error flag (1/0)	ICR #4460 Status: Active Usage: Supported
DSPPRV	;Display providers
ASKPRV(ECIEN,ECDT,ECPRVARY,ECOUT)	;ask provider question (primary and multiple secondary) ; Variables: ECIEN - IEN entry in file 721/^ECH( ; ECDT - date/time of encounter ; ECPRVARY - array with providers ; ECOUT - Error flag (1/0)	ICR #4460 Status: Active Usage: Supported
PPRV	;Ask primary provider ; Variables: ECPRV = Primary provider ien ; ECPRVN = Primary provider descript, default if define ; ECPRVARY= Array with providers ; subscript=provider IEN, ; data=(P)rimary_^_provider description ; ECOUT = Error flag (1/0) ;
SPRV	;Ask secondary provider(s) ; Variables: ECPRV = Primary provider ien, default if define ; ECPRVARY= Array with providers ; subscript=provider IEN, ; data=(S)econdary_^_provider description
PRVHLP	;Help for Provider Code
COMP(ECUX,ECDTX)	;get provider information, similar to COMP^ECPRVUTL
DSP1416(ECPRVARY)	;Display providers for data entry options
DSP1442(ECPRVARY)	;Display providers for data entry options
DSP1444(ECPRVARY)	;Display providers for data entry options

Name	Field # of Occurrence
UPDATE^DIE	FILPRV+21
^DIK	FILPRV+13
$$GET1^DIQ	SPRV+24, COMP+10
GETS^DIQ	GETPRV+15, GETPPRV+12
^DIR	PPRV+15, SPRV+19
COMP^ECPRVMUT	DSP1442+5, DSP1444+5
$$CLASS^ECPRVUTL	PPRV+22, SPRV+27
$$DICLK^ECPRVUTL	PPRV+12, SPRV+14, SPRV+26
COMP^ECPRVUTL	COMP+11
$$GET^XUA4A72	COMP+10

Name	Line Occurrences
Function Call: WRITE	Prompt: "Encounter Providers" Line Location: DSPPRV+2
Function Call: WRITE	Prompt: " (Primary)" Line Location: DSPPRV+5
Function Call: WRITE	Prompt: " Provider already entered as primary." Line Location: SPRV+20
Function Call: WRITE	Prompt: " Provider flag as primary. Can't delete." Line Location: SPRV+23
Function Call: WRITE	Prompt: " (Primary)" Line Location: PRVHLP+6
Function Call: WRITE	Prompt: !?1,"You may enter a new Provider, if you wish. Enter the secondary Provider" Line Location: PRVHLP+7
Function Call: WRITE	Prompt: !?1,"for this procedure." Line Location: PRVHLP+8
Routine Call	DIE Line Location: FILPRV+21
Routine Call	DIR Line Location: PPRV+15 SPRV+19

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^ECH - [#721]	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ECH - [#721]	GETPRV+11, GETPRV+12, GETPPRV+8, GETPPRV+9, FILPRV+8, FILPRV+13

Name	Line Occurrences
$$GETPPRV	ASKPRV+12
$$GETPRV	ASKPRV+11
COMP	DSP1416+5
DSPPRV	ASKPRV+14
PPRV	ASKPRV+16
SPRV	ASKPRV+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	GETPRV+13~, GETPRV+25, GETPRV+28, SPRV+6~, SPRV+9, SPRV+28, SPRV+29, DSP1416+1~, DSP1416+2, DSP1416+3 , DSP1416+4, DSP1442+1~, DSP1442+2, DSP1442+3, DSP1442+4, DSP1444+1~, DSP1444+2, DSP1444+3, DSP1444+4
D	PRVHLP+1~
DA	FILPRV+10~, FILPRV+12, FILPRV+13, SPRV+6~
DA(1	FILPRV+12*, FILPRV+13
DEF	SPRV+6~, SPRV+9, SPRV+10, SPRV+14, SPRV+21, SPRV+22, SPRV+23, SPRV+24, SPRV+25, SPRV+26 , SPRV+29*
DIC	PRVHLP+1~
DIK	FILPRV+10~, FILPRV+12*
DIR	PPRV+8~, SPRV+6~
DIR("?"	PPRV+11, SPRV+16
DIR("A"	PPRV+10, SPRV+15
DIR("B"	PPRV+12, SPRV+14, SPRV+21!, SPRV+25!, SPRV+26*, SPRV+29!
DIR("S"	PPRV+14, SPRV+18
DIR(0	PPRV+10, SPRV+15
DIROUT	PPRV+8~, SPRV+6~
DIRUT	PPRV+8~, SPRV+6~
DT	PPRV+22, SPRV+27, COMP+7, DSP1416+5, DSP1442+5, DSP1444+5
DTOUT	PPRV+8~, SPRV+6~, SPRV+19
DUOUT	PPRV+8~, SPRV+6~, SPRV+19
ECDAT	DSPPRV+1~, DSPPRV+4, DSPPRV+5, DSP1416+1~, DSP1416+3, DSP1416+4, DSP1416+5, DSP1442+1~, DSP1442+3, DSP1442+4 , DSP1442+5, DSP1444+1~, DSP1444+3, DSP1444+4, DSP1444+5
ECDATA	FILPRV+10~, FILPRV+17*, FILPRV+19, FILPRV+20
ECDT	ASKPRV~, PPRV+22, SPRV+27, DSP1416+5, DSP1442+5, DSP1444+5
ECDTX	COMP~, COMP+7*, COMP+10, COMP+11
ECERR	GETPRV+13~, GETPRV+16, GETPPRV+10~, GETPPRV+13, FILPRV+10~, FILPRV+16!, FILPRV+22
ECI	DSP1416+1~, DSP1416+2, DSP1416+3, DSP1442+1~, DSP1442+2, DSP1442+3, DSP1444+1~, DSP1444+2*, DSP1444+3
ECIEN	GETPRV~, GETPRV+10, GETPRV+11, GETPRV+12, GETPRV+15, GETPPRV~, GETPPRV+7, GETPPRV+8, GETPPRV+9, GETPPRV+12 , FILPRV~, FILPRV+7, FILPRV+8, FILPRV+12, FILPRV+18, ASKPRV~, ASKPRV+10, ASKPRV+11, ASKPRV+12
ECINF	ASKPRV+7~, ASKPRV+11, ASKPRV+12
ECOUT	GETPPRV+10~, GETPPRV+11, GETPPRV+14, GETPPRV+18, FILPRV~, ASKPRV~, ASKPRV+16, PPRV+24, SPRV+19
ECPPROV	GETPPRV~, GETPPRV+18*, GETPPRV+19
ECPRV	ASKPRV+8!, ASKPRV+12, PPRV+9, PPRV+12, PPRV+23*, SPRV+10, SPRV+20, SPRV+23
ECPRVARY	FILPRV~, ASKPRV~, ASKPRV+8!, ASKPRV+11, PRVHLP+2, DSP1416~, DSP1442~, DSP1444~
ECPRVARY(	FILPRV+15, FILPRV+17, DSPPRV+3, DSPPRV+4, PPRV+19, PPRV+20, PPRV+21!, SPRV+10, SPRV+12, SPRV+13 , SPRV+25!, SPRV+28*, PRVHLP+4, PRVHLP+5, PRVHLP+6, DSP1416+2, DSP1416+3, DSP1442+2, DSP1442+3, DSP1444+2 , DSP1444+3
ECPRVARY(""	ASKPRV+14, SPRV+9
ECPRVARY("B"	SPRV+13, SPRV+25!, SPRV+26, SPRV+28, SPRV+30!
ECPRVARY(0	FILPRV+9
ECPRVARY(1	PPRV+23*
ECPRVDA	FILPRV+10~, FILPRV+16!
ECPRVDA(	FILPRV+19, FILPRV+20
ECPRVDA(721	FILPRV+18*
ECPRVN	ASKPRV+8!, ASKPRV+12, PPRV+9, PPRV+23*
ECUP	DSP1416+1~, DSP1416+5, DSP1416+6, DSP1442+1~, DSP1442+5, DSP1442+6, DSP1444+1~, DSP1444+5*, DSP1444+6
ECUX	COMP~, COMP+6, COMP+10*, COMP+11
ECW	DSPPRV+1~, PPRV+8~, PPRV+22, SPRV+27
ECX	DSPPRV+1~, DSPPRV+3*, DSPPRV+4
ERR	FILPRV+10~, FILPRV+14, FILPRV+22, FILPRV+23
IEN	GETPRV+13~, GETPRV+18, GETPRV+23, GETPRV+27, GETPRV+28, GETPPRV+10~, GETPPRV+15, GETPPRV+18, PPRV+8~, PPRV+18 , PPRV+19, PPRV+20, PPRV+21, SPRV+9, SPRV+10, SPRV+11, SPRV+12, SPRV+13
OUTARR	GETPRV~, GETPRV+29
OUTARR(	GETPRV+25, GETPRV+28
PRI	GETPRV+13~, GETPRV+14, GETPRV+22, GETPRV+25*, GETPRV+26
PRV	GETPRV+13~, GETPRV+19, GETPRV+23, GETPPRV+10~, GETPPRV+16, GETPPRV+18, PRVHLP+1~, PRVHLP+3, PRVHLP+4, PRVHLP+5 , PRVHLP+6
PRVARY	GETPRV+13~, GETPPRV+10~
PRVARY(	GETPRV+17, GETPRV+18, GETPRV+19, GETPRV+20, GETPRV+21, GETPPRV+14, GETPPRV+15, GETPPRV+16, GETPPRV+17
SEQ	GETPRV+13~, GETPRV+17, GETPRV+18, GETPRV+19, GETPRV+20, GETPRV+21, GETPRV+22, GETPRV+23, GETPPRV+10~, GETPPRV+14 , GETPPRV+15, GETPPRV+16, GETPPRV+17
SIEN	FILPRV+10~, FILPRV+14, FILPRV+15, FILPRV+17, FILPRV+22
TMPARR	GETPRV+13~
TMPARR(	GETPRV+23*, GETPRV+25, GETPRV+26!, GETPRV+27, GETPRV+28
TMPARR(0	GETPRV+25
TYD	GETPRV+13~, GETPRV+21, GETPRV+23, GETPPRV+17
TYP	GETPRV+13~, GETPRV+20, GETPRV+22, GETPRV+23, GETPPRV+10~, GETPPRV+17, GETPPRV+18
U	GETPRV+22, GETPRV+23, GETPRV+25, GETPPRV+18, FILPRV+19, FILPRV+20, DSPPRV+5, ASKPRV+12, PPRV+19, SPRV+10 , SPRV+12, PRVHLP+5, PRVHLP+6, DSP1416+4, DSP1416+5, DSP1442+4, DSP1442+5, DSP1442+6, DSP1444+4, DSP1444+5 , DSP1444+6
X	PPRV+8~, SPRV+6~, SPRV+19, SPRV+22
Y	PPRV+8~, PPRV+16, PPRV+20, PPRV+22, PPRV+23, SPRV+6~, SPRV+20, SPRV+21, SPRV+26, SPRV+27 , SPRV+28
Y(0	PPRV+23, SPRV+28

Customize PDF page

Package: Event Capture

Routine: ECPRVMUT

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 33

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: