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

Package: IHS Patient

Global: ^AUPNVCA

Information

FileMan FileNo	FileMan Filename	Package
9000010.45	V CHART AUDIT	IHS Patient

Description

This file contains 1 entry for each time a data entry operator modifies a visit through pcc data entry or through the coding queue .

Directly Accessed By Routines, Total: 15

Package	Total	Routines
Patient Care Component	14	APCDCAF APCDCAF1 APCDCAF2 APCDCAF3 APCDCAF6 APCDCAFB APCDCAFF APCDCAFG APCDCAFJ APCDCAFS APCDCAFV APCDFQC1 APCDFQCP APCDVCHK
Patient Care Component Reports	1	APCLVLU1

Accessed By FileMan Db Calls, Total: 11

Package	Total	Routines
Patient Care Component	7	APCDCAF APCDCAF1 APCDCAF3 APCDCAF6 APCDCAFA APCDCAFC APCDVCHK
IHS Accounts Receivable	3	BARDYSV5 BARDYSVS BARDYSVZ
IHS Electronic Health Record	1	BEHOENPP

Pointer To FileMan Files, Total: 5

Package	Total	FileMan Files
IHS Patient	2	PATIENT(#9000001)[.02] VISIT(#9000010)[.03]
Kernel	1	NEW PERSON(#200)[.05, 1217, 1219]
Scheduling	1	HOSPITAL LOCATION(#44)[1215]
Utility Tables	1	OUTPATIENT CHART DEFICIENCY REASONS(#99999.05)[.06]

Fields, Total: 11

Field #	Name	Loc	Type	Details
.01	DATE OF AUDIT	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 16, 2004` CROSS-REFERENCE: `9000010.45^B` 1)= S ^AUPNVCA("B",$E(X,1,30),DA)="" 2)= K ^AUPNVCA("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.45^AV9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `SEP 11, 1996` CROSS-REFERENCE: `9000010.45^AC` 1)= S ^AUPNVCA("AC",$E(X,1,30),DA)="" 2)= K ^AUPNVCA("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.45^AATOO^MUMPS` 1)= I $P(^AUPNVCA(DA,0),U,3)]"" S ^AUPNVCA("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVCA(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVCA(DA,0),U,3)]"" K ^AUPNVNO("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVCA(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(^AUPNVCA(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 11, 1996` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDVSIT") SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVCA(DA,0),U,2)"` EXPLANATION: `VISIT MUST BE FOR CURRENT PATIENT` CROSS-REFERENCE: `9000010.45^AD` 1)= S ^AUPNVCA("AD",$E(X,1,30),DA)="" 2)= K ^AUPNVCA("AD",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.45^AA^MUMPS` 1)= Q:$P(^AUPNVCA(DA,0),U,2)="" S ^AUPNVCA("AA",$P(^AUPNVCA(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)="" 2)= Q:$P(^AUPNVCA(DA,0),U,2)="" K ^AUPNVCA("AA",$P(^AUPNVCA(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA) CROSS-REFERENCE: `9000010.45^AZ10^MUMPS` 1)= D ADD^AUPNVSIT 2)= D SUB^AUPNVSIT
.04	CHART AUDIT STATUS	0;4	SET	**********************REQUIRED FIELD********************** 'R' FOR REVIEWED/COMPLETE; 'I' FOR INCOMPLETE; LAST EDITED: `JUN 01, 2005`
.05	AUDITOR/USER	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 16, 2004`
.06	CHART DEFICIENCY REASON	0;6	POINTER TO OUTPATIENT CHART DEFICIENCY REASONS FILE (#99999.05)	OUTPATIENT CHART DEFICIENCY REASONS(#99999.05) LAST EDITED: `DEC 27, 2004`
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.45^1217` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVCA(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.45,1216,1,1,1.4) 1.4)= S DIH=$G(^AUPNVCA(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.45,DIG=1217 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1217 CROSS-REFERENCE: `^^TRIGGER^9000010.45^1218` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVCA(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.45,1216,1,2,1.4) 1.4)= S DIH=$G(^AUPNVCA(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.45,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 CHART AUDIT 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 CHART AUDIT File` CROSS-REFERENCE: `^^TRIGGER^9000010.45^1219` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVCA(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.45,1218,1,1,1.4) 1.4)= S DIH=$G(^AUPNVCA(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.45,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 CHART AUDIT File`

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