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 | Pointer To FileMan Files | Fields | Found Entries | All

Print Page as PDF

Global: ^BGOCPTPR

Package: GUI Objects

Global: ^BGOCPTPR

Information

FileMan FileNo	FileMan Filename	Package
90362.31	BGO CPT PREFERENCES	GUI Objects

Description

Directly Accessed By Routines, Total: 3

Pointer To FileMan Files, Total: 16

Fields, Total: 9

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `JUN 13, 2007` HELP-PROMPT: `Answer must be 3-50 characters in length.` CROSS-REFERENCE: `90362.31^B` 1)= S ^BGOCPTPR("B",$E(X,1,30),DA)="" 2)= K ^BGOCPTPR("B",$E(X,1,30),DA)
.02	HOSPITAL LOCATION	0;2	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `MAY 30, 2004` CROSS-REFERENCE: `90362.31^AH` 1)= S ^BGOCPTPR("AH",$E(X,1,30),DA)="" 2)= K ^BGOCPTPR("AH",$E(X,1,30),DA) CROSS-REFERENCE: `90362.31^AHP^MUMPS` 1)= I $P(^BGOCPTPR(DA,0),U,4) S ^BGOCPTPR("AHP",X,$P(^(0),U,4),DA)="" 2)= I $P(^BGOCPTPR(DA,0),U,4) K ^BGOCPTPR("AHP",X,$P(^(0),U,4),DA)
.03	CLINIC	0;3	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `MAY 30, 2004` CROSS-REFERENCE: `90362.31^AC` 1)= S ^BGOCPTPR("AC",$E(X,1,30),DA)="" 2)= K ^BGOCPTPR("AC",$E(X,1,30),DA) CROSS-REFERENCE: `90362.31^ACP^MUMPS` 1)= I $P(^BGOCPTPR(DA,0),U,4) S ^BGOCPTPR("ACP",X,$P(^(0),U,4),DA)="" 2)= I $P(^BGOCPTPR(DA,0),U,4) K ^BGOCPTPR("ACP",X,$P(^(0),U,4),DA)
.04	PROVIDER	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 30, 2004` CROSS-REFERENCE: `90362.31^AP` 1)= S ^BGOCPTPR("AP",$E(X,1,30),DA)="" 2)= K ^BGOCPTPR("AP",$E(X,1,30),DA) CROSS-REFERENCE: `90362.31^AHPTOO^MUMPS` 1)= I $P(^BGOCPTPR(DA,0),U,2) S ^BGOCPTPR("AHP",$P(^(0),U,2),X,DA)="" 2)= I $P(^BGOCPTPR(DA,0),U,2) K ^BGOCPTPR("AHP",$P(^(0),U,2),X,DA) CROSS-REFERENCE: `90362.31^ACPTOO^MUMPS` 1)= I $P(^BGOCPTPR(DA,0),U,3) S ^BGOCPTPR("ACP",$P(^(0),U,3),X,DA)="" 2)= I $P(^BGOCPTPR(DA,0),U,3) K ^BGOCPTPR("ACP",$P(^(0),U,3),X,DA)
.05	OWNER	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 08, 2004`
.06	DISCIPLINE	0;6	POINTER TO PROVIDER CLASS FILE (#7)	PROVIDER CLASS(#7) LAST EDITED: `MAY 30, 2004` CROSS-REFERENCE: `90362.31^AD` 1)= S ^BGOCPTPR("AD",$E(X,1,30),DA)="" 2)= K ^BGOCPTPR("AD",$E(X,1,30),DA)
.07	TYPE	0;7	SET	'0' FOR VISIT SERVICES; '1' FOR HISTORICAL SERVICES; LAST EDITED: `DEC 21, 2006`
1	CPT	1;0	POINTER Multiple #90362.312	90362.312
2	MANAGERS	2;0	POINTER Multiple #90362.313	90362.313

Found Entries, Total: 1

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