Global: ^AUPNGOAL

FileMan FileNo	FileMan Filename	Package
9000093	PATIENT GOALS	IHS Patient

Package	Total	Routines
IHS GPRA Information System	22	BGP3D211 BGP3D711 BGP3DPE2 BGP4D211 BGP4D711 BGP4DPE2 BGP5D211 BGP5D711 BGP5D8 BGP5DPE2 BGP6D211 BGP6D711 BGP6D8 BGP6DPE2 BGP7D211 BGP7D711 BGP7D8 BGP7DPE2 BGP8D211 BGP8D711 BGP8D8 BGP8DPE2
Patient Care Component	9	APCDAGOL APCDGAP2 APCDGAPI APCDPG APCDPG1 APCDPG2 APCDPG3 APCHPWH3 APCHS82
IHS Electronic Health Record	1	BEHOPGAP

Package	Total	Routines
Patient Care Component	3	APCDGAP2 APCDGAPI APCDPG1

Package	Total	FileMan Files
IHS Patient	1	PATIENT(#9000001)[.02]
Kernel	1	NEW PERSON(#200)[.04, .08, .12, 2.01, #9000093.211101(.02), #9000093.211101(.07), #9000093.211101(.1), #9000093.211101(2.01)]
Patient Care Component	1	PATIENT GOAL TYPES(#9001002.4)[#9000093.01(.01), #9000093.211101(.04)]
Utility Tables	1	LOCATION(#9999999.06)[.06, #9000093.21(.01)]

Fields, Total: 21

Field #	Name	Loc	Type	Details
.01	GOAL SETTING	0;1	SET	**********************REQUIRED FIELD********************** 'S' FOR GOAL SET; 'N' FOR GOAL NOT SET; LAST EDITED: `OCT 14, 2010` DESCRIPTION: This field is set when a goal is first created. Once it is created this field is not editable. If entered in error, goal must be deleted and re-entered. UNEDITABLE CROSS-REFERENCE: `9000093^B` 1)= S ^AUPNGOAL("B",$E(X,1,30),DA)="" 2)= K ^AUPNGOAL("B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9000093^.03` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNGOAL(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^AUPNGOAL(DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=9000093,DIG=.03 D ^DICR 2)= Q CREATE VALUE)= S X=DT DELETE VALUE)= NO EFFECT FIELD)= #.03 CROSS-REFERENCE: `^^TRIGGER^9000093^.04` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNGOAL(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^AUPNGOAL(DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=9000093,DIG=.04 D ^DICR 2)= Q CREATE VALUE)= S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #.04
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `OCT 25, 2010` UNEDITABLE CROSS-REFERENCE: `9000093^AC` 1)= S ^AUPNGOAL("AC",$E(X,1,30),DA)="" 2)= K ^AUPNGOAL("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000093^AATOO^MUMPS` 1)= I $P(^AUPNGOAL(DA,0),U,6)]"",$P(^(0),U,7)]"" S X1=$P($P(^(0),U,7),"."),X2=$P($P(^(0),U,7),".",2),^AUPNGOAL("AA",X,$P(^(0),U,6)," "_$E("000",1,4-$L(X1)-1)_X1_"."_X2_$E("00",1,3-$L(X2)-1),DA)="" K X1,X2 2)= I $P(^AUPNGOAL(DA,0),U,6)]"",$P(^(0),U,7)]"" S X1=$P($P(^(0),U,7),"."),X2=$P($P(^(0),U,7),".",2) K ^AUPNGOAL("AA",X,$P(^(0),U,6)," "_$E("000",1,4-$L(X1)-1)_X1_"."_X2_$E("00",1,3-$L(X2)-1),DA),X1,X2 Allows goal retrieval by patient, facility, and goal number (Nmbr); the number is used as a string in " 000.00" format to assure a consistent ordering.
.03	DATE CREATED	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 25, 2010` DESCRIPTION: The date the goal was entered into the computer. NOTES: `TRIGGERED by the GOAL SETTING field of the PATIENT GOALS File` CROSS-REFERENCE: `^^TRIGGER^9000093^.05` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNGOAL(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNGOAL(DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9000093,DIG=.05 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNGOAL(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNGOAL(DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9000093,DIG=.05 D ^DICR CREATE VALUE)= S X=$$NOW^XLFDT DELETE VALUE)= S X=$$NOW^XLFDT FIELD)= #.05 CROSS-REFERENCE: `^^TRIGGER^9000093^.12` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNGOAL(D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^AUPNGOAL(DIV(0),0)),DIV=X S $P(^(0),U,12)=DIV,DIH=9000093,DIG=.12 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNGOAL(D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^AUPNGOAL(DIV(0),0)),DIV=X S $P(^(0),U,12)=DIV,DIH=9000093,DIG=.12 D ^DICR CREATE VALUE)= S X=DUZ DELETE VALUE)= S X=DUZ FIELD)= #.12
.04	CREATED BY	0;4	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `OCT 25, 2010` DESCRIPTION: The user who entered this goal into the computer. WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the GOAL SETTING field of the PATIENT GOALS File`
.05	DATE/TIME LAST MODIFIED	0;5	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 25, 2010` DESCRIPTION: The date/time the goal entry was last modified. This field should be updated with $$NOW^XLFDT everytime the goal is edited. It is triggered and stuffed when a goal is first added. NOTES: `TRIGGERED by the DATE CREATED field of the PATIENT GOALS File` CROSS-REFERENCE: `9000093^ADLM` 1)= S ^AUPNGOAL("ADLM",$E(X,1,30),DA)="" 2)= K ^AUPNGOAL("ADLM",$E(X,1,30),DA)
.06	FACILITY WHERE GOAL SET	0;6	POINTER TO LOCATION FILE (#9999999.06)	**********************REQUIRED FIELD********************** LOCATION(#9999999.06) LAST EDITED: `OCT 25, 2010` DESCRIPTION: The facility (Location file entry) where the goal was established. THis is the facility that is monitoring the goal. Will most likely be DUZ(2). UNEDITABLE CROSS-REFERENCE: `9000093^AATOO2^MUMPS` 1)= I $P(^AUPNGOAL(DA,0),U,2)]"",$P(^(0),U,7)]"" S X1=$P($P(^(0),U,7),"."),X2=$P($P(^(0),U,7),".",2),^AUPNGOAL("AA",$P(^(0),U,2),X," "_$E("000",1,4-$L(X1)-1)_X1_"."_X2_$E("00",1,3-$L(X2)-1),DA)="" K X1,X2 2)= I $P(^AUPNGOAL(DA,0),U,2)]"",$P(^(0),U,7)]"" S X1=$P($P(^(0),U,7),"."),X2=$P($P(^(0),U,7),".",2) K ^AUPNGOAL("AA",$P(^(0),U,2),X," "_$E("000",1,4-$L(X1)-1)_X1_"."_X2_$E("00",1,3-$L(X2)-1),DA),X1,X2 Allows goal retrieval by patient, facility, and goal number (Nmbr); ordering.
.07	GOAL NUMBER	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999.99)!(X<1)!(X?.E1"."3N.N) X Q:'$D(X) K:$D(^AUPNGOAL("AA",$P(^AUPNGOAL(DA,0),U,2),$P(^(0),U,6)," "_$E("000",1,4-$L($P(X,".",1))-1)_$P(X,".",1)_"."_$P(X,".",2)_$E("00",1,3-$L($P(X,".",2))-1))) X` LAST EDITED: `OCT 13, 2010` HELP-PROMPT: `Enter a number between 1 and 999.9` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000093^AA^MUMPS` 1)= S ^AUPNGOAL("AA",$P(^AUPNGOAL(DA,0),U,2),$P(^(0),U,6)," "_$E("000",1,4-$L($P(X,".",1))-1)_$P(X,".",1)_"."_$P(X,".",2)_$E("00",1,3-$L($P(X,".",2))-1),DA)="" 2)= K ^AUPNGOAL("AA",$P(^AUPNGOAL(DA,0),U,2),$P(^(0),U,6)," "_$E("000",1,4-$L($P(X,".",1))-1)_$P(X,".",1)_"."_$P(X,".",2)_$E("00",1,3-$L($P(X,".",2))-1),DA) Allows goal retrieval by patient, facility, and goal number (Nmbr); the number is used as a string in " 000.00" format to assure a consistent ordering.
.08	PROVIDER	0;8	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `OCT 25, 2010` DESCRIPTION: The provider who is monitoring this goal for this patient. UNEDITABLE
.09	GOAL START DATE	0;9	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 28, 2010`
.1	GOAL FOLLOWUP DATE	0;10	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 28, 2010`
.11	GOAL STATUS	0;11	SET	'S' FOR GOAL STOPPED; 'ME' FOR GOAL MET; 'MA' FOR MAINTAINING GOAL; 'D' FOR DELETED/ENTERED IN ERROR; 'A' FOR ACTIVE; LAST EDITED: `SEP 07, 2011`
.12	USER LAST UPDATE	0;12	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `OCT 25, 2010` NOTES: `TRIGGERED by the DATE CREATED field of the PATIENT GOALS File`
2.01	GOAL DELETED BY	2;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 07, 2011`
2.02	DATE/TIME GOAL DELETED	2;2	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 07, 2011`
2.03	REASON GOAL DELETED	2;3	SET	'W' FOR WRONG PATIENT; 'D' FOR DUPLICATE; 'O' FOR OTHER; LAST EDITED: `SEP 12, 2011`
2.04	REASON IF OTHER	2;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<2) X` LAST EDITED: `SEP 07, 2011` HELP-PROMPT: `Answer must be 2-100 characters in length.`
1000	GOAL TYPE	10;0	POINTER Multiple #9000093.01	9000093.01
1101	GOAL NAME	11;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>120!($L(X)<2) X` LAST EDITED: `OCT 25, 2010` HELP-PROMPT: `Answer must be 2-120 characters in length.` UNEDITABLE
1201	REASON FOR GOAL	12;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>120!($L(X)<2) X` LAST EDITED: `OCT 13, 2010` HELP-PROMPT: `Answer must be 2-120 characters in length.`
1300	REVIEW/PROGRESS NOTES	13;0	DATE Multiple #9000093.13	9000093.13
2100	STEP FACILITY	21;0	POINTER Multiple #9000093.21	9000093.21

Customize PDF page

Package: IHS Patient

Global: ^AUPNGOAL

Information

Description

Directly Accessed By Routines, Total: 50

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 4

Fields, Total: 21