Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^VEXHRX0(19080.1

Package: IHS Pharmacy Auto Refill System

Global: ^VEXHRX0(19080.1

Information

FileMan FileNo	FileMan Filename	Package
90350.1	BEX REFILL TRANSACTION	IHS Pharmacy Auto Refill System

Description

Directly Accessed By Routines, Total: 10

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 3

Fields, Total: 12

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA PATIENT(#2) LAST EDITED: `SEP 09, 1994` UNEDITABLE NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `19080.1^B` 1)= S ^VEXHRX0(19080.1,"B",$E(X,1,30),DA)="" 2)= K ^VEXHRX0(19080.1,"B",$E(X,1,30),DA)
.02	HRCN		COMPUTED	MUMPS CODE: `S X1=$P($G(^VEXHRX0(19080.1,D0,0)),U),X=$$HRN^AUPNPAT(X1,DUZ(2))` 9.2 = S Y(19080.1,.02,1)=$S($D(^VEXHRX0(19080.1,D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(19080.1,.02,1),U,1),0)):"",1:$P(^(0),U,1)) ALGORITHM: `VEX HRN` LAST EDITED: `SEP 13, 2002`
1	DATE/TIME	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 30, 2004` UNEDITABLE CROSS-REFERENCE: `19080.1^C` 1)= S ^VEXHRX0(19080.1,"C",$E(X,1,30),DA)="" 2)= K ^VEXHRX0(19080.1,"C",$E(X,1,30),DA) CROSS-REFERENCE: `19080.1^AC^MUMPS` 1)= S BEXCR=$$CR^BEXRX(DA) 2)= Q
2	PRESCRIPTION NUMBER	0;3	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<7) X` LAST EDITED: `JUL 30, 2003` HELP-PROMPT: `Answer must be 7-8 characters in length.` UNEDITABLE CROSS-REFERENCE: `19080.1^D` 1)= S ^VEXHRX0(19080.1,"D",$E(X,1,30),DA)="" 2)= K ^VEXHRX0(19080.1,"D",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^90350.1^8` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEXHRX0(19080.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$DRG^BEX80(X) S DIH=$G(^VEXHRX0(19080.1,DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=90350.1,DIG=8 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEXHRX0(19080.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$DRG^BEX80(X) S DIH=$G(^VEXHRX0(19080.1,DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=90350.1,DIG=8 D ^DICR CREATE VALUE)= S X=$$DRG^BEX80(X) DELETE VALUE)= S X=$$DRG^BEX80(X) FIELD)= DRUG
3	TYPE	0;4	SET	'R' FOR REFILL; 'S' FOR STATUS; 'P' FOR PHARMACY; 'I' FOR RX INFO; LAST EDITED: `JUL 20, 1995` UNEDITABLE CROSS-REFERENCE: `19080.1^E` 1)= S ^VEXHRX0(19080.1,"E",$E(X,1,30),DA)="" 2)= K ^VEXHRX0(19080.1,"E",$E(X,1,30),DA)
4	RESULT	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `AUG 21, 1994` HELP-PROMPT: `Answer must be 3-30 characters in length.` UNEDITABLE
5	RENEWAL FLAG	0;6	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `AUG 21, 1994` UNEDITABLE
8	DRUG NAME	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `NOV 18, 2002` HELP-PROMPT: `Answer must be 1-30 characters in length.` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the PRESCRIPTION NUMBER field of the BEX REFILL TRANSACTION File`
9	CHART REQUESTED?	0;9	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `SEP 30, 2002`
10	SITE	0;10	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `APR 24, 2007`
11	MEDICATION NAME	0;11	POINTER TO DRUG FILE (#50)	DRUG(#50) LAST EDITED: `APR 24, 2007`
12	MAIL/WINDOW	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `JUL 25, 2011` HELP-PROMPT: `Answer must be 1-15 characters in length.`

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | All