Routine: BVPRX

Information

BVPRX ; IHS/ITSC/LJF - MEDICATION PROFILES ;

Source file <BVPRX.m>

Package	Total	Call Graph
IHS Changes To Pharmacy	3	EN^APSEPPIM P^APSPMED EN^APSPNUM
Kernel	3	$$REPEAT^XLFSTR $$VERSION^XPDUTL DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
IHS View Patient Record	2	SETPT^BVPMAIN ($$HRCN,$$READ,$$STATUS,MSG,PAUSE)^BVPU
VA Fileman	2	^DIC $$GET1^DIQ
IHS VA Utilities	1	ENP^XBDIQ1
Inpatient Medications	1	ENOR^PSJPR
Outpatient Pharmacy	1	^PSOPTPST

Name	Comments	DBIA/ICR reference
RESET	;EP -- update partition for return to list manager
EN	;EP -- main entry point for list template BVP RX MENU
HDR	;EP -- header code
PAD(D,L)	; -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
EXPND	;EP -- expand code
IV	;EP -- calls IV profile ; Called by BVP RX IV (Med Profile: IV/Unit Dose) protocol
PATINFO	;EP - drug info sheet for a patient
INIT	;EP -- init variables and list array
EXIT	;EP -- exit code
MP	;EP; -- view medication profile ; Called by BVP RX MP (Med Profile: Outpatient) protocol
RSETPT	;EP -- resets patient variables
RESET2	;EP -- update partition without recreating display array
HELP	;EP -- help code

Name	Field # of Occurrence
EN^APSEPPIM	PATINFO+7
P^APSPMED	MP+12
EN^APSPNUM	PATINFO+5
SETPT^BVPMAIN	RESET+2
$$HRCN^BVPU	INIT+3
$$READ^BVPU	MP+10, MP+11
$$STATUS^BVPU	INIT+7
MSG^BVPU	MP+4, IV+4
PAUSE^BVPU	MP+5, MP+14, IV+5, PATINFO+3, PATINFO+5, PATINFO+8
^DIC	RSETPT+2
$$GET1^DIQ	PATINFO+2
ENOR^PSJPR	IV+6, IV+7
^PSOPTPST	PATINFO+3
EN^VALM	EN+4
TERM^VALM0	EN+2, RESET+3, RESET2+2
CLEAR^VALM1	EN+5
FULL^VALM1	MP+2, MP+8, IV+2
ENP^XBDIQ1	INIT+2
$$REPEAT^XLFSTR	PAD+2
$$VERSION^XPDUTL	IV+6
DISP^XQORM1	HELP+1

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	MP+12
^PS(55 - [#55]	MP+3, IV+3
^TMP("BVPRX"	INIT+1!, INIT+4, INIT+6, INIT+8*, EXIT+1!
^UTILITY($J	MP+8!

Name	Field # of Occurrence
APSPAGE	MP+7~, MP+9*
APSPBD	MP+7~, MP+10*
APSPDPT	MP+7~
APSPDPT(	MP+9*
APSPED	MP+7~, MP+11*
>> BVPSAV	RESET+2, RSETPT+1
BVPX	INIT+2~
BVPX(	INIT+3, INIT+5
D	PAD~, PAD+2
>> DFN	EN+3, INIT+2, INIT+3, INIT+7, RESET+2, MP+3, MP+9, IV+3, IV+6, IV+7 , PATINFO+2, RSETPT+1
>> DIC	RSETPT+1*
>> DIC(0	RSETPT+1*
IO	MP+12
L	PAD~, PAD+2
>> LINE	INIT+3, INIT+4, INIT+5, INIT+6, INIT+7*, INIT+8
N	SP~, SP+1
>> ORVP	EN+3, IV+7, RSETPT+1*
PLS	MP+7~, MP+9*
PPL	PATINFO+1!, PATINFO+6*
PSODFN	PATINFO+1!, PATINFO+2*
>> PSOLIST	PATINFO+5
>> PSOLIST(1	PATINFO+6
PSONUM	PATINFO+1!, PATINFO+4*
>> PSOQFLG	PATINFO+3*
PSORX	PATINFO+1!
PSORX("NAME"	PATINFO+2*
PSOSD	PATINFO+1!
PSRT	MP+7~, MP+9*
>> VALMBCK	RESET+1, RESET+3, RESET2+1, RESET2+2
>> VALMCC	EN+1*
VALMCNT	EN+2~, INIT+9*
>> VALMQUIT	RESET+1, RESET2+1
>> X	HELP+1, MP+12, RSETPT+1*