Routine: VPRSDAP

Package	Total	Call Graph
Pharmacy Data Management	6	NDF^PSS50 ZERO^PSS50P7 ZERO^PSS51P1 ZERO^PSS52P6 ZERO^PSS52P7 ($$LOC,$$PLACER,LOC)^PSSUTLA1
Virtual Patient Record	5	$$VUID^VPRD POST^VPRHS $$CODE^VPRSDA $$WP^VPRSDAOR NDF^VPRSDAP
Outpatient Pharmacy	3	PEN^PSO5241 RX^PSO52API OEL^PSOORRL
VA FileMan	2	$$EXTERNAL^DILFD $$GET1^DIQ
CMOP	1	^PSXOPUTL
Kernel	1	($$TRIM,$$UP)^XLFSTR
National Drug File	1	NAME^PSN50P41
Order Entry Results Reporting	1	($$OI,$$VALUE)^ORX8

Package	Total	Caller Graph
VA FileMan	2	^DDE ITEM
Virtual Patient Record	2	VPR PSB EVENTS VPRSDAP
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
PS1(IEN)	; -- set up single medication ; Returns ORIFN, ORPK, PSTYPE & VPRPS=^TMP
OI(IEN)	; -- return orderable item for order IEN in the format ; ifn ^ [name] ^ pkg id
SCHEDULE()	; -- return schedule name ^ type ^ admin times ^ #min ; Expects ORIFN, IEN from VPR DOSAGE STEP
LOC(DFN,ID)	; -- return Hosp Location for order
IMO(X,PS)	; -- return true, false, or null if IMO location X
PSRX(RX)	; -- get RX info for extension properties
ROUTING(RX)	; -- get the Routing value [not in use]
GETFILLS	; -- build DLIST(#)=#^data of fills, where data is ; date ^ daysSupply ^ qty ^ released ^ routing ^ remarks ^ returned
SUPPLY(IEN)	; -- return 1 or 0, if supply item
CMOP(RX)	; -- return CMOP indicator for RX
SIG(IEN)	; -- return Sig, append VPRPI if needed
DOSEFORM(IEN)	; -- return dose form
INGRD(NAME)	; -- reset NAME to ingredient IEN ; Also return VPRCODE=code^name^system
NDF(DRUG)	; -- return VA Drug Product info for DRUG (#50 ien) ; also returns DATA = code^name^system for RXN/VUID
CODE(MED,FILE)	; -- convert MED=ien^name to national code ; Reset MED = code^name^system for RxNorm or VUID
DOSES(IEN)	; -- build DLIST(n)=instance of Dose Instructions
BCMA(IEN,MAX)	; -- get list of most recent administrations for order
PSB	; -- VPR PSB EVENTS protocol listener (BCMA)
ADMSTS(DA)	; -- return the code^name of administration status
IV()	; -- Return 1 or 0, if order is for IV/infusion
IVMEDS(IEN)	; -- build DLIST(#)=ien^amount^type[^bottle] for components
IV1(X)	; -- get VA Drug Product info for IV component X (from DLIST) ; Returns VPRPSIV = ien^name^amt^type^bottle#
IVRATE(IEN)	; -- return IV Rate, or DDEOUT if invalid ; also VPRATE = numeric amount, if ## ml/hr
IVTYPE(IEN)	; -- return IV Type, or DDEOUT if invalid

Name	Field # of Occurrence
$$EXTERNAL^DILFD	ADMSTS+6
$$GET1^DIQ	CMOP+2, IVTYPE+6
$$OI^ORX8	OI+7
$$VALUE^ORX8	SCHEDULE+4, IVRATE+4
NAME^PSN50P41	INGRD+5
PEN^PSO5241	PSRX+4
RX^PSO52API	PSRX+6, PSRX+8
OEL^PSOORRL	PS1+8
NDF^PSS50	NDF+3
ZERO^PSS50P7	DOSEFORM+3
ZERO^PSS51P1	SCHEDULE+9
ZERO^PSS52P6	IV1+6
ZERO^PSS52P7	IV1+5
$$LOC^PSSUTLA1	LOC+4
$$PLACER^PSSUTLA1	PSB+5
LOC^PSSUTLA1	LOC+3
^PSXOPUTL	CMOP+4
$$VUID^VPRD	CODE+4
POST^VPRHS	PSB+6
$$CODE^VPRSDA	CODE+3
$$WP^VPRSDAOR	SIG+1
NDF^VPRSDAP	IV1+9
$$TRIM^XLFSTR	SIG+4
$$UP^XLFSTR	SIG+3, SIG+4

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ
^PSB(53.79 - [#53.79]	EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	CMOP+3
^DIC(42 - [#42]	LOC+6
^OR(100 - [#100]	PS1+3, OI+3, OI+5, DOSES+2, DOSES+3, DOSES+6, BCMA+3, BCMA+4, IV+2, IVTYPE+3
^ORD(100.98 - [#100.98]	IV+4
^ORD(101.43 - [#101.43]	OI+5, OI+6
^PSB(53.79 - [#53.79]	BCMA+5, BCMA+6, PSB+3, ADMSTS+3
^SC - [#44]	IMO+3
^TMP("PS"	PS1+9
^TMP("VPRX"	SCHEDULE+8, SCHEDULE+10, SCHEDULE+12, SUPPLY+1, DOSEFORM+2, DOSEFORM+4, DOSEFORM+6, NDF+2, NDF+4*, NDF+6 , NDF+7, IV1+12
^TMP($J	SCHEDULE+10, SCHEDULE+11!, PSRX+1, PSRX+2, PSRX+9!, DOSEFORM+4, DOSEFORM+5!, INGRD+5, INGRD+6!, NDF+4 , NDF+5!, IV1+7, IV1+13!

Name	Line Occurrences
$$IV	PS1+7
CODE	INGRD+9, NDF+8

Name	Field # of Occurrence
^(	SCHEDULE+12, PSB+3, ADMSTS+3
^(0	PS1+3
^(1	IV1+7
^(2	SCHEDULE+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADM	SCHEDULE+2~, SCHEDULE+6*, SCHEDULE+7, SCHEDULE+12
ADT	BCMA+1~, BCMA+2, BCMA+5, BCMA+6
CLS	PS1+2~, PS1+6*, PS1+8
CNT	BCMA+1~, BCMA+2, BCMA+5, BCMA+8, IVMEDS+1~, IVMEDS+2, IVMEDS+6, IVMEDS+10*
DA	CMOP+4~, DOSES+1~, DOSES+2, DOSES+3, BCMA+1~, BCMA+6, BCMA+8, ADMSTS~, ADMSTS+1, ADMSTS+3
>> DATA	NDF+7, NDF+8, NDF+9, NDF+10, NDF+11, IV1+11*
>> DDEOUT	INGRD+7, IVRATE+2, IVRATE+6, IVTYPE+1
DFN	PS1+3, PS1+8, LOC~, LOC+2, LOC+4, PSRX+1, PSRX+2, PSRX+4, PSRX+6, PSRX+8 , PSRX+9, BCMA+3, BCMA+5, BCMA+6, PSB+1~, PSB+3, PSB+4, PSB+5, PSB+6, IVTYPE+5
>> DLIST(	GETFILLS+7, GETFILLS+8, GETFILLS+9, DOSES+4, BCMA+8, IVMEDS+6, IVMEDS+10*
>> DLIST(0	DOSES+6
>> DLIST(1	DOSES+6*
DRUG	NDF~, NDF+2, NDF+3, NDF+4, NDF+5, NDF+6, NDF+7, NDF+11, IV1+2~, IV1+7* , IV1+9, IV1+10
FILE	CODE~, CODE+2*, CODE+3, CODE+4
FLD	IVTYPE+2~, IVTYPE+4, IVTYPE+5, IVTYPE+6
FN	LOC+1~, LOC+4, LOC+5, LOC+6, IVTYPE+2~, IVTYPE+4, IVTYPE+5*, IVTYPE+6
FREQ	SCHEDULE+2~
GBL	IVMEDS+1~, IVMEDS+3*, IVMEDS+4, IVMEDS+5, IVMEDS+7, IVMEDS+8
I	OI+4~, OI+5, OI+6, SCHEDULE+2~, SCHEDULE+5, SCHEDULE+6, SCHEDULE+12, GETFILLS+2~, GETFILLS+8, GETFILLS+9 , DOSES+1~, DOSES+3, DOSES+4, IVMEDS+1~, IVMEDS+4, IVMEDS+5, IVMEDS+7*, IVMEDS+8
ID	LOC~, LOC+2*, LOC+4
IEN	PS1~, PS1+2, OI~, OI+3, OI+5, OI+7, SCHEDULE+4, SUPPLY~, SIG~, SIG+1 , DOSEFORM~, INGRD+2~, INGRD+5, INGRD+7, INGRD+8, DOSES~, DOSES+1, DOSES+2, DOSES+3, DOSES+6 , BCMA~, BCMA+2, BCMA+3, BCMA+4, PSB+1~, PSB+2, PSB+3, IVMEDS~, IV1+2~, IV1+4 , IV1+5, IV1+6, IV1+7, IV1+8, IV1+11, IVRATE~, IVRATE+3, IVRATE+4, IVTYPE~, IVTYPE+3
IENS	IVTYPE+2~, IVTYPE+4, IVTYPE+5, IVTYPE+6
MAX	BCMA~, BCMA+2*, BCMA+5
MED	CODE~, CODE+2, CODE+3, CODE+4, CODE+5
N	GETFILLS+2~, GETFILLS+7, GETFILLS+8, GETFILLS+9
NAME	INGRD~, INGRD+3, INGRD+4, INGRD+5, INGRD+8, IV1+2~, IV1+7*, IV1+8, IV1+11
ND	IVMEDS+1~, IVMEDS+5, IVMEDS+6, IVMEDS+8, IVMEDS+9
ORIFN	PS1+2, PS1+3, SCHEDULE+4, PSB+1~, PSB+5, PSB+6, IV+2
ORPK	PS1+3, PS1+5, PS1+8, ROUTING+2, ROUTING+3, BCMA+1~, BCMA+4, BCMA+5, BCMA+6, PSB+1~ , PSB+3, PSB+4, PSB+5, IV+1, IVMEDS+2, IVMEDS+3, IVMEDS+4, IVMEDS+5, IVMEDS+7, IVMEDS+8 , IVTYPE+2~, IVTYPE+3, IVTYPE+4, IVTYPE+5
PI	SIG+3~, SIG+4*, SIG+5
PS	IMO~, IMO+2
>> PSB0	ADMSTS+2
>> PSBIEN	PSB+2
>> PSBIEN(1	PSB+2
>> PSOI	SUPPLY+1, DOSEFORM+2, DOSEFORM+3, DOSEFORM+4, DOSEFORM+5, DOSEFORM+6
>> PSTYPE	PS1+7*, SCHEDULE+4, PSRX+3, DOSES+6, IVRATE+2, IVTYPE+1
PSXZ	CMOP+4~
PSXZ(	CMOP+5
PSXZ("L"	CMOP+5
RX	PSRX~, PSRX+1, PSRX+2, PSRX+4, PSRX+5, PSRX+6, PSRX+8, PSRX+9, ROUTING~, ROUTING+1 , CMOP~, CMOP+1*, CMOP+2, CMOP+4
RX0	GETFILLS+3~*, GETFILLS+5
RXN	GETFILLS+3~*, GETFILLS+4, GETFILLS+5
SCH	SCHEDULE+2~, SCHEDULE+7*, SCHEDULE+8, SCHEDULE+9
SIG	SIG+3~*, SIG+4, SIG+5
STS	BCMA+1~
TYPE	IV1+2~, IV1+4*, IV1+5, IV1+6, IV1+11
U	PS1+3, PS1+11, PS1+14, OI+3, OI+4, OI+5, OI+6, SCHEDULE+5, SCHEDULE+7, SCHEDULE+12 , LOC+4, IMO+3, ROUTING+2, ROUTING+3, GETFILLS+4, GETFILLS+5, GETFILLS+6, GETFILLS+8, GETFILLS+9, INGRD+8 , NDF+9, NDF+10, NDF+11, CODE+4, DOSES+3, BCMA+3, PSB+3, ADMSTS+2, ADMSTS+4, ADMSTS+7 , IV+3, IV+4, IVMEDS+6, IVMEDS+8, IVMEDS+9, IV1+4, IV1+8, IV1+11
VPRATE	PS1+7!, IVRATE+5*
>> VPRCODE	INGRD+3, INGRD+8, INGRD+9
>> VPRPI	SIG+2, SIG+4
>> VPRPS	PS1+9, PS1+11, PS1+14, OI+4, SCHEDULE+5, SCHEDULE+6, ROUTING+2, GETFILLS+3, GETFILLS+8, GETFILLS+9
>> VPRPSIV	IV1+3, IV1+4, IV1+8
>> VPRVAP	NDF+6, NDF+9, NDF+11, IV1+12
>> VPRX52	PSRX+1*, PSRX+9, GETFILLS+6
>> VPRX52P	PSRX+2*, ROUTING+3
X	PS1+2~, PS1+5, PS1+6, PS1+7, PS1+11, PS1+12, PS1+13, PS1+14, OI+4~, OI+5 , OI+6, LOC+1~, LOC+4, LOC+5, LOC+6, IMO~, IMO+3, ROUTING+1~, ROUTING+2, ROUTING+3* , ROUTING+4, GETFILLS+5~, GETFILLS+6, GETFILLS+7, CMOP+3~!, CMOP+5, ADMSTS+1~, ADMSTS+2, ADMSTS+3, ADMSTS+4 , ADMSTS+5, ADMSTS+6, ADMSTS+7, IV+2~, IV+4, IV+5, IV+6, IV1~, IV1+3, IV1+9* , IVRATE+3~, IVRATE+4*, IVRATE+5, IVTYPE+2~
X0	IV+2~*, IV+3, IV+4
Y	OI+2~, OI+6, OI+7, OI+8, SCHEDULE+2~, SCHEDULE+4, SCHEDULE+5, SCHEDULE+7, SCHEDULE+12, SCHEDULE+13 , LOC+1~, IMO+1~, IMO+3, IMO+4, ROUTING+1~, ROUTING+4, ROUTING+5, SUPPLY+1~, SUPPLY+2, CMOP+1~ , CMOP+2, CMOP+5, CMOP+6, SIG+1~, SIG+2, SIG+3, SIG+5, SIG+6, DOSEFORM+1~, DOSEFORM+6 , DOSEFORM+7, CODE+2~, CODE+3, CODE+4, CODE+5, ADMSTS+1~, ADMSTS+2, ADMSTS+5, ADMSTS+6, ADMSTS+7* , ADMSTS+8, IVMEDS+1~, IVMEDS+8, IVMEDS+9, IVMEDS+10, IVTYPE+2~, IVTYPE+3, IVTYPE+6, IVTYPE+7
Z	ADMSTS+1~, ADMSTS+3*
Z0	ADMSTS+1~, ADMSTS+3*, ADMSTS+4

Customize PDF page

Package: Virtual Patient Record

Routine: VPRSDAP

Information

Source Information

Call Graph

Call Graph Total: 20

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:

Marked Items