Routine: VPRDVSIT

Package	Total	Call Graph
Registration	3	RPC^DGPTFAPI (IN5,INP)^VADPT ADM^VADPT2
VA FileMan	3	FIND^DIC $$EXTERNAL^DILFD $$GET1^DIQ
Virtual Patient Record	2	($$ESC,$$FAC,$$PROVSPC,$$PROVTAGS)^VPRD ($$INFO,$$TEXT)^VPRDTIU
CPT HCPCS Codes	1	$$CPT^ICPTCOD
DRG Grouper	1	($$CODEC,$$CSI,$$ICDDX,$$SAB,$$VLTD,$$VSTD)^ICDEX
Kernel	1	($$NS,$$STA)^XUAF4
PCE Patient Care Encounter	1	ENCEVENT^PXAPI
Scheduling	1	$$GETOE^SDOE

Package	Total	Caller Graph
Virtual Patient Record	6	VPRDJ04 VPRDJ04A VPRDSDAM VPRHSX2 VPRP20 VPRSDAV
VA FileMan	2	^DDE ITEM

Entry Points

Name	Comments	DBIA/ICR reference
EN(DFN,BEG,END,MAX,ID)	; -- find patient's visits and appointments
ENQ	; end
ENAA(DFN,BEG,END,MAX,ID)	; -- find patient's visits and appointments [AA]
IDT	; -- invert BEG and END dates for visit format: ; IDT=(9999999-$P(VDT,"."))_"."_$P(VDT,".",2)
EN1(IEN,VST)	; -- return a visit in VST("attribute")=value
TIU(VISIT)	; -- add notes to VST("document")
POV(VISIT,VDT)	; -- return the primary Purpose of Visit as ICD^ProviderNarrative
ICD(IEN,DATE)	; -- return code^description^system for ICD code, or "^^" if error
CPT(VISIT)	; -- Return CPT code of encounter type
AMIS(X)	; -- return the AMIS code^name of Credit Stop X
CATG(X)	; -- Return name of visit Service Category code X
SERV(FTS)	; -- Return #42.4 Service for a Facility Treating Specialty
ADMVT(VAINDT)	; -- return movement# for related admission
ADM(IEN,DATE,ADM)	; -- return an admission in ADM("attribute")=value
INPT	; -- return current admission in ADM("attribute")=value [from ADM]
PTF(DFN,PTF,DATE)	; -- return ICD code^description^system for a PTF record
ENC(IEN,ENC)	; -- return an encounter in ENC("attribute")=value
XML(VISIT)	; -- Return patient visit as XML
LOOP()	; -- build sub-items string from NAMES and X
ADD(X)	; -- Add a line @VPR@(n)=X

Name	Field # of Occurrence
RPC^DGPTFAPI	PTF+2
FIND^DIC	TIU+2
$$EXTERNAL^DILFD	EN1+33, POV+4, ENC+11
$$GET1^DIQ	SERV+2, ENC+8
$$CODEC^ICDEX	ICD+3
$$CSI^ICDEX	ICD+6
$$ICDDX^ICDEX	PTF+4
$$SAB^ICDEX	ICD+6, PTF+6
$$VLTD^ICDEX	ICD+3
$$VSTD^ICDEX	ICD+5
$$CPT^ICPTCOD	EN1+15, EN1+30, ADM+19, INPT+15
ENCEVENT^PXAPI	EN1+4
$$GETOE^SDOE	ENC+3
IN5^VADPT	ADM+5
INP^VADPT	INPT+1
ADM^VADPT2	ADMVT+2, ADM+3
$$ESC^VPRD	XML+16, XML+21, LOOP+2
$$FAC^VPRD	EN1+11, ADM+17, INPT+13, ENC+10
$$PROVSPC^VPRD	EN1+27, ADM+9, ADM+10, INPT+5, INPT+6
$$PROVTAGS^VPRD	XML+9
$$INFO^VPRDTIU	TIU+6
$$TEXT^VPRDTIU	TIU+8
$$NS^XUAF4	EN1+10
$$STA^XUAF4	EN1+10

