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
Kernel	2	NAMECOMP^XLFNAME $$KSP^XUPARAM
Virtual Patient Record	2	$$RANGE^VPRDGMV CPROCS^VPRSDAQ
CPT HCPCS Codes	1	($$CPT,$$CPTD)^ICPTCOD
Consult Request Tracking	1	DOCLIST^GMRCGUIB
Functional Independence	1	(GC,PRM)^RMIMRP
Lexicon Utility	1	$$CODE^LEXTRAN
Registration	1	$$SITE^VASITE
Text Integration Utility	1	EXTRACT^TIULQ
Womens Health	1	BASELINE^WVRPCVPR

Package	Total	Caller Graph
Virtual Patient Record	6	VPRP24 VPRSDAL VPRSDAP VPRSDAT VPRSDAV VPRSR
VA FileMan	2	^DDE ITEM

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
CODED	; -- ck Code Table ID for internal^external format ; called from DDEG for entity VPR CODE TABLE using variables: ; FILE, FIELD, ID (read only, do NOT kill)
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()
NULL(N)	; -- return null string(s) to delete property
CPT(IEN,DATE,LONG)	; -- 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
SITE()	; -- return current site#
OR1(ORIFN)	; -- define basic variables for any order ; Returns OR0, OR3, OR6, OR8, ORDAD, and ORSIG to Order entities
WP(ORIFN,ID)	; -- return a WP value from an order response as a string
ORDG(DG)	; -- return ien^name^VA100.98 for a DG abbreviation
LASTACT(ORIFN)	; -- return DA of current or last order action
ORSIG(ORIFN)	; -- return string of signature data from Order Action as ; Signature Status (#4) ^ Signed By (#5) ^ D/T Signed (#6), or ; Signature Status (#4) ^ ^ Release D/T (#16) if not e-signed
CP1(IEN)	; -- get MD nodes for procedure [ID Action], returns: ; 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 VPRV array, VPRGMV=VPRV(0), VPRANGE, VPRTYPE to entity
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 ; Returns VPRSITE, VPRM arrays to entity
FIMS	; -- get DLIST(#)=name^value of each score ; Returns VPRFIMS = Assessment type(s) for ProblemDetail
TOTAL(NODE)	; -- Return total of scores, or "" if incomplete
WVPL1(IEN)	; -- set up pregnancy API array (IEN will be DFN) ; Returns VPRPREG array to entity

Name	Field # of Occurrence
^%DT	INTDATE+2, VALID+3, CP1+11
$$EXTERNAL^DILFD	CODED+6, ORSIG+15
$$FLDNUM^DILFD	CODE+4
$$GET1^DIQ	DESC+12, COUNTY+2, CP1+5
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+11
$$FIELD^GMVGETVT	VIT1+5
GETREC^GMVUTL	VIT1+3
$$CPT^ICPTCOD	CPT+3
$$CPTD^ICPTCOD	CPT+6
$$CODE^LEXTRAN	DESC+4
GC^RMIMRP	FIM1+3
PRM^RMIMRP	FIM1+2
EXTRACT^TIULQ	CP1+16, FIM1+6
$$SITE^VASITE	SITE+1
$$RANGE^VPRDGMV	VIT1+15
CPROCS^VPRSDAQ	CP1+6
BASELINE^WVRPCVPR	WVPL1+3
NAMECOMP^XLFNAME	NAMECOMP+2
$$KSP^XUPARAM	SITE+2

FileNo	Call Tags
100.008	EXTERNAL^DILFD
5.01	GET1^DIQ
^MDD(702 - [#702]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	OR1+3, WP+2, WP+3, LASTACT+2, LASTACT+3, ORSIG+4, ORSIG+8, ORSIG+11
^ORD(100.98 - [#100.98]	ORDG+1, ORDG+2
^SC("B"	HLOC+2
^TMP("MDHSP"	CP1+4, CP1+7
^TMP("VPRGMV"	VIT1+7
^TMP("WVPREGST"	WVPL1+3, WVPL1+4, WVPL1+5, WVPL1+6
^UTILITY($J	VIT1+12, VIT1+14!

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

Name	Field # of Occurrence
^(	WP+3, ORSIG+8, VIT1+7
^(3	OR1+3
^(6	OR1+3
^(8	OR1+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	INTDATE+1~, INTDATE+2, VALID+1~, CP1+10~, CP1+11*
BMI	VIT1+9~, VIT1+12*, VIT1+13
CDT	CODE~, CODE+3*, DESC+4, DESC+7
CODE	DESC~, DESC+4, DESC+7, DESC+10
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
DATE	CPT~, CPT+2*, CPT+3, CPT+6
>> DDEOUT	CP1+8, VIT1+2, VIT1+4, FIM1+2, WVPL1+2, WVPL1+4
DFN	CP1+5, VIT1+9~, VIT1+10, WVPL1+6*
DG	ORDG~, ORDG+1
DLIST	CP1+6~
DLIST(	VITQUAL+3, FIMS+12, FIMS+13, FIMS+14
DT	CODE+3, CPT+2
DTO	DATE~, DATE+9
>> FIELD	CODED+5, CODED+6
FILE	CODED+5, CODED+6, CODE~, CODE+4, CODE+5, DESC+12
FLD	CODE+2~, CODE+4*, CODE+5
GMRVSTR	VIT1+9~, VIT1+10*
GMRVSTR(0	VIT1+10*
I	DATE+8, NAMECOMP+3~, NAMECOMP+4, CODE+2~, CODE+11, CODE+12, NULL+1~, NULL+2, CPT+1~, CPT+8* , CPT+9, WP+1~, WP+3, ORSIG+3~, ORSIG+8, CP1+7, VITQUAL+1~, VITQUAL+3, FIMS+2~, FIMS+7 , FIMS+8, FIMS+9, TOTAL+1~, TOTAL+2*
ID	CODED+3, CODED+4, CODED+6, CODED+8*, WP~, WP+2
IDT	VIT1+9~, VIT1+11*, VIT1+12
IEN	CODE~, CODE+5, DESC+12, CPT~, CPT+2, CPT+3, CP1~, CP1+5, CP1+7, VIT1~ , VIT1+2, VIT1+3, VIT1+7, VIT1+12, VITCODE~, VITCODE+4, FIM1~, FIM1+3, WVPL1~, WVPL1+2 , WVPL1+3, WVPL1+6*
IENS	CODE+2~, CODE+9, CODE+10, VITCODE+3~, VITCODE+5, VITCODE+6
J	FIMS+2~, FIMS+13*
LEX	DESC+2~, DESC+7, DESC+10
LEX("LEX"	DESC+8
LEX("LONGNAME"	DESC+11
LEX("P"	DESC+5
LONG	CPT~, CPT+5
N	NULL~, NULL+1, NULL+2, CPT+1~, CPT+6, CPT+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+4~, CODED+7, CODED+8
NODE	TOTAL~, TOTAL+2
NOTE	FIM1+5~*, FIM1+6, FIM1+7
>> OR0	OR1+3*
>> OR3	OR1+3*, OR1+4
>> OR6	OR1+3*
>> OR8	OR1+3*
>> ORDAD	OR1+4*, ORSIG+10, ORSIG+11
ORIFN	OR1~, OR1+2, OR1+3, OR1+5, WP~, WP+2, WP+3, LASTACT~, LASTACT+1, LASTACT+2 , LASTACT+3, ORSIG~, ORSIG+4, ORSIG+8
>> ORSIG	OR1+5*
QOT	NULL+1~*, NULL+2
QUALS	VITQUAL+1~, VITQUAL+2*, VITQUAL+3
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
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, CODED+8, CODE+7, CODE+13, DESC+8, NULL+2, CPT+4, CPT+6, CPT+10, COUNTY+3 , OR1+4, ORDG+2, LASTACT+2, ORSIG+5, ORSIG+7, ORSIG+9, ORSIG+10, ORSIG+12, ORSIG+14, ORSIG+15 , CP1+11, CP1+13, CP1+15, VIT1+5, VIT1+7, VIT1+10, VIT1+12, VIT1+13, VITQUAL+3, FIM1+5 , FIMS+13, TOTAL+2
>> VPRANGE	VIT1+15*
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*
>> 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
>> VPRFIMS	FIMS+3, FIMS+10, FIMS+15*
>> VPRGMV	VIT1+4, VIT1+5, VIT1+7, VIT1+10, VIT1+11, VIT1+13*
>> VPRM	FIM1+3
>> VPRM(	FIMS+7, FIMS+8
>> VPRM("TIU"	FIM1+7*
>> VPRM(1	FIM1+5
>> VPRPREG	WVPL1+5*
>> VPRSITE	FIM1+2
>> VPRSITE(1	FIM1+2
VPRTIU	CP1+17*, FIM1+5!
VPRTIU(	FIM1+7
>> VPRTYPE	VIT1+5*, VIT1+6, VIT1+10, VIT1+12, VIT1+15
>> VPRV	VIT1+3
>> VPRV(0	VIT1+4
>> VPRV(5	VITQUAL+2
VPRX	CPT+1~
VPRX(	CPT+9
VPRX(1	CPT+7, CPT+8
X	INTDATE~, DATE~, DATE+2, DATE+3, VALID~, VALID+1, VALID+2, CODED+4~, CODED+6, CODED+7 , CODE+2~, CODE+10, DESC+2~, DESC+4, DESC+5, DESC+7, DESC+8, DESC+10, DESC+11, CPT+1~ , CPT+8, CPT+9, CPT+10, HLOC~, HLOC+2, WP+1~, WP+3, WP+4, WP+5, WP+6 , ORDG+1~, ORDG+2, ORSIG+3~, ORSIG+8, ORSIG+9, ORSIG+11, ORSIG+12, ORSIG+15, 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, ORSIG+3~, ORSIG+4, ORSIG+5, ORSIG+7, ORSIG+10, ORSIG+14
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, 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, NULL+1~, NULL+2, NULL+3 , CPT+1~, CPT+4, CPT+6, CPT+10, CPT+11, HLOC+1~, HLOC+2, HLOC+3, COUNTY+1~, COUNTY+2 , COUNTY+3, COUNTY+4, SITE+1~, SITE+2, SITE+3, WP+1~, WP+4, WP+5, WP+6, WP+7 , ORDG+1~, ORDG+2, ORDG+3, LASTACT+1~, LASTACT+2, LASTACT+3, LASTACT+4, ORSIG+3~, ORSIG+5, ORSIG+7 , ORSIG+9, ORSIG+10, ORSIG+12, ORSIG+14, ORSIG+15, ORSIG+16, 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: 8

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items