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 | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^AUPNVTM

Package: IHS Patient

Global: ^AUPNVTM

Information

FileMan FileNo	FileMan Filename	Package
9000010.19	V ACTIVITY TIME	IHS Patient

Description

This file contains 1 entry per visit and contains the activity time and travel time. This file was originally used only for BH, CHR and PHN visits.

Directly Accessed By Routines, Total: 10

Package	Total	Routines
Patient Care Component Reports	4	APCLCP11 APCLCP31 APCLCP5 APCLCP81
Patient Care Component	2	APCDEGPP APCDR19
GUI Objects	1	BGOVTM
Local Area Programs	1	AZAXDPM1
Mental Health Social Services	1	AMHEHR
Patient Care Component Data Transmission	1	APCPACHA

Accessed By FileMan Db Calls, Total: 2

Package	Total	Routines
IHS Mods To Text Integration Utilities	1	BTIULO13
Mental Health Social Services	1	AMHPCCL

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
IHS Patient	1	V ACTIVITY TIME(#9000010.19)[1208]

Pointer To FileMan Files, Total: 6

Package	Total	FileMan Files
IHS Patient	3	PATIENT(#9000001)[.02] VISIT(#9000010)[.03] V ACTIVITY TIME(#9000010.19)[1208]
Scheduling	2	CLINIC STOP(#40.7)[1203] HOSPITAL LOCATION(#44)[1215]
Kernel	1	NEW PERSON(#200)[1202, 1204, 1210, 1217, 1219]

Fields, Total: 18

Field #	Name	Loc	Type	Details
.01	ACTIVITY TIME	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 10, 1996` HELP-PROMPT: `Type a Number between 0 and 99999, 0 Decimal Digits` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTACT") CROSS-REFERENCE: `9000010.19^B` 1)= S ^AUPNVTM("B",$E(X,1,30),DA)="" 2)= K ^AUPNVTM("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.19^AV9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q CROSS-REFERENCE: `9000010.19^AATOO^MUMPS` 1)= I $P(^AUPNVTM(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVTM("AA",$P(^AUPNVTM(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVTM(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVTM(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVTM("AA",$P(^AUPNVTM(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVTM(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` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDPAT") UNEDITABLE CROSS-REFERENCE: `9000010.19^AC` 1)= S ^AUPNVTM("AC",$E(X,1,30),DA)="" 2)= K ^AUPNVTM("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.19^AATOO2^MUMPS` 1)= I $P(^AUPNVTM(DA,0),U,3)]"" S ^AUPNVTM("AA",X,+^AUPNVTM(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVTM(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVTM(DA,0),U,3)]"" K ^AUPNVTM("AA",X,+^AUPNVTM(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVTM(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(^AUPNVTM(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 11, 1986` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDVSIT") SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVTM(DA,0),U,2)"` EXPLANATION: `VISIT MUST BE FOR CURRENT PATIENT` UNEDITABLE CROSS-REFERENCE: `9000010.19^AD` 1)= S ^AUPNVTM("AD",$E(X,1,30),DA)="" 2)= K ^AUPNVTM("AD",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.19^AA^MUMPS` 1)= Q:$P(^AUPNVTM(DA,0),U,2)="" S ^AUPNVTM("AA",$P(^AUPNVTM(DA,0),U,2),+^AUPNVTM(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)="" 2)= Q:$P(^AUPNVTM(DA,0),U,2)="" K ^AUPNVTM("AA",$P(^AUPNVTM(DA,0),U,2),+^AUPNVTM(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA) CROSS-REFERENCE: `9000010.19^AV10^MUMPS` 1)= D ADD^AUPNVSIT 2)= D SUB^AUPNVSIT
.04	TRAVEL MINUTES	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 10, 1996` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTTM")
.049	TOTAL TIME		COMPUTED	MUMPS CODE: `S Y(9000010.19,.049,1)=$S($D(^AUPNVTM(D0,0)):^(0),1:"") S X=$P(Y(9000010.19,.049,1),U,4)+$P(Y(9000010.19,.049,1),U,1) S X=$J(X,0,0)` ALGORITHM: `TRAVEL MINUTES+ACTIVITY TIME (ALWAYS 0 DECIMAL DIGITS)` LAST EDITED: `JUL 10, 1996`
.05	TIME PATIENT SPENT IN GROUP	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 04, 2005` HELP-PROMPT: `Type a Number between 0 and 99999, 0 Decimal Digits`
1201	EVENT DATE&TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 25, 1996` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTCDT")
1202	ORDERING PROVIDER	12;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 25, 1996` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTPRV")
1203	CLINIC	12;3	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `SEP 25, 1996` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTCLN")
1204	ENCOUNTER PROVIDER	12;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 25, 1996` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTEPR")
1208	PARENT	12;8	POINTER TO V ACTIVITY TIME FILE (#9000010.19)	V ACTIVITY TIME(#9000010.19) LAST EDITED: `SEP 25, 1996` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTPNT")
1209	EXTERNAL KEY	12;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `SEP 25, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTEXK")
1210	OUTSIDE PROVIDER KEY	12;10	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 25, 1996` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTOPR")
1215	ORDERING LOCATION	12;15	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `FEB 19, 2008`
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.19^1217` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTM(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.19,1216,1,1,1.4) 1.4)= S DIH=$G(^AUPNVTM(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.19,DIG=1217 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1217 CROSS-REFERENCE: `^^TRIGGER^9000010.19^1218` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTM(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.19,1216,1,2,1.4) 1.4)= S DIH=$G(^AUPNVTM(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.19,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 ACTIVITY TIME 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 ACTIVITY TIME File` CROSS-REFERENCE: `^^TRIGGER^9000010.19^1219` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTM(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.19,1218,1,1,1.4) 1.4)= S DIH=$G(^AUPNVTM(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.19,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 ACTIVITY TIME File`

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