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

Print Page as PDF

Global: ^AUPNVPT

Package: IHS Patient

Global: ^AUPNVPT

Information

FileMan FileNo	FileMan Filename	Package
9000010.17	V PHYSICAL THERAPY	IHS Patient

Description

This file contains physical therapy information specific to a particular visit for a particular patient. The VISIT field of this file is a backward pointer to the VISIT file. This file contains one record for each physical therapy procedure for each visit.

Directly Accessed By Routines, Total: 3

Package	Total	Routines
IHS Support HL7 Interfaces	1	BHLOBRI
Local Area Programs	1	AZAXDPM1
Third Party Billing	1	ABMDVS12

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
IHS Patient	1	V PHYSICAL THERAPY(#9000010.17)[1208]

Pointer To FileMan Files, Total: 7

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

Fields, Total: 16

Field #	Name	Loc	Type	Details
.01	PT TREATMENT	0;1	POINTER TO PHYSICAL THERAPY FILE (#9999999.46)	**********************REQUIRED FIELD********************** PHYSICAL THERAPY(#9999999.46) LAST EDITED: `SEP 25, 1996` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTCOD") CROSS-REFERENCE: `9000010.17^B` 1)= S ^AUPNVPT("B",$E(X,1,30),DA)="" 2)= K ^AUPNVPT("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.17^AV9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDPAT") CROSS-REFERENCE: `9000010.17^AC` 1)= S ^AUPNVPT("AC",$E(X,1,30),DA)="" 2)= K ^AUPNVPT("AC",$E(X,1,30),DA)
.03	VISIT	0;3	POINTER TO VISIT FILE (#9000010)	**********************REQUIRED FIELD********************** VISIT(#9000010) LAST EDITED: `AUG 26, 1987` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDVSIT") CROSS-REFERENCE: `9000010.17^AD` 1)= S ^AUPNVPT("AD",$E(X,1,30),DA)="" 2)= K ^AUPNVPT("AD",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.17^AV10^MUMPS` 1)= D ADD^AUPNVSIT 2)= D SUB^AUPNVSIT
.04	QUANTITY	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTQTY")
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 PHYSICAL THERAPY FILE (#9000010.17)	V PHYSICAL THERAPY(#9000010.17) LAST EDITED: `MAR 09, 1998` 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.17^1217` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVPT(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.17,1216,1,1,1.4) 1.4)= S DIH=$G(^AUPNVPT(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.17,DIG=1217 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1217 CROSS-REFERENCE: `^^TRIGGER^9000010.17^1218` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVPT(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.17,1216,1,2,1.4) 1.4)= S DIH=$G(^AUPNVPT(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.17,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 PHYSICAL THERAPY 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 PHYSICAL THERAPY File` CROSS-REFERENCE: `^^TRIGGER^9000010.17^1219` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVPT(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.17,1218,1,1,1.4) 1.4)= S DIH=$G(^AUPNVPT(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.17,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 PHYSICAL THERAPY File`

Info | Desc | Directly Accessed By Routines | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | All