Global: ^AUPNVPED

FileMan FileNo	FileMan Filename	Package
9000010.16	V PATIENT ED	IHS Patient

Package	Total	Routines
IHS GPRA Information System	200	BGP0C12 BGP0C2X BGP0CON1 BGP0CU BGP0CU2 BGP0D24 BGP0D25 BGP0D5 BGP0D7 BGP0D71 BGP0D711 BGP0D722 BGP0D732 BGP0D75 BGP0D8 BGP0D9 BGP0DHE1 BGP0DPE1 BGP0DPE2 BGP1C12 BGP1C2X BGP1CON1 BGP1CU BGP1CU2 BGP1D211 BGP1D24 BGP1D25 BGP1D5 BGP1D7 BGP1D71 BGP1D711 BGP1D722 BGP1D723 BGP1D732 BGP1D75 BGP1D8 BGP1D9 BGP1DHE1 BGP1DPE1 BGP1DPE2 BGP2C12 BGP2C2X BGP2CON1 BGP2CU BGP2CU2 BGP2D211 BGP2D24 BGP2D25 BGP2D5 BGP2D7 BGP2D71 BGP2D711 BGP2D722 BGP2D723 BGP2D732 BGP2D75 BGP2D8 BGP2D9 BGP2DHE1 BGP2DPE1 BGP2DPE2 BGP3C12 BGP3C2X BGP3CON1 BGP3CU BGP3CU2 BGP3D21 BGP3D24 BGP3D25 BGP3D5 BGP3D52 BGP3D7 BGP3D71 BGP3D711 BGP3D722 BGP3D723 BGP3D732 BGP3D75 BGP3D8 BGP3D9 BGP3DPE1 BGP3DPE2 BGP4CON1 BGP4CU BGP4D21 BGP4D24 BGP4D25 BGP4D5 BGP4D52 BGP4D7 BGP4D71 BGP4D711 BGP4D722 BGP4D723 BGP4D732 BGP4D75 BGP4D8 BGP4D9 BGP4DPE1 BGP4DPE2 BGP5CON1 BGP5CU BGP5D21 BGP5D24 BGP5D25 BGP5D5 BGP5D52 BGP5D7 BGP5D71 BGP5D711 BGP5D722 BGP5D723 BGP5D732 BGP5D75 BGP5D8 BGP5D9 BGP5DPE1 BGP5DPE2 BGP6C12 BGP6C2 BGP6CON1 BGP6CU BGP6D21 BGP6D24 BGP6D25 BGP6D5 BGP6D52 BGP6D7 BGP6D71 BGP6D711 BGP6D722 BGP6D723 BGP6D75 BGP6D8 BGP6D9 BGP6DHE1 BGP6DPE1 BGP6DPE2 BGP7C12 BGP7C2 BGP7CON1 BGP7D21 BGP7D24 BGP7D25 BGP7D5 BGP7D52 BGP7D7 BGP7D71 BGP7D711 BGP7D722 BGP7D723 BGP7D75 BGP7D8 BGP7D9 BGP7DHE1 BGP7DPE1 BGP7DPE2 BGP8C12 BGP8C2X BGP8CON1 BGP8CU2 BGP8D21 BGP8D24 BGP8D25 BGP8D5 BGP8D52 BGP8D7 BGP8D71 BGP8D711 BGP8D722 BGP8D723 BGP8D75 BGP8D8 BGP8D9 BGP8DHE1 BGP8DPE1 BGP8DPE2 BGP9C12 BGP9C2X BGP9CON1 BGP9CU BGP9CU2 BGP9D24 BGP9D25 BGP9D5 BGP9D7 BGP9D71 BGP9D711 BGP9D722 BGP9D732 BGP9D8 BGP9D9 BGP9DHE1 BGP9DPE1 BGP9DPE2 BGPMUA01 BGPMUD07 BGPMUD08 BGPMUH08 BGPMUH14
Diabetes Registry	67	BDMD011 BDMD017 BDMD01T BDMD111 BDMD117 BDMD11T BDMD207 BDMD217 BDMD317 BDMD411 BDMD417 BDMD41T BDMD511 BDMD512 BDMD517 BDMD611 BDMD612 BDMD617 BDMD711 BDMD712 BDMD717 BDMD811 BDMD812 BDMD817 BDMD911 BDMD917 BDMD91T BDMDA11 BDMDA17 BDMDA1T BDMDB11 BDMDB17 BDMDB1T BDMDC11 BDMDC16 BDMDC17 BDMDD11 BDMDD16 BDMDD17 BDMDE16 BDMDE17 BDMDE1B BDMDF16 BDMDF17 BDMDF1B BDMDG16 BDMDG17 BDMDG1B BDMEDMU2 BDMLPM BDMP017 BDMP117 BDMP417 BDMP517 BDMP617 BDMP717 BDMP817 BDMP917 BDMPA17 BDMPB17 BDMPC17 BDMPD17 BDMPE17 BDMPF17 BDMPG17 BDMS9B2 BDMS9D2
IHS Uniform Data System	28	BUD0RPC2 BUD1RP6U BUD1RP6V BUD1RPC2 BUD2RP6U BUD2RP6V BUD2RPC2 BUD9RPC2 BUDARP6U BUDARP6V BUDARPC2 BUDBRP6U BUDBRP6V BUDBRPC2 BUDCRP6R BUDCRP6U BUDCRP6V BUDCRPC2 BUDDRP6R BUDDRP6V BUDDRPC2 BUDERP6R BUDERP6V BUDERPC2 BUDHRP6R BUDHRP6V BUDHRPC2 BUDHUTL3
Patient Care Component Reports	25	APCLAL1A APCLD207 APCLD217 APCLD317 APCLD511 APCLD512 APCLD517 APCLD611 APCLD612 APCLD617 APCLD711 APCLD712 APCLD717 APCLD811 APCLD812 APCLD817 APCLP517 APCLP617 APCLP717 APCLP817 APCLPP21 APCLREDU APCLV2 APCLVLU APCLVLU1
Patient Care Component	16	APCDDDPE APCDDMU2 APCDEGP1 APCDEGP3 APCDTWC1 APCHPWH3 APCHS10 APCHS9B1 APCHS9B2 APCHS9B3 APCHS9D2 APCHSACG APCHSAS1 BJPC1EC1 BJPC2ENV BJPC2P1
GUI Objects	7	BGOEDTP2 BGOEDTPR BGOIN002 BGOPRDD BGOTRG BGOVIMM BGOVPED
Patient Care Component Table Maintiance	7	APCM11E5 APCM11E6 APCM13E5 APCM13E6 APCM14E5 APCM24E5 APCM25E5
Health Summary Components	5	BHSACG BHSAST1 BHSDM2 BHSDMPR1 BHSPED
PCC New Encounter Form	4	VENPCCKG VENPCCKX VENPCCQA VENPCCQC
PCE Patient Care Encounter	4	PXAIPED PXPXRM PXPXRMI2 PXQUTL3C
IHS Mods To Text Integration Utilities	3	BTIUCPL BTIULO14 BTIUPV1
Mental Health Social Services	3	AMHEHR AMHLESED AMHRSB2
Patient Care Component Data Transmission	3	APCPDR2 APCPREX2 APCPUTIL
iCare	3	BQIDCAH5 BQITREDU BQITRUT1
Clinical Scheduling for Windows	1	BSDX41L
Data Warehouse Export System	1	BDWUTIL
IHS Electronic Health Record	1	BEHORXEI
IHS HIV Management System	1	BKMQQCRC
IHS Patient	1	AUPNCPT
IHS Prenatal Care Module	1	BJPNPBDT
IHS Support HL7 Interfaces	1	BHLOBRI
Local Area Programs	1	AZAXDPM1
Scheduling	1	SCRPW25
Third Party Billing	1	ABMCPTCK

