Routine: VPRSDA

Package	Total	Call Graph
General Medical Record - Vitals	3	EN1^GMRVUT0 $$FIELD^GMVGETVT GETREC^GMVUTL
VA FileMan	3	^%DT ($$EXTERNAL,$$FLDNUM)^DILFD ($$GET1,GETS)^DIQ
Enterprise Terminology Services	2	($$GETNAME,GETNAME)^ETSLNC ($$CSDATA,CSDATA)^ETSRXN
Scheduling	2	($$PRPT,$$PRTM)^SCAPMC $$OUTPTPR^SDUTL3
Virtual Patient Record	2	$$RANGE^VPRDGMV (ADVDIR,CPROCS,PRF)^VPRSDAQ
CPT HCPCS Codes	1	($$CPT,$$CPTD)^ICPTCOD
Consult Request Tracking	1	DOCLIST^GMRCGUIB
DRG Grouper	1	($$ICDD,$$SNAM,$$SYS)^ICDEX
Functional Independence	1	(GC,PRM)^RMIMRP
Kernel	1	NAMECOMP^XLFNAME
Lexicon Utility	1	$$CODE^LEXTRAN
Text Integration Utility	1	EXTRACT^TIULQ

Package	Total	Caller Graph
Virtual Patient Record	6	VPRP24 VPRSDAL VPRSDAP VPRSDAT VPRSDAV VPRSR

Entry Points

