Global: ^AUPNTP

FileMan FileNo	FileMan Filename	Package
9000094	TREATMENT PLAN	IHS Patient

Package	Total	Routines
Patient Care Component	2	APCDETP APCDETP1
IHS Patient	1	AUPNCIX

Package	Total	Routines
Patient Care Component	2	APCDETP APCDETP1

Package	Total	FileMan Files
Utility Tables	2	TREATMENT PLAN TYPE(#99999.21)[.01] TREATMENT PLAN DISCONTINUED REASON(#99999.22)[.14]
DRG Grouper	1	ICD DIAGNOSIS(#80)[.06]
IHS Patient	1	PATIENT(#9000001)[.02]
Kernel	1	NEW PERSON(#200)[.07, .09, .13, #9000094.12(.01), #9000094.18(.02)]

Fields, Total: 23

Field #	Name	Loc	Type	Details
.01	TREATMENT PLAN TYPE	0;1	POINTER TO TREATMENT PLAN TYPE FILE (#99999.21)	**********************REQUIRED FIELD********************** TREATMENT PLAN TYPE(#99999.21) LAST EDITED: `JUL 10, 2009` CROSS-REFERENCE: `9000094^B` 1)= S ^AUPNTP("B",$E(X,1,30),DA)="" 2)= K ^AUPNTP("B",$E(X,1,30),DA)
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `JUL 10, 2009` CROSS-REFERENCE: `9000094^AC` 1)= S ^AUPNTP("AC",$E(X,1,30),DA)="" 2)= K ^AUPNTP("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000094^AATOO^MUMPS` 1)= I $P(^AUPNTP(DA,0),U,3) S ^AUPNTP("AA",X,(9999999-$P(^AUPNTP(DA,0),U,3)),DA)="" 2)= I $P(^AUPNTP(DA,0),U,3) K ^AUPNTP("AA",X,(9999999-$P(^AUPNTP(DA,0),U,3)),DA)
.03	DATE INITIATED	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 10, 2009` CROSS-REFERENCE: `^^TRIGGER^9000094^.05` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNTP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$$CMPLDATE^AUPNCIX(DA) S DIH=$G(^AUPNTP(DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9000094,DIG=.05 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNTP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$$CMPLDATE^AUPNCIX(DA) S DIH=$G(^AUPNTP(DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9000094,DIG=.05 D ^DICR CREATE VALUE)= S X=$$CMPLDATE^AUPNCIX(DA) DELETE VALUE)= S X=$$CMPLDATE^AUPNCIX(DA) FIELD)= COMP CROSS-REFERENCE: `9000094^AA^MUMPS` 1)= I $P(^AUPNTP(DA,0),U,2) S ^AUPNTP("AA",$P(^AUPNTP(DA,0),U,2),(9999999-X),DA)="" 2)= I $P(^AUPNTP(DA,0),U,2) K ^AUPNTP("AA",$P(^AUPNTP(DA,0),U,2),(9999999-X),DA)
.04	DURATION	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<2) X I $D(X) D INP^AUPNCIX` OUTPUT TRANSFORM: `S Y=$$OUTTX^AUPNCIX(Y)` LAST EDITED: `JUL 10, 2009` HELP-PROMPT: `Answer must be 2-5 characters in length.` EXECUTABLE HELP: `D INPH^AUPNCIX` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^9000094^.05` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNTP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$$CMPLDATE^AUPNCIX(DA) S DIH=$G(^AUPNTP(DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9000094,DIG=.05 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNTP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$$CMPLDATE^AUPNCIX(DA) S DIH=$G(^AUPNTP(DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9000094,DIG=.05 D ^DICR CREATE VALUE)= S X=$$CMPLDATE^AUPNCIX(DA) DELETE VALUE)= S X=$$CMPLDATE^AUPNCIX(DA) FIELD)= #.05
.05	COMPLETION DATE	0;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 10, 2009` NOTES: `TRIGGERED by the DURATION field of the TREATMENT PLAN File` TRIGGERED by the DATE INITIATED field of the TREATMENT PLAN File
.06	DIAGNOSIS	0;6	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D ICD^AUPNCIX(+Y,$G(DA),$G(APCDTDI))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 24, 2012` SCREEN: `S DIC("S")="D ICD^AUPNCIX(+Y,$G(DA),$G(APCDTDI))"` EXPLANATION: `Must be an active code as of the initiation date.` EXECUTABLE HELP: `D HELP^AUPNSICD` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.07	RESPONSIBLE PROVIDER	0;7	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)),$P($G(^VA(200,+Y,""PS"")),U,4)=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 10, 2009` SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$P($G(^VA(200,+Y,""PS"")),U,4)="""""` EXPLANATION: `Must be an active provider.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.08	DATE LAST UPDATE	0;8	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 10, 2009`
.09	USER LAST UPDATE	0;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 10, 2009`
.11	NEXT REVIEW DATE	0;11	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 10, 2009`
.12	DATE DISCONTINUED	0;12	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 10, 2009`
.13	DISCONTINUED BY	0;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 10, 2009`
.14	REASON DISCONTINUED	0;14	POINTER TO TREATMENT PLAN DISCONTINUED REASON FILE (#99999.22)	TREATMENT PLAN DISCONTINUED REASON(#99999.22) LAST EDITED: `JUL 11, 2009`
.15	TREATMENT PLAN OTHER	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUL 12, 2009` HELP-PROMPT: `Answer must be 1-30 characters in length.`
1201	TEAM MEMBERS	12;0	POINTER Multiple #9000094.12	9000094.12
1301	PATIENT STRENGTHS	13;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<2) X` LAST EDITED: `JUL 10, 2009` HELP-PROMPT: `Answer must be 2-240 characters in length.`
1401	AREA OF FOCUS	14;0	Multiple #9000094.14	9000094.14
1501	GOALS	15;0	Multiple #9000094.15	9000094.15
1601	OBJECTIVES	16;0	Multiple #9000094.16	9000094.16
1700	NARRATIVE COMMENT	17;0	WORD-PROCESSING #9000094.17
1801	REVIEW DATES	18;0	DATE Multiple #9000094.18	9000094.18
1901	TEAM MEMBERS (OUTSIDE)	19;0	Multiple #9000094.19	9000094.19
2100	DISCONTINUED COMMENTS	21;0	WORD-PROCESSING #9000094.21

Customize PDF page

Package: IHS Patient

Global: ^AUPNTP

Information

Description

Directly Accessed By Routines, Total: 3

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 5

Fields, Total: 23