Routine: VPSMR54

Information

VPSMR54 ;WOIFO/BT - Get the last MRAR data for a patient (Medication Level) ;01/29/15 15:30

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	2	FIELD^DID GETS^DIQ
VA Point of Service	1	($$WP,ADD)^VPSMRAR9

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
VA Point of Service	1	VPSMRAR9

Entry Points

Name	Comments	DBIA/ICR reference
MEDS(VPSMRAR,DFN,LASTMRAR)	; -- retrieve Medication level fields and store them in VPSMRAR ; INPUT ; DFN : Patient IEN ; LASTMRAR : The last MRAR Transaction IEN for the patient ; OUTPUT ; VPSMRAR: local array contains all field names/values for the last mrar
MEDIND(VPSMRAR,DFN,LASTMRAR,MEDIEN,MEDNO)	; -- retrieve Medication Indicator level fields and store them in VPSMRAR ; INPUT ; DFN : Patient IEN ; LASTMRAR : The last MRAR Transaction IEN for the patient ; MEDIEN : Medication IEN ; MEDNO : Medication Entry # ; OUTPUT ; VPSMRAR : local array contains all field names/values for the last mrar
ADDMEDS(VPSMRAR,DFN,LASTMRAR)	; -- retrieve Additional Medication level fields and store them in VPSMRAR ; INPUT ; DFN : Patient IEN ; LASTMRAR : The last MRAR Transaction IEN for the patient ; OUTPUT ; VPSMRAR: local array contains all field names/values for the last mrar

External References

Name	Field # of Occurrence
FIELD^DID	MEDS+17, MEDIND+14, ADDMEDS+17
GETS^DIQ	MEDS+13, MEDIND+18, ADDMEDS+13
$$WP^VPSMRAR9	MEDS+20, ADDMEDS+20
ADD^VPSMRAR9	MEDS+21, MEDIND+21, ADDMEDS+21

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^VPS(853.5 - [#853.5]	MEDS+11, MEDIND+16, ADDMEDS+11

Label References

Name	Line Occurrences
MEDIND	MEDS+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ATTR	MEDS+17!, MEDIND+9~, MEDIND+14!, ADDMEDS+17!
ATTR("LABEL"	MEDS+21, MEDIND+21, ADDMEDS+21
ATTR("TYPE"	MEDS+20, ADDMEDS+20
DFN	MEDS~, MEDS+11, MEDS+12, MEDS+23, MEDIND~, MEDIND+16, MEDIND+17, ADDMEDS~, ADDMEDS+11, ADDMEDS+12
EXVAL	MEDS+7~, MEDS+19, MEDS+20, MEDS+21, MEDIND+9~, MEDIND+20, MEDIND+21, ADDMEDS+7~, ADDMEDS+19, ADDMEDS+20* , ADDMEDS+21
FIL	MEDS+8~, MEDS+13, MEDS+14, MEDS+16, MEDS+17, MEDS+18, MEDS+19, MEDS+20, MEDIND+10~, ADDMEDS+8~ , ADDMEDS+13, ADDMEDS+14, ADDMEDS+16, ADDMEDS+17, ADDMEDS+18, ADDMEDS+19, ADDMEDS+20
FIL(	MEDIND+14, MEDIND+18, MEDIND+19, MEDIND+20
FIL("MCHG"	MEDIND+10*
FIL("MCNFR"	MEDIND+10*
FIL("MDISCR"	MEDIND+10*
FLD	MEDS+7~, MEDS+15, MEDS+16, MEDS+17, MEDS+18, MEDS+19, MEDS+20, MEDIND+11~, MEDIND+14, MEDIND+19 , MEDIND+20, ADDMEDS+7~, ADDMEDS+15, ADDMEDS+16*, ADDMEDS+17, ADDMEDS+18, ADDMEDS+19, ADDMEDS+20
>> IND	MEDIND+13*, MEDIND+14, MEDIND+16, MEDIND+18, MEDIND+19, MEDIND+20
INDIEN	MEDIND+15~, MEDIND+16, MEDIND+17
INVAL	MEDS+7~, MEDS+18, MEDS+20, MEDS+21, MEDIND+9~, MEDIND+19, MEDIND+21, ADDMEDS+7~, ADDMEDS+18, ADDMEDS+20* , ADDMEDS+21
LASTMRAR	MEDS~, MEDS+11, MEDS+12, MEDS+23, MEDIND~, MEDIND+16, MEDIND+17, ADDMEDS~, ADDMEDS+11, ADDMEDS+12
MEDIEN	MEDS+9~, MEDS+11, MEDS+12, MEDS+23, MEDIND~, MEDIND+16, MEDIND+17, ADDMEDS+9~, ADDMEDS+11, ADDMEDS+12
MEDNO	MEDS+7~, MEDS+14, MEDS+21, MEDS+23, MEDIND~, MEDIND+21, ADDMEDS+7~, ADDMEDS+14, ADDMEDS+21
REC	MEDS+7~, MEDS+13!, MEDS+20, MEDIND+9~, MEDIND+18!, ADDMEDS+7~, ADDMEDS+13!, ADDMEDS+20
REC(	MEDS+14, MEDS+16, MEDS+18, MEDS+19, MEDIND+19, MEDIND+20, ADDMEDS+14, ADDMEDS+16, ADDMEDS+18, ADDMEDS+19
SUBS	MEDS+7~, MEDS+12, MEDS+13, MEDS+14, MEDS+16, MEDS+18, MEDS+19, MEDS+20, MEDIND+9~, MEDIND+17 , MEDIND+18, MEDIND+19, MEDIND+20, ADDMEDS+7~, ADDMEDS+12*, ADDMEDS+13, ADDMEDS+14, ADDMEDS+16, ADDMEDS+18, ADDMEDS+19 , ADDMEDS+20
VPSMRAR	MEDS~, MEDS+21, MEDS+23, MEDIND~, MEDIND+21, ADDMEDS~, ADDMEDS+21

Customize PDF page

Package: VA Point of Service