Global: ^AUPNVACG

FileMan FileNo	FileMan Filename	Package
9000010.51	V ANTICOAGULATION	IHS Patient

Package	Total	Routines
Patient Care Component	6	APCDEWHA APCDSWM APCDVDSB APCDVDSG APCDVDSP APCHSACG
GUI Objects	1	BGOVCOAG
Health Summary Components	1	BHSACG
IHS Patient	1	AUPNCIX
Patient Care Component Reports	1	APCLACGM

Package	Total	Routines
Health Summary Components	1	BHSCOAG
IHS Electronic Health Record	1	BEHOENPP
IHS Mods To Text Integration Utilities	1	BTIULO17
Patient Care Component	1	APCDSWM

Package	Total	FileMan Files
IHS Patient	1	V ANTICOAGULATION(#9000010.51)[1208]

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

Fields, Total: 27

Field #	Name	Loc	Type	Details
.01	WARFARIN INDICATED?	0;1	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 19, 2009` HELP-PROMPT: `Is Warfarin Therapy indicated for this patient? Enter Y for Yes, N for No.` DESCRIPTION: Is Warfarin indicated for this patient? CROSS-REFERENCE: `9000010.51^B` 1)= S ^AUPNVACG("B",$E(X,1,30),DA)="" 2)= K ^AUPNVACG("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.51^AV9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q CROSS-REFERENCE: `9000010.51^AATOO^MUMPS` 1)= I $P(^AUPNVACG(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVACG("AA",$P(^AUPNVACG(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVACG(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVACG(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVACG("AA",$P(^AUPNVACG(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVACG(DA,0),U,3),0),".",1)),DA) This cross-reference is used for searches in sequence by patient, .01 Yes/No value, inverted visit date, and internal entry number.
.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.51^AC` 1)= S ^AUPNVACG("AC",$E(X,1,30),DA)="" 2)= K ^AUPNVACG("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.51^AATOO2^MUMPS` 1)= I $P(^AUPNVACG(DA,0),U,3)]"" S ^AUPNVACG("AA",X,+^AUPNVACG(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVACG(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVACG(DA,0),U,3)]"" K ^AUPNVACG("AA",X,+^AUPNVACG(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVACG(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(^AUPNVACG(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 11, 1986` HELP-PROMPT: `Enter the visit date/time for the encounter where the exam was done.` DESCRIPTION: This is the encounter in the Visit file that represents when and where the exam was done. TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDVSIT") SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVACG(DA,0),U,2)"` EXPLANATION: `VISIT MUST BE FOR CURRENT PATIENT` UNEDITABLE CROSS-REFERENCE: `9000010.51^AD` 1)= S ^AUPNVACG("AD",$E(X,1,30),DA)="" 2)= K ^AUPNVACG("AD",$E(X,1,30),DA) This cross-reference is used for searches by the visit pointer and internal entry number. "AD",VISIT,DA CROSS-REFERENCE: `9000010.51^AA^MUMPS` 1)= Q:$P(^AUPNVACG(DA,0),U,2)="" S ^AUPNVACG("AA",$P(^AUPNVACG(DA,0),U,2),+^AUPNVACG(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)="" 2)= Q:$P(^AUPNVACG(DA,0),U,2)="" K ^AUPNVACG("AA",$P(^AUPNVACG(DA,0),U,2),+^AUPNVACG(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA) This cross-reference is used for searches in sequence by patient, exam pointer, inverted visit, internal entry number. "AA",PATIENT,EXAM,VISIT,DA CROSS-REFERENCE: `9000010.51^AV10^MUMPS` 1)= D ADD^AUPNVSIT 2)= D SUB^AUPNVSIT This cross-reference adds and subtracts from the dependent entry count in the VISIT file.
.04	INR GOAL	0;4	SET	**********************REQUIRED FIELD********************** '1' FOR 2.0 - 3.0; '2' FOR 2.5 - 3.5; '3' FOR Other; '4' FOR N/A; LAST EDITED: `APR 10, 2013` HELP-PROMPT: `The INR Goal established for the patient by the provider.` EXECUTABLE HELP: `D INRG^AUPNVHLP`
.05	INR MINIMUM VALUE	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `JUL 19, 2009` HELP-PROMPT: `Type a Number between 0 and 999.9, 1 Decimal Digit`
.06	INR GOAL MAXIMUM VALUE	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999.9)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `JUL 19, 2009` HELP-PROMPT: `Type a Number between 0 and 999.9, 1 Decimal Digit`
.07	DURATION OF ANTI-COAG THERAPY	0;7	SET	**********************REQUIRED FIELD********************** '1' FOR 3 MONTHS; '2' FOR 6 MONTHS; '3' FOR 12 MONTHS; '4' FOR INDEFINITELY; LAST EDITED: `DEC 10, 2009` HELP-PROMPT: `The Duration of Therapy for this patient on Anti-coagulation therapy.` EXECUTABLE HELP: `D INRDUR^AUPNVHLP` CROSS-REFERENCE: `^^TRIGGER^9000010.51^.09` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVACG(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=$$DURENDDT^AUPNCIX(DA) S DIH=$G(^AUPNVACG(DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=9000010.51,DIG=.09 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVACG(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=$$DURENDDT^AUPNCIX(DA) S DIH=$G(^AUPNVACG(DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=9000010.51,DIG=.09 D ^DICR CREATE VALUE)= S X=$$DURENDDT^AUPNCIX(DA) DELETE VALUE)= S X=$$DURENDDT^AUPNCIX(DA) FIELD)= #.09
.08	ANTI-COAGULATION START DATE	0;8	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `DEC 10, 2009` HELP-PROMPT: `(No range limit on date)` CROSS-REFERENCE: `^^TRIGGER^9000010.51^.09` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVACG(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=$$DURENDDT^AUPNCIX(DA) S DIH=$G(^AUPNVACG(DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=9000010.51,DIG=.09 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVACG(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=$$DURENDDT^AUPNCIX(DA) S DIH=$G(^AUPNVACG(DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=9000010.51,DIG=.09 D ^DICR CREATE VALUE)= S X=$$DURENDDT^AUPNCIX(DA) DELETE VALUE)= S X=$$DURENDDT^AUPNCIX(DA) FIELD)= #.09
.09	ANTI-COAGULATION END DATE	0;9	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 19, 2009` HELP-PROMPT: `This is a calculated date that adds the Duration to the start date. e.g. if the duration is 3 months then the end date is start date + 91 days.` NOTES: `TRIGGERED by the DURATION OF ANTI-COAG THERAPY field of the V ANTICOAGULATION File` TRIGGERED by the ANTI-COAGULATION START DATE field of the V ANTICOAGULATION File
1.01	ENTERED IN ERROR?	1;1	SET	'1' FOR YES; LAST EDITED: `MAR 25, 2013`
1.02	USER WHO ENTERED IN ERROR	1;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 25, 2013`
1.03	REASON ENTERED IN ERROR	1;3	SET	'D' FOR DUPLICATE; 'E' FOR ENTERED IN ERROR; 'O' FOR OTHER; LAST EDITED: `MAR 25, 2013`
1.04	D/T MARKED ENTERED IN ERROR	1;4	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 25, 2013`
1.05	REASON ENT IN ERR IF OTHER	1;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `MAR 25, 2013` HELP-PROMPT: `Answer must be 1-80 characters in length.`
1101	COMMENT	11;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `MAR 27, 2012` HELP-PROMPT: `Answer must be 1-240 characters in length.`
1201	EVENT DATE AND TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 08, 1994` HELP-PROMPT: `Enter the date and time the exam was given.` DESCRIPTION: `This is the date and time the exam was given by the provider. This date and time may be different from the visit date and time. For example, for clinic appointment visits, the visit date and time is the date and time of` the appointment, not the time the provider performed the clinical event. The date may be an imprecise date. Date and time may be within 30 days before or after the visit date, with the restriction the date cannot be a future date. TECHNICAL DESCR: `The PCE User Interface, which allows manual entry of data, will be the primary source of the event date and time. The event date prompt defaults to the visit date, and the time is entered to reflect the actual time the` measurement was done. The event date does not have to be the visit date, future date. If a user wants to enter a historical measurement, the user should use the Historical Encounter entry action to document the historical measurement. Historical entries will not be eligible for credit. PCE Data Sources for automatic (scanning) data capture will be blank unless the event date and time are passed to PCE for filing. APCDALVR Variable = APCDALVR("APCDTCDT")
1202	ORDERING PROVIDER	12;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 08, 1994` HELP-PROMPT: `Enter the provider who ordered this exam.` DESCRIPTION: This field can be used to document the provider who ordered the exam. TECHNICAL DESCR: The person entered here must hold the "AK.PROVIDER" security key. APCDALVR Variable = APCDALVR("APCDTPRV") SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"` EXPLANATION: `Select ordering provider` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1203	CLINIC	12;3	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `JUL 09, 1996` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTCLN")
1204	ENCOUNTER PROVIDER	12;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 19, 1994` HELP-PROMPT: `Enter the provider who gave the exam.` DESCRIPTION: This is the provider who gave the exam. TECHNICAL DESCR: This person can be any person in the new person file. The person does not have to hold the "AK.PROVIDER" security key. APCDALVR Variable = APCDALVR("APCDTEPR")
1208	PARENT	12;8	POINTER TO V ANTICOAGULATION FILE (#9000010.51)	V ANTICOAGULATION(#9000010.51) LAST EDITED: `JUL 09, 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 NAME	12;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `SEP 25, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.` 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.51^1217` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVACG(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.51,1216,1,1,1.4) 1.4)= S DIH=$G(^AUPNVACG(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.51,DIG=1217 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1217 CROSS-REFERENCE: `^^TRIGGER^9000010.51^1218` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVACG(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.51,1216,1,2,1.4) 1.4)= S DIH=$G(^AUPNVACG(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.51,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 ANTICOAGULATION 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 ANTICOAGULATION File` CROSS-REFERENCE: `^^TRIGGER^9000010.51^1219` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVACG(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.51,1218,1,1,1.4) 1.4)= S DIH=$G(^AUPNVACG(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.51,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 ANTICOAGULATION File`

Customize PDF page

Package: IHS Patient

Global: ^AUPNVACG

Information

Description

Directly Accessed By Routines, Total: 10

Accessed By FileMan Db Calls, Total: 4

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 6

Fields, Total: 27