Global: ^AMQQ(1

FileMan FileNo	FileMan Filename	Package
9009071	QMAN DICTIONARY OF LINKS	PCC Medical Query

Package	Total	Routines
PCC Medical Query	53	AMQQAC AMQQAT AMQQAT1 AMQQATA AMQQATAL AMQQATL AMQQATL1 AMQQATR AMQQATR1 AMQQATR2 AMQQATR4 AMQQAV AMQQAV0 AMQQCMP2 AMQQCMP3 AMQQCMP6 AMQQCMPK AMQQCMPM AMQQCMPS AMQQCMPT AMQQCMPZ AMQQDFN AMQQDO AMQQDOH AMQQEM2 AMQQEM22 AMQQEM2O AMQQHELP AMQQKILL AMQQMGR AMQQMGR9 AMQQN2 AMQQPIR AMQQPOS AMQQPOST AMQQQ0 AMQQQ1 AMQQQ2 AMQQRMA AMQQRMFF AMQQSL AMQQSQ AMQQSQA0 AMQQSQA1 AMQQSQA2 AMQQSQAC AMQQSQL AMQQSQL1 AMQQSQUP AMQQTX AMQQTX0 AMQQTXG AMQQWH
iCare	2	BQIDCTX BQIPLCTX
Diabetes Registry	1	BDMFFS
IHS V Files 200 Conversion	1	BVCONV1
Patient Care Component	1	BJPC2PMU
Patient Care Component Reports	1	APCLTAX0

Package	Total	Routines
PCC Medical Query	4	AMQQ33P1 AMQQ33P2 AMQQMGR AMQQMGR9
IHS HIV Management System	2	BKM11PST BKM1POST

Package	Total	FileMan Files
IHS GPRA Information System	10	BGP 11 TAXONOMY TEMP(#90545.09)[.12] BGP 13 TAXONOMY TEMP(#90550.09)[.12] BGP 14 TAXONOMY TEMP(#90552.09)[.12] BGP 15 TAXONOMY TEMP(#90554.09)[.12] BGP 07 TAXONOMY TEMP(#90530.09)[.12] BGP 08 TAXONOMY TEMP(#90533.09)[.12] BGP 06 TAXONOMY TEMP(#90374.09)[.12] BGP 09 TAXONOMY TEMP(#90536.09)[.12] BGP 10 TAXONOMY TEMP(#90377.09)[.12] BGP 12 TAXONOMY TEMP(#90548.09)[.12]
Taxonomy	2	TAXONOMY(#9002226)[.12] TAXONOMY TYPES(#9002229)[.03]
PCC Medical Query	1	QMAN DICTIONARY OF TERMS(#9009075)[4]
Utility Tables	1	DIAGNOSTIC PROCEDURE RESULT(#9999999.68)[6.1]

Package	Total	FileMan Files
Utility Tables	4	EXAM(#9999999.15)[16] IMMUNIZATION(#9999999.14)[16] MEASUREMENT TYPE(#9999999.07)[16] SKIN TEST(#9999999.28)[16]
PCC Medical Query	1	QMAN DATA TYPES(#9009074)[4]
VA Fileman	1	FILE(#1)[1, 2, #9009071.01(1)]

Fields, Total: 34

Field #	Name	Loc	Type	Details
.01	LINK NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` CROSS-REFERENCE: `9009071^B` 1)= S ^AMQQ(1,"B",$E(X,1,30),DA)="" 2)= K ^AMQQ(1,"B",$E(X,1,30),DA)
1	SOURCE FILE	0;2	POINTER TO FILE FILE (#1)	FILE(#1)
2	TARGET FILE	0;3	POINTER TO FILE FILE (#1)	FILE(#1)
3	TARGET FIELD	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."7N.N) X` LAST EDITED: `MAY 17, 1990` HELP-PROMPT: `Type a Number between 0 and 9999999999, 6 Decimal Digits`
4	ATTRIBUTE TYPE	0;5	POINTER TO QMAN DATA TYPES FILE (#9009074)	QMAN DATA TYPES(#9009074) LAST EDITED: `JUL 17, 1989`
5	VALIDITY CODE LOCATION	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `SEP 30, 1988` HELP-PROMPT: `ANSWER MUST BE 1-30 CHARACTERS IN LENGTH`
6	MULTI-VALUED	0;7	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `AUG 04, 1989`
7	INDEX	0;8	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 10, 1988`
8	CONTEXT NARRATIVE	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `NOV 10, 1988` HELP-PROMPT: `ANSWER MUST BE 1-30 CHARACTERS IN LENGTH`
10	STARTUP CODE	1;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `SEP 29, 2009` HELP-PROMPT: `ANSWER MUST BE 1-240 CHARACTERS IN LENGTH` CROSS-REFERENCE: `9009071^IMM2^MUMPS` 1)= I $G(DA),$P($G(^AMQQ(1,DA,0)),U,10)["AUPNVIMM",+$P($G(^(1)),"AUPNVIMM;",2),$L($P($P(^(1),"AUPNVIMM;",2),";"),":")<2 S ^AMQQ(1,"IMM",+$P(^(1),"AUPNVIMM;",2),DA)="" 2)= Q CROSS-REFERENCE: `9009071^MSR2^MUMPS` 1)= I $G(DA),$P($G(^AMQQ(1,DA,0)),U,10)["AUPNVMSR",+$P($G(^(1)),"AUPNVMSR;",2) S ^AMQQ(1,"MSR",+$P(^(1),"AUPNVMSR;",2),DA)="" 2)= Q CROSS-REFERENCE: `9009071^XAM2^MUMPS` 1)= I $G(DA),$P($G(^AMQQ(1,DA,0)),U,10)["AUPNVXAM",+$P($G(^(1)),"AUPNVXAM;",2) S ^AMQQ(1,"XAM",+$P(^(1),"AUPNVXAM;",2),DA)="" 2)= Q
10.1	SC1	1.1;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `OCT 20, 1988` HELP-PROMPT: `ANSWER MUST BE 1-240 CHARACTERS IN LENGTH`
10.11	SC COHORT MODIFIER	1.11;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `APR 20, 2005` HELP-PROMPT: `Answer must be 1-240 characters in length.`
10.2	SC2	1.2;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `OCT 20, 1988` HELP-PROMPT: `ANSWER MUST BE 1-240 CHARACTERS IN LENGTH`
11	FILTER CODE	2;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `OCT 10, 1988` HELP-PROMPT: `ANSWER MUST BE 1-240 CHARACTERS IN LENGTH`
11.1	FC1	2.1;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `OCT 25, 1988` HELP-PROMPT: `ANSWER MUST BE 1-240 CHARACTERS IN LENGTH`
11.2	FC2	2.2;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `OCT 25, 1988` HELP-PROMPT: `ANSWER MUST BE 1-240 CHARACTERS IN LENGTH`
12	SAMPLED DSO CODE	3;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `OCT 10, 1988` HELP-PROMPT: `ANSWER MUST BE 1-240 CHARACTERS IN LENGTH`
13	INDEXED DSO CODE	3.1;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `OCT 10, 1988` HELP-PROMPT: `ANSWER MUST BE 1-240 CHARACTERS IN LENGTH`
14	DSO RESULTS GLOBAL	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `SEP 29, 2009` HELP-PROMPT: `Answer must be 1-20 characters in length.` CROSS-REFERENCE: `9009071^IMM^MUMPS` 1)= I $G(DA),$P($G(^AMQQ(1,DA,0)),U,10)["AUPNVIMM",+$P($G(^(1)),"AUPNVIMM;",2),$L($P($P(^(1),"AUPNVIMM;",2),";"),":")<2 S ^AMQQ(1,"IMM",+$P(^(1),"AUPNVIMM;",2),DA)="" 2)= Q CROSS-REFERENCE: `9009071^MSR^MUMPS` 1)= I $G(DA),$P($G(^AMQQ(1,DA,0)),U,10)["AUPNVMSR",+$P($G(^(1)),"AUPNVMSR;",2) S ^AMQQ(1,"MSR",+$P(^(1),"AUPNVMSR;",2),DA)="" 2)= Q CROSS-REFERENCE: `9009071^XAM^MUMPS` 1)= I $G(DA),$P($G(^AMQQ(1,DA,0)),U,10)["AUPNVXAM",$P($G(^(1)),"AUPNVXAM;",2) S ^AMQQ(1,"XAM",+$P(^(1),"AUPNVAM;",2),DA)="" 2)= Q
14.1	DSO RESULTS TYPE	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `MAY 21, 1991` HELP-PROMPT: `Answer must be 1-9 characters in length.`
14.2	DSO RESULTS CORRECTION FACTOR	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."5N.N) X` LAST EDITED: `FEB 01, 1989` HELP-PROMPT: `Type a Number between 0 and 999, 4 Decimal Digits`
14.3	DSO RESULTS XREF	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `MAR 11, 1989` HELP-PROMPT: `Answer must be 1-9 characters in length.`
15	DSO DATE CORRECTION FACTOR	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `MAR 11, 1989` HELP-PROMPT: `Type a Number between 0 and 9, 1 Decimal Digit`
16	POINTER	9;4	VARIABLE POINTER	SKIN TEST(#9999999.28) IMMUNIZATION(#9999999.14) EXAM(#9999999.15) MEASUREMENT TYPE(#9999999.07) LAST EDITED: `APR 21, 1992`
20	VARIABLE	4;0	Multiple #9009071.01	9009071.01
21	INPUT CHECKING	6;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `APR 17, 1989` HELP-PROMPT: `Answer must be 1-240 characters in length.`
22	TURBO PREFIX	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `DEC 01, 2010` HELP-PROMPT: `Answer must be 1-20 characters in length.`
30	NULL CODE	5;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `JUN 28, 1989` HELP-PROMPT: `Answer must be 1-240 characters in length.`
31	ANY CODE	7;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `JUL 02, 1989` HELP-PROMPT: `Answer must be 1-240 characters in length.`
32	INVERSE CODE	8;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `MAY 22, 1990` HELP-PROMPT: `Answer must be 1-240 characters in length.`
90	SPECIAL OUTPUT	9;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `MAY 04, 1991` HELP-PROMPT: `Answer must be 1-60 characters in length.`
91	SO1	9;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `MAY 04, 1991` HELP-PROMPT: `Answer must be 1-60 characters in length.`
92	SO2	9;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `MAY 04, 1991` HELP-PROMPT: `Answer must be 1-60 characters in length.`
99	ENTRY NUMBER		COMPUTED	MUMPS CODE: `S X=$S('$D(D0):"",D0<0:"",1:D0)` ALGORITHM: `NUMBER`

Customize PDF page

Package: PCC Medical Query

Global: ^AMQQ(1

Information

Description

Directly Accessed By Routines, Total: 61

Accessed By FileMan Db Calls, Total: 6

Pointed To By FileMan Files, Total: 14

Pointer To FileMan Files, Total: 6

Fields, Total: 34