Routine: VPRENC

Package	Total	Call Graph
Kernel	2	^%ZTLOAD ($$FMADD,$$NOW)^XLFDT
VA FileMan	1	EN^DIQ1
Virtual Patient Record	1	POST^VPRHS

Package	Total	Caller Graph
Virtual Patient Record	7	VPR PCE EVENTS VPREVNT VPRHS VPRHSX2 VPRSDAHX VPRSDAV VPRSDAVF
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
PX	; -- PXK VISIT DATA EVENT protocol listener
PXQ	; done
DIFF(NM,IEN)	; -- returns 0/1 if un/changed, 2 if new, -1 if deleted
EDP(IEN)	; -- EDP Log file #230 AVPR index
TIU(IEN,ACT,VST)	; -- TIU Document file #8925 [from TIU/R^VPREVNT] ; add to ^XTMP("VPRPX") list w/encounters
NEWTSK	; -- start new task
QUE(M)	; -- create task to post encounters, documents to HS
TASK	; -- post an encounter update
TV
TD	; look for waiting documents w/o visit [yet]
TQ	; re-task if more data
DELALL	; -- delete visit + vfiles from HS [from TASK]
KILL	; clean up ^XTMP
SAVE(NUM,DA)	; -- save data for V-file record [from TV,DELALL] in ; ^XTMP("VPR-"_NUM, 0) = DT+14 ^ DT ^ Deleted records ; ^XTMP("VPR-"_NUM,DA) = DFN ^ TYPE ^ ID ^ U/D ^ VISIT# ; ^XTMP("VPR-"_NUM,DA,0) = DATA
SAVST(NUM,ACT,TYP)	; -- save visit in ^XTMP [from TASK,DELALL]
DOC	; -- process Document VDA [from TASK]
DQ	; clean up array, unlock
EXTRACT(DA)	; -- return data in VPRTIU(FLD)
NAME(X,DA)	; -- return container name for V-files
HF(IEN)	; -- return AUTTHF ptr, expects VST & VSTX
FHX(X)	; -- return 1 or 0, if HF name is for FamilyHistory
SHX(X)	; -- return 1 or 0, if HF name is for SocialHistory
C19(X)	; -- return 1 or 0, if HF name is for COVID imm refusal
ZERO(X,DA)	; -- return zero node
NODE(NAME,DA,NUM)	; -- return global node
DUP(DA)	; -- duplicate CPT record?

