Routine: VPRSDAG

Package	Total	Call Graph
General Medical Record - Vitals	3	EN1^GMRVUT0 $$FIELD^GMVGETVT GETREC^GMVUTL
Problem List	2	GETFLDS^GMPLEDT3 LIST^GMPLUTL2
VA FileMan	2	^%DT GETS^DIQ
Functional Independence	1	(GC,LC,PRM)^RMIMRP
Kernel	1	$$FMADD^XLFDT
Lexicon Utility	1	$$CODE^LEXTRAN
Text Integration Utility	1	EXTRACT^TIULQ
Virtual Patient Record	1	$$RANGE^VPRDGMV

Package	Total	Caller Graph
VA FileMan	2	^DDE ITEM

Entry Points

Name	Comments	DBIA/ICR reference
PROBLEMS	; -- Problem List query ; Expects DSTRT, DSTOP, DMAX from DDEGET and returns DLIST(#)=ien
PROB1(IEN)	; -- get info for single problem [ID Action]
SCTTEXT(CODE,IEN)	; -- get Preferred Text for SCT Code
PROBCMT(IEN)	; -- return list of comments in ; DLIST(#) = id ^ date ^ user ^ type ^ facility ^ text
DELETED(IEN,FLD)	; -- return 1 or 0, if FLD value was recently deleted
FIMQ	; -- Functional Independence Measurements query ; Expects DSTRT, DSTOP, DMAX from DDEGET ; Returns DLIST(#)=ien, VPRSITE array
DATE(X)	; -- Return internal form of date X
FIM1(IEN)	; -- get info for one set of measurements [ID Action]
FIMS	; -- get DLIST(#)=name^value of each score ; Returns VPRFIMS = Assessment type(s) for ProblemDetail
TOTAL(NODE)	; -- Return total of scores, or "" if incomplete
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

External References

Name	Field # of Occurrence
^%DT	DATE+2
GETS^DIQ	VITCODE+4
GETFLDS^GMPLEDT3	PROB1+3
LIST^GMPLUTL2	PROBLEMS+4
EN1^GMRVUT0	VIT1+10
$$FIELD^GMVGETVT	VIT1+4
GETREC^GMVUTL	VIT1+2
$$CODE^LEXTRAN	SCTTEXT+3
GC^RMIMRP	FIM1+2
LC^RMIMRP	FIMQ+9
PRM^RMIMRP	FIMQ+4, FIM1+1
EXTRACT^TIULQ	FIM1+5
$$RANGE^VPRDGMV	VIT1+14
$$FMADD^XLFDT	DELETED+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	PROB1+1, SCTTEXT+2, PROBCMT+3, PROBCMT+4
^GMPL(125.8 - [#125.8]	DELETED+4, DELETED+5, DELETED+6
^TMP("VPRGMV"	VIT1+6
^UTILITY($J	VIT1+11, VIT1+13!

Label References

Name	Line Occurrences
$$DATE	FIMQ+11
$$TOTAL	FIMS+8

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1~, DATE+2*
ADM	FIMQ+3~, FIMQ+11*
BMI	VIT1+8~, VIT1+11*, VIT1+12
CODE	SCTTEXT~, SCTTEXT+3
>> DDEOUT	PROB1+1, FIM1+1, VIT1+1, VIT1+3
DFN	PROBLEMS+4, FIMQ+5, FIMQ+8, VIT1+8~, VIT1+9
>> DLIST(	PROBLEMS+7, PROBCMT+7, FIMQ+12, FIMS+12, FIMS+13, FIMS+14, VITQUAL+3*
>> DMAX	PROBLEMS+5, FIMQ+10
>> DSTOP	PROBLEMS+6, FIMQ+11
>> DSTRT	PROBLEMS+6, FIMQ+11
DT	SCTTEXT+2, DELETED+3
FAC	PROBCMT+2~, PROBCMT+3*, PROBCMT+6
>> FILTER("status"	PROBLEMS+3
FLD	DELETED~, DELETED+2*, DELETED+7
GMPDT	SCTTEXT+1~, SCTTEXT+2*, SCTTEXT+3
GMPFLD	PROB1+2!
GMPORIG	PROB1+2!
GMRVSTR	VIT1+8~, VIT1+9*
GMRVSTR(0	VIT1+9*
I	PROBCMT+2~, PROBCMT+3, PROBCMT+4, PROBCMT+7, DELETED+1~, DELETED+5, DELETED+6, FIMS+2~, FIMS+7, FIMS+8 , FIMS+9, TOTAL+1~, TOTAL+2, VITQUAL+1~, VITQUAL+3*
ID	PROBLEMS+2~
IDT	VIT1+8~, VIT1+10*, VIT1+11
IEN	PROB1~, PROB1+1, PROB1+3, SCTTEXT~, SCTTEXT+2, PROBCMT~, PROBCMT+3, PROBCMT+4, PROBCMT+7, DELETED~ , DELETED+2, DELETED+4, DELETED+5, FIM1~, FIM1+2, VIT1~, VIT1+1, VIT1+2, VIT1+6, VIT1+11 , VITCODE~, VITCODE+4
IENS	VITCODE+3~, VITCODE+5*, VITCODE+6
J	PROBCMT+2~, PROBCMT+4, PROBCMT+7, FIMS+2~, FIMS+13
LAST	DELETED+1~, DELETED+4*, DELETED+5
LEX	SCTTEXT+1~
LEX("P"	SCTTEXT+4
LEXY	SCTTEXT+1~, SCTTEXT+3*, SCTTEXT+4
N	PROBCMT+2~, PROBCMT+7, FIMS+2~, FIMS+3, FIMS+12, FIMS+13, FIMS+14
NAMES	FIMS+2~, FIMS+4, FIMS+5, FIMS+6*, FIMS+13
NODE	TOTAL~, TOTAL+2
NOTE	FIM1+4~*, FIM1+5, FIM1+6
QUALS	VITQUAL+1~, VITQUAL+2*, VITQUAL+3
RMIMTIME	FIMQ+3~
SCORES	FIMS+2~, FIMS+8*, FIMS+13
SFN	VITCODE~, VITCODE+4, VITCODE+5, VITCODE+6
SUM	FIMS+2~, FIMS+8, FIMS+14, TOTAL+1~, TOTAL+2, TOTAL+3
TYPE	FIMS+2~, FIMS+9*, FIMS+10, FIMS+12
U	PROBLEMS+6, SCTTEXT+2, PROBCMT+5, PROBCMT+6, PROBCMT+7, DELETED+7, FIMQ+8, FIMQ+11, FIM1+4, FIMS+13 , TOTAL+2, VIT1+4, VIT1+6, VIT1+9, VIT1+11, VIT1+12, VITQUAL+3
>> VPRANGE	VIT1+14*
VPRC	VITCODE+3~
VPRC(	VITCODE+5, VITCODE+6
VPRCNT	FIMQ+3~, FIMQ+6, FIMQ+10, FIMQ+12
>> 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	PROBLEMS+2~, PROBLEMS+5, PROBLEMS+6, PROBLEMS+7, FIMQ+3~, FIMQ+8, FIMQ+9, FIMQ+10*, FIMQ+11, FIMQ+12
VPRPROB	PROBLEMS+2~, PROBLEMS+4
VPRPROB(	PROBLEMS+5, PROBLEMS+6, PROBLEMS+7
VPRS	FIMQ+3~, FIMQ+7*, FIMQ+8
>> VPRSITE	FIMQ+4, FIM1+1
>> VPRSITE(	FIMQ+7, FIMQ+8
>> VPRSITE(1	FIMQ+4, FIM1+1
VPRSTS	PROBLEMS+2~, PROBLEMS+3*, PROBLEMS+4
VPRTIU	FIM1+4!
VPRTIU(	FIM1+6
>> VPRTYPE	VIT1+4*, VIT1+5, VIT1+9, VIT1+11, VIT1+14
>> VPRV	VIT1+2
>> VPRV(0	VIT1+3
>> VPRV(5	VITQUAL+2
VPRY	FIMQ+3~, FIMQ+9
VPRY(	FIMQ+10, FIMQ+11, FIMQ+12
VPRY(1	FIMQ+9
WK2	DELETED+1~, DELETED+3*, DELETED+4
X	PROBLEMS+2~, PROBLEMS+6, PROBCMT+2~, PROBCMT+4, PROBCMT+5, PROBCMT+6, DELETED+1~, DELETED+6, DELETED+7, DATE~ , DATE+2, FIMS+2~, FIMS+13, TOTAL+1~, TOTAL+2, VITQUAL+1~, VITQUAL+3
Y	SCTTEXT+1~, SCTTEXT+4, SCTTEXT+5, PROBCMT+6, PROBCMT+7, DELETED+1~, DELETED+2, DELETED+4, DELETED+5, DELETED+7* , DELETED+8, DATE+1~, DATE+2, DATE+3, VITCODE+3~, VITCODE+6, VITCODE+7

Customize PDF page

Package: Virtual Patient Record

Routine: VPRSDAG

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: