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

Print Page as PDF

Sub-Field: 64.018

Package: Lab Service

WKLD CODE(#64)-->64.018

Sub-Field: 64.018

Information

Parent File	Name	Number	Package
WKLD CODE(#64)	CODE	64.018	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	CODE	0;1	VARIABLE POINTER	CPT(#81) MORPHOLOGY FIELD(#61.1) ICD DIAGNOSIS(#80) EXPLANATION: `Select only active CPT codes.` `SCREEN ON FILE 80: S DIC("S")="I '$P(^ICD9(Y,0),U,9)"` EXPLANATION: `Select only active ICD9 codes.` OUTPUT TRANSFORM: `I $G(Y) S Y=$P(@(U_$P(Y,";",2)_+Y_",0)"),U)_" "_$S($D(^(80))#2:^(80),1:$P(^(0),U,2))` LAST EDITED: `DEC 19, 2000` DESCRIPTION: `This field links WKLD code to other codes including CPT, SNOMED, and ICD9. This field will be maintained by Pathology and Laboratory Medicine Service.` CROSS-REFERENCE: `64.018^B` `1)= S ^LAM(DA(1),4,"B",$E(X,1,30),DA)=""` `2)= K ^LAM(DA(1),4,"B",$E(X,1,30),DA)` `3)= Cross reference codes` CROSS-REFERENCE: `^^TRIGGER^64.018^5` `1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAM(D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV D LAM185^LRXREF X ^DD(64.018,.01,1,2,1.4)` `1.4)= S DIH=$S($D(^LAM(DIV(0),4,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=64.018,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAM(D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(64.018,.01,1,2,2.4)` `2.4)= S DIH=$S($D(^LAM(DIV(0),4,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=64.018,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `3)= Set TYPE of code.` `CREATE VALUE)= D LAM185^LRXREF` `DELETE VALUE)= @` `FIELD)= TYPE` CROSS-REFERENCE: `64^AB` `1)= S ^LAM("AB",$E(X,1,30),DA(1),DA)=""` `2)= K ^LAM("AB",$E(X,1,30),DA(1),DA)` `3)= Cross reference coding schemes` `This cross reference is used to provide a listing of all WKLD CODE that have codes defined. It is to be used for quick lookup.` `^LAM("AB",CODE VARIABLE POINTER,IEN,MULTIPLE LOCATION)=""`
2	RELEASE DATE	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `AUG 31, 2000` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `Enter the date that the code becomes 'ACTIVE'`
3	INACTIVE DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1!($P(^LAM(DA(1),4,DA,0),U,3)'=""&(Y'>$P(^LAM(DA(1),4,DA,0),U,3))) X` LAST EDITED: `JUL 12, 1996` DESCRIPTION: `Enter the date that the code becomes inactive. The code is considered active if a date has not been entered.` EXECUTABLE HELP: `W !!,?10,"Inactive Date cannot be Prior to Release Date",!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4	REPLACEMENT CODE	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `MAY 29, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `Enter the replacing code after inactivation.`
5	TYPE	0;2	SET	**********************REQUIRED FIELD********************** 'CPT' FOR CPT CODE; 'SNO' FOR SNOMED CODE; 'ICD' FOR ICD9 CODE; 'NOS' FOR NOS; LAST EDITED: `APR 18, 2000` HELP-PROMPT: `Enter coding system` DESCRIPTION: `Enter the coding system that uses this code.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the CODE field of the CODE sub-field of the WKLD CODE File` CROSS-REFERENCE: `64^AD^MUMPS` `1)= S ^LAM("AD",DA(1),X,DA)=""` `2)= K ^LAM("AD",DA(1),X,DA)` `Creat a cross reference by linked coding systems.` `^LAM("AD",SUBFILE,CODING SYSTEM,IEN)` CROSS-REFERENCE: `64.018^AC` `1)= S ^LAM(DA(1),4,"AC",$E(X,1,30),DA)=""` `2)= K ^LAM(DA(1),4,"AC",$E(X,1,30),DA)`
6	CODE NOTES	1;0	WORD-PROCESSING #64.186	DESCRIPTION: `This field is used for tracking general notes regarding a particular code.` LAST EDITED: `SEP 09, 1999` DESCRIPTION: `Enter notes concering this specific code. Use this field to record the history of code usage or special comments of historical nature.`