Global: ^AMQQ(5

FileMan FileNo	FileMan Filename	Package
9009075	QMAN DICTIONARY OF TERMS	PCC Medical Query

Package	Total	Routines
PCC Medical Query	45	AMQ1POST AMQQ1 AMQQAC AMQQATA AMQQATAL AMQQATR1 AMQQAV AMQQCMP3 AMQQCMPZ AMQQDFN AMQQEM2O AMQQGTX AMQQGTX0 AMQQHEL2 AMQQHELP AMQQMGR AMQQMGR3 AMQQMGR4 AMQQMGR6 AMQQMGR7 AMQQMGR8 AMQQMGR9 AMQQMULT AMQQN2 AMQQPIR AMQQPOS AMQQPOST AMQQQ0 AMQQQ1 AMQQQ2 AMQQREG AMQQRMA AMQQSEC AMQQSQ AMQQSQA AMQQSQA0 AMQQSQA1 AMQQSQA2 AMQQSQAC AMQQSQBP AMQQSQL AMQQSQUP AMQQSQVS AMQQTX AMQQTXG
Diabetes Registry	3	BDMFFS BDMFUTIL BDMPOST
Patient Care Component Reports	3	APCLDF1 APCLRTC APCLTAX0
IHS Patient	1	AUPNCIXL

Package	Total	Routines
Patient Care Component Reports	43	APCL2A APCLACC APCLACG APCLAL3 APCLAP4 APCLAP5 APCLAP6 APCLBP APCLCAR APCLCAW APCLCH1 APCLCP1 APCLCR1 APCLCV APCLDE3 APCLDF APCLDF1 APCLDOD1 APCLDQMT APCLDV3 APCLEL1 APCLEM1 APCLEM2 APCLFPC APCLHH1 APCLM2 APCLNJ1 APCLNJ2 APCLOP1 APCLOS APCLPIF1 APCLPIF2 APCLPP2 APCLPSU1 APCLREDU APCLSILR APCLT1 APCLTAX2 APCLTEN APCLVL0 APCLVL01 APCLVL03 APCLYV5
PCC Medical Query	17	AMQ1POST AMQQ1 AMQQ33P1 AMQQ33P2 AMQQAC AMQQATA AMQQEM2O AMQQMGR AMQQMGR3 AMQQMGR7 AMQQMGR9 AMQQN2 AMQQPOS AMQQPOST AMQQREG AMQQSQA0 AMQQSQBP
Mental Health Social Services	13	AMHPHQM AMHPHQO AMHRAS3 AMHRDE3 AMHRDV3 AMHRGADM AMHRGADO AMHRL0 AMHRPPA AMHRPSU1 AMHRPT1 AMHRSR3 AMHRSU5
Patient Care Component	11	APCDCAFB APCDCAFD APCDCAFE APCDCAFG APCDCAFI APCDCAFK APCDCAFR APCDCAFT APCDFQA APCDFQAC APCDPTAB
Computerized Public Health Activity Data	3	BNIGVL0 BNIRP1 BNIU
Women's Health	3	BWGRVL0 BWRPPCD BWRPSCR
Diabetes Registry	2	BDMDR5 BDMRML
IHS HIV Management System	2	BKM11PST BKM1POST
IHS RPMS CHR System	2	BCHRL0 BCHRPT1
Alcohol Chemical Dependency	1	ACDRL0
Asthma Tracking System	1	BATBLG
Case Management System	1	ACMRL0
IHS Release Of Information	1	BRNRU21
Referred Care Information System	1	BMCRL0

Package	Total	FileMan Files
PCC Medical Query	1	QMAN DICTIONARY OF TERMS(#9009075)[5.1]
Taxonomy	1	LAB TAXONOMY(#9002228)[.07]

Package	Total	FileMan Files
PCC Medical Query	4	QMAN DICTIONARY OF LINKS(#9009071)[4] QMAN DATA TYPES(#9009074)[2, 21, 41] QMAN DICTIONARY OF TERMS(#9009075)[5.1] QMAN ATTRIBUTE CLASS(#9009077)[3, 5.3]
Lab Service	2	LABORATORY TEST(#60)[#9009075.02(.01)] TOPOGRAPHY FIELD(#61)[43]

Fields, Total: 36

Field #	Name	Loc	Type	Details
.01	QUERY WORD	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X S X=$G(X) K:$L(X)>65!($L(X)<1)!'(X'?1P.E) X` LAST EDITED: `MAR 10, 1993` HELP-PROMPT: `ANSWER MUST BE 1-65 CHARACTERS IN LENGTH` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9009075^B` 1)= S ^AMQQ(5,"B",$E(X,1,30),DA)="" 2)= K ^AMQQ(5,"B",$E(X,1,30),DA) CROSS-REFERENCE: `9009075^SQCTOO^MUMPS` 1)= N %,Y,Z,A S A=$E(X,1,30),%=$P(^AMQQ(5,DA,0),U,20),Y=$P(^(0),U,22),Z=$P(^(0),U,21) S:Y'="" ^AMQQ(5,"SQF",Y,A)="" S:%'="" ^AMQQ(5,"SQC",%,A)="" S:Z'="" ^AMQQ(5,"SQT",Z,A)="" 2)= N %,Z,Y,A S A=$E(X,1,30),%=$P(^AMQQ(5,DA,0),U,20),Z=$P(^(0),U,21),Y=$P(^(0),U,22) K:Y'="" ^AMQQ(5,"SQF",Y,A) K:%'="" ^AMQQ(5,"SQC",%,A) K:Z'="" ^AMQQ(5,"SQT",Z,A) CROSS-REFERENCE: `9009075^ADTOO^MUMPS` 1)= N % I $D(^AMQQ(5,DA,0)) S %=$P(^(0),U,3) I %'="",X'="COHORT",X'="RANDOM SAMPLE" S ^AMQQ(5,"AD",$E(%,1,30),$E(X,1,30))="" 2)= N % I $D(^AMQQ(5,DA,0)) S %=$P(^(0),U,3) I %'="" K ^AMQQ(5,"AD",$E(%,1,30),$E(X,1,30)) CROSS-REFERENCE: `9009075^AFTOO^MUMPS` 1)= N % I $D(^AMQQ(5,DA,0)) S %=$P(^(0),U,4) I %'="" S ^AMQQ(5,"AF",$E(%,1,30),$E(X,1,30))="" 2)= N % I $D(^AMQQ(5,DA,0)) S %=$P(^(0),U,4) I %'="" K ^AMQQ(5,"AF",$E(%,1,30),$E(X,1,30))
.02	AKA	1;0	Multiple #9009075.01	9009075.01
.03	GOLD STANDARD	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `APR 12, 1991` HELP-PROMPT: `Answer must be 1-12 characters in length.`
1	SUBJECT CLASS	0;2	SET	'P' FOR PATIENT; 'V' FOR VISIT; 'H' FOR HEALTH CARE PROVIDER; 'D' FOR DIAGNOSIS; LAST EDITED: `JUN 21, 1991`
2	ATTRIBUTE DATA TYPE	0;3	POINTER TO QMAN DATA TYPES FILE (#9009074)	QMAN DATA TYPES(#9009074) LAST EDITED: `AUG 12, 1989` CROSS-REFERENCE: `9009075^AD^MUMPS` 1)= S ^AMQQ(5,"AD",$E(X,1,30),$P(^AMQQ(5,DA,0),U))="" 2)= K ^AMQQ(5,"AD",$E(X,1,30),$P(^AMQQ(5,DA,0),U))
3	ATTRIBUTE CLASS	0;4	POINTER TO QMAN ATTRIBUTE CLASS FILE (#9009077)	QMAN ATTRIBUTE CLASS(#9009077) LAST EDITED: `SEP 11, 1990` CROSS-REFERENCE: `9009075^AF^MUMPS` 1)= N % S %=$P(^AMQQ(5,DA,0),U) I %'="" S ^AMQQ(5,"AF",$E(X,1,30),$E(%,1,30))="" 2)= N % S %=$P(^AMQQ(5,DA,0),U) I %'="" K ^AMQQ(5,"AF",$E(X,1,30),$E(%,1,30))
4	LINK	0;5	POINTER TO QMAN DICTIONARY OF LINKS FILE (#9009071)	QMAN DICTIONARY OF LINKS(#9009071) LAST EDITED: `JUL 07, 2005` CROSS-REFERENCE: `9009075^LINK` 1)= S ^AMQQ(5,"LINK",$E(X,1,30),DA)="" 2)= K ^AMQQ(5,"LINK",$E(X,1,30),DA)
5	BOOLEAN SYMBOL	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-9 CHARACTERS IN LENGTH`
5.1	PARENT	5;1	POINTER TO QMAN DICTIONARY OF TERMS FILE (#9009075)	QMAN DICTIONARY OF TERMS(#9009075) LAST EDITED: `MAY 14, 1992`
5.2	FAMILY	5;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."7N.N) X` LAST EDITED: `MAY 14, 1992` HELP-PROMPT: `Type a Number between 0 and 999999999, 6 Decimal Digits`
5.3	DESCENDANT ATTRIBUTE CLASS	5;3	POINTER TO QMAN ATTRIBUTE CLASS FILE (#9009077)	QMAN ATTRIBUTE CLASS(#9009077) LAST EDITED: `MAY 14, 1992`
5.4	MODIFIER	5;4	SET	'1' FOR VALUE; '0' FOR ATTRIBUTE; LAST EDITED: `MAY 14, 1992`
6	FUNCTION LOCATION	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-9 CHARACTERS IN LENGTH`
8	SCRIPT	2;0	WORD-PROCESSING #9009075.08
9	NUMBER OF CONDITIONS	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 20, 1988` HELP-PROMPT: `Type a Number between 0 and 9, 0 Decimal Digits`
10	GOAL CONTEXT	0;9	SET	'P' FOR PATIENT; 'V' FOR VISIT; 'H' FOR HEALTH CARE PROVIDER; 'I' FOR INFO FROM V FILE; 'D' FOR DIAGNOSIS; LAST EDITED: `SEP 29, 1989` CROSS-REFERENCE: `9009075^GOAL^MUMPS` 1)= S ^AMQQ(5,"GOAL",$P(^AMQQ(5,DA,0),U))="" 2)= K ^AMQQ(5,"GOAL",$P(^AMQQ(5,DA,0),U))
11	SINGULARITY	0;10	SET	'0' FOR NO TRUTH OR SINGULARITY; '1' FOR TRUTH; '2' FOR SINGULARITY; '3' FOR COMPUTED; '4' FOR SAVE; LAST EDITED: `JAN 15, 1989`
12	FUNCTION OUTPUT HEADER	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `DEC 30, 1988` HELP-PROMPT: `Answer must be 1-9 characters in length.`
13	TAXONOMY	0;14	SET	'0' FOR NONE; '1' FOR TEXT; '2' FOR CODES AND RANGES; '3' FOR STD LOOKUP; '4' FOR SET OF CODES; '5' FOR HYBRID; LAST EDITED: `MAY 23, 1990`
14	TAX QUERY	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>19!($L(X)<1) X` LAST EDITED: `MAY 15, 1989` HELP-PROMPT: `Answer must be 1-19 characters in length.`
15	TAX DIC GLOBAL	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>19!($L(X)<1) X` LAST EDITED: `MAY 15, 1989` HELP-PROMPT: `Answer must be 1-19 characters in length.`
16	TAX TRANSLATION CODE	3;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `MAY 15, 1989` HELP-PROMPT: `Answer must be 1-240 characters in length.`
17	TAX XREF	0;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `JUN 25, 1989` HELP-PROMPT: `Answer must be 1-9 characters in length.`
18	TAX LOOKUP GLOBAL	0;18	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X S X=$G(X) K:$L(X)>12!($L(X)<1) X` LAST EDITED: `MAR 10, 1993` HELP-PROMPT: `Answer must be 1-12 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9009075^AC^MUMPS` 1)= I $D(@(U_X_"0)")) N %,Y,Z S %=+$P(@(U_X_"0)"),U,2),Z=$P(^AMQQ(5,DA,0),U,5) I Z,% S Y=$P(^AMQQ(1,Z,0),U,4) I Y=.01 S ^AMQQ(5,"AC",%,Z)="" 2)= I $D(@(U_X_"0)")) N %,Y,Z S %=+$P(@(U_X_"0)"),U,2),Z=$P(^AMQQ(5,DA,0),U,5) I Z,% S Y=$P(^AMQQ(1,Z,0),U,4) I Y=.01 K ^AMQQ(5,"AC",%,DA)
19	SECURITY CODE	0;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `SEP 16, 1989` HELP-PROMPT: `Answer must be 1-3 characters in length.`
20	SUBQUERY CONTEXT	0;20	SET	'L' FOR LINK; 'V' FOR VISIT; 'B' FOR BOOLEAN; 'D' FOR DATES; 'N' FOR NULL; 'T' FOR TRUTH; 'C' FOR COMPUTED; 'O' FOR ORDINAL; 'M' FOR MULTIPLE; 'R' FOR RELATIVE DATE; 'P' FOR PLACEHOLDER; 'S' FOR SET OF CODES; LAST EDITED: `MAR 30, 1991` CROSS-REFERENCE: `9009075^SQC^MUMPS` 1)= N % S %=$P(^AMQQ(5,DA,0),U) I %'="" S ^AMQQ(5,"SQC",X,$E(%,1,30))="" 2)= N % S %=$P(^AMQQ(5,DA,0),U) I %'="" K ^AMQQ(5,"SQC",X,$E(%,1,30))
21	SUBQUERY TYPE	0;21	POINTER TO QMAN DATA TYPES FILE (#9009074)	QMAN DATA TYPES(#9009074) LAST EDITED: `JUN 26, 1990` CROSS-REFERENCE: `9009075^SQT^MUMPS` 1)= N % S %=$P(^AMQQ(5,DA,0),U) I %'="" S ^AMQQ(5,"SQT",X,$E(%,1,30))="" 2)= N % S %=$P(^AMQQ(5,DA,0),U) I %'="" K ^AMQQ(5,"SQT",X,$E(%,1,30))
40	LAB COMPANION TEST	4.1;0	POINTER Multiple #9009075.02	9009075.02
41	LAB DATA TYPE	4;1	POINTER TO QMAN DATA TYPES FILE (#9009074)	QMAN DATA TYPES(#9009074) LAST EDITED: `MAY 21, 1991` CROSS-REFERENCE: `9009075^AQ^MUMPS` 1)= D AQ^AMQQMGR3 2)= D AQKILL^AMQQMGR3 LAB DATA TYPE XREF
42	LAB ACCESSION NUMBER	4;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 30, 2013` HELP-PROMPT: `Type a number between 0 and 9999999999, 0 decimal digits.`
43	LAB SITE	4;3	POINTER TO TOPOGRAPHY FIELD FILE (#61)	TOPOGRAPHY FIELD(#61) LAST EDITED: `APR 04, 1991`
44	LAB HEADER	4;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `APR 04, 1991` HELP-PROMPT: `Answer must be 1-30 characters in length.`
45	LAB HEADER WIDTH	4;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>64)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 04, 1991` HELP-PROMPT: `Type a Number between 1 and 64, 0 Decimal Digits`
46	LAB UNITS	4;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>16!($L(X)<1) X` LAST EDITED: `APR 04, 1991` HELP-PROMPT: `Answer must be 1-16 characters in length.`
47	LAB OUTPUT TRANSFORM	4;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>120!($L(X)<1) X` LAST EDITED: `APR 04, 1991` HELP-PROMPT: `Answer must be 1-120 characters in length.`
99	ENTRY NUMBER		COMPUTED	MUMPS CODE: `S X=D0` ALGORITHM: `S X=D0`

Customize PDF page

Package: PCC Medical Query

Global: ^AMQQ(5

Information

Description

Directly Accessed By Routines, Total: 54

Accessed By FileMan Db Calls, Total: 101

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 6

Fields, Total: 36