Package	Total	Routines
IHS Prenatal Care Module	5	BJPNFAUD BJPNGNOT BJPNGPIP BJPNPBDT BJPNPUTL
IHS HIV Management System	4	BKMIXX BKMIXX1 BKMVA61 BKMVSUP5
IHS Mods To Text Integration Utilities	4	BTIULO BTIULO14 BTIULO5 BTIUPV1
PCC New Encounter Form	4	VENPCCKG VENPCCKX VENPCCQA VENPCCQC
Patient Care Component	4	APCDAEDU APCDDDPE APCDTWC1 BJPC2P20
Mental Health Social Services	3	AMHGDVF1 AMHPCCL AMHPCCL1
PCE Patient Care Encounter	3	PXCEPED PXPXRMI2 PXQUTL3C
GUI Objects	2	BGOVPED2 BGOVTR
IHS Electronic Health Record	2	BEHOENPP BEHORXED
iCare	2	BQIPTED BQITRUT1
Automated Information Collection System	1	IBDFRPC6
Clinical Reminders	1	PXRMEDU
IHS Patient	1	AUPN9915

Package	Total	FileMan Files
IHS Patient	1	V PATIENT ED(#9000010.16)[1208]
Patient Care Component	1	PCC PATIENT EDUCATION DUPLICATE DELETES(#9001040.16)[1208]

Package	Total	FileMan Files
IHS Patient	4	PATIENT(#9000001)[.02] PROBLEM(#9000011)[1103] V PATIENT ED(#9000010.16)[1208] VISIT(#9000010)[.03]
Kernel	2	PACKAGE(#9.4)[81202] NEW PERSON(#200)[.05, 1202, 1204, 1217, 1219]
Scheduling	2	CLINIC STOP(#40.7)[1203] HOSPITAL LOCATION(#44)[1215]
Utility Tables	2	EDUCATION TOPICS(#9999999.09)[.01] READINESS TO LEARN(#99999.15)[1102]
CPT Files	1	CPT(#81)[.09]
DRG Grouper	1	ICD DIAGNOSIS(#80)[.04]
PCE Patient Care Encounter	1	PCE DATA SOURCE(#839.7)[81203]
Patient Care Component	1	PCC DATA ENTRY EDUC TOPICS(#9001002.5)[.12]

Fields, Total: 39

Field #	Name	Loc	Type	Details
.01	TOPIC	0;1	POINTER TO EDUCATION TOPICS FILE (#9999999.09)	**********************REQUIRED FIELD********************** EDUCATION TOPICS(#9999999.09) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S Y=$$EDNAME^AUPNVUTL(Y)` LAST EDITED: `APR 16, 2013` HELP-PROMPT: `Select the topic on which education was delivered.` DESCRIPTION: Pointer to the EDUCATION TOPICS file. TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTTOP") SCREEN: `S DIC("S")="I $P(^(0),U,3)'=1"` EXPLANATION: `Only active Education Topics may be selected.` CROSS-REFERENCE: `9000010.16^B` 1)= S ^AUPNVPED("B",$E(X,1,30),DA)="" 2)= K ^AUPNVPED("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.16^AV9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q CROSS-REFERENCE: `9000010.16^AAVA^MUMPS` 1)= I $P(^AUPNVPED(DA,0),U,2),$P(^(0),U,3) S ^AUPNVPED("AAVA",$P(^AUPNVPED(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVPED(DA,0),U,2),$P(^(0),U,3) K ^AUPNVPED("AAVA",$P(^AUPNVPED(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA) RECORD INDEXES: `ACR (#406), AMAP (#413)`
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `JUL 28, 2017` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDPAT") UNEDITABLE CROSS-REFERENCE: `9000010.16^AC` 1)= S ^AUPNVPED("AC",$E(X,1,30),DA)="" 2)= K ^AUPNVPED("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.16^AATOO^MUMPS` 1)= I $P(^AUPNVPED(DA,0),U,3)]"" S ^AUPNVPED("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVPED(DA,0),U,3)]"" K ^AUPNVPED("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA) CROSS-REFERENCE: `9000010.16^AAVATOO^MUMPS` 1)= I $P(^AUPNVPED(DA,0),U),$P(^AUPNVPED(DA,0),U,3) S ^AUPNVPED("AAVA",X,$P(^AUPNVPED(DA,0),U),(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVPED(DA,0),U),$P(^AUPNVPED(DA,0),U,3) K ^AUPNVPED("AAVA",X,$P(^AUPNVPED(DA,0),U),(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA) CROSS-REFERENCE: `9000010.16^APRBP^MUMPS` 1)= I $P(^AUPNVPED(DA,0),U,3),$P($G(^AUPNVPED(DA,11)),U,3) S ^AUPNVPED("APRB",X,$P($G(^AUPNVPED(DA,11)),U,3),(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVPED(DA,0),U,3),$P($G(^AUPNVPED(DA,11)),U,3) K ^AUPNVPED("APRB",X,$P($G(^AUPNVPED(DA,11)),U,3),(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA) RECORD INDEXES: `ACR (#406)`
.03	VISIT	0;3	POINTER TO VISIT FILE (#9000010)	**********************REQUIRED FIELD********************** VISIT(#9000010) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVPED(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 28, 2017` HELP-PROMPT: `Enter the visit date/time for the encounter where the education was provided.` DESCRIPTION: This is the encounter or occasion of service defined in the Visit file that represents when and where the education was provided. TECHNICAL DESCR: This is a pointer to the Visit File (#9000010). This field is stuffed by the applications. No editing is allowed. APCDALVR Variable = APCDALVR("APCDVSIT") SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVPED(DA,0),U,2)"` EXPLANATION: `VISIT MUST BE FOR CURRENT PATIENT` UNEDITABLE CROSS-REFERENCE: `9000010.16^AD` 1)= S ^AUPNVPED("AD",$E(X,1,30),DA)="" 2)= K ^AUPNVPED("AD",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.16^AA^MUMPS` 1)= Q:$P(^AUPNVPED(DA,0),U,2)="" S ^AUPNVPED("AA",$P(^AUPNVPED(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)="" 2)= Q:$P(^AUPNVPED(DA,0),U,2)="" K ^AUPNVPED("AA",$P(^AUPNVPED(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA) This is a Health Summary cross-reference. "AA",PATIENT,VISIT,DA CROSS-REFERENCE: `9000010.16^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. CROSS-REFERENCE: `9000010.16^AAVATOOO^MUMPS` 1)= I $P(^AUPNVPED(DA,0),U),$P(^(0),U,2) S ^AUPNVPED("AAVA",$P(^AUPNVPED(DA,0),U,2),$P(^AUPNVPED(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVPED(DA,0),U),$P(^(0),U,2) K ^AUPNVPED("AAVA",$P(^AUPNVPED(DA,0),U,2),$P(^AUPNVPED(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA) CROSS-REFERENCE: `9000010.16^APRBV^MUMPS` 1)= I $P(^AUPNVPED(DA,0),U,2),$P($G(^AUPNVPED(DA,11)),U,3) S ^AUPNVPED("APRB",$P(^AUPNVPED(DA,0),U,2),$P($G(^AUPNVPED(DA,11)),U,3),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)="" 2)= I $P(^AUPNVPED(DA,0),U,2),$P($G(^AUPNVPED(DA,11)),U,3) K ^AUPNVPED("APRB",$P(^AUPNVPED(DA,0),U,2),$P($G(^AUPNVPED(DA,11)),U,3),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA) CROSS-REFERENCE: `9000010.16^APRVV^MUMPS` 1)= I $P($G(^AUPNVPED(DA,11)),U,3),$P($G(^AUPNVPED(DA,12)),U,4) S ^AUPNVPED("APRV",$P($G(^AUPNVPED(DA,11)),U,3),$P($G(^AUPNVPED(DA,12)),U,4),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)="" 2)= I $P($G(^AUPNVPED(DA,11)),U,3),$P($G(^AUPNVPED(DA,12)),U,4) K ^AUPNVPED("APRV",$P($G(^AUPNVPED(DA,11)),U,3),$P($G(^AUPNVPED(DA,12)),U,4),(9999999-$P(+^AUPNVSIT(X,0),".")),DA) RECORD INDEXES: `ACR (#406)`
.04	ICD DIAGNOSIS	0;4	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `MAR 23, 2000`
.041	ICD TEXT		COMPUTED	MUMPS CODE: `S X=$P($$ICDDX^AUPNVUTL($P(^AUPNVPED(D0,0),U,4),$S($P(^AUPNVPED(D0,0),U,3):$P($P(^AUPNVSIT($P(^AUPNVPED(D0,0),U,3),0),U),"."),1:DT)),U,4)` 9.2 = S Y(9000010.16,.041,80)=$S($D(D0):D0,1:""),Y(9000010.16,.041,1)=$S($D(^AUPNVPED(D0,0)):^(0),1:""),D0=$P(Y(9000010.16,.041,1),U,4) S:'$D(^ICD9(+D0,0)) D0=-1 ALGORITHM: `S X=$P($$ICDDX^AUPNVUTL($P(^AUPNVPED(D0,0),U,4),$S($P(^AUPNVPED(D0,0),U,3):$P($P(^AUPNVSIT($P(^AUPNVPED(D0,0),U,3),0),U),"."),1:DT)),U,4)` LAST EDITED: `AUG 14, 2012`
.05	PROVIDER	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$S($D(BVC):1,$P($G(^VA(200,+Y,""PS"")),U,4)="""":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 28, 2000` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTPRO") SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$S($D(BVC):1,$P($G(^VA(200,+Y,""PS"")),U,4)="""":1,1:0)"` EXPLANATION: `Must be a provider.`
.06	LEVEL OF UNDERSTANDING	0;6	SET	'1' FOR POOR; '2' FOR FAIR; '3' FOR GOOD; '4' FOR GROUP-NO ASSESSMENT; '5' FOR REFUSED; LAST EDITED: `SEP 07, 1993` HELP-PROMPT: `Enter the number which best rates the patient's level of understanding.` DESCRIPTION: This is the provider's assessment of how well the patient understood the education received. TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTLOU")
.07	INDIVIDUAL/GROUP	0;7	SET	'G' FOR GROUP SETTING; 'I' FOR INDIVIDUAL; LAST EDITED: `JUL 10, 1996` HELP-PROMPT: `WAS THIS PATIENT EDUCATION PROVIDED IN A GROUP SETTING OR PROVIDED TO AN INDIVIDUAL` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTIG")
.08	LENGTH OF EDUC (MINUTES)	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 24, 1996` HELP-PROMPT: `ENTER THE NUMBER OF MINUTES THAT THIS PATIENT EDUCATION WAS PROVIDED` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTMIN")
.09	CPT CODE	0;9	POINTER TO CPT FILE (#81)	CPT(#81) INPUT TRANSFORM: `S DIC("S")="D CPT^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 28, 2003` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTCPT") SCREEN: `S DIC("S")="D CPT^AUPNSICD"` EXPLANATION: `Must be an active CPT code.`
.11	COMMENT	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<2) X` LAST EDITED: `OCT 09, 1998` HELP-PROMPT: `Answer must be 2-100 characters in length.` DESCRIPTION: This field is to capture narrative text about the patient education given. Will display on the health summary if present.
.12	TOPIC CATEGORY	0;12	POINTER TO PCC DATA ENTRY EDUC TOPICS FILE (#9001002.5)	PCC DATA ENTRY EDUC TOPICS(#9001002.5) LAST EDITED: `JUN 01, 2000`
.13	GOAL CODE	0;13	SET	'GS' FOR GOAL SET; 'GM' FOR GOAL MET; 'GNM' FOR GOAL NOT MET; 'GNS' FOR GOAL NOT SET; LAST EDITED: `MAR 28, 2007`
.14	GOAL COMMENT	0;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>68!($L(X)<1) X` LAST EDITED: `MAR 28, 2007` HELP-PROMPT: `Answer must be 1-68 characters in length.`
1	SUB-TOPIC	1;0	Multiple #9000010.161	9000010.161
1101	PROVIDER'S NARRATIVE	11;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<3) X` LAST EDITED: `JUN 21, 2000` HELP-PROMPT: `Answer must be 3-80 characters in length.`
1102	READINESS TO LEARN	11;2	POINTER TO READINESS TO LEARN FILE (#99999.15)	READINESS TO LEARN(#99999.15) INPUT TRANSFORM: `S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 25, 2016` SCREEN: `S DIC("S")="I '$P(^(0),U,3)"` EXPLANATION: `MUST BE AN ACTIVE ENTRY`
1103	PROBLEM	11;3	POINTER TO PROBLEM FILE (#9000011)	PROBLEM(#9000011) LAST EDITED: `JUL 28, 2017` CROSS-REFERENCE: `9000010.16^APRB^MUMPS` 1)= I $P(^AUPNVPED(DA,0),U,3),$P(^AUPNVPED(DA,0),U,2) S ^AUPNVPED("APRB",$P(^AUPNVPED(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVPED(DA,0),U,3),$P(^AUPNVPED(DA,0),U,2) K ^AUPNVPED("APRB",$P(^AUPNVPED(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".",1)),DA) CROSS-REFERENCE: `9000010.16^APRV^MUMPS` 1)= I $P(^AUPNVPED(DA,0),U,3),$P($G(^AUPNVPED(DA,12)),U,4) S ^AUPNVPED("APRV",X,$P($G(^AUPNVPED(DA,12)),U,4),(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".")),DA)="" 2)= I $P(^AUPNVPED(DA,0),U,3),$P($G(^AUPNVPED(DA,12)),U,4) K ^AUPNVPED("APRV",X,$P($G(^AUPNVPED(DA,12)),U,4),(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".")),DA)
1201	EVENT DATE AND TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 01, 1994` HELP-PROMPT: `Enter the date and time the patient education was given.` DESCRIPTION: `This is the date and time the education 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 prmary 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 exam` was given. The event date does not have to be the visit date, but it must be within 30 days before or after the visit, and not be a future date. If a user wnats to enter an 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: `APR 26, 1994` HELP-PROMPT: `Enter the provider who ordered the patient education.` DESCRIPTION: This field can be used to document the provider who ordered the patient education. 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: `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 10, 1996` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTCLN")
1204	ENCOUNTER PROVIDER	12;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 28, 2017` HELP-PROMPT: `Enter the provider who gave the patient education.` DESCRIPTION: This is the provider who gave the patient education. 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") CROSS-REFERENCE: `9000010.16^APRVP^MUMPS` 1)= I $P(^AUPNVPED(DA,0),U,3),$P($G(^AUPNVPED(DA,11)),U,3) S ^AUPNVPED("APRV",$P($G(^AUPNVPED(DA,11)),U,3),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".")),DA)="" 2)= I $P(^AUPNVPED(DA,0),U,3),$P($G(^AUPNVPED(DA,11)),U,3) K ^AUPNVPED("APRV",$P($G(^AUPNVPED(DA,11)),U,3),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),".")),DA)
1208	PARENT	12;8	POINTER TO V PATIENT ED FILE (#9000010.16)	V PATIENT ED(#9000010.16) 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.16^1217` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVPED(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.16,1216,1,1,1.4) 1.4)= S DIH=$G(^AUPNVPED(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.16,DIG=1217 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1217 CROSS-REFERENCE: `^^TRIGGER^9000010.16^1218` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVPED(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.16,1216,1,2,1.4) 1.4)= S DIH=$G(^AUPNVPED(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.16,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 PATIENT ED 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 PATIENT ED File` CROSS-REFERENCE: `^^TRIGGER^9000010.16^1219` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVPED(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.16,1218,1,1,1.4) 1.4)= S DIH=$G(^AUPNVPED(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.16,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 PATIENT ED File`
1301	SNOMED TOPIC	13;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `APR 16, 2013` HELP-PROMPT: `Answer must be 1-20 characters in length.`
2601	SNOMED CT	26;0	Multiple #9000010.1626	9000010.1626
2701	LOINC CODES	27;0	Multiple #9000010.1627	9000010.1627 LAST EDITED: `FEB 26, 2013`
80101	EDITED FLAG	801;1	SET	'1' FOR EDITED; LAST EDITED: `APR 01, 1994` HELP-PROMPT: `Answer is automatically generated by the PCE filing logic.` DESCRIPTION: This field is automatically set to 1 if PCE detects that any original exam data is being edited. TECHNICAL DESCR: PCE filing logic automatically compares the before and after pictures of the record to determine if the edited flag should be set to "1".
80102	AUDIT TRAIL	801;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>85!($L(X)<2) X` LAST EDITED: `MAY 09, 1996` HELP-PROMPT: `Answer is automatically generated by the PCE filing logic.` DESCRIPTION: This field is populated automatically by the PCE filing logic. The format of the field is as follows: Pointer to PCE data source file_"-"_A for Add or E for Edit_" "_DUZ of the person who entered the data_";"... TECHNICAL DESCR: `The PCE filing logic requires a pointer to the PCE data source file. If this is not passed, then PCE filing logic will not process the data.` If the record is a new record, then an "A" is used to specify the source that added the data. If the record existed previously, PCE filing logic compares the old and new records of information. An "E" will automatically be used if the filing logic finds the data has been edited. If "E" is used, then the Edited Flag field is automatically set to 1. The DUZ is stored in its internal format to represent the user who performed the adding or editing of data for this record. Iterations of editing will be concatenated to the previous data source value, up to 85 characters.
81101	COMMENTS	811;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>245!($L(X)<1) X` LAST EDITED: `JUL 11, 1995` HELP-PROMPT: `Enter a comment 1-245 characters in length.` DESCRIPTION: This is a comment related to the patient's education. The provider may enter this manually via the PCE User Interface.
81201	VERIFIED	812;1	SET	'1' FOR ELECTRONICALLY SIGNED; '2' FOR VERIFIED BY PACKAGE; LAST EDITED: `MAY 09, 1996` UNEDITABLE
81202	PACKAGE	812;2	POINTER TO PACKAGE FILE (#9.4)	PACKAGE(#9.4) LAST EDITED: `MAY 09, 1996` UNEDITABLE
81203	DATA SOURCE	812;3	POINTER TO PCE DATA SOURCE FILE (#839.7)	PCE DATA SOURCE(#839.7) LAST EDITED: `MAY 09, 1996` UNEDITABLE

Customize PDF page

Package: IHS Patient

Global: ^AUPNVPED

Information

Description

Directly Accessed By Routines, Total: 385

Accessed By FileMan Db Calls, Total: 36

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 14

Fields, Total: 39