Global: ^DGCPT(46

FileMan FileNo	FileMan Filename	Package
46	INPATIENT CPT CODE	Registration

Package	Total	Routines
Registration	8	DGAPI DGPTFDEL DGPTFJC DGPTFM2 DGPTFM21 DGPTFM3 DGPTFQWK DGPTUTL1

Package	Total	Routines
Registration	5	DGAPI DGPTFM2 DGPTFM21 DGPTFM3 DGPTFQWK

Package	Total	FileMan Files
CPT Files	2	CPT MODIFIER(#81.3)[.02, .03] CPT(#81)[.01]
DRG Grouper	1	ICD DIAGNOSIS(#80)[.04, .05, .06, .07, .21, .22, .23, .24]
Kernel	1	NEW PERSON(#200)[.18]
Registration	1	PTF(#45)[.16]

Fields, Total: 24

Field #	Name	Loc	Type	Details
.01	CPT CODE	0;1	POINTER TO CPT FILE (#81)	**********************REQUIRED FIELD********************** CPT(#81) INPUT TRANSFORM: `S DIC("S")="D EN6^DGPTFJC I 'DGER" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Enter the procedure, services or supplies using CPT or HCPCS` DESCRIPTION: `This is the procedure, services, or supplies used for the patient. It is using the Healthcare Common Procedure Coding System (HCPCS) or Common Procedure Terminology (CPT) code. This value appears on the CMS 1500 in box` 24d. The values in this field will be provided to the billing package when the record is closed. SCREEN: `S DIC("S")="D EN6^DGPTFJC I 'DGER"` EXPLANATION: `Allow only active CPT procedures` DELETE TEST: `1,0)= W *7,!,"USE DELETE OPTION TO DO LOGICAL DELETE"` CROSS-REFERENCE: `46^B` 1)= S ^DGCPT(46,"B",$E(X,1,30),DA)="" 2)= K ^DGCPT(46,"B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^46^.02` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCPT(46,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X="" S DIH=$G(^DGCPT(46,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=46,DIG=.02 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCPT(46,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X="" S DIH=$G(^DGCPT(46,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=46,DIG=.02 D ^DICR CREATE VALUE)= S X="@" DELETE VALUE)= S X="@" FIELD)= CPT MODIFIER 1 CROSS-REFERENCE: `^^TRIGGER^46^.03` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCPT(46,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^DGCPT(46,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=46,DIG=.03 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCPT(46,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^DGCPT(46,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=46,DIG=.03 D ^DICR CREATE VALUE)= S X="" DELETE VALUE)= S X="" FIELD)= CPT MODIFIER 2
.02	CPT MODIFIER 1	0;2	POINTER TO CPT MODIFIER FILE (#81.3)	CPT MODIFIER(#81.3) INPUT TRANSFORM: `S DIC("S")="I $$MODP^ICPTMOD($P(^DGCPT(46,DA,0),U),Y,""I"",DGPRD)>0,$P(^DGCPT(46,DA,0),U,3)'=Y" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 31, 2005` HELP-PROMPT: `Indicates that a service or procedure has been altered, but code unchanged.` DESCRIPTION: Used to indicate that a service or procedure has been altered by some specific circumstance but without changing the definition or code. SCREEN: `S DIC("S")="I $$MODP^ICPTMOD($P(^DGCPT(46,DA,0),U),Y,""I"",DGPRD)>0,$P(^DGCPT(46,DA,0),U,3)'=Y"` EXPLANATION: `ALLOW ONLY MODIFIERS VALID FOR THIS CPT` NOTES: `TRIGGERED by the CPT CODE field of the INPATIENT CPT CODE File`
.03	CPT MODIFIER 2	0;3	POINTER TO CPT MODIFIER FILE (#81.3)	CPT MODIFIER(#81.3) INPUT TRANSFORM: `S DIC("S")="I $$MODP^ICPTMOD($P(^DGCPT(46,DA,0),U),Y,""I"",DGPRD)>0,$P(^DGCPT(46,DA,0),U,2)'=Y" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 31, 2005` HELP-PROMPT: `Indicates that a service or procedure has been altered, but code UNCHANGED.` DESCRIPTION: Used to indicate that a service or procedure has been altered by some specific circumstance but not changed definition or code. SCREEN: `S DIC("S")="I $$MODP^ICPTMOD($P(^DGCPT(46,DA,0),U),Y,""I"",DGPRD)>0,$P(^DGCPT(46,DA,0),U,2)'=Y"` EXPLANATION: `ALLOW ONLY MODIFIERS VALID FOR THIS CPT` NOTES: `TRIGGERED by the CPT CODE field of the INPATIENT CPT CODE File`
.04	PRIMARY DIAGNOSIS	0;4	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="D EN5^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 25, 2007` HELP-PROMPT: `The primary diagnosis associated with the procedure performed on the CMS 1500.` DESCRIPTION: `The diagnosis code most directly related to the procedure code performed for this professional service. This field must be entered for each CPT code entered. It appears in box 21 on the CMS-1500 and is associated with a` procedure in box 24e. SCREEN: `S DIC("S")="D EN5^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Allow only active Diagnosis codes.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.05	SECONDARY DIAGNOSIS 1	0;5	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="D EN5^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 25, 2007` HELP-PROMPT: `A secondary diagnosis associated with the procedure performed on the CMS 1500.` DESCRIPTION: A secondary diagnosis related to the procedure performed for this professional service. This field is optional. It appears in box 21 on the CMS-1500 and is associated with a procedure in box 24e. SCREEN: `S DIC("S")="D EN5^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Allow only active diagnosis codes.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.06	SECONDARY DIAGNOSIS 2	0;6	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="D EN5^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 25, 2007` HELP-PROMPT: `A secondary diagnosis associated with the procedure performed on the CMS 1500.` DESCRIPTION: A secondary diagnosis related to the procedure performed for this professional service. This field is optional. It appears in box 21 on the CMS-1500 and is associated with a procedure in box 24e. SCREEN: `S DIC("S")="D EN5^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Allow only active diagnosis codes.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.07	SECONDARY DIAGNOSIS 3	0;7	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="D EN5^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 25, 2007` HELP-PROMPT: `A secondary diagnosis associated with the procedure performed on the CMS 1500.` DESCRIPTION: A secondary diagnosis related to the procedure performed for this professional service. This field is optional. It appears in box 21 on the CMS-1500 and is associated with a procedure in box 24e. SCREEN: `S DIC("S")="D EN5^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Allow only active diagnosis codes.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.08	TREATED FOR SC CONDITION	0;8	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 27, 2003` HELP-PROMPT: `The patient care must be Service Connected.` DESCRIPTION: `Enter 'Y' if this applicant is service connected and the professional service is related to that service connection. Otherwise enter 'N'. This field can only be entered if the service connection information was entered` in registration. See field .301 in file 2.
.09	TREATED FOR AO CONDITION	0;9	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 27, 2003` HELP-PROMPT: `The Patient must have Agent Orange exposure indicated!` DESCRIPTION: `The Agent Orange questions must be answered yes in registration before this field can be entered. Enter 'Y' if this procedure is related to Agent Orange exposure based on the related diagnosis. See field .32102 in file` 2.
.1	TREATED FOR IR CONDITION	0;10	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 27, 2003` HELP-PROMPT: `The Patient must have Ionizing Radiation exposure indicated!` DESCRIPTION: `Enter 'Y' if the procedure performed is related to exposure to ionizing . Enter 'N' if the procedure performed is unrelated to ionizing radiation. The ionizing radiation information must be entered in registration before` it can be entered here. See field .32111 in file 2.
.11	EXPOSED TO ENVIR CONTAMINANTS	0;11	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 27, 2003` HELP-PROMPT: `The Patient must have Environment Contaminants exposure!` DESCRIPTION: `Enter 'Y' if the procedure performed is related to exposure to environmental contamination. Enter 'N' if the procedure performed is unrelated to environmental contamination. This information must be entered in` Registration before it can be entered here. See field .322013 in file 2.
.12	TREATMENT FOR MST	0;12	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 27, 2003` HELP-PROMPT: `Was the treatment related to Military Sexual Trauma.` DESCRIPTION: Enter 'Y' if the procedure performed is related to military sexual trauma. Enter 'N' if the procedure performed is unrelated to military sexual trauma. This information must be entered in registration first.
.13	TREATMENT FOR HEAD/NECK CA	0;13	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 27, 2003` HELP-PROMPT: `Was the treatment related to Head and/or Neck Cancer.` DESCRIPTION: Enter 'Y' if this procedure is related to treatment for head/neck cancer. Enter 'N' is the procedure is unrelated to the patient's head/neck cancer.
.131	COMBAT VET	0;19	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 24, 2004` HELP-PROMPT: `Care is potentially related to military combat.` DESCRIPTION: `Indiacte if the inpatient stay at this location is related to military service in combat and not from cause other than military service in combat operations (congenital, developmental, pre-service existing conditions, or` conditions having specific and well-established etiology that began after military combat service, i.e., bone fractures occuring after separation date, comon colds, ect). This information can only be entered if the patient has CV status in Registration.
.14	CPT RECORD DATE/TIME	1;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 22, 2004` HELP-PROMPT: `Date and time the professional service occurred.` DESCRIPTION: The date and time the professional service was performed. May not be exact. Must be unique.
.16	PTF	1;3	POINTER TO PTF FILE (#45)	**********************REQUIRED FIELD********************** PTF(#45) LAST EDITED: `MAY 13, 2003` HELP-PROMPT: `Enter the inpatient episode to enter professional service for.` DESCRIPTION: Pointer to the inpatient record in the PTF file (45). CROSS-REFERENCE: `46^C` 1)= S ^DGCPT(46,"C",$E(X,1,30),DA)="" 2)= K ^DGCPT(46,"C",$E(X,1,30),DA)
.17	SOURCE	1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 17, 2003` HELP-PROMPT: `ENTER THE PACKAGE WHICH PROVIDED THE DATA.` DESCRIPTION: SOURCE is a string of text (3-30 character) identifying the source of the data or Examples of SOURCE are: "LAB DATA". "RADIOLOGY DATA".
.18	USER	1;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 17, 2003` HELP-PROMPT: `ENTER THE USER WHO LAST EDITED THIS ENTRY.` DESCRIPTION: User who is responsible for add/edit/delete action on the encounter. Pointer to the New Person file (200).
.2	QUANTITY	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 19, 2003` HELP-PROMPT: `Enter a number between 1 and 99 indicating how many times this procedure was done.` DESCRIPTION: This is the number of times this procedure was done to the patient for one professional service.
.21	SECONDARY DIAGNOSIS 4	0;15	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="D EN5^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `A secondary diagnosis associated with the procedure performed on the CMS 1500.` DESCRIPTION: A secondary diagnosis related to the procedure performed for this professional service. This field is optional. It appears in box 21 on the CMS-1500 and is associated with a procedure in box 24e. SCREEN: `S DIC("S")="D EN5^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Allow only active diagnosis codes.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.22	SECONDARY DIAGNOSIS 5	0;16	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="D EN5^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 25, 2007` HELP-PROMPT: `A secondary diagnosis associated with the procedure performed on the CMS 1500.` DESCRIPTION: A secondary diagnosis related to the procedure performed for this professional service. This field is optional. It appears in box 21 on the CMS-1500 and is associated with a procedure in box 24e. SCREEN: `S DIC("S")="D EN5^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Allow only active diagnosis codes.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.23	SECONDARY DIAGNOSIS 6	0;17	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="D EN5^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 25, 2007` DESCRIPTION: A secondary diagnosis related to the procedure performed for this professional service. This field is optional. It appears in box 21 on the CMS-1500 and is associated with a procedure in box 24e. SCREEN: `S DIC("S")="D EN5^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Allow only active diagnosis codes.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.24	SECONDARY DIAGNOSIS 7	0;18	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="D EN5^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 25, 2007` DESCRIPTION: A secondary diagnosis related to the procedure performed for this professional service. This field is optional. It appears in box 21 on the CMS-1500 and is associated with a procedure in box 24e. SCREEN: `S DIC("S")="D EN5^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Allow only active diagnosis codes.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	DELETE DATE	9;1	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 20, 2003` HELP-PROMPT: `Enter the date that the CPT code was deleted from the professional service.`

Customize PDF page

Package: Registration

Global: ^DGCPT(46

Information

Description

Directly Accessed By Routines, Total: 8

Accessed By FileMan Db Calls, Total: 5

Pointer To FileMan Files, Total: 5

Fields, Total: 24

ICR, Total: 1