Name	Comments	DBIA/ICR reference
INTDATE(X)	; -- Return internal form of date X
DATE(X,DTO)	; -- return FM date X as SDA Timestamp
VALID(X)	; -- returns 1 or 0, if valid FM date
NAMECOMP(NAME)	; -- return name as string of component pieces ; NAME -> FAMILY^GIVEN^MIDDLE^SUFFIX
WP(ORIFN,ID)	; -- return a WP value from an order response as a string
LASTACT(ORIFN)	; -- return DA of current or last order action
CODED	; -- ck Code Table ID for internal^external format
CODE(IEN,FILE,CSYS,CDT)	; -- find CSYS code for IEN in FILE ; CSYS can be string of abbreviations to look for, in order
DESC(CODE)	; -- called from CODE, to return coding system text ; Expects all the variables used in CODE()
CPT(IEN,DATE)	; -- return code^description^CPT-4 for #81 IEN
HLOC(X)	; -- return Hosp Loc #44 ien from location name X
COUNTY(ST,CTY)	; -- return ien^name for a STate and CounTY
CONSNAME(IEN)	; -- return display name using fields ; Request Type (#13), To Service (#1) & Procedure/Request Type (#4)
PROVDX(IEN)	; -- return full Consult ProvDx string, or null
PROBCMT(IEN)	; -- return list of comments in ; DLIST(#) = id ^ date ^ user ^ type ^ facility ^ text
SCTTEXT(CODE,IEN)	; -- get Preferred Text for SCT Code
AD(ID)	; -- get info for one Adv Directive
LRTIU(IDT,SUB)	; -- return TIU ien of lab report
ORDG(DG)	; -- return ien^name^VA100.98 for a DG abbreviation
CP1(IEN)	; -- get MD nodes for procedure [ID Action] ; VPRCP = ^TMP("MDHSP",$J,I) ; VPRCN = ^GMR(123,consult,0) ; VPRTIU(field#,"I") = TIU data field
VIT1(IEN)	; -- get info for one Vital measurement, returns VPRGMV=^(0)
VITQUAL	; -- build DLIST(#)=Qualifiers [code^name]
VITCODE(IEN,SFN)	; -- return [first] code for vital type ; SubFileNumber = 120.518 for Vital Type ; 120.522 for Vital Qualifier
FIM1(IEN)	; -- get info for one set of measurements
FIMS	; -- get DLIST(#)=name^value of each score ; Returns VPRFIMS = Assessment type(s) for ProblemDetail
TOTAL(NODE)	; -- Return total of scores, or "" if incomplete
PRF1(ID)	; -- set up one patient record flag assignment [moved to VPRSDAF] ; Returns VPRF1("NAME")=VALUE
PCMM	; -- get DLIST(#)=ien^role of PCP, team members ; Expects DFN, VPRTEAM = ien^name of PCTeam
PCMMT	; -- enter here for just the team members

Name	Field # of Occurrence
^%DT	INTDATE+2, VALID+3, CP1+11
$$EXTERNAL^DILFD	CODED+4
$$FLDNUM^DILFD	CODE+4
$$GET1^DIQ	DESC+12, COUNTY+2, CONSNAME+5, LRTIU+3, CP1+5, PCMMT+8
GETS^DIQ	CODE+5, VITCODE+4
$$GETNAME^ETSLNC	DESC+10
GETNAME^ETSLNC	DESC+9
$$CSDATA^ETSRXN	DESC+7
CSDATA^ETSRXN	DESC+6
DOCLIST^GMRCGUIB	CP1+14
EN1^GMRVUT0	VIT1+10
$$FIELD^GMVGETVT	VIT1+4
GETREC^GMVUTL	VIT1+2
$$ICDD^ICDEX	PROVDX+7
$$SNAM^ICDEX	PROVDX+8
$$SYS^ICDEX	PROVDX+8
$$CPT^ICPTCOD	CPT+3
$$CPTD^ICPTCOD	CPT+5
$$CODE^LEXTRAN	DESC+4, SCTTEXT+3
GC^RMIMRP	FIM1+2
PRM^RMIMRP	FIM1+1
$$PRPT^SCAPMC	PCMM+4
$$PRTM^SCAPMC	PCMMT+3
$$OUTPTPR^SDUTL3	PCMM+2
EXTRACT^TIULQ	AD+2, CP1+16, FIM1+5
$$RANGE^VPRDGMV	VIT1+14
ADVDIR^VPRSDAQ	AD+6
CPROCS^VPRSDAQ	CP1+6
PRF^VPRSDAQ	PRF1+5
NAMECOMP^XLFNAME	NAMECOMP+2

FileNo	Call Tags
^ORD(101 - [#101]	GET1^DIQ
^SCTM(404.57 - [#404.57]	GET1^DIQ
5.01	GET1^DIQ
^MDD(702 - [#702]	GET1^DIQ
^TIU(8925 - [#8925]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	PROBCMT+3, PROBCMT+4, SCTTEXT+2
^LR - [#63]	LRTIU+3
^OR(100 - [#100]	WP+2, WP+3, LASTACT+2, LASTACT+3
^ORD(100.98 - [#100.98]	ORDG+1, ORDG+2
^SC("B"	HLOC+2
^TMP("MDHSP"	CP1+4, CP1+7
^TMP("TIUPPCV"	AD+4
^TMP("VPRGMV"	VIT1+6
^UTILITY($J	VIT1+11, VIT1+13!

Name	Line Occurrences
$$DESC	CODE+13
$$TOTAL	FIMS+8
$$VALID	DATE+5

Name	Field # of Occurrence
^(	WP+3, PROBCMT+3, PROBCMT+4, LRTIU+3, VIT1+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	INTDATE+1~, INTDATE+2, VALID+1~, CP1+10~, CP1+11*
ALL	PCMM+2~, PCMM+4*
BMI	VIT1+8~, VIT1+11*, VIT1+12
CDT	CODE~, CODE+3*, DESC+4, DESC+7
CODE	DESC~, DESC+4, DESC+7, DESC+10, SCTTEXT~, SCTTEXT+3
CSYS	CODE~, CODE+7
CTY	COUNTY~, COUNTY+2, COUNTY+3
D	DATE+1~, DATE+3*, DATE+5, DATE+6
DA	WP+1~, WP+2*, WP+3
>> DATA	PROVDX+2*
DATE	CPT~, CPT+2*, CPT+3, CPT+5
>> DDEOUT	PROVDX+3, PROVDX+4, CP1+8, VIT1+1, VIT1+3, FIM1+1, PRF1+3*
DFN	AD+3, AD+4, CP1+5, VIT1+8~, VIT1+9, PRF1+2, PRF1+3, PCMM+2, PCMM+4
DG	ORDG~, ORDG+1
DLIST	AD+5~, CP1+6~, PRF1+5~
DLIST(	PROBCMT+7, AD+7, VITQUAL+3, FIMS+12, FIMS+13, FIMS+14, PCMMT+8
DLIST("A"	PCMMT+4
DLIST(1	PCMM+3*
DT	CODE+3, CPT+2, PROVDX+5, SCTTEXT+2
DTO	DATE~, DATE+9
FAC	PROBCMT+2~, PROBCMT+3*, PROBCMT+6
>> FIELD	CODED+3, CODED+4
FILE	CODED+3, CODED+4, CODE~, CODE+4, CODE+5, DESC+12
FLD	CODE+2~, CODE+4*, CODE+5
GMPDT	SCTTEXT+1~, SCTTEXT+2*, SCTTEXT+3
GMRVSTR	VIT1+8~, VIT1+9*
GMRVSTR(0	VIT1+9*
I	DATE+8, NAMECOMP+3~, NAMECOMP+4, WP+1~, WP+3, CODE+2~, CODE+11, CODE+12, CPT+1~, CPT+7* , CPT+8, PROBCMT+2~, PROBCMT+3, PROBCMT+4, PROBCMT+7, AD+5~, AD+7, LRTIU+1~, LRTIU+3, CP1+7* , VITQUAL+1~, VITQUAL+3, FIMS+2~, FIMS+7, FIMS+8, FIMS+9, TOTAL+1~, TOTAL+2, PRF1+6~, PRF1+7
ID	WP~, WP+2, CODED+1, CODED+2, CODED+4, CODED+6, AD~, AD+1, AD+2, AD+3 , AD+7, AD+8, PRF1~, PRF1+2, PRF1+3, PRF1+6
IDT	LRTIU~, LRTIU+1, LRTIU+2, LRTIU+3, VIT1+8~, VIT1+10, VIT1+11
IEN	CODE~, CODE+5, DESC+12, CPT~, CPT+2, CPT+3, CONSNAME~, PROVDX~, PROBCMT~, PROBCMT+3 , PROBCMT+4, PROBCMT+7, SCTTEXT~, SCTTEXT+2, LRTIU+1~, LRTIU+3, CP1~, CP1+5, CP1+7, VIT1~ , VIT1+1*, VIT1+2, VIT1+6, VIT1+11, VITCODE~, VITCODE+4, FIM1~, FIM1+2
IENS	CODE+2~, CODE+9, CODE+10, VITCODE+3~, VITCODE+5, VITCODE+6
J	PROBCMT+2~, PROBCMT+4, PROBCMT+7, FIMS+2~, FIMS+13
LEX	DESC+2~, DESC+7, DESC+10, SCTTEXT+1~
LEX("LEX"	DESC+8
LEX("LONGNAME"	DESC+11
LEX("P"	DESC+5, SCTTEXT+4
LEXY	SCTTEXT+1~, SCTTEXT+3*, SCTTEXT+4
>> LRDFN	LRTIU+3
N	CPT+1~, CPT+5, CPT+6, PROBCMT+2~, PROBCMT+7, FIMS+2~, FIMS+3, FIMS+12, FIMS+13, FIMS+14*
NAME	NAMECOMP~, NAMECOMP+2
NAME(	NAMECOMP+4
NAME("FAMILY"	NAMECOMP+3
NAMES	CODE+2~, CODE+8, CODE+10, CODE+13, FIMS+2~, FIMS+4, FIMS+5, FIMS+6, FIMS+13
NM	CODED+2~, CODED+5, CODED+6
NODE	TOTAL~, TOTAL+2
NOTE	FIM1+4~*, FIM1+5, FIM1+6
ORIFN	WP~, WP+2, WP+3, LASTACT~, LASTACT+1*, LASTACT+2, LASTACT+3
PCP	PCMM+2~*, PCMM+3, PCMMT+5
PRV	PCMMT+1~, PCMMT+5*, PCMMT+6, PCMMT+7, PCMMT+8
QUALS	VITQUAL+1~, VITQUAL+2*, VITQUAL+3
ROLE	PCMMT+1~, PCMMT+6*, PCMMT+7, PCMMT+8
S	CODE+2~, CODE+7*
SCORES	FIMS+2~, FIMS+8*, FIMS+13
SFN	CODE+2~, CODE+6*, CODE+9, CODE+10, CODE+11, VITCODE~, VITCODE+4, VITCODE+5, VITCODE+6
SFN1	CODE+2~, CODE+11*, CODE+12
ST	COUNTY~, COUNTY+2
SUB	LRTIU~, LRTIU+1*, LRTIU+2, LRTIU+3
SUM	FIMS+2~, FIMS+8, FIMS+14, TOTAL+1~, TOTAL+2, TOTAL+3
SYS	CODE+2~, CODE+7*, CODE+8, DESC+3, DESC+6, DESC+9
T	DATE+1~, DATE+3, DATE+12, DATE+13, DATE+14, DATE+15, DATE+16, DATE+17
TYPE	FIMS+2~, FIMS+9*, FIMS+10, FIMS+12
U	NAMECOMP+4, LASTACT+2, CODED+6, CODE+7, CODE+13, DESC+8, CPT+4, CPT+5, CPT+9, COUNTY+3 , CONSNAME+3, CONSNAME+4, CONSNAME+5, CONSNAME+6, CONSNAME+7, CONSNAME+8, PROVDX+3, PROVDX+4, PROVDX+5, PROVDX+6 , PROVDX+7, PROVDX+8, PROBCMT+5, PROBCMT+6, PROBCMT+7, SCTTEXT+2, LRTIU+3, ORDG+2, CP1+11, CP1+13 , CP1+15, VIT1+4, VIT1+6, VIT1+9, VIT1+11, VIT1+12, VITQUAL+3, FIM1+4, FIMS+13, TOTAL+2 , PCMMT+8
>> VPRADV	AD+8*
>> VPRANGE	VIT1+14*
VPRC	CODE+2~, VITCODE+3~
VPRC(	CODE+9, CODE+10, CODE+11, CODE+12, VITCODE+5, VITCODE+6
VPRC(0	CODE+6
>> VPRCN	CP1+14*
>> VPRCONS(	PROVDX+2
>> VPRCONS(0	CONSNAME+2, CONSNAME+6*
>> VPRCONS(30	PROVDX+2
>> VPRCP	CP1+7, CP1+8, CP1+11, CP1+13, CP1+15
VPRD	CP1+10~, CP1+13!, CP1+14, CP1+15!
VPRD(	CP1+17
VPRD(0	CP1+14
VPRD(50	CP1+14
VPRDX	PROVDX+1~, PROVDX+7
VPRDX(1	PROVDX+8
>> VPRF	PRF1+4
>> VPRF(	PRF1+7
>> VPRF("IDX"	PRF1+6
VPRF1	PRF1+4!, PRF1+7*
>> VPRFIMS	FIMS+3, FIMS+10, FIMS+15*
>> VPRGMV	VIT1+3, VIT1+4, VIT1+6, VIT1+9, VIT1+10, VIT1+12*
>> VPRM	FIM1+2
>> VPRM(	FIMS+7, FIMS+8
>> VPRM("TIU"	FIM1+6*
>> VPRM(1	FIM1+4
VPRN	PCMMT+1~, PCMMT+4, PCMMT+8
>> VPRPTP("SCPR"	PCMMT+7
>> VPRSITE	FIM1+1
>> VPRSITE(1	FIM1+1
>> VPRTEAM	PCMMT+2, PCMMT+3
VPRTIU	AD+1!, CP1+17*, FIM1+4!
VPRTIU(	AD+3, FIM1+6
VPRTM	PCMMT+1~
VPRTM("SCPR"	PCMMT+5, PCMMT+6
>> VPRTYPE	VIT1+4*, VIT1+5, VIT1+9, VIT1+11, VIT1+14
>> VPRV	VIT1+2
>> VPRV(0	VIT1+3
>> VPRV(5	VITQUAL+2
VPRX	CPT+1~, CONSNAME+2~, CONSNAME+3, CONSNAME+4, CONSNAME+5, CONSNAME+7, CONSNAME+8
VPRX(	CPT+8
VPRX(1	CPT+6, CPT+7
X	INTDATE~, DATE~, DATE+2, DATE+3, VALID~, VALID+1, VALID+2, WP+1~, WP+3, WP+4 , WP+5, WP+6, CODED+2~, CODED+4, CODED+5, CODE+2~, CODE+10, DESC+2~, DESC+4, DESC+5 , DESC+7, DESC+8, DESC+10, DESC+11, CPT+1~, CPT+7, CPT+8, CPT+9, HLOC~, HLOC+2 , PROVDX+1~, PROVDX+2, PROVDX+3, PROVDX+4, PROVDX+5, PROVDX+6, PROVDX+7, PROVDX+8, PROBCMT+2~, PROBCMT+4* , PROBCMT+5, PROBCMT+6, AD+5~, AD+7, LRTIU+1~, LRTIU+3, ORDG+1~, ORDG+2, CP1+10~, CP1+11 , CP1+13, CP1+14, CP1+15, CP1+16, CP1+17, VITQUAL+1~, VITQUAL+3, FIMS+2~, FIMS+13, TOTAL+1~ , TOTAL+2*
X0	CPT+1~, CPT+3*, CPT+4
Y	INTDATE+1~, INTDATE+3, DATE+1~, DATE+6, DATE+8, DATE+9, DATE+17, DATE+18, VALID+1~, VALID+3 , VALID+5, NAMECOMP+3~, NAMECOMP+4, NAMECOMP+5, WP+1~, WP+4, WP+5, WP+6, WP+7, LASTACT+1~ , LASTACT+2, LASTACT+3, LASTACT+4, CODE+2~, CODE+3, CODE+7, CODE+9, CODE+12, CODE+13, CODE+14 , DESC+2~, DESC+5, DESC+8, DESC+11, DESC+12, DESC+13, CPT+1~, CPT+4, CPT+5, CPT+9* , CPT+10, HLOC+1~, HLOC+2, HLOC+3, COUNTY+1~, COUNTY+2, COUNTY+3, COUNTY+4, CONSNAME+2~, CONSNAME+4 , CONSNAME+5, CONSNAME+6, CONSNAME+7, CONSNAME+8, CONSNAME+9, CONSNAME+12, PROVDX+1~, PROVDX+8, PROVDX+9, PROBCMT+6* , PROBCMT+7, SCTTEXT+1~, SCTTEXT+4, SCTTEXT+5, LRTIU+1~, LRTIU+2, LRTIU+3, LRTIU+4, ORDG+1~, ORDG+2 , ORDG+3, CP1+10~, CP1+11, VITCODE+3~, VITCODE+6*, VITCODE+7

Customize PDF page

Package: Virtual Patient Record

Routine: VPRSDA

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items