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: ^BDPRECN

Package: IHS Designated Provider

Global: ^BDPRECN

Information

FileMan FileNo	FileMan Filename	Package
90360.1	BDP DESG SPECIALTY PROVIDER	IHS Designated Provider

Description

This file contains 1 entry for each specialty category for each patient. A multiple contains the history of which providers were assigned to this patient for this category.

Directly Accessed By Routines, Total: 32

Accessed By FileMan Db Calls, Total: 16

Pointer To FileMan Files, Total: 3

Fields, Total: 6

Field #	Name	Loc	Type	Details
.01	PROVIDER CATEGORY	0;1	POINTER TO BDP DESG SPEC PROV CATEGORY FILE (#90360.3)	**********************REQUIRED FIELD********************** BDP DESG SPEC PROV CATEGORY(#90360.3) LAST EDITED: `OCT 19, 2011` CROSS-REFERENCE: `90360.1^B` 1)= S ^BDPRECN("B",$E(X,1,30),DA)="" 2)= K ^BDPRECN("B",$E(X,1,30),DA) CROSS-REFERENCE: `90360.1^AATOO^MUMPS` 1)= I $P(^BDPRECN(DA,0),U,2)]"" S ^BDPRECN("AA",$P(^BDPRECN(DA,0),U,2),X,DA)="" 2)= I $P(^BDPRECN(DA,0),U,2)]"" K ^BDPRECN("AA",$P(^BDPRECN(DA,0),U,2),X,DA)
.02	PATIENT NAME	0;2	POINTER TO VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA PATIENT(#2) LAST EDITED: `OCT 02, 2003` CROSS-REFERENCE: `90360.1^C` 1)= S ^BDPRECN("C",$E(X,1,30),DA)="" 2)= K ^BDPRECN("C",$E(X,1,30),DA) CROSS-REFERENCE: `90360.1^AA^MUMPS` 1)= S ^BDPRECN("AA",X,$P(^BDPRECN(DA,0),U),DA)="" 2)= K ^BDPRECN("AA",X,$P(^BDPRECN(DA,0),U),DA)
.03	LAST CURRENT PROVIDER	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 04, 2004` NOTES: `TRIGGERED by the PROVIDER NAME field of the PROVIDER NAME sub-field of the BDP DESG SPECIALTY PROVIDER File` CROSS-REFERENCE: `90360.1^AC` 1)= S ^BDPRECN("AC",$E(X,1,30),DA)="" 2)= K ^BDPRECN("AC",$E(X,1,30),DA) CROSS-REFERENCE: `90360.1^AD^MUMPS` 1)= I $P(^BDPRECN(DA,0),U,5)]"" S ^BDPRECN("AD",X,$P(^BDPRECN(DA,0),U,5),DA)="" 2)= I $P(^BDPRECN(DA,0),U,5)]"" K ^BDPRECN("AD",X,$P(^BDPRECN(DA,0),U,5),DA) CROSS-REFERENCE: `3^AF^MUMPS` 1)= I $T(UPDATE^BDPLINKI)]"" D UPDATE^BDPLINKI($P($G(^BDPTCAT($P(^BDPRECN(DA,0),U),0)),U,4),$P($G(^BDPTCAT($P(^BDPRECN(DA,0),U),0)),U,5),DA,X,$P(^BDPRECN(DA,0),U,2),$G(BDPLINKI)) 2)= I $T(KILL^BDPLINKI)]"" D KILL^BDPLINKI($P($G(^BDPTCAT($P(^BDPRECN(DA,0),U),0)),U,4),$P($G(^BDPTCAT($P(^BDPRECN(DA,0),U),0)),U,5),DA,X,$P(^BDPRECN(DA,0),U,2),$G(BDPLINKI))
.04	LAST USER UPDATE	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 26, 2003` NOTES: `TRIGGERED by the USER LAST UPDATED field of the PROVIDER NAME sub-field of the BDP DESG SPECIALTY PROVIDER File` CROSS-REFERENCE: `90360.1^AE^MUMPS` 1)= I $P(^BDPRECN(DA,0),U,5)]"" S ^BDPRECN("AE",X,$P(^BDPRECN(DA,0),U,5),DA)="" 2)= I $P(^BDPRECN(DA,0),U,5)]"" K ^BDPRECN("AE",X,$P(^BDPRECN(DA,0),U,5),DA)
.05	LAST DATE UPDATED	0;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 26, 2003` NOTES: `TRIGGERED by the DATE LAST UPDATED field of the PROVIDER NAME sub-field of the BDP DESG SPECIALTY PROVIDER File` CROSS-REFERENCE: `90360.1^ADTOO^MUMPS` 1)= I $P(^BDPRECN(DA,0),U,3)]"" S ^BDPRECN("AD",$P(^BDPRECN(DA,0),U,3),X,DA)="" 2)= I $P(^BDPRECN(DA,0),U,3)]"" K ^BDPRECN("AD",$P(^BDPRECN(DA,0),U,3),X,DA) CROSS-REFERENCE: `90360.1^AETOO^MUMPS` 1)= I $P(^BDPRECN(DA,0),U,4)]"" S ^BDPRECN("AE",$P(^BDPRECN(DA,0),U,4),X,DA)="" 2)= I $P(^BDPRECN(DA,0),U,4)]"" K ^BDPRECN("AE",$P(^BDPRECN(DA,0),U,4),X,DA)
.06	PROVIDER NAME	1;0	POINTER Multiple #90360.11	90360.11

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