Global: ^AUPNVOB

FileMan FileNo	FileMan Filename	Package
9000010.43	V OB	IHS Patient

Package	Total	Routines
IHS Prenatal Care Module	4	BJPN10PR BJPN20P1 BJPN20PR BJPNPDET
Patient Care Component	4	APCDEWHA APCDVDSB APCDVDSG APCDVDSP
GUI Objects	1	BGOVOB
Health Summary Components	1	BHSPLOB
IHS Mods To Text Integration Utilities	1	BTIUPV2
PCC New Encounter Form	1	VENPCCS3

Package	Total	Routines
IHS Prenatal Care Module	12	BJPN10PR BJPN10PS BJPN20P1 BJPN20PR BJPN20PS BJPNAPI2 BJPNGNOT BJPNGPIP BJPNPDET BJPNPRUT BJPNPUP BJPNVFIL
GUI Objects	3	BGOPRDD BGOPROB2 BGOVOB
Health Summary Components	1	BHSPLOB
IHS Mods To Text Integration Utilities	1	BTIUPV2

Package	Total	FileMan Files
IHS Patient	1	V OB(#9000010.43)[1208]

Package	Total	FileMan Files
IHS Patient	4	PATIENT(#9000001)[.02] PROBLEM(#9000011)[.01] V OB(#9000010.43)[1208] VISIT(#9000010)[.03]
Scheduling	2	CLINIC STOP(#40.7)[1203] HOSPITAL LOCATION(#44)[1215]
Kernel	1	NEW PERSON(#200)[.04, .07, 1202, 1204, 1217, 1219]

Fields, Total: 22

Field #	Name	Loc	Type	Details
.01	PROBLEM	0;1	POINTER TO PROBLEM FILE (#9000011)	**********************REQUIRED FIELD********************** PROBLEM(#9000011) LAST EDITED: `MAY 30, 2013` HELP-PROMPT: `Enter the Problem.` CROSS-REFERENCE: `9000010.43^B` 1)= S ^AUPNVOB("B",$E(X,1,30),DA)="" 2)= K ^AUPNVOB("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.43^AV9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q CROSS-REFERENCE: `9000010.43^AATOO^MUMPS` 1)= I $P(^AUPNVOB(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVOB("AA",$P(^AUPNVOB(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVOB(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVOB(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVOB("AA",$P(^AUPNVOB(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVOB(DA,0),U,3),0),".",1)),DA) This cross-reference is used for searches in sequence by patient, measurement type, inverted visit date, and internal entry number. "AA",PATIENT,TYPE,VISIT,DA RECORD INDEXES: `APRV (#405)`
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `JUL 08, 1991` HELP-PROMPT: `Enter the patient name.` DESCRIPTION: Patient Name. UNEDITABLE CROSS-REFERENCE: `9000010.43^AC` 1)= S ^AUPNVOB("AC",$E(X,1,30),DA)="" 2)= K ^AUPNVOB("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.43^AATOO2^MUMPS` 1)= I $P(^AUPNVOB(DA,0),U,1)]"",$P(^(0),U,3)]"" S ^AUPNVOB("AA",X,$P(^AUPNVOB(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVOB(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVOB(DA,0),U,1)]"",$P(^(0),U,3)]"" K ^AUPNVOB("AA",X,$P(^AUPNVOB(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVOB(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(^AUPNVOB(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 30, 2013` HELP-PROMPT: `Enter the encounter from the Visit file. Always stuffed.` SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVOB(DA,0),U,2)"` EXPLANATION: `VISIT MUST BE FOR CURRENT PATIENT` UNEDITABLE NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000010.43^AD` 1)= S ^AUPNVOB("AD",$E(X,1,30),DA)="" 2)= K ^AUPNVOB("AD",$E(X,1,30),DA) This is used for programmed lookup by visit internal entry number. CROSS-REFERENCE: `9000010.43^AA^MUMPS` 1)= Q:$P(^AUPNVOB(DA,0),U,2)="" S ^AUPNVOB("AA",$P(^AUPNVOB(DA,0),U,2),$P(^AUPNVOB(DA,0),U,1),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)="" 2)= Q:$P(^AUPNVOB(DA,0),U,2)="" K ^AUPNVOB("AA",$P(^AUPNVOB(DA,0),U,2),$P(^AUPNVOB(DA,0),U,1),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA) This cross-reference is used for searches in sequence by patient, measurement type, inverted visit date, and internal entry number. "AA",PATIENT,TYPE,VISIT,DA CROSS-REFERENCE: `9000010.43^AV10^MUMPS` 1)= D ADD^AUPNVSIT 2)= D SUB^AUPNVSIT This cross-reference is used to add "1" to the Dependent Entry Count field (#.09) of the related Visit file (9000010) entry to indicate that there is a file (in this case measurement) pointing to the Visit. When the measurement entry is deleted, this cross-reference is used to subtract "1" from the Dependent Entry Count field (#.09) of the related Visit file (9000010) entry. RECORD INDEXES: `APRV (#405)`
.04	SIGNED BY	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 22, 2013`
.05	DATE/TIME SIGNED	0;5	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 22, 2013`
.06	ENTERED IN ERROR?	0;6	SET	'1' FOR YES; LAST EDITED: `MAR 29, 2013`
.07	ENTERED IN ERROR BY	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 29, 2013`
.08	ENTERED IN ERROR REASON	0;8	SET	'D' FOR DUPLICATE; 'E' FOR ENTERED IN ERROR; 'O' FOR OTHER; LAST EDITED: `MAR 29, 2013`
.09	COMMENT IF OTHER EIE	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `MAR 29, 2013` HELP-PROMPT: `Answer must be 1-80 characters in length.`
1100	OB NOTES	11;0	WORD-PROCESSING #9000010.4311
1201	EVENT DATE & TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X I $D(X),$E(X,1,12)>$E($$NOW^XLFDT,1,12) K X` LAST EDITED: `MAY 30, 2013` HELP-PROMPT: `Enter the date and time` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000010.43^AB` 1)= S ^AUPNVOB("AB",$E(X,1,30),DA)="" 2)= K ^AUPNVOB("AB",$E(X,1,30),DA) This is in place of the "B" xref on the GMRV VITAL MEASUREMENT .01 field. CROSS-REFERENCE: `9000010.43^AE^MUMPS` 1)= Q:$P(^AUPNVOB(DA,0),U,2)="" S ^AUPNVOB("AE",$P(^AUPNVOB(DA,0),U,2),$P(^AUPNVOB(DA,0),U,1),9999999-X,DA)="" 2)= Q:$P(^AUPNVOB(DA,0),U,2)="" K ^AUPNVOB("AE",$P(^AUPNVOB(DA,0),U,2),$P(^AUPNVOB(DA,0),U,1),9999999-X,DA) Used for flowsheets. Cross-reference by patient,vitals type,date/time vitals take,ien of vital ent ry "AE",PATIENT,TYPE,DATE/TIME VITALS TAKEN,DA
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: `APR 26, 1994` HELP-PROMPT: `Enter the provider.` SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"` EXPLANATION: `Must be a 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`
1204	ENCOUNTER PROVIDER	12;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 30, 2013` HELP-PROMPT: `Enter the provider.` RECORD INDEXES: `APRV (#405)`
1208	PARENT	12;8	POINTER TO V OB FILE (#9000010.43)	V OB(#9000010.43) 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 24, 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 24, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.`
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.43^1217` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVOB(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.43,1216,1,1,1.4) 1.4)= S DIH=$G(^AUPNVOB(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.43,DIG=1217 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1217 CROSS-REFERENCE: `^^TRIGGER^9000010.43^1218` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVOB(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.43,1216,1,2,1.4) 1.4)= S DIH=$G(^AUPNVOB(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.43,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 OB 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 OB File` CROSS-REFERENCE: `^^TRIGGER^9000010.43^1219` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVOB(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.43,1218,1,1,1.4) 1.4)= S DIH=$G(^AUPNVOB(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.43,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 OB File`

Customize PDF page

Package: IHS Patient

Global: ^AUPNVOB

Information

Description

Directly Accessed By Routines, Total: 13

Accessed By FileMan Db Calls, Total: 17

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 7

Fields, Total: 22