Global: ^LRO(68.999999901

FileMan FileNo	FileMan Filename	Package
68.999999901	LAB VA-IHS LINK	Lab Service

Package	Total	Routines
IHS Changes To Lab	3	BLRLINK2 BLRLINKP BLRPCCVM
Patient Care Component	2	APCDK APCDKDE

Package	Total	Routines
IHS Changes To Lab	2	BLRLINK2 BLRPCCVM
Patient Care Component	2	APCDK APCDKDE

Package	Total	FileMan Files
IHS Patient	1	VISIT(#9000010)[.02]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DFN AND COLL DATE	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 29, 1993` HELP-PROMPT: `Type a Number between 0 and 999999999999999, 0 Decimal Digits` CROSS-REFERENCE: `68.999999901^B` 1)= S ^LRO(68.999999901,"B",$E(X,1,30),DA)="" 2)= K ^LRO(68.999999901,"B",$E(X,1,30),DA) CROSS-REFERENCE: `68.999999901^AA^MUMPS` 1)= I $P(^LRO(68.999999901,DA,0),U,2)]"" S ^LRO(68.999999901,"AA",X,$P(^LR(68.999999901,DA,0),U,2),DA)="" 2)= I $P(^LRO(68.999999901,DA,0),U,2)]"" K ^LRO(68.999999901,"AA",X,$P(^LRO(68.999999901,DA,0),U,2),DA)
.02	VISIT	0;2	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) LAST EDITED: `APR 29, 1993` CROSS-REFERENCE: `68.999999901^AC` 1)= S ^LRO(68.999999901,"AC",$E(X,1,30),DA)="" 2)= K ^LRO(68.999999901,"AC",$E(X,1,30),DA) CROSS-REFERENCE: `68.999999901^AATOO^MUMPS` 1)= I $P(^LRO(68.999999901,DA,0),U)]"" S ^LRO(68.999999901,"AA",$P(^(0),U),X,DA)="" 2)= I $P(^LRO(68.999999901,DA,0),U)]"" K ^LRO(68.999999901,"AA",$P(^(0),U),X,DA)
.03	ORDER NO.	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 28, 1993` HELP-PROMPT: `Type a Number between 0 and 9999999999, 0 Decimal Digits`

DFN AND COLL DATE

0;1

NUMBER

************************REQUIRED FIELD************************

CROSS-REFERENCE: 68.999999901^B

1)= S ^LRO(68.999999901,"B",$E(X,1,30),DA)=""

2)= K ^LRO(68.999999901,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 68.999999901^AA^MUMPS

1)= I $P(^LRO(68.999999901,DA,0),U,2)]"" S ^LRO(68.999999901,"AA",X,$P(^LR(68.999999901,DA,0),U,2),DA)=""

2)= I $P(^LRO(68.999999901,DA,0),U,2)]"" K ^LRO(68.999999901,"AA",X,$P(^LRO(68.999999901,DA,0),U,2),DA)

VISIT

0;2

POINTER TO VISIT FILE (#9000010)

CROSS-REFERENCE: 68.999999901^AC

1)= S ^LRO(68.999999901,"AC",$E(X,1,30),DA)=""

2)= K ^LRO(68.999999901,"AC",$E(X,1,30),DA)

CROSS-REFERENCE: 68.999999901^AATOO^MUMPS

1)= I $P(^LRO(68.999999901,DA,0),U)]"" S ^LRO(68.999999901,"AA",$P(^(0),U),X,DA)=""

2)= I $P(^LRO(68.999999901,DA,0),U)]"" K ^LRO(68.999999901,"AA",$P(^(0),U),X,DA)

ORDER NO.

0;3

NUMBER

Information