FileNo	Call Tags
^SCE - [#409.68]	EXTERNAL^DILFD
^SC - [#44]	GET1^DIQ
^DIC(45.7 - [#45.7]	GET1^DIQ
^TIU(8925 - [#8925]	FIND^DIC
^AUPNVPOV - [#9000010.07]	EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT("AA"	ENAA+6, ENAA+7
^AUPNVSIT("AET"	EN+12, EN+13, EN+14
^DIC(40.7 - [#40.7]	AMIS+2
^DIC(42 - [#42]	ADM+15, INPT+11
^DPT - [#2]	ADM+4
^SC - [#44]	EN1+16, EN1+20, ADM+16, INPT+12, ENC+6
^TMP("PXKENC"	EN1+5, EN1+26, EN1+29, EN1+32, EN1+36!, POV+2, CPT+2
^TMP("VPRTEXT"	ENQ+1!, EN1+2!
^VA(200 - [#200]	EN1+27

Name	Line Occurrences
$$ADMVT	EN1+18
$$AMIS	EN1+19, EN1+21, EN1+23
$$CATG	EN1+12, EN1+16, ADM+19, INPT+15, ENC+13, ENC+14
$$CPT	EN1+15, ADM+19, INPT+15
$$ICD	EN1+33, POV+3
$$LOOP	XML+12, XML+22
$$POV	EN1+24, ADM+13, INPT+9
$$PTF	ADM+13, INPT+9
$$SERV	EN1+22, ADM+12, INPT+8, ENC+9
ADD	XML+2, XML+3, XML+5, XML+13, XML+14, XML+15, XML+16, XML+17, XML+18, XML+23
ADM	EN1+7
EN1	EN+6, EN+15, ENAA+4, ENAA+8
ENQ	EN+6
IDT	ENAA+5
INPT	ADM+4
TIU	EN1+35, ADM+24, INPT+17
XML	EN+6, EN+16, ENAA+4, ENAA+9

Name	Field # of Occurrence
^(	EN1+26, EN1+29, EN1+32, POV+2, CPT+2
^(150	EN1+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	ADM~, ADM+1!
ADM("admission"	ADM+6, INPT+2
ADM("arrivalDateTime"	ADM+8, INPT+4
ADM("dateTime"	ADM+8, INPT+4
ADM("departureDateTime"	ADM+21*
ADM("facility"	ADM+17, INPT+13
ADM("id"	ADM+6, INPT+2
ADM("location"	ADM+16, INPT+12
ADM("patientClass"	ADM+6, INPT+2
ADM("provider"	ADM+9, ADM+10, INPT+5, INPT+6
ADM("ptf"	ADM+12, INPT+8
ADM("reason"	ADM+14, INPT+10
ADM("roomBed"	ADM+17, INPT+13
ADM("service"	ADM+12, INPT+8
ADM("serviceCategory"	ADM+18, INPT+14
ADM("specialty"	ADM+11, INPT+7
ADM("type"	ADM+19, INPT+15
ADM("visitString"	ADM+23*
ATT	XML+1~, XML+3*, XML+4, XML+5, XML+6, XML+7, XML+8, XML+9, XML+10, XML+11 , XML+12, XML+13, XML+17, XML+18, XML+19, XML+20, XML+21, XML+22
BEG	EN~, EN+3, EN+12, ENAA~, ENAA+3, ENAA+6, IDT+2, IDT+3*
CATG	EN1+1~, EN1+9*, EN1+12, EN1+13, EN1+14, EN1+16
CNT	TIU+1~, TIU+3, TIU+7, TIU+8
DA	ENAA+1~, ENAA+7, ENAA+8, EN1+1~, EN1+26, EN1+27, EN1+29, EN1+30, EN1+32, EN1+33 , TIU+1~, TIU+5, TIU+6, TIU+8, POV+1~, POV+2, CPT+1~, CPT+2*
DATE	EN1+1~, EN1+8, EN1+13, EN1+18, EN1+24, EN1+33, ICD~, ICD+2, ICD+3, ICD+5 , ADM~, ADM+2, ADM+3, ADM+8, ADM+13, ADM+23, INPT+4, INPT+9, PTF~, PTF+3 , PTF+4, ENC+1~, ENC+4*, ENC+15
DFN	EN~, EN+2, EN+12, EN+13, EN+14, ENAA~, ENAA+2, ENAA+6, ENAA+7, ADM+4 , ADM+13, INPT+9, PTF~
DT	ICD+2, PTF+3
ENC	ENC~, ENC+1!
ENC("dateTime"	ENC+4*
ENC("facility"	ENC+10*
ENC("id"	ENC+3*
ENC("location"	ENC+7*
ENC("patientClass"	ENC+12*
ENC("service"	ENC+9*
ENC("serviceCategory"	ENC+14*
ENC("type"	ENC+13*
ENC("visitString"	ENC+15*
END	EN~, EN+3, EN+9, EN+12, ENAA~, ENAA+3, ENAA+6, IDT+3, IDT+4
FAC	EN1+1~, EN1+9*, EN1+10, EN1+11
FTS	SERV~, SERV+1*, SERV+2
HLOC	ADM+1~, ADM+15, ADM+16, ADM+17, ADM+23, INPT+11, INPT+12, INPT+13, ENC+1~, ENC+5* , ENC+6*, ENC+7, ENC+8, ENC+10, ENC+13, ENC+15
I	TIU+1~, TIU+3, TIU+4, TIU+5, ICD+1~, ADM+1~, ADM+8, ADM+9, ADM+10, INPT+4 , INPT+5, INPT+6, XML+1~, XML+6*, XML+7, XML+13
ICD	POV+1~, POV+3, POV+4, ADM+1~, ADM+13, ADM+14, INPT+9*, INPT+10
ID	EN~, EN+6, ENAA~, ENAA+4
IDT	ENAA+1~, ENAA+6*, ENAA+7
IEN	EN1~, EN1+3, EN1+4, EN1+5, EN1+7, EN1+8, EN1+15, EN1+24, EN1+26, EN1+29 , EN1+32, EN1+35, EN1+36, ICD~, ICD+2, ICD+3, ICD+5, ICD+6, ADM~, ADM+2* , ADM+6, ADM+13, ADM+19, ADM+24, INPT+2, INPT+9, INPT+15, INPT+17, ENC~, ENC+2* , ENC+3
INPT	EN1+1~, EN1+14*, EN1+16, EN1+17, EN1+18
J	XML+1~, XML+16*
L0	EN1+20~*, EN1+21, EN1+22, EN1+23
LOC	EN1+1~, EN1+9*, EN1+11, EN1+13, EN1+16, EN1+19, EN1+20
LT	TIU+1~
MAX	EN~, EN+3, EN+12, ENAA~, ENAA+3, ENAA+6
N	ICD+1~
NAMES	XML+1~, XML+7, XML+8, XML+9, XML+10, XML+11, XML+20, LOOP+2
NT	TIU+1~
P	LOOP+1~, LOOP+2*
PTF	PTF~, PTF+2
STR	LOOP+1~, LOOP+2, LOOP+3
STS	ENC+1~, ENC+11*, ENC+12
TAG	LOOP+1~, LOOP+2*
TYPE	ENC+1~, ENC+12*, ENC+13, ENC+14, ENC+15
U	EN1+6, EN1+7, EN1+9, EN1+10, EN1+12, EN1+14, EN1+15, EN1+16, EN1+19, EN1+21 , EN1+22, EN1+23, EN1+27, EN1+30, EN1+33, POV+2, POV+3, POV+4, ICD+4, ICD+5 , ICD+6, CPT+3, AMIS+2, ADM+9, ADM+10, ADM+11, ADM+14, ADM+16, ADM+17, ADM+19 , INPT+5, INPT+6, INPT+7, INPT+10, INPT+12, INPT+15, PTF+3, PTF+5, PTF+6, ENC+5 , ENC+6, ENC+7, ENC+11, ENC+13, ENC+14, LOOP+2
VADMVT	ADMVT+1~, ADMVT+3, ADM+1~, ADM+3, ADM+4, ADM+5
VAERR	ADMVT+1~, ADM+1~
VAIN	ADM+1~
VAIN(1	INPT+1, INPT+2
VAIN(10	INPT+8, INPT+9
VAIN(11	INPT+6
VAIN(2	INPT+5
VAIN(3	INPT+7, INPT+8
VAIN(4	INPT+11
VAIN(5	INPT+13
VAIN(7	INPT+4
VAIN(9	INPT+10
VAINDT	ADMVT~, ADM+1~, ADM+3*, INPT+1!
VAIP	ADM+1~
VAIP("E"	ADM+5*
VAIP(1	ADM+5
VAIP(12	ADM+12, ADM+13
VAIP(13	ADM+6, ADM+8
VAIP(17	ADM+20, ADM+21
VAIP(18	ADM+10
VAIP(5	ADM+15
VAIP(6	ADM+17
VAIP(7	ADM+9
VAIP(8	ADM+11, ADM+12
VAIP(9	ADM+14
VDT	POV~, POV+3
VISIT	TIU~, TIU+2, POV~, POV+2, CPT~, CPT+2, XML~
VISIT(	XML+3, XML+4, XML+6, XML+7, XML+13, XML+19
>> VPR	ADD+2
VPRCNT	EN+1~, EN+10, EN+12, EN+16, ENAA+1~, ENAA+5, ENAA+6, ENAA+9
VPRDA	EN+1~, EN+14*, EN+15
VPRDT	EN+1~, EN+12*, EN+13, EN+14
>> VPRI	ADD+1*, ADD+2
VPRITM	EN+1~, EN+6, EN+15!, EN+16, ENAA+1~, ENAA+4, ENAA+8!, ENAA+9
VPRLOC	EN+1~, EN+13*, EN+14
VPRPTF	PTF+1~, PTF+2
VPRPTF(0	PTF+2
VPRPTF(1	PTF+3
>> VPRTEXT	TIU+8
>> VPRTOTL	XML+2*
VPRX	TIU+1~, ICD+1~
VPRX("DILIST"	TIU+4, TIU+5
VPRY	TIU+1~
VST	EN1~, EN1+2!, EN1+7
VST("admission"	EN1+18*
VST("cpt"	EN1+30*
VST("creditStopCode"	EN1+23*
VST("dateTime"	EN1+8*
VST("document"	TIU+7, TIU+8
VST("facility"	EN1+10, EN1+11
VST("icd"	EN1+33*
VST("id"	EN1+8*
VST("location"	EN1+22*
VST("patientClass"	EN1+17*
VST("provider"	EN1+27*
VST("reason"	EN1+24*
VST("service"	EN1+22*
VST("serviceCategory"	EN1+12*
VST("stopCode"	EN1+19, EN1+21
VST("type"	EN1+15, EN1+16
VST("visitString"	EN1+13*
X	IDT+2~, IDT+4, EN1+1~, EN1+15, EN1+16, EN1+19, EN1+21, EN1+23, TIU+1~, POV+1~ , POV+3, POV+4, ICD+1~, ICD+3, ICD+4, ICD+6, CPT+1~, CPT+3, AMIS~, AMIS+2 , CATG~, CATG+2, CATG+3, CATG+4, CATG+5, CATG+6, CATG+7, CATG+8, CATG+9, CATG+10 , CATG+11, CATG+12, CATG+13, ADM+9, ADM+10, ADM+12, ADM+19, INPT+5, INPT+6, INPT+8* , INPT+15, ENC+1~, ENC+8, ENC+9, ENC+12, XML+1~, XML+7, XML+13, XML+16, XML+19 , XML+21, XML+22, LOOP+2, ADD~, ADD+2
X0	EN1+1~, EN1+5, EN1+7, EN1+8, EN1+9, EN1+19, EN1+26, EN1+27, EN1+29, EN1+30 , EN1+32, EN1+33, POV+1~, POV+2, POV+3, ICD+1~, CPT+1~, CPT+2, CPT+3, AMIS+1~ , AMIS+2, PTF+1~, PTF+4, PTF+5, PTF+6, ENC+1~, ENC+3*, ENC+4, ENC+5, ENC+11
X15	EN1+1~, EN1+5*, EN1+6, EN1+14
Y	TIU+1~, TIU+3, TIU+6, TIU+7, POV+1~, POV+2, POV+4, POV+5, ICD+1~, ICD+3* , ICD+4, ICD+5, ICD+6, ICD+7, CPT+1~, CPT+2, CPT+3, CPT+4, AMIS+1~, AMIS+2* , AMIS+3, CATG+1~, CATG+2, CATG+3, CATG+4, CATG+5, CATG+6, CATG+7, CATG+8, CATG+9* , CATG+10, CATG+11, CATG+12, CATG+13, CATG+14, SERV+1~, SERV+2, SERV+3, PTF+1~, PTF+3* , PTF+4, PTF+5, PTF+6, PTF+7, ENC+1~, XML+1~, XML+3, XML+4, XML+12, XML+13* , XML+14, XML+15, XML+16, XML+19, XML+21, XML+22

Customize PDF page

Package: Virtual Patient Record

Routine: VPRDVSIT

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: