Routine: VPRSDAV

Package	Total	Call Graph
Virtual Patient Record	3	IDT^VPRDVSIT $$ZERO^VPRENC $$VALID^VPRSDA
PCE Patient Care Encounter	2	ENCEVENT^PXAPI VHF^PXPXRM
Registration	2	IN5^VADPT ADM^VADPT2
Scheduling	1	$$GETOE^SDOE
VA FileMan	1	$$GET1^DIQ

Package	Total	Caller Graph
Virtual Patient Record	3	VPREVNT VPREVNT1 VPRSDADG
VA FileMan	2	^DDE ITEM

Entry Points

Name	Comments	DBIA/ICR reference
QRY	; -- get visits (all types) ; Query called from GET^DDE, returns DLIST(#)=ien ; Expects context variables DFN, DSTRT, DSTOP, DMAX
ADMQ	; -- Admissions only (visits) ; Query for VPR ADMISSION via Test option
EDPQ	; -- Emergency Dept only (visits) ; Query for VPR EDP LOG via Test option
VST	; -- get info for a VISIT in @VPRVST [ID Action]
STUB(VST)	; -- switch to stub entity for deleted visits
VDEL	; -- old V file Entry Action: I ID["~" D VDEL^VPRSDAV ; Expects ID & FILE ; Returns VPRVST, VPRVFN, VPRVT & resets DTYPE for entity
DEL1	; -- ID Action for Vfile Delete entities, returns VPR0=data
EDP1	; -- get info for single EDP Log record [VST/ID Action] ; Returns EDP0, EDP1, EDP3, VPRV, VPRVST to Entity
VAIP	; -- get admission info & Visit# [ID Action] ; Expects DIEN = #405 ien ~ #9000010 ien ; Validates DFN = #2 ien ; Return VAIP(#)= array of movements ; VPRVST = Visit# ; VPRCA = Current Adm# (or 0) ; DIEN = Movement#
MVTS(ADM)	; -- get movements for an ADMission in DLIST(#)=mvt ien ; Expects DFN
VNUM(ADM)	; -- find Visit# for an admission [expects DFN]
WARDFAC(IEN)	; -- return #4 ien for a Ward Location
SPEC	; -- build DLIST(#)=45.7 iens using VAIP array
VSTR()	; -- build Visit string of Type;date.time[;location]
CPT(VISIT)	; -- Return CPT code of encounter type
VPRV(VISIT)	; -- build DLIST(n)=#200 ien for V Providers
HF1	; -- get info for single HF record [ID Action] ; Expects/updates DIEN = #9000010.23 ien ; Returns VPRVST = #9000010 ien ; VPRVST0 = Visit zero node ; VPRHF array
VTO(VISIT)	; -- determine ToTime for a visit based on type
CKOUT(VISIT)	; -- get Check-out date from Outpt Enc or EDP Log file
LAST(DFN)	; -- return date.time of last visit (last treated)

Name	Field # of Occurrence
$$GET1^DIQ	VTO+10, CKOUT+2
ENCEVENT^PXAPI	VST+20, EDP1+4
VHF^PXPXRM	HF1+5
$$GETOE^SDOE	CKOUT+4
IN5^VADPT	VAIP+13
ADM^VADPT2	ADMQ+7, VST+9
IDT^VPRDVSIT	QRY+5, ADMQ+3, EDPQ+3
$$ZERO^VPRENC	HF1+5
$$VALID^VPRSDA	VST+24, VST+26

FileNo	Call Tags
^SRF - [#130]	GET1^DIQ
^EDP(230 - [#230]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	QRY+9, QRY+12, VST+2, VNUM+5, HF1+6
^AUPNVSIT("AA"	QRY+7, QRY+8, EDPQ+5, EDPQ+6, LAST+3
^AUPNVSIT("AAH"	ADMQ+4, ADMQ+5, VNUM+8
^AUPNVSIT("AET"	VNUM+4
^DDE("B"	VST+10, VST+16, STUB+1, VDEL+4
^DGPM - [#405]	VAIP+10, MVTS+6, MVTS+10, VNUM+2
^DGPM("APCA"	MVTS+4
^DGPM("ATS"	MVTS+8
^DIC(42 - [#42]	VNUM+3, WARDFAC+2
^DPT - [#2]	VAIP+12
^EDP(230 - [#230]	QRY+12, EDPQ+7, VST+14, VST+15, EDP1+2
^SC - [#44]	WARDFAC+3
^SCE("AVSIT"	CKOUT+3
^SRF("AV"	VTO+9
^TMP("PXKENC"	VST+21, EDP1+5, CPT+2, VPRV+2
^XTMP("VPR-"	DEL1+3, DEL1+4

Name	Line Occurrences
$$CKOUT	VTO+6
$$VNUM	VAIP+15
EDP1	VST+18
STUB	VST+3, VST+5
VAIP	VST+12

Name	Field # of Occurrence
^(	CPT+2, VPRV+2
^(1	EDP1+2
^(3	EDP1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	MVTS~, MVTS+3*, MVTS+4, MVTS+5, MVTS+8, MVTS+9, VNUM~, VNUM+2
ADM0	VNUM+1~, VNUM+2*, VNUM+3
ADMDT	VNUM+1~, VNUM+2*, VNUM+4, VNUM+7
BEG	QRY+4~, QRY+5, QRY+6, ADMQ+2~, ADMQ+3, ADMQ+4, EDPQ+2~, EDPQ+3*, EDPQ+4
D	VST+23~, VST+24, VST+25, VST+26
DA	MVTS+2~, MVTS+6, MVTS+7, MVTS+9, MVTS+10, MVTS+11, MVTS+12, MVTS+15, MVTS+16, MVTS+17 , CPT+1~, CPT+2
DATE	MVTS+2~, MVTS+6, MVTS+7, MVTS+14, MVTS+15, MVTS+16
>> DDEOUT	VST+1, STUB+2, EDP1+3, VAIP+11, VAIP+16*
DFN	QRY+7, QRY+8, ADMQ+4, ADMQ+5, EDPQ+5, EDPQ+6, VST+5, VST+6, VAIP+8, VAIP+10* , VAIP+11, VAIP+12, MVTS+4, MVTS+8, VNUM+4, VNUM+8, LAST~, LAST+2, LAST+3
>> DIEN	VST+1, VST+2, VST+3, VST+5, VST+11, VST+14, VST+15, VST+17, VST+20, VST+21 , STUB+3, DEL1+3, DEL1+4, EDP1+2, VAIP+8, VAIP+9, VAIP+10, VAIP+11, VAIP+12, VAIP+14* , VAIP+15, HF1+5, HF1+7*
>> DIENTY	VST+11, VST+17, STUB+3*
>> DIFN	VST+11, VST+17
>> DLIST(	QRY+14, ADMQ+8, EDPQ+8, MVTS+17, SPEC+3, VPRV+4
>> DMAX	QRY+7, ADMQ+4, EDPQ+5
>> DSTOP	QRY+5, ADMQ+3, EDPQ+3
>> DSTRT	QRY+5, ADMQ+3, EDPQ+3
DT	VTO+12, LAST+3
>> DTYPE	VDEL+3, VDEL+4*
EDP	VST+2~, VST+14, VST+15, VST+16!, VST+17
>> EDP0	EDP1+2*, EDP1+3
>> EDP1	EDP1+2*
>> EDP3	EDP1+2*
END	QRY+4~, QRY+5, QRY+7, ADMQ+2~, ADMQ+3, ADMQ+4, EDPQ+2~, EDPQ+3*, EDPQ+5
ENT	VST+9~, VST+10, VST+11, VST+15~, VST+16, VST+17, STUB+1~*, STUB+2, STUB+3
>> FILE	VDEL+3
>> FILTER("sequence"	DEL1+2
>> FILTER("type"	QRY+6
HLOC	VNUM+1~, VNUM+3, VNUM+4, WARDFAC+1~, WARDFAC+2, WARDFAC+3
I	SPEC+1~, SPEC+2, SPEC+3, VPRV+1~, VPRV+2, VPRV+4, VTO+9~*, VTO+10
ID	QRY+4~, QRY+8, QRY+9, QRY+12, QRY+14, ADMQ+2~, ADMQ+5, ADMQ+8, EDPQ+2~, EDPQ+7* , EDPQ+8, VDEL+3*
IDT	QRY+4~, QRY+6, QRY+7, QRY+8, ADMQ+2~, ADMQ+4, ADMQ+5, ADMQ+6, EDPQ+2~, EDPQ+4 , EDPQ+5, EDPQ+6, VNUM+7~, VNUM+8, LAST+1~, LAST+3*
IDX	MVTS+2~, MVTS+4, MVTS+5, MVTS+6, MVTS+8, MVTS+9
IEN	WARDFAC~, WARDFAC+2, CKOUT+1~, CKOUT+3*, CKOUT+4
INPT	VTO+1~, VTO+2*, VTO+4
MVTS	MVTS+2~
MVTS(	MVTS+7, MVTS+11, MVTS+12*, MVTS+14, MVTS+15, MVTS+16
N	MVTS+2~, MVTS+14, MVTS+17
OK	QRY+4~, QRY+10, QRY+11, QRY+13
PHYMVT	MVTS+2~, MVTS+10*, MVTS+11
PX0A	VST+2~*, VST+3, VST+5, VST+6, VST+8, VST+9
R	VPRV+1~, VPRV+3*, VPRV+4
SEQ	DEL1+1~, DEL1+2*, DEL1+3, DEL1+4
SPEC	SPEC+1~
SPEC(	SPEC+2*, SPEC+3
TS	MVTS+2~, MVTS+16*, MVTS+17
TYPE	QRY+4~, QRY+6, QRY+10, QRY+13, VTO+1~, VTO+2, VTO+4, VTO+6, VTO+8, VTO+12
U	QRY+9, QRY+12, VST+5, VST+6, VST+8, VST+24, VST+25, VST+26, DEL1+4, EDP1+3 , VAIP+10, MVTS+10, VNUM+3, VNUM+5, WARDFAC+3, VSTR+3, CPT+3, VPRV+3, VPRV+4, VTO+2 , CKOUT+4
VADMVT	ADMQ+2~, ADMQ+7, ADMQ+8, VST+2~, VST+8, VST+9, VST+10!, VST+11, VAIP+7~
VAERR	ADMQ+2~, VAIP+7~
VAINDT	ADMQ+2~, ADMQ+6, VST+9~, VAIP+7!
VAIP	VAIP+7!
VAIP(	SPEC+2
VAIP("E"	VAIP+12*
VAIP(13	VAIP+14, VSTR+2
VIEN	VNUM+1~, VNUM+3, VNUM+4, VNUM+5
VISIT	CPT~, CPT+2, VPRV~, VPRV+2, VTO~, VTO+1, VTO+6, VTO+9, CKOUT~, CKOUT+1 , CKOUT+3
>> VPR0	DEL1+1, DEL1+3, DEL1+4*
>> VPRCA	VAIP+12*
>> VPREDP	CKOUT+2
VPRHF	HF1+5!, HF1+7*
VPRHF("VISIT"	HF1+6
VPRN	QRY+4~, QRY+6, QRY+7, QRY+14, ADMQ+2~, ADMQ+4, ADMQ+8, EDPQ+2~, EDPQ+4, EDPQ+5 , EDPQ+8
>> VPRV	EDP1+3*, EDP1+4, EDP1+5
>> VPRVFN	VDEL+3*
>> VPRVST	VST+21, VST+23, VST+24, VST+25, VST+26, VDEL+3, EDP1+5, VAIP+9, VAIP+14, VAIP+15 , VAIP+16, VSTR+3, HF1+6*, VTO+2, VTO+12
>> VPRVST0	HF1+6*
>> VPRVT	VDEL+3*
VST	EDPQ+2~, EDPQ+6, EDPQ+7, STUB~, STUB+3, DEL1+1~, DEL1+4
X	QRY+11~, QRY+12, QRY+13, SPEC+1~, SPEC+2, SPEC+3, VSTR+3, CPT+1~, CPT+3, VPRV+1~ , VPRV+2, VPRV+3, VPRV+4, CKOUT+1~, CKOUT+3, CKOUT+4, LAST+1~, LAST+3*, LAST+4
X0	MVTS+2~, MVTS+10, MVTS+11, MVTS+12, CPT+1~, CPT+2, CPT+3
Y	VNUM+1~, VNUM+3, VNUM+4, VNUM+5, VNUM+6, VNUM+8, VNUM+9, WARDFAC+1~, WARDFAC+2, WARDFAC+3* , WARDFAC+4, VSTR+1~, VSTR+2, VSTR+3, VSTR+4, CPT+1~, CPT+2, CPT+3, CPT+4, VTO+1~ , VTO+4, VTO+6, VTO+8, VTO+10, VTO+12, VTO+13, CKOUT+1~, CKOUT+2, CKOUT+3, CKOUT+4 , CKOUT+5, LAST+1~, LAST+4, LAST+5

Customize PDF page

Package: Virtual Patient Record

Routine: VPRSDAV

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: