Global: ^BDMEDMUP

FileMan FileNo	FileMan Filename	Package
9003203.2	DMS DATA ENTRY DM UPDATE	Diabetes Registry

Directly Accessed By Routines, Total: 4

Package	Total	Routines
Diabetes Registry	3	BDMEDMU2 BDMEDMU3 BDMEDMUP

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Diabetes Registry	1	BDMEDMUP

Pointer To FileMan Files, Total: 12

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

Fields, Total: 51

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: `9003203.2^B` 1)= S ^BDMEDMUP("B",$E(X,1,30),DA)="" 2)= K ^BDMEDMUP("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^BDMEDMUP` 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^BDMEDMUP` 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^BDMEDMUP` 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^BDMEDMU2(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^BDMEDMU2(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^BDMEDMU2(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^BDMEDMU2(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^BDMEDMUP` 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^BDMEDMUP` 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^BDMEDMUP` 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^BDMEDMUP` 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^BDMEDMUP` 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^BDMEDMUP` 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^BDMEDMUP` 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^BDMEDMUP` 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^BDMEDMUP` 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^BDMEDMUP` 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^BDMEDMUP` 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^BDMEDMU2(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^BDMEDMU2(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^BDMEDMU3(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^BDMEDMU3(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^BDMEDMU3(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^BDMEDMU3(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^BDMEDMU3(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^BDMEDMU3(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^BDMEDMU3(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^BDMEDMU3(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^BDMEDMU3(+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^BDMEDMU3(+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^BDMEDMU3(+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^BDMEDMU3(+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`
1120	HEP B DATE	11;20	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 24, 2013`
1121	HEP B VALUE	11;21	POINTER TO IMMUNIZATION FILE (#9999999.14)	IMMUNIZATION(#9999999.14) INPUT TRANSFORM: `S DIC("S")="I $$HEPB^BDMEDMU3(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 24, 2013` SCREEN: `S DIC("S")="I $$HEPB^BDMEDMU3(+Y)"` EXPLANATION: `MUST BE A HEP B VACCINE`
1122	ENDS HEALTH FACTOR	11;22	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $$ENDS^BDMEDMU2(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 08, 2016` SCREEN: `S DIC("S")="I $$ENDS^BDMEDMU2(Y)"` EXPLANATION: `MUST BE AN ENDS HF` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1123	ENDS SCREEN DATE	11;23	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 08, 2016`
1200	DM EDUCATION	12;0	POINTER Multiple #9003203.212	9003203.212
1300	LAB VALUES	13;0	POINTER Multiple #9003203.213	9003203.213
1400	MEDICATIONS	14;0	POINTER Multiple #9003203.214	9003203.214
1500	REFUSALS	15;0	POINTER Multiple #9003203.215	9003203.215

Customize PDF page

Package: Diabetes Registry

Global: ^BDMEDMUP

Information

Description

Directly Accessed By Routines, Total: 4

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 12

Fields, Total: 51