Name	Field # of Occurrence
^%ZTLOAD	QUE+4
EN^DIQ1	EXTRACT+5
POST^VPRHS	EDP+7, TASK+17, TV+6, TV+9, DELALL+6, DELALL+8, DOC+11, DOC+18, DOC+19, DQ+6
$$FMADD^XLFDT	QUE+3, QUE+6, TASK+3, TASK+4, SAVE+5, SAVST+2, DOC+15
$$NOW^XLFDT	PX+16, EDP+18, TIU+11, QUE+3, TASK+3

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	TASK+11
^AUTTHF - [#9999999.64]	NAME+3
^DIC(9.4 - [#9.4]	DUP+7
^EDP(230 - [#230]	EDP+4
^TIU(8925 - [#8925]	TV+13
^TMP("PXKCO"	PX+3, PX+4, PX+22, PX+26, PX+30, DIFF+3, HF+2, HF+3, DUP+2, DUP+10 , DUP+11, DUP+12
^VPR(1	PX+1, EDP+1, TASK+1
^XTMP("VPR-"	SAVE+6, SAVE+7, SAVE+8, SAVST+3, SAVST+4, DOC+13, DOC+14, DOC+15
^XTMP("VPRPX"	PX+9, EDP+11, TIU+3, NEWTSK+1, NEWTSK+3, NEWTSK+4, QUE+5, QUE+6, TASK+3

Name	Line Occurrences
$$C19	NAME+6
$$DIFF	PX+23
$$DUP	PX+25
$$FHX	NAME+4
$$HF	NAME+3
$$NAME	PX+24, TV+3, DELALL+3
$$NODE	TIU+13
$$SHX	NAME+5
$$ZERO	TV+4, HF+5
DELALL	TASK+14
DOC	TV+13, TD+4
EXTRACT	DOC+3
KILL	TASK+13, TV+11
NEWTSK	PXQ+2, EDP+22, TIU+15
QUE	NEWTSK+3, TQ+1
SAVE	TV+10, DELALL+7
SAVST	TASK+18, DELALL+9

Name	Field # of Occurrence
^("AFTER"	HF+3
^("BEFORE"	PX+4, PX+30, DIFF+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	PX+2~, PX+23, PX+27, PX+28, TIU~, TIU+9, TIU+11, TASK+2~, SAVST~, SAVST+1 , SAVST+4, DOC+2~, DOC+9*, DOC+10, DOC+11, DOC+12, DOC+18, DOC+19
AFTER	DIFF+1~, DIFF+3*, DIFF+4, DIFF+6
BEFORE	DIFF+1~, DIFF+3*, DIFF+4, DIFF+5
CLS	DOC+2~, DOC+17*, DOC+18, DOC+19
CPT	DUP+1~, DUP+5*, DUP+14
DA	PX+2~, PX+22, PX+23, PX+24, PX+25, PX+26, PX+28, PX+29, PX+30, PX+31 , SAVE~, SAVE+4, SAVE+7, SAVE+8, EXTRACT~, EXTRACT+1, EXTRACT+6, NAME~, NAME+3, ZERO~ , ZERO+1, ZERO+2, NODE~, NODE+1, NODE+2, DUP~, DUP+2
DFN	PX+2~, PX+5, PX+6, EDP+2~, EDP+5, EDP+7, EDP+10, TASK+2~, TASK+10, TASK+12 , TASK+17, TV+6, TV+9, DELALL+6, DELALL+8, SAVE+7, SAVST+4, DOC+4, DOC+6, DOC+11 , DOC+13, DOC+14, DOC+18, DOC+19, DQ+6
DIC	EXTRACT+1~, EXTRACT+5*
DIFF	DIFF+1~, DIFF+2, DIFF+4, DIFF+5, DIFF+6, DIFF+7
DIQ	EXTRACT+1~, EXTRACT+5*
DIQ(0	EXTRACT+5*
DR	EXTRACT+1~, EXTRACT+5*
DT	QUE+6, TASK+4, SAVE+5, SAVE+6, SAVST+2, SAVST+3, DOC+15
EDP0	EDP+2~, EDP+4*, EDP+5
GBL	ZERO+1~, ZERO+2, NODE+1~, NODE+2, NODE+3, DUP+1~, DUP+9*, DUP+13, DUP+14
I	EXTRACT+1~, EXTRACT+4, EXTRACT+6
ID	PX+2~, PX+13, PX+15, PX+18, EDP+2~, EDP+15, EDP+17, EDP+19
IEN	DIFF~, DIFF+3, EDP~, EDP+3, EDP+4, TIU~, TIU+3, TIU+4, TIU+6, TIU+9 , TIU+11, TIU+12, TIU+13, TIU+14, HF~, HF+1, HF+3, HF+4, HF+5, DUP+1~ , DUP+9, DUP+10*, DUP+11, DUP+12
IMM	DUP+1~, DUP+12*, DUP+13, DUP+14
M	QUE~, QUE+3*
NAME	NODE~, NODE+2
NEW	PX+2~, PX+13, PX+17, PX+18, PX+28, PX+29, EDP+2~, EDP+15, EDP+19, TIU+2~ , TIU+7, TIU+9, TIU+11, TIU+12, TIU+13
NM	DIFF~, DIFF+3, NAME+3~*, NAME+4, NAME+5, NAME+6
NODE	DIFF+1~, DIFF+2, DIFF+3, DIFF+5, DIFF+6, DUP+1~, DUP+3, DUP+5, DUP+7, DUP+11* , DUP+12
NOW	PX+2~, PX+13, PX+14, PX+16, PX+18, EDP+2~, EDP+15, EDP+16, EDP+18, EDP+19 , TIU+2~, TIU+6, TIU+11, TIU+12
NUM	SAVE~, SAVE+4, SAVE+6, SAVE+7, SAVE+8, SAVST~, SAVST+1, SAVST+3, SAVST+4, NODE~ , NODE+3
PKG	DUP+1~, DUP+7*
PROC	DQ+5~*, DQ+6
PX0A	PX+2~, PX+4*, PX+5
PX0B	PX+2~, PX+4*, PX+5, PX+17
STS	DOC+2~, DOC+9*
SUB	PX+2~, PX+21*, PX+22, PX+23, PX+24, PX+25, PX+26, PX+28, PX+29, PX+30 , PX+31, DUP+2
SYS	DUP+1~, DUP+13*, DUP+14
TYP	SAVST~, SAVST+4
U	PX+1, PX+5, PX+13, PX+18, PX+26, PX+27, EDP+1, EDP+4, EDP+5, EDP+15 , EDP+19, TIU+7, TIU+12, QUE+6, TASK+1, TASK+12, TASK+13, TASK+16, TASK+18, TV+4 , TV+6, TV+9, DELALL+5, DELALL+6, SAVE+6, SAVE+7, SAVST+3, SAVST+4, DOC+8, DOC+9 , DOC+10, DOC+14, DOC+15, EXTRACT+2, EXTRACT+4, NAME+3, NODE+2, DUP+5, DUP+7
V0	TASK+2~, TASK+11, TASK+12, TV+4, TV+6
VCPT	DUP+1~, DUP+2*
VCPT(0	DUP+3, DUP+5
VCPT(812	DUP+7
VDA	TASK+2~, TV+2, TV+3, TV+4, TV+7, TV+10, TV+13, TD+2, TD+3, DELALL+2 , DELALL+3, DELALL+4, DELALL+5, DELALL+7, DOC+1, DOC+3, DOC+6, DOC+8, DOC+13, DOC+14 , DQ+1, DQ+2, EXTRACT+3
VFL	TASK+2~, TV+1, TV+2, TV+3, TV+4, TV+7, DELALL+1, DELALL+2, DELALL+3, DELALL+4 , SAVE+8
VID	TASK+2~, TASK+16, TASK+17, TV+4, TV+6, TV+9, DELALL+5, DELALL+6, SAVE+7, DOC+8 , DOC+11, DOC+13, DOC+18, DOC+19
VNM	TASK+2~, TV+3, TV+4, TV+6, TV+9, DELALL+3, DELALL+5, DELALL+6, SAVE+7
VPRD14	TASK+2~, TASK+4, SAVE+5, SAVE+6, SAVST+2*, SAVST+3
VPRDT	TASK+2~, TASK+3*, TASK+6, TD+1
VPRI	TASK+2~, TASK+6, TASK+7, TASK+8, TD+1, TD+2, TD+3, KILL+1
VPRPX	PX+2~, PX+9, PX+10, PX+13, PX+14, PX+16, PX+18, PX+27, PX+28, PX+29 , PX+31, PXQ+1, PXQ+2, EDP+2~, EDP+11, EDP+12, EDP+15, EDP+16, EDP+18, EDP+19 , EDP+21, EDP+22, TIU+2~, TIU+3, TIU+4, TIU+6, TIU+9, TIU+11, TIU+12, TIU+13 , TIU+14, TIU+15, TASK+2~, TASK+3*, TASK+6, TASK+7, TASK+8, TASK+9, TASK+10, TV+1 , TV+2, TV+7, TV+13, TD+1, TD+2, TD+3, TQ+1, TQ+2, DELALL+1, DELALL+2 , DELALL+4, KILL+1, KILL+2, SAVE+8, DOC+1, DOC+3, DOC+6, DQ+1, DQ+2, EXTRACT+3 , HF+4
VPRQ	EXTRACT+1~
VPRQ(8925	EXTRACT+6
VPRSQ	TASK+2~, TASK+17!, TASK+18, TV+8!, TV+9, TV+10, DELALL+5!, DELALL+6, DELALL+7, DELALL+8! , DELALL+9, DOC+2~, DOC+11, DOC+12, DOC+13, DOC+14, DOC+15
VPRTIU	DOC+2~
VPRTIU(	DOC+4, DOC+9, DOC+14, DOC+17, EXTRACT+6*
VPRTIU(".0"	EXTRACT+4*
VPRTIU(1405	DQ+5
VST	PX+2~, PX+3, PX+4, PX+6, PX+15, PX+22, PX+26, PX+30, DIFF+3, EDP+2~ , EDP+4, EDP+7, EDP+10, EDP+17, TIU~, TIU+7, TIU+12, TASK+2~, TASK+10, TASK+11 , TASK+16, TV+6, TV+9, TV+13, DELALL+6, DELALL+8, SAVE+7, SAVST+1, SAVST+4, DOC+4* , DOC+6, DOC+10*, DOC+11, DOC+13, DOC+14, DQ+4, DQ+6, HF+2, HF+3, DUP+2 , DUP+10, DUP+11, DUP+12
VSTX	PX+2~, PX+6, PX+10, PX+13, PX+14, PX+16, PX+18, PX+27, PX+28, PX+29 , PX+31, PXQ+1, EDP+2~, EDP+10, EDP+12, EDP+15, EDP+16, EDP+18, EDP+19, EDP+21 , TASK+2~, TASK+7*, TASK+8, TASK+9, TASK+10, TV+1, TV+2, TV+7, DELALL+1, DELALL+2 , DELALL+4, KILL+1, KILL+2, SAVE+8, HF+4
VTYP	PX+2~, PX+13*, PX+18
X	PX+2~, PX+13, PX+30, PX+31, EDP+2~, EDP+15, TASK+2~, TQ+1, SAVE+8, DOC+14 , NAME~, NAME+2, NAME+8, NAME+9, NAME+10, NAME+11, NAME+12, NAME+15, HF+1~, HF+2 , HF+3, HF+4, HF+5*, FHX~, FHX+1, FHX+2, SHX~, SHX+1, C19~, C19+1 , C19+2, ZERO~, ZERO+2
X0	TIU+2~, TIU+6, TIU+7, TASK+2~, TASK+10, TASK+13, TASK+16, TASK+18, DOC+3*, DOC+8 , DOC+9, DOC+10, DQ+1, EXTRACT+2
X1	EXTRACT+3~*, EXTRACT+4
Y	NAME+1~, NAME+4, NAME+5, NAME+6, NAME+8, NAME+9, NAME+10, NAME+11, NAME+12, NAME+15 , NAME+16, ZERO+1~, ZERO+2, ZERO+3, NODE+1~, NODE+3, NODE+4, DUP+1~, DUP+9, DUP+10 , DUP+14, DUP+15
ZTCPU	QUE+1~
ZTDESC	QUE+1~, QUE+2*
ZTDTH	QUE+1~, QUE+3*
ZTIO	QUE+1~, QUE+2*
ZTKIL	QUE+1~
ZTPRI	QUE+1~
>> ZTREQ	TASK+1*
ZTRTN	QUE+1~, QUE+2*
ZTSAVE	QUE+1~
ZTSK	QUE+1~, QUE+5
ZTSYNC	QUE+1~
ZTUCI	QUE+1~

Customize PDF page

Package: Virtual Patient Record

Routine: VPRENC

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: