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 | ICR | Found Entries | All

Print Page as PDF

Global: ^PXD(811.1

Package: PCE Patient Care Encounter

Global: ^PXD(811.1

Information

FileMan FileNo	FileMan Filename	Package
811.1	PCE CODE MAPPING	PCE Patient Care Encounter

Description

This file is used to map entries from two different file to each other. It functions as a table.

Directly Accessed By Routines, Total: 2

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 3

Fields, Total: 5

Field #	Name	Loc	Type	Details
.01	FILE ENTRY	0;1	VARIABLE POINTER	**********************REQUIRED FIELD********************** CPT(#81) IMMUNIZATION(#9999999.14) SKIN TEST(#9999999.28) LAST EDITED: `MAY 30, 2003` HELP-PROMPT: `Enter the coding system and entry here (e.g. C.90732)` DESCRIPTION: `This field is a variable pointer which allows coded system entries to be mapped to an entry in PCE's supporting files. For example, a CPT code for Pneumovax, 90732 would be the value entered here, and the Related` Supporting entry field would be PNEUMO-VAC in the Immunization file. DO NOT use any general code such as 'OTHER SKIN TESTS' or 'OTHER PROCEDURE'. CROSS-REFERENCE: `811.1^B` 1)= S ^PXD(811.1,"B",$E(X,1,30),DA)="" 2)= K ^PXD(811.1,"B",$E(X,1,30),DA) CROSS-REFERENCE: `811.1^AA^MUMPS` 1)= I $P(^PXD(811.1,DA,0),"^",5)'="",$P(^(0),U,3)'="" S ^PXD(811.1,"AA",$P(X,";"),$P(^PXD(811.1,DA,0),"^",3),$P(^PXD(811.1,DA,0),"^",5),DA)="" 2)= Q:$P(^PXD(811.1,DA,0),U,3)="" Q:$P(^PXD(811.1,DA,0),U,5)="" K ^PXD(811.1,"AA",$P(X,";"),$P(^PXD(811.1,DA,0),"^",3),$P(^PXD(811.1,DA,0),"^",5)) PXD("AA",FIRST ; PIECE OF FILE ENTRY FIELD,FROM,ON/OFF FLAG,DA) IHS/ITSC/LJF 5/29/2003 - On Set Statement, added check for 3rd piece of zero node so data would install via KIDS in another database. On Kill Statement, added check for both 3rd and 5th pieces.
.02	RELATED SUPPORTING FILE ENTRY	0;2	VARIABLE POINTER	IMMUNIZATION(#9999999.14) SKIN TEST(#9999999.28) CPT(#81) LAST EDITED: `JAN 11, 1995` DESCRIPTION: A pointer to the second file encolved in this mapping. DO NOT point this field to anything that is general in nature such as 'OTHER SKIN TESTS' or 'OTHER IMMUNIZATION'.
.03	FROM	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<2) X` LAST EDITED: `MAR 23, 1995` HELP-PROMPT: `Answer must be 2-4 characters in length.` DESCRIPTION: The 2 or 3 letter mnemonic that stands for the file that the data came from or that is also being populated at this time. IMM = V IMMUNIZATIONS, CPT=V CPT ,and SK=V SKIN TESTS CROSS-REFERENCE: `811.1^AA1^MUMPS` 1)= I $P(^PXD(811.1,DA,0),"^",5)'="" S ^PXD(811.1,"AA",$P($P(^PXD(811.1,DA,0),"^"),";"),X,$P(^PXD(811.1,DA,0),"^",5),DA)="" 2)= K ^PXD(811.1,"AA",$P($P(^PXD(811.1,DA,0),"^"),";"),X,$P(^PXD(811.1,DA,0),"^",5),DA)
.04	TO	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<2) X` LAST EDITED: `APR 05, 1995` HELP-PROMPT: `Answer must be 2-4 characters in length.` DESCRIPTION: The 2 or 3 letter mnemonic that stands of the file that the data is going also be put into. IMM=VIMMUNIZATIONS, CPT=V CPT, and SK=VSKIN TESTS
.05	ON/OFF FLAG	0;5	SET	**********************REQUIRED FIELD********************** '1' FOR ON; '0' FOR OFF; LAST EDITED: `APR 24, 1995` DESCRIPTION: A switch that tells us that this mapping is valid, and the mapping and storing of the data is allowed to occur. CROSS-REFERENCE: `811.1^AA2^MUMPS` 1)= S ^PXD(811.1,"AA",$P($P(^PXD(811.1,DA,0),"^"),";"),$P(^PXD(811.1,DA,0),"^",3),X,DA)="" 2)= K ^PXD(811.1,"AA",$P($P(^PXD(811.1,DA,0),"^"),";"),$P(^PXD(811.1,DA,0),"^",3),X,DA) X REF ,POINTER NUMBER,FROM MNEMONIC,ON/OFF FLAG,DA

ICR, Total: 2

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