Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | All

Print Page as PDF

Global: ^BEHOCIR

Package: IHS Electronic Health Record

Global: ^BEHOCIR

Information

FileMan FileNo	FileMan Filename	Package
90461.63	BEH RECONCILIATION	IHS Electronic Health Record

Description

Directly Accessed By Routines, Total: 1

Accessed By FileMan Db Calls, Total: 4

Pointer To FileMan Files, Total: 2

Fields, Total: 13

Field #	Name	Loc	Type	Details
.01	DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 04, 2013` CROSS-REFERENCE: `90461.63^B` 1)= S ^BEHOCIR("B",$E(X,1,30),DA)="" 2)= K ^BEHOCIR("B",$E(X,1,30),DA)
.02	PATIENT	0;2	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) LAST EDITED: `MAY 09, 2013` CROSS-REFERENCE: `90461.63^C` 1)= S ^BEHOCIR("C",$E(X,1,30),DA)="" 2)= K ^BEHOCIR("C",$E(X,1,30),DA) CROSS-REFERENCE: `90461.63^AA^MUMPS` 1)= Q:$P(^BEHOCIR(DA,0),U,2)="" S ^BEHOCIR("AA",X,(9999999-$P(+^BEHOCIR(DA,0),".",1)),DA)="" 2)= Q:$P(^BEHOCIR(DA,0),U,2)="" K ^BEHOCIR("AA",X,(9999999-$P(+^BEHOCIR(DA,0),".",1)),DA) Cross-reference on patient and inverse date
.03	SOURCE	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `MAR 04, 2013` HELP-PROMPT: `Answer must be 1-60 characters in length.`
.04	RECONCILIATION COMPLETED	0;4	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAR 11, 2013`
.05	RESPONSIBLE PARTY	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `MAY 13, 2013` HELP-PROMPT: `Answer must be 1-60 characters in length.`
.06	ENCOUNTER DATE	0;6	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `MAY 13, 2013` HELP-PROMPT: `(No range limit on date)`
.07	ALLERGY RECONCILIATION	3;1	DATE	INPUT TRANSFORM: `S %DT="ETR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 13, 2013` HELP-PROMPT: `(No range limit on date)` CROSS-REFERENCE: `90461.63^AE^MUMPS` 1)= Q:$P(^BEHOCIR(DA,1),U,1)="" S ^BEHOCIR("AE",$P(^BEHOCIR(DA,1),U,1),9999999-X,DA)="" 2)= Q:$P(^BEHOCIR(DA,1),U,1)="" K ^BEHOCIR("AE",$P(^BEHOCIR(DA,1),U,1),9999999-X,DA) Lookup by image and inverse date
.08	PROBLEM RECONCILIATION	3;2	DATE	INPUT TRANSFORM: `S %DT="ETR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 13, 2013` HELP-PROMPT: `(No range limit on date)` CROSS-REFERENCE: `90461.63^AF^MUMPS` 1)= Q:$P(^BEHOCIR(DA,1),U,1)="" S ^BEHOCIR("AF",$P(^BEHOCIR(DA,1),U,1),9999999-X,DA)="" 2)= Q:$P(^BEHOCIR(DA,1),U,1)="" K ^BEHOCIR("AF",$P(^BEHOCIR(DA,1),U,1),9999999-X,DA) Index by image and inverse date
.09	MEDICATION RECONCILIATION	3;3	DATE	INPUT TRANSFORM: `S %DT="ETR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 13, 2013` HELP-PROMPT: `(No range limit on date)` CROSS-REFERENCE: `90461.63^AG^MUMPS` 1)= Q:$P(^BEHOCIR(DA,1),U,1)="" S ^BEHOCIR("AG",$P(^BEHOCIR(DA,1),U,1),9999999-X,DA)="" 2)= Q:$P(^BEHOCIR(DA,1),U,1)="" K ^BEHOCIR("AG",$P(^BEHOCIR(DA,1),U,1),9999999-X,DA) Index by image and inverse date
1.1	IMAGE	1;1	POINTER TO AN UNDEFINED FILE	LAST EDITED: `MAR 11, 2013` CROSS-REFERENCE: `90461.63^D` 1)= S ^BEHOCIR("D",$E(X,1,30),DA)="" 2)= K ^BEHOCIR("D",$E(X,1,30),DA)
1.2	HIE OID	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `MAR 11, 2013` HELP-PROMPT: `Answer must be 1-40 characters in length.` CROSS-REFERENCE: `90461.63^E` 1)= S ^BEHOCIR("E",$E(X,1,30),DA)="" 2)= K ^BEHOCIR("E",$E(X,1,30),DA)
1.3	HIE EXT	1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `MAR 11, 2013` HELP-PROMPT: `Answer must be 1-10 characters in length.`
2	ITEM RECONCILED	2;0	DATE Multiple #90461.632	90461.632

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | All