Global: ^APCLVSTS

FileMan FileNo	FileMan Filename	Package
9001003.7	PCC MAN REPORTS VISIT SORT	Patient Care Component

Directly Accessed By Routines, Total: 27

Package	Total	Routines
Patient Care Component Reports	18	APCLFPC1 APCLFPCP APCLFPR1 APCLFPRP APCLGV APCLRPL1 APCLTEN1 APCLTENP APCLVL0 APCLVL01 APCLVL1 APCLVL4 APCLVL5 APCLVL6 APCLVLP APCLVLP1 APCLVLP8 APCLVLS
Patient Care Component	7	BJPC2ENP BJPC2P1 BJPC2P11 BJPC2P3 BJPC2P5 BJPC2P6 BJPC2P7
IHS Designated Provider	1	BDPNODP
iCare	1	BQIPLADR

Accessed By FileMan Db Calls, Total: 16

Package	Total	Routines
Patient Care Component Reports	9	APCL3P21 APCLP13 APCLP14 APCLP15 APCLP16 APCLP17 APCLP18 APCLP19 APCLP20
Patient Care Component	7	BJPC1EC1 BJPC2ENP BJPC2P1 BJPC2P11 BJPC2P3 BJPC2P5 BJPC2P7

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Patient Care Component	1	PCC MAN REPORTS VISIT REPORT TEMP(#9001003.8)[.07, #9001003.81101(.01), #9001003.81102(.01)]

Pointer To FileMan Files, Total: 11

Package	Total	FileMan Files
Utility Tables	5	CONTRACEPTIVE METHODS(#99999.11)[999925] EXAM(#9999999.15)[999921] HEALTH FACTORS(#9999999.64)[99991, 99992, 99993, 99994, 99997, 99998, 99999, 999910, 999911, 999917, 999924] IMMUNIZATION LOT(#9999999.41)[999913] LANGUAGES(#9999999.99)[999923]
Case Management System	1	CMS REGISTER TYPE(#9002241.1)[999912]
Patient Care Component	1	PCC MAN REPORTS GEN GROUPS(#9001201)[.15]
Registration	1	RACE(#10)[999926]
Scheduling	1	HOSPITAL LOCATION(#44)[999916]
Text Integration Utility	1	TIU DOCUMENT DEFINITION(#8925.1)[999919]
VA Fileman	1	FILE(#1)[90182.2]

Fields, Total: 58

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 08, 1993` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits`
.01	ITEM	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `APR 02, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `9001003.7^B` 1)= S ^APCLVSTS("B",$E(X,1,30),DA)="" 2)= K ^APCLVSTS("B",$E(X,1,30),DA) CROSS-REFERENCE: `9001003.7^U^MUMPS` 1)= S ^APCLVSTS("U",$$UP^XLFSTR(X),DA)="" 2)= K ^APCLVSTS("U",$$UP^XLFSTR(X),DA)
.02	TYPE	0;2	SET	'Q' FOR QMAN; 'R' FOR READER; 'D' FOR DATE RANGE; 'N' FOR NUMERIC; 'F' FOR FREE TEXT RANGE; 'Y' FOR YES/NO; 'W' FOR WORD PROCESSING; 'J' FOR JUST A HIT, NO INTERACTION; 'T' FOR TEXT, ONE ENTRY; 'C' FOR CONTAINS; 'S' FOR SPECIAL; LAST EDITED: `JUN 21, 2005`
.021	INPUT TX FOR FREE TEXT	21;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `AUG 10, 1994` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
.022	HELP PROMPT FOR FREE TEXT	22;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `AUG 10, 1994` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
.025	INPUT TX FOR NUMERIC	25;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `AUG 10, 1994` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
.026	HELP PROMPT FOR NUMERIC	26;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `AUG 10, 1994` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
.027	DIR ? FOR NUMERIC	27;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>70!($L(X)<1) X` LAST EDITED: `OCT 27, 2003` HELP-PROMPT: `Answer must be 1-70 characters in length.`
.028	PROMPT FOR NUMERIC	28;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>70!($L(X)<1) X` LAST EDITED: `OCT 27, 2003` HELP-PROMPT: `Answer must be 1-70 characters in length.`
.03	QMAN TERM	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `SEP 20, 1993` HELP-PROMPT: `Answer must be 2-30 characters in length.`
.04	FILE,FIELD FOR DIR/DIQ	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 23, 1993` HELP-PROMPT: `Answer must be 3-30 characters in length.`
.05	PRINT/SELECT/SORT	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `MAY 09, 1994` HELP-PROMPT: `Answer must be 1-3 characters in length.`
.06	COLUMN HEADER	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 21, 1993` HELP-PROMPT: `Answer must be 3-30 characters in length.`
.07	SUGGESTED COLUMN WIDTH	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>80)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 23, 1993` HELP-PROMPT: `Type a Number between 1 and 80, 0 Decimal Digits`
.08	MULT LOGIC	0;8	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 21, 1993`
.09	ORDER ON MENU	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999.99)!(X<1)!(X?.E1"."3N.N) X` LAST EDITED: `APR 14, 2003` HELP-PROMPT: `Type a Number between 1 and 999.99, 2 Decimal Digits` CROSS-REFERENCE: `9001003.7^C` 1)= S ^APCLVSTS("C",$E(X,1,30),DA)="" 2)= K ^APCLVSTS("C",$E(X,1,30),DA)
.11	PATIENT/VISIT	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1) X` LAST EDITED: `DEC 29, 1993` HELP-PROMPT: `Answer must be 1-2 characters in length.`
.12	PRINT MENU HEADER	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>21!($L(X)<3) X` LAST EDITED: `JAN 31, 2002` HELP-PROMPT: `Answer must be 3-21 characters in length.`
.13	MULT ITEM SELECT/PRINT	0;13	SET	'1' FOR YES; LAST EDITED: `OCT 13, 2003`
.14	LAB/LOINC?	0;14	SET	'1' FOR YES; LAST EDITED: `JUN 21, 2005`
.15	GROUP	0;15	POINTER TO PCC MAN REPORTS GEN GROUPS FILE (#9001201)	PCC MAN REPORTS GEN GROUPS(#9001201) LAST EDITED: `AUG 11, 2008`
1	SCREEN LOGIC	1;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `SEP 21, 1993` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
2	TRANSLATION LOGIC	2;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `SEP 09, 1993` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
3	PRINT LOGIC	3;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `SEP 23, 1993` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
4	SORT LOGIC	4;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `OCT 04, 1994` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
5	SPECIAL TYPE	5;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `JUN 21, 2005` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
1100	HELP FOR ITEM	11;0	WORD-PROCESSING #9001003.711
90182.1	CANNOT BE USED QSC	90182;1	SET	'1' FOR CANNOT BE USED; LAST EDITED: `MAR 29, 2001`
90182.2	UNIQUE ID FILE	90182;2	POINTER TO FILE FILE (#1)	FILE(#1) LAST EDITED: `MAR 29, 2001`
90182.3	UNIQUE ID FIELD	90182;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `MAR 29, 2001` HELP-PROMPT: `Answer must be 1-20 characters in length.`
90182.4	XREF FOR LOOKUP	90182;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `APR 06, 2001` HELP-PROMPT: `Answer must be 1-10 characters in length.`
90192.5	QMAN TAXONOMY ITEM	90182;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 04, 2001`
99991	Tobacco (Smoking) HF	9999;1	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $P(^AUTTHF(Y,0),U,10)=""F"",$P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)[""TOBACCO (""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 01, 2010` SCREEN: `S DIC("S")="I $P(^AUTTHF(Y,0),U,10)=""F"",$P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)[""TOBACCO ("""` EXPLANATION: `Must be a health factor in the one of the categories TOBACCO (SMOKING), TOBACCO (SMOKELESS - CHEWING/DIP) or TOBACCO (EXPOSURE).`
99992	TB Status Health Factor	9999;2	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""TB STATUS""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 06, 2002` SCREEN: `S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""TB STATUS"""` EXPLANATION: `Must be a TB STATUS health factor.`
99993	ALCOHOL/DRUG Health Factor	9999;3	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""ALCOHOL/DRUG""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 06, 2002` SCREEN: `S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""ALCOHOL/DRUG"""` EXPLANATION: `Must be a ALCOHOL/DRUG health factor.`
99994	STAGED DIABETES MANAGEMENT HF	9999;4	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""STAGED DIABETES MANAGEMENT""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 06, 2002` SCREEN: `S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""STAGED DIABETES MANAGEMENT"""` EXPLANATION: `Must be a STAGED DIABETES MANAGEMENT health factor.`
99995	VETERAN Y/N?	9999;5	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `AUG 20, 2002`
99996	DAY OF WEEK	9999;6	SET	'0' FOR SUNDAY; '1' FOR MONDAY; '2' FOR TUESDAY; '3' FOR WEDNESDAY; '4' FOR THURSDAY; '5' FOR FRIDAY; '6' FOR SATURDAY; LAST EDITED: `FEB 11, 2005`
99997	Barriers to Learning HF	9999;7	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""BARRIERS TO LEARNING""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 04, 2005` SCREEN: `S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""BARRIERS TO LEARNING"""` EXPLANATION: `Must be a Barriers to Learning Health Factor.`
99998	Learning Preference HF	9999;8	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""LEARNING PREFERENCE""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 04, 2005` SCREEN: `S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""LEARNING PREFERENCE"""` EXPLANATION: `Must be a Learning Preference Health Factor.`
99999	Barriers to Learning HF	9999;9	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""READINESS TO LEARN""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 04, 2005` SCREEN: `S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""READINESS TO LEARN"""` EXPLANATION: `Must be a Readiness to Learn Health Factor.`
999910	Rubella Status Health Factor	9999;10	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $P(^AUTTHF(Y,0),U,3)=$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""RUBELLA IMMUNITY STATUS""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 04, 2005` SCREEN: `S DIC("S")="I $P(^AUTTHF(Y,0),U,3)=$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""RUBELLA IMMUNITY STATUS"""` EXPLANATION: `Must be a Rubella Immunity Status Health Factor.`
999911	HEALTH FACTOR CATEGORY	9999;11	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I '$P(^AUTTHF(Y,0),U,13),$P(^AUTTHF(Y,0),U,10)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 01, 2010` SCREEN: `S DIC("S")="I '$P(^AUTTHF(Y,0),U,13),$P(^AUTTHF(Y,0),U,10)=""C"""` EXPLANATION: `Must be a health factor category.`
999912	CMS REGISTER	9999;12	POINTER TO CMS REGISTER TYPE FILE (#9002241.1)	CMS REGISTER TYPE(#9002241.1) LAST EDITED: `AUG 13, 2007`
999913	IMMUNIZATION LOT	9999;13	POINTER TO IMMUNIZATION LOT FILE (#9999999.41)	IMMUNIZATION LOT(#9999999.41) LAST EDITED: `OCT 02, 2007`
999914	PCC RELATIONSHIP	9999;14	POINTER TO AN UNDEFINED FILE	LAST EDITED: `JUN 03, 2008` SCREEN: `S DIC("S")="I $P($G(^(21)),U,1)"` EXPLANATION: `Must be a family history relationship.`
999916	APPOINTMENT CLINIC	9999;16	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) INPUT TRANSFORM: `S DIC("S")="I $P(^SC(Y,0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 24, 2008` SCREEN: `S DIC("S")="I $P(^SC(Y,0),U,3)=""C"""` EXPLANATION: `Must be a clinic type of hospital location.`
999917	ACTIVITY LEVEL Health Factor	9999;17	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""ACTIVITY LEVEL""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 18, 2009` SCREEN: `S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""ACTIVITY LEVEL"""` EXPLANATION: `Must be an ACTIVITY LEVEL health factor.`
999918	STAGE	9999;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 11, 2009` HELP-PROMPT: `Type a Number between 0 and 99999, 0 Decimal Digits`
999919	TIU DOCUMENT TITLE	9999;19	POINTER TO TIU DOCUMENT DEFINITION FILE (#8925.1)	TIU DOCUMENT DEFINITION(#8925.1) LAST EDITED: `JUN 19, 2009`
999920	IMMUNIZATION REGISTER STATUS	9999;20	SET	'A' FOR ACTIVE; 'I' FOR INACTIVE; LAST EDITED: `SEP 17, 2009`
999921	EXAM	9999;21	POINTER TO EXAM FILE (#9999999.15)	EXAM(#9999999.15) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)'=40" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 12, 2009` SCREEN: `S DIC("S")="I $P(^(0),U,2)'=40"` EXPLANATION: `Any exam except Nutrition Screening. Nutrition screening has it's own item.`
999922	INDIAN BLOOD QUANTUM	9999;22	FREE TEXT	INPUT TRANSFORM: `D QUANTUM^AUPNPED` LAST EDITED: `DEC 14, 2009` HELP-PROMPT: `Enter fraction of Indian blood, in the form numerator / denominator, or enter F, FULL, N, NONE, UNK, UNKNOWN, UNS, UNSPECIFIED.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
999923	LANGUAGE	9999;23	POINTER TO LANGUAGES FILE (#9999999.99)	LANGUAGES(#9999999.99) LAST EDITED: `JUN 10, 2010`
999924	Tobacco (Smokeless) HF	90182;6	POINTER TO HEALTH FACTORS FILE (#9999999.64)	HEALTH FACTORS(#9999999.64) INPUT TRANSFORM: `S DIC("S")="I $P(^AUTTHF(Y,0),U,10)=""F"",$$VAL^XBDIQ1(9999999.64,Y,.01)=""TOBACCO (SMOKELESS - CHEWING/DIP)""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 01, 2010` SCREEN: `S DIC("S")="I $P(^AUTTHF(Y,0),U,10)=""F"",$$VAL^XBDIQ1(9999999.64,Y,.01)=""TOBACCO (SMOKELESS - CHEWING/DIP)"""` EXPLANATION: `Must be a health factor in the TOBACCO (SMOKELESS - CHEWING/DIP) category.`
999925	CONTRACEPTIVE METHOD	9999;25	POINTER TO CONTRACEPTIVE METHODS FILE (#99999.11)	CONTRACEPTIVE METHODS(#99999.11) LAST EDITED: `AUG 09, 2011`
999926	RACE	9999;26	POINTER TO RACE FILE (#10)	RACE(#10) LAST EDITED: `JUN 19, 2013`
999927	HOMELESS	9999;27	SET	'H' FOR HOMELESS; 'N' FOR NOT HOMELESS; 'R' FOR NOT RECORDED; LAST EDITED: `JAN 19, 2017`

Customize PDF page

Package: Patient Care Component

Global: ^APCLVSTS

Information

Description

Directly Accessed By Routines, Total: 27

Accessed By FileMan Db Calls, Total: 16

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 11

Fields, Total: 58