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 | Pointer To FileMan Files | Fields | Found Entries | All

Print Page as PDF

Global: ^AUPNVMVR

Package: IHS Patient

Global: ^AUPNVMVR

Information

FileMan FileNo	FileMan Filename	Package
9000010.701	V VA MOBILE VISIT RELATED	IHS Patient

Description

This file was developed to assist the VA Mobile clinic sites in collecting certain visit related data. The data items are found on the Ambulatory Encounter record form used by the VA Mobile clinics.

Directly Accessed By Routines, Total: 1

Package	Total	Routines
Local Area Programs	1	AZAXDPM1

Pointer To FileMan Files, Total: 4

Package	Total	FileMan Files
IHS Patient	2	PATIENT(#9000001)[.02] VISIT(#9000010)[.03]
Kernel	1	NEW PERSON(#200)[1217, 1219]
Scheduling	1	HOSPITAL LOCATION(#44)[.01]

Fields, Total: 12

Field #	Name	Loc	Type	Details
.01	CLINIC (LOCATION)	0;1	POINTER TO HOSPITAL LOCATION FILE (#44)	**********************REQUIRED FIELD********************** HOSPITAL LOCATION(#44) LAST EDITED: `MAY 12, 1993` CROSS-REFERENCE: `9000010.701^B` 1)= S ^AUPNVMVR("B",$E(X,1,30),DA)="" 2)= K ^AUPNVMVR("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.701^AV9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q CROSS-REFERENCE: `9000010.701^AATOO^MUMPS` 1)= I $P(^AUPNVMVR(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVMVR("AA",$P(^AUPNVMVR(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVMVR(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVMVR(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVMVR("AA",$P(^AUPNVMVR(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVMVR(DA,0),U,3),0),".",1)),DA)
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `APR 05, 1988` UNEDITABLE CROSS-REFERENCE: `9000010.701^AC` 1)= S ^AUPNVMVR("AC",$E(X,1,30),DA)="" 2)= K ^AUPNVMVR("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.701^AATOO2^MUMPS` 1)= I $P(^AUPNVMVR(DA,0),U,3)]"" S ^AUPNVMVR("AA",X,+^AUPNVMVR(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVMVR(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVMVR(DA,0),U,3)]"" K ^AUPNVMVR("AA",X,+^AUPNVMVR(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVMVR(DA,0),U,3),0),".",1)),DA)
.03	VISIT	0;3	POINTER TO VISIT FILE (#9000010)	**********************REQUIRED FIELD********************** VISIT(#9000010) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVMVR(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 11, 1986` SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVMVR(DA,0),U,2)"` EXPLANATION: `VISIT MUST BE FOR CURRENT PATIENT` UNEDITABLE CROSS-REFERENCE: `9000010.701^AD` 1)= S ^AUPNVMVR("AD",$E(X,1,30),DA)="" 2)= K ^AUPNVMVR("AD",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.701^AA^MUMPS` 1)= Q:$P(^AUPNVMVR(DA,0),U,2)="" S ^AUPNVMVR("AA",$P(^AUPNVMVR(DA,0),U,2),+^AUPNVMVR(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)="" 2)= Q:$P(^AUPNVMVR(DA,0),U,2)="" K ^AUPNVMVR("AA",$P(^AUPNVMVR(DA,0),U,2),+^AUPNVMVR(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA) CROSS-REFERENCE: `9000010.701^AV10^MUMPS` 1)= D ADD^AUPNVSIT 2)= D SUB^AUPNVSIT
.04	ARRIVAL MODE	0;4	SET	'A' FOR AMBULATORY; 'W' FOR WHEELCHAIR; LAST EDITED: `MAR 10, 1993`
.05	LEVEL OF SERVICE	0;5	SET	'B' FOR BRIEF; 'L' FOR LIMITED; 'I' FOR INTERMEDIATE; 'E' FOR EXTENDED; 'C' FOR COMPREHENSIVE; LAST EDITED: `MAR 11, 1993`
.06	CLINIC STATUS	0;6	SET	'R' FOR RETURN WITH SPECIFIC APPT; 'G' FOR REGISTERED IN CLINIC WITHOUT SPECIFIC APPT; 'D' FOR DISCHARGED FROM CLINIC; LAST EDITED: `MAR 11, 1993`
.07	REFERRAL STATUS	0;7	SET	'E' FOR EMERGENT; 'N' FOR NON-EMERGENT; LAST EDITED: `MAR 11, 1993`
.08	REFER FOR HOSPITALIZATION	0;8	SET	'V' FOR VAMC; 'F' FOR NON-VA (FEE BASIS); 'N' FOR NON-VA (NOT VA PAY); LAST EDITED: `MAR 11, 1993`
1216	DATE/TIME ENTERED	12;16	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 23, 2012` CROSS-REFERENCE: `^^TRIGGER^9000010.701^1217` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMVR(D0,12)):^(12),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.701,1216,1,1,1.4) 1.4)= S DIH=$G(^AUPNVMVR(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.701,DIG=1217 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1217 CROSS-REFERENCE: `^^TRIGGER^9000010.701^1218` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMVR(D0,12)):^(12),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=$$NOW^XLFDT X ^DD(9000010.701,1216,1,2,1.4) 1.4)= S DIH=$G(^AUPNVMVR(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.701,DIG=1218 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=$$NOW^XLFDT DELETE VALUE)= NO EFFECT FIELD)= #1218
1217	ENTERED BY	12;17	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 01, 2012` NOTES: `TRIGGERED by the DATE/TIME ENTERED field of the V VA MOBILE VISIT RELATED File`
1218	DATE/TIME LAST MODIFIED	12;18	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 23, 2012` NOTES: `TRIGGERED by the DATE/TIME ENTERED field of the V VA MOBILE VISIT RELATED File` CROSS-REFERENCE: `^^TRIGGER^9000010.701^1219` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMVR(D0,12)):^(12),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.701,1218,1,1,1.4) 1.4)= S DIH=$G(^AUPNVMVR(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.701,DIG=1219 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1219
1219	LAST MODIFIED BY	12;19	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 01, 2012` NOTES: `TRIGGERED by the DATE/TIME LAST MODIFIED field of the V VA MOBILE VISIT RELATED File`

Info | Desc | Directly Accessed By Routines | Pointer To FileMan Files | Fields | Found Entries | All