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: ^AUPNVMVT

Package: IHS Patient

Global: ^AUPNVMVT

Information

FileMan FileNo	FileMan Filename	Package
9000010.702	V VA MOBILE VISIT TYPES	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. The specific data item housed in this file is visit type at the top right hand corner of the form.

Directly Accessed By Routines, Total: 1

Package	Total	Routines
Local Area Programs	1	AZAXDPM1

Pointer To FileMan Files, Total: 3

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

Fields, Total: 7

Field #	Name	Loc	Type	Details
.01	VISIT TYPE	0;1	SET	**********************REQUIRED FIELD********************** 'F' FOR PERIODIC FOLLOW-UP; 'P' FOR PREVENTIVE MEDICINE; '1' FOR 1ST POST HOSP. DISCH.; 'A' FOR ADMINISTRATIVE; 'W' FOR WALK-IN; 'O' FOR OTHER; LAST EDITED: `MAR 10, 1993` DESCRIPTION: Visit Type from the upper right hand corner of the Amb. enc. record used in the VA Mobile clinics. CROSS-REFERENCE: `9000010.702^B` 1)= S ^AUPNVMVT("B",$E(X,1,30),DA)="" 2)= K ^AUPNVMVT("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.702^AV9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q CROSS-REFERENCE: `9000010.702^AATOO^MUMPS` 1)= I $P(^AUPNVMVT(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVMVT("AA",$P(^AUPNVMVT(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVMVT(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVMVT(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVMVT("AA",$P(^AUPNVMVT(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVMVT(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.702^AC` 1)= S ^AUPNVMVT("AC",$E(X,1,30),DA)="" 2)= K ^AUPNVMVT("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.702^AATOO2^MUMPS` 1)= I $P(^AUPNVMVT(DA,0),U,3)]"" S ^AUPNVMVT("AA",X,+^AUPNVMVT(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVMVT(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVMVT(DA,0),U,3)]"" K ^AUPNVMVT("AA",X,+^AUPNVMVT(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVMVT(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(^AUPNVMVT(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(^AUPNVMVT(DA,0),U,2)"` EXPLANATION: `VISIT MUST BE FOR CURRENT PATIENT` UNEDITABLE CROSS-REFERENCE: `9000010.702^AD` 1)= S ^AUPNVMVT("AD",$E(X,1,30),DA)="" 2)= K ^AUPNVMVT("AD",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.702^AA^MUMPS` 1)= Q:$P(^AUPNVMVT(DA,0),U,2)="" S ^AUPNVMVT("AA",$P(^AUPNVMVT(DA,0),U,2),+^AUPNVMVT(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)="" 2)= Q:$P(^AUPNVMVT(DA,0),U,2)="" K ^AUPNVMVT("AA",$P(^AUPNVMVT(DA,0),U,2),+^AUPNVMVT(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA) CROSS-REFERENCE: `9000010.702^AV10^MUMPS` 1)= D ADD^AUPNVSIT 2)= D SUB^AUPNVSIT
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.702^1217` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMVT(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.702,1216,1,1,1.4) 1.4)= S DIH=$G(^AUPNVMVT(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.702,DIG=1217 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1217 CROSS-REFERENCE: `^^TRIGGER^9000010.702^1218` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMVT(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.702,1216,1,2,1.4) 1.4)= S DIH=$G(^AUPNVMVT(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.702,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 TYPES 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 TYPES File` CROSS-REFERENCE: `^^TRIGGER^9000010.702^1219` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMVT(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.702,1218,1,1,1.4) 1.4)= S DIH=$G(^AUPNVMVT(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.702,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 TYPES File`

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