Global: ^APCDDMUP

FileMan FileNo	FileMan Filename	Package
9001002.2	PCC DATA ENTRY DM UPDATE	Patient Care Component

Package	Total	Routines
Patient Care Component	3	APCDDMU2 APCDDMU3 APCDDMUP
Local Area Programs	1	AZAXDPM1

Package	Total	Routines
Patient Care Component	1	APCDDMUP

Package	Total	FileMan Files
Utility Tables	6	EDUCATION TOPICS(#9999999.09)[#9001002.212(.01)] HEALTH FACTORS(#9999999.64)[.09, .1, 1107, 1108, 1109, 1110] IMMUNIZATION(#9999999.14)[1111, 1112, 1113] LOCATION(#9999999.06)[1106] REFUSAL TYPE(#9999999.73)[#9001002.215(.01)] READINESS TO LEARN(#99999.15)[#9001002.212(.09)]
IHS Patient	1	PATIENT(#9000001)[.01]
Kernel	1	NEW PERSON(#200)[#9001002.212(.04)]
Lab Service	1	LABORATORY TEST(#60)[#9001002.213(.01)]
Pharmacy Data Management	1	DRUG(#50)[#9001002.214(.01)]
Radiology Nuclear Medicine	1	RAD/NUC MED PROCEDURES(#71)[.24]
VA Fileman	1	FILE(#1)[#9001002.215(.03)]

Fields, Total: 47

Field #	Name	Loc	Type	Details
.01	PATIENT NAME	0;1	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `FEB 29, 2000` CROSS-REFERENCE: `9001002.2^B` 1)= S ^APCDDMUP("B",$E(X,1,30),DA)="" 2)= K ^APCDDMUP("B",$E(X,1,30),DA)
.02	DATE OF UPDATE	0;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 29, 2000`
.03	DATE OF DM ONSET	0;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 16, 2000` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.04	PROBLEM NUMBER	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X D:$D(X) PROBN^APCDDMUP` LAST EDITED: `MAR 01, 2000` HELP-PROMPT: `Answer must be 1-10 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.05	HEIGHT DATE	0;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP` LAST EDITED: `MAR 16, 2000` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.06	HEIGHT VALUE	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>90)!(X<10)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 01, 2000` HELP-PROMPT: `Type a Number between 10 and 90, 0 Decimal Digits`
.07	WEIGHT DATE	0;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP` LAST EDITED: `MAR 16, 2000` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.08	WEIGHT VALUE	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>750)!(X<2)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 01, 2000` HELP-PROMPT: `Type a Number between 2 and 750, 0 Decimal Digits`
.09	TOBACCO HEALTH FAC	0;9	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $$SMK^APCDDMU2(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 27, 2001` SCREEN: `S DIC("S")="I $$SMK^APCDDMU2(Y)"` EXPLANATION: `MUST BE A TOBACCO HEALTH FACTOR`
.1	TB HEALTH FACTOR	0;10	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $$TBF^APCDDMU2(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 27, 2001` SCREEN: `S DIC("S")="I $$TBF^APCDDMU2(Y)"` EXPLANATION: `MUST BE A TB STATUS HEALTH FACTOR`
.11	FOOT EXAM DATE	0;11	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP` LAST EDITED: `MAR 16, 2000` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.12	EYE EXAM DATE	0;12	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP` LAST EDITED: `MAR 16, 2000` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.13	DENTAL EXAM DATE	0;13	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP` LAST EDITED: `MAR 16, 2000` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.14	PAP SMEAR DATE	0;14	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP` LAST EDITED: `MAR 16, 2000` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.15	MAMMOGRAM DATE	0;15	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP` LAST EDITED: `MAR 16, 2000` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.16	FLU SHOT DATE	0;16	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP` LAST EDITED: `MAR 16, 2000` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.17	PNEUMOVAX DATE	0;17	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP` LAST EDITED: `MAR 16, 2000` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.18	TD DATE	0;18	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP` LAST EDITED: `MAR 16, 2000` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.19	BP DATE	0;19	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 17, 2001`
.2	BP VALUE	0;20	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X D BP^AUPNVMSR` LAST EDITED: `JAN 17, 2001` HELP-PROMPT: `Answer must be 1-10 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.21	FOOT EXAM RESULT	0;21	SET	'A' FOR ABNORMAL; 'N' FOR NORMAL; LAST EDITED: `JUN 20, 2001`
.22	EYE EXAM RESULT	0;22	SET	'A' FOR ABNORMAL; 'N' FOR NORMAL; LAST EDITED: `JUN 20, 2001`
.23	EKG RESULT	0;23	SET	'A' FOR ABNORMAL; 'N' FOR NORMAL; 'B' FOR BORDERLINE; LAST EDITED: `JAN 11, 2002`
.24	MAMMOGRAM	0;24	POINTER TO RAD/NUC MED PROCEDURES FILE (#71)	RAD/NUC MED PROCEDURES(#71) LAST EDITED: `JUN 23, 2005`
.25	DEPRESSION SCREEN EXAM DATE	0;25	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP` LAST EDITED: `JUL 18, 2006` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.26	DEPRESSION SCREENING RESULT	0;26	SET	'N' FOR NORMAL/NEGATIVE; 'PO' FOR POSITIVE; LAST EDITED: `JUL 18, 2006`
1101	PPD DATE	11;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP` LAST EDITED: `MAR 16, 2000` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1102	PPD READING	11;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 29, 2000` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
1103	EKG	11;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP` LAST EDITED: `MAR 16, 2000` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1106	SITE WHERE FOLLOWED	11;6	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `MAY 24, 2002`
1107	SELF MONITORING HEALTH FACTOR	11;7	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $$SG^APCDDMU2(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 31, 2002` SCREEN: `S DIC("S")="I $$SG^APCDDMU2(Y)"` EXPLANATION: `Must be a Diabetes Self Monitoring Health Factor`
1108	BARRIERS TO LEARN HF	11;8	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $$BTL^APCDDMU3(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 27, 2004` SCREEN: `S DIC("S")="I $$BTL^APCDDMU3(Y)"` EXPLANATION: `Must be a BARRIERS TO LEARNING health factor."`
1109	READINESS TO LEARN HF	11;9	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $$RTL^APCDDMU3(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 27, 2004` SCREEN: `S DIC("S")="I $$RTL^APCDDMU3(Y)"` EXPLANATION: `Must be a READINESS TO LEARN health factor`
1110	LEARNING PREFERENCE	11;10	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $$LP^APCDDMU3(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 27, 2004` SCREEN: `S DIC("S")="I $$LP^APCDDMU3(Y)"` EXPLANATION: `Must be a LEARNING PREFERENCE health factor.`
1111	FLU VACCINE	11;11	POINTER TO IMMUNIZATION FILE (#9999999.14)	IMMUNIZATION(#9999999.14) INPUT TRANSFORM: `S DIC("S")="I $$FLU^APCDDMU3(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 04, 2004` SCREEN: `S DIC("S")="I $$FLU^APCDDMU3(Y)"` EXPLANATION: `Must be an ACTIVE Influenza immunization`
1112	PNEMOVAX VALUE	11;12	POINTER TO IMMUNIZATION FILE (#9999999.14)	IMMUNIZATION(#9999999.14) INPUT TRANSFORM: `S DIC("S")="I $$PN^APCDDMU3(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 04, 2004` SCREEN: `S DIC("S")="I $$PN^APCDDMU3(+Y)"` EXPLANATION: `Must be an ACTIVE Pnemovax immunization`
1113	TD Value	11;13	POINTER TO IMMUNIZATION FILE (#9999999.14)	IMMUNIZATION(#9999999.14) INPUT TRANSFORM: `S DIC("S")="I $$TD^APCDDMU3(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 04, 2004` SCREEN: `S DIC("S")="I $$TD^APCDDMU3(+Y)"` EXPLANATION: `Must be an ACTIVE Td immunization`
1114	TOBACCO SCREEN DATE	11;14	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 29, 2004`
1115	TB SCREEN DATE	11;15	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 29, 2004`
1116	SMBG SCREEN DATE	11;16	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 29, 2004`
1117	BARRIERS TO LEARN DATE	11;17	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 29, 2004`
1118	READINESS TO LEARN DATE	11;18	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 29, 2004`
1119	LEARNING PREFERNCE DATE	11;19	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 29, 2004`
1200	DM EDUCATION	12;0	POINTER Multiple #9001002.212	9001002.212
1300	LAB VALUES	13;0	POINTER Multiple #9001002.213	9001002.213
1400	MEDICATIONS	14;0	POINTER Multiple #9001002.214	9001002.214
1500	REFUSALS	15;0	POINTER Multiple #9001002.215	9001002.215

Customize PDF page

Package: Patient Care Component

Global: ^APCDDMUP

Information

Description

Directly Accessed By Routines, Total: 5

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 12

Fields, Total: 47