Global: ^DGPT

FileMan FileNo	FileMan Filename	Package
45	PTF	Registration

Package	Total	Routines
Registration	153	DG PTF COMPREHENSIVE REPORT DG PTF OPEN RECORD LIST DG PTF OPEN RECORD OUTPUT DG1010S1 DG3PR2 DG53P423 DG687PST DGAPI DGMSTR3 DGODMT DGODNP1 DGPMV21 DGPMV31 DGPMV321 DGPMV331 DGPT CENSUS UNRELEASED DGPT50MS DGPTAE02 DGPTAE04 DGPTAEE DGPTAPA1 DGPTAPA2 DGPTAPA3 DGPTAPP1 DGPTAPSL DGPTC DGPTC1 DGPTC2 DGPTCO1 DGPTCR DGPTDD DGPTDDCR DGPTF DGPTF099 DGPTF1 DGPTF2 DGPTF4 DGPTF41 DGPTF5 DGPTFAPI DGPTFD DGPTFDEL DGPTFFB DGPTFJ DGPTFJC DGPTFM DGPTFM0 DGPTFM1 DGPTFM2 DGPTFM3 DGPTFM4 DGPTFM5 DGPTFM6 DGPTFM7 DGPTFM71 DGPTFM8 DGPTFMO DGPTFMO1 DGPTFQWK DGPTFREL DGPTFRU1 DGPTFTR DGPTFTR0 DGPTFTR1 DGPTFTR2 DGPTFTR3 DGPTFUP DGPTFVC DGPTFVC1 DGPTFVC2 DGPTFVC3 DGPTLMU1 DGPTLMU4 DGPTLMU5 DGPTLMU6 DGPTOD1 DGPTOD2 DGPTODI2 DGPTOLC1 DGPTOLC2 DGPTOM2 DGPTOTRL DGPTPXRM DGPTR0 DGPTR1 DGPTR2 DGPTR3 DGPTR4 DGPTSC01 DGPTSCAN DGPTSPQ DGPTSUD1 DGPTSUDO DGPTTS DGPTTS0 DGPTTS1 DGPTTS2 DGPTTS3 DGPTUTL DGPTUTL1 DGPTX1 DGPTX12 DGPTX4 DGPTX41 DGPTX42 DGPTX43 DGPTX44 DGPTX45 DGPTX5 DGPTX51 DGPTX52 DGPTX53 DGPTX54 DGPTX55 DGPTX7 DGPTX73 DGPTX74 DGPTX77 DGPTX78 DGPTX79 DGPTXA DGPTXB DGPTXC DGPTXC1 DGPTXC2 DGPTXC3 DGPTXCA DGPTXX1 DGPTXX10 DGPTXX11 DGPTXX12 DGPTXX13 DGPTXX14 DGPTXX2 DGPTXX3 DGPTXX4 DGPTXX5 DGPTXX6 DGPTXX7 DGPTXX8 DGPTXX9 DGRPDD1 DGV53PT6 DGX5F DGX5F1 DGX5F2 DGX5F3 DGX5F4 DGX5F5 DGX5F6 DGX5F7 DGYWPOST ^DGPM
Integrated Billing	23	IB20PT82 IB20PT83 IB20PT84 IB20PT85 IB20PT86 IB20PT8A IBAUTL5 IBCA IBCA0 IBCB2 IBCD4 IBCD5 IBCF3 IBCONS2 IBCSC4 IBCSC4A IBCSC4B IBCSC6 IBCU IBCU4 IBCU6 IBCU64 IBERS3
Health Summary	6	GMTSDCB GMTSDGA GMTSDGA1 GMTSDGC1 GMTSDGC2 GMTSDGP
Lab Service	6	LRAPQAT1 LRBLJPP1 LRBLPC1 LREPI3 LREPI4 LREPI5
Incomplete Records Tracking	3	DGJOTPUL DGJTUTL DGJTVW
Pharmacy Benefits Management	3	PSUDEM7 PSUDEM8 PSUDEM9
Clinical Reminders	2	PXRMISE PXRMPDEM
Order Entry Results Reporting	2	ORWGAPI3 ORWGAPI4
DRG Grouper	1	ICDEXD5
IHS Omnicell Pyxis Interface	1	BOPCP2
PCE Patient Care Encounter	1	PXRRPAPI
Surgery	1	SROMORT

Package	Total	Routines
Registration	65	DG53478I DGPMV31 DGPMV321 DGPMV322 DGPMV331 DGPMVDL DGPMVDL1 DGPTAPP1 DGPTC DGPTC1 DGPTDDCR DGPTF DGPTF099 DGPTF1 DGPTF2 DGPTF4 DGPTF41 DGPTFCR DGPTFDEL DGPTFEE DGPTFIC DGPTFM1 DGPTFM4 DGPTFM5 DGPTFM6 DGPTFM71 DGPTFMO1 DGPTFOU DGPTFQWK DGPTFRU1 DGPTFTR DGPTFVC DGPTOLC1 DGPTOPCE DGPTSCAN DGPTSPQ DGPTTS1 DGPTTS2 DGPTUTL DGPTUTL1 DGPTX1 DGPTX12 DGPTX4 DGPTX41 DGPTX44 DGPTX5 DGPTX51 DGPTX52 DGPTX53 DGPTX54 DGPTX7 DGPTX73 DGPTX74 DGPTX77 DGPTXA DGPTXC DGPTXC1 DGPTXCA DGV53PT6 DGX5F DGX5F1 DGX5F4 DGX5F5 DGX5F6 VAFHLDG1
Integrated Billing	3	IB20PT82 IB20PT84 IB20PT86
Health Summary	1	GMTSDCB
Lab Service	1	LREPI3

Package	Total	FileMan Files
Registration	7	CENSUS WORKFILE(#45.85)[.12] INPATIENT CPT CODE(#46)[.16] INPATIENT POV(#46.1)[1] PTF RELEASE(#45.83)[#45.831(.01)] PTF CLOSE OUT(#45.84)[.01] PATIENT MOVEMENT(#405)[.16] PTF(#45)[12]
Integrated Billing	1	BILL/CLAIMS(#399)[.08]
Lab Service	1	LAB SEARCH/EXTRACT(#69.5)[#69.514(.01)]

Package	Total	FileMan Files
Registration	14	PTF DIALYSIS TYPE(#45.4)[#45.05(2)] PTF CENSUS DATE(#45.86)[13] PTF CLOSE OUT(#45.84)[7.1] PTF(#45)[12] PTF TRANSFERRING FACILITY(#45.2)[21, 76] WARD LOCATION(#42)[#45.0535(6)] SPECIALTY(#42.4)[71, #45.02(2), #45.05(1), #45.0535(2)] SOURCE OF ADMISSION(#45.1)[20] SURGICAL SPECIALTY(#45.3)[#45.01(3)] PLACE OF DISPOSITION(#45.6)[75] PTF ABUSED SUBSTANCE(#45.61)[300.04, #45.02(300.04)] CATEGORY OF BENEFICIARY(#45.82)[23] ELIGIBILITY CODE(#8)[20.1] VA PATIENT(#2)[.01]
DRG Grouper	3	DRG(#80.2)[#45.02(20)] ICD OPERATION/PROCEDURE(#80.1)[45.01, 45.02, 45.03, 45.04, 45.05, #45.01(8), #45.01(9), #45.01(10), #45.01(11), #45.01(12), #45.05(4), #45.05(5), #45.05(6), #45.05(7), #45.05(8)] ICD DIAGNOSIS(#80)[79, 79.16, 79.17, 79.18, 79.19, 79.201, 79.21, 79.22, 79.23, 79.24, 79.241, 79.242, 79.243, 79.244, 80, #45.02(5), #45.02(6), #45.02(7), #45.02(8), #45.02(9), #45.02(11), #45.02(12), #45.02(13), #45.02(14), #45.02(15), #45.06(.04)]
IHS Patient	1	VISIT(#9000010)[#45.06(.06)]
Kernel	1	NEW PERSON(#200)[7, 79.1, #45.02(24), #45.03(.01), #45.06(.02), #45.06(.03)]
MailMan	1	MESSAGE(#3.9)[#45.04(3)]
Scheduling	1	HOSPITAL LOCATION(#44)[#45.06(.05)]

Fields, Total: 83

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 15, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999999` DESCRIPTION: This field contains the IFN of the PTF record.
.01	PATIENT	0;1	POINTER TO VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA PATIENT(#2) INPUT TRANSFORM: `S DGNEWP=X` LAST EDITED: `OCT 01, 1990` HELP-PROMPT: `Enter the patient to enter PTF data for.` DESCRIPTION: This field contains a pointer to the patient file (#2). This is the patient that the PTF data has been entered for. DELETE TEST: `1,0)= I $D(^DGP(45.84,DA)) W *7,!,"CANNOT DELETE - CLOSED OUT"` UNEDITABLE NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^B` 1)= S ^DGPT("B",$E(X,1,30),DA)="" 2)= K ^DGPT("B",$E(X,1,30),DA) CROSS-REFERENCE: `45^ADEL^MUMPS` 1)= I $D(DGK),'$P(^DGPT(DA,0),U,4),$D(^DPT("AA",+$P(^(0),U,2),X)) S %=$N(^(X,0)) I $D(^DPT(X,"DA",%,0)) I '$P(^(0),U,12) S $P(^(0),U,12)=DA D REC^DGPTFCR 2)= I $D(^DPT("AA",+$P(^DGPT(DA,0),U,2),X)) S %=$N(^(X,0)) I $D(^DPT(X,"DA",%,0)) I $P(^(0),U,12)=DA S DGK=1,^(0)=$P(^(0),U,1,11) F %D=0:0 S %D=$N(^DPT(X,"DA",%,"T",%D)) Q:%D'>0 I $D(^(%D,0)) S ^(0)=$P(^(0),U,1,11) RECORD INDEXES: `ACR9DSD1 (#366), ACR9DSD10 (#367), ACR9DSD11 (#368), ACR9DSD12 (#369), ACR9DSD13 (#370), ACR9DSD2 (#371), ACR9DSD3 (#372), ACR9DSD4 (#373), ACR9DSD5 (#374), ACR9DSD6 (#375), ACR9DSD7 (#376), ACR9DSD8 (#377),` ACR9DSD9 (#378), ACR9DXLS (#379), ACR9PDX (#390)
2	ADMISSION DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXP" D ^%DT S X=Y K:Y<1 X I $D(X) D ADM^DGPTF K %` OUTPUT TRANSFORM: `S L=^DGPT(DA,0),L1=$P(L,"^",2),L=+L Q:L'>0 S Y=$S($D(^DPT(L,"DA",L1,0)):+^(0),1:"") Q:Y="" S Y=$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3)` LAST EDITED: `FEB 03, 1998` HELP-PROMPT: `Enter the Admission Date. If this is not fee basis admission must match patient Admission Date.` DESCRIPTION: This is the date of admission described by the PTF record. EXECUTABLE HELP: `Q` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^AAD^MUMPS` 1)= S L=+^DGPT(DA,0) I L>0 S ^DGPT("AAD",L,X,DA)="" 2)= S L=+^DGPT(DA,0) I L>0 K ^DGPT("AAD",L,X,DA) CROSS-REFERENCE: `45^AF` 1)= S ^DGPT("AF",$E(X,1,30),DA)="" 2)= K ^DGPT("AF",$E(X,1,30),DA) CROSS-REFERENCE: `45^AADA^MUMPS` 1)= S L=$S($D(^DGPT(DA,70)):+^(70),1:0) I L'?7N.E S ^DGPT("AADA",X,DA)="" 2)= K ^DGPT("AADA",X,DA) CROSS-REFERENCE: `45^AFEE1^MUMPS` 1)= I $P(^DGPT(DA,0),U,4),$P(^(0),U) S ^DGPT("AFEE",$P(^DGPT(DA,0),U),$E(X,1,30),DA)="" 2)= I $P(^DGPT(DA,0),U,4),$P(^(0),U) K ^DGPT("AFEE",$P(^DGPT(DA,0),U),$E(X,1,30),DA) RECORD INDEXES: `ACR9DSD1 (#366), ACR9DSD10 (#367), ACR9DSD11 (#368), ACR9DSD12 (#369), ACR9DSD13 (#370), ACR9DSD2 (#371), ACR9DSD3 (#372), ACR9DSD4 (#373), ACR9DSD5 (#374), ACR9DSD6 (#375), ACR9DSD7 (#376), ACR9DSD8 (#377),` ACR9DSD9 (#378), ACR9DXLS (#379), ACR9PDX (#390)
2.1	INTERNAL ADMISSION #		COMPUTED	MUMPS CODE: `S X=$O(^DGPM("APTF",D0,0))` ALGORITHM: `S X=$O(^DGPM("APTF",D0,0))` LAST EDITED: `MAR 02, 1990` DESCRIPTION: IFN assigned to the admission date/time for this particular record.
2.2	WARD AT DISCHARGE		COMPUTED	MUMPS CODE: `D PTF^DGPMUTL(D0)` 9.2 = X $P(^DD(45,2.1,0),U,5,99) S Y(45,2.2,1)=X S X=Y(45,2.2,1) ALGORITHM: `D PTF^DGPMUTL(D0)` LAST EDITED: `MAY 21, 1991` DESCRIPTION: This field contains the ward at the time of discharge.
3	FACILITY	0;3	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S DIC="^DIC(4,",DIC(0)="M" D ^DIC S X=$S($D(^DIC(4,+Y,99)):+^(99),1:"") K:Y'>0 X` LAST EDITED: `APR 26, 1989` HELP-PROMPT: `ENTER FACILITY NUMBER` DESCRIPTION: Facility from which this veteran was discharged. EXECUTABLE HELP: `S DIC(0)="M",DIC="^DIC(4," D ^DIC` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4	FEE BASIS	0;4	SET	'1' FOR FEE BASIS; LAST EDITED: `JAN 04, 1990` HELP-PROMPT: `Enter 'F' if this is a fee basis entry.` DESCRIPTION: This field indicated if the PTF record is a FEE basis record. A '1' in this field indicates a FEE basis record. CROSS-REFERENCE: `45^AFEE^MUMPS` 1)= I $P(^DGPT(DA,0),U),$P(^(0),U,2) S ^DGPT("AFEE",$P(^DGPT(DA,0),U),$P(^DGPT(DA,0),U,2),DA)="" 2)= I $P(^DGPT(DA,0),U),$P(^(0),U,2) K ^DGPT("AFEE",$P(^DGPT(DA,0),U),$P(^DGPT(DA,0),U,2),DA)
5	SUFFIX	0;5	FREE TEXT	INPUT TRANSFORM: `D UP^DGHELP S DIC="^DIC(45.81,",DIC(0)="EFC",D="D1" D IX^DIC S DIC=$S($D(DIE):DIE,1:DIC) I Y'>0!(X=" ")!('$$ACTIVE^DGPTDD($G(X),+Y,+$G(PTF))) K X` LAST EDITED: `JUL 18, 1995` HELP-PROMPT: `Enter the active suffix of this medical center if not included in the facility number.` DESCRIPTION: This field contains the suffix of the medical center if not indicated in the facility number. EXECUTABLE HELP: `D ACTLST^DGPTDD(+$G(PTF))` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^45^20` 1)= Q 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,101)):^(101),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" S DIH=$S($D(^DGPT(DIV(0),101)):^(101),1:""),DIV=X S $P(^(101),U,1)=DIV,DIH=45,DIG=20 D ^DICR:$O(^DD(DIH,DIG ,1,0))>0 CREATE VALUE)= NO EFFECT DELETE VALUE)= @ FIELD)= SOURCE OF ADMISSION
6	STATUS	0;6	SET	'0' FOR Open; '1' FOR Closed; '2' FOR Released; '3' FOR Transmitted; LAST EDITED: `MAY 10, 1985` HELP-PROMPT: `Enter the current status of this patient's record.` DESCRIPTION: This field indicates the current status of the PTF record. NOTES: `TRIGGERED by the RECORD field of the PTF RECORD sub-field of the PTF RELEASE File` TRIGGERED by the PTF RECORD field of the PTF CLOSE OUT File CROSS-REFERENCE: `45^AS` 1)= S ^DGPT("AS",$E(X,1,30),DA)="" 2)= K ^DGPT("AS",$E(X,1,30),DA)
7	CLOSED OUT BY	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 10, 1990` HELP-PROMPT: `Enter the person who closed out this PTF record.` DESCRIPTION: This field contains a pointer to the New Person File. The field indicates who closed out the PTF record.
7.1	CLOSE OUT FILE	0;9	POINTER TO PTF CLOSE OUT FILE (#45.84)	PTF CLOSE OUT(#45.84) LAST EDITED: `FEB 08, 1985` DESCRIPTION: File reference containing all PTF records that have been closed out. WRITE AUTHORITY: ^
7.2	CLOSE OUT DATE		COMPUTED DATE	MUMPS CODE: `X ^DD(45,7.2,9.2) S X=$P(Y(45,7.2,101),U,2) S D0=Y(45,7.2,2)` 9.2 = S Y(45,7.2,2)=$S($D(D0):D0,1:""),Y(45,7.2,1)=$S($D(^DGPT(D0,0)):^(0),1:""),D0=$P(Y(45,7.2,1),U,9) S:'$D(^DGP(45.84,+D0,0)) D0=-1 S Y(45,7.2,101)=$S($D(^DGP(45.84,D0,0)):^(0),1:"") ALGORITHM: `CLOSE OUT FILE:CLOSE OUT DATE` DESCRIPTION: This field contains the date the PTF record was closed out.
7.3	RELEASE DATE		COMPUTED DATE	MUMPS CODE: `X ^DD(45,7.3,9.2) S X=$P(Y(45,7.3,101),U,4) S D0=Y(45,7.3,2)` 9.2 = S Y(45,7.3,2)=$S($D(D0):D0,1:""),Y(45,7.3,1)=$S($D(^DGPT(D0,0)):^(0),1:""),D0=$P(Y(45,7.3,1),U,9) S:'$D(^DGP(45.84,+D0,0)) D0=-1 S Y(45,7.3,101)=$S($D(^DGP(45.84,D0,0)):^(0),1:"") ALGORITHM: `CLOSE OUT FILE:RELEASE DATE` DESCRIPTION: This field contains the date the PTF record was released.
7.4	TRANSMISSION DATE		COMPUTED DATE	MUMPS CODE: `S X=$S($D(^DGP(45.83,"C",D0)):$O(^DGP(45.83,"C",D0,0)),1:""),X=$S($D(^DGP(45.83,+X,"P",D0,0)):$P(^(0),U,2),1:"")` ALGORITHM: `S X=$S($D(^DGP(45.83,"C",D0)):$O(^DGP(45.83,"C",D0,0)),1:""),X=$S($D(^DGP(45.83,+X,"P",D0,0)):$P(^(0),U,2),1:"")` LAST EDITED: `MAY 19, 2006` DESCRIPTION: This field contains the date the PTF record was transmitted. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
8	FIRST CLOSED OUT AT	0;8	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 19, 1984` HELP-PROMPT: `Enter the date PTF record was first closed.` DESCRIPTION: This field contains the date the PTF record was first closed out.
9	DRG		COMPUTED	MUMPS CODE: `Q:'$D(^DGPT(D0,0)) S %PTF=1,DRG=$S($D(^DGP(45.84,D0,0)):$P(^(0),U,6),1:""),(ICDCAL,DGCPT)="",DFN=+^DGPT(D0,0),PTF=D0,ZTA=D0 D EN1^DGPTFD:'DRG S X=DRG,DRGCAL=$S($D(^ICD(+X,0)):^(0),1:"") K ZTA,DZ,DGCPT` ALGORITHM: `S DZ=$S($D(DA):DA,$D(D0):D0,1:"") Q:DZ="" S %PTF=1,DRG="",ICDCAL="",DFN=+^DGPT(DZ,0),PTF=D0,ZTA=D0 D EN1^DGPTFD S DA=ZTA,X=DRG K ZTA,DZ` LAST EDITED: `JUL 21, 1989` DESCRIPTION: This field contains the DGR for the espisode of care described by the PTF record. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
10	MEANS TEST INDICATOR	0;10	SET	**********************REQUIRED FIELD********************** 'AS' FOR SERVICE CONNECTED; 'AN' FOR NSC MT COPAY EXEMPT; 'B' FOR CAT B; 'C' FOR MT COPAY REQUIRED; 'N' FOR NON VET; 'X' FOR NOT APPLICABLE; 'U' FOR NOT DONE/COMPLETED; 'G' FOR GMT COPAY REQUIRED; LAST EDITED: `AUG 12, 2002` HELP-PROMPT: `Enter Means Test indicator` DESCRIPTION: This field contains the Means Test Indicator. CROSS-REFERENCE: `45^AMT` 1)= S ^DGPT("AMT",$E(X,1,30),DA)="" 2)= K ^DGPT("AMT",$E(X,1,30),DA)
11	TYPE OF RECORD	0;11	SET	**********************REQUIRED FIELD********************** '1' FOR PTF; '2' FOR CENSUS; LAST EDITED: `APR 18, 1990` DESCRIPTION: `This field indicates what type of record this is represents. As of 8/90 there are only two types, PTF and census.` It is important to note that before MAS v4.7 this field did not exist and all records were PTF records. If sites have developed reports, they will need to screen on this field for the PTF record. (A PTF record has an internal value of 1 and a census record has a value of 2.) NOTES: `TRIGGERED by the CENSUS DATE field of the PTF File` RECORD INDEXES: `ACR9DSD1 (#366), ACR9DSD10 (#367), ACR9DSD11 (#368), ACR9DSD12 (#369), ACR9DSD13 (#370), ACR9DSD2 (#371), ACR9DSD3 (#372), ACR9DSD4 (#373), ACR9DSD5 (#374), ACR9DSD6 (#375), ACR9DSD7 (#376), ACR9DSD8 (#377),` ACR9DSD9 (#378), ACR9DXLS (#379), ACR9PDX (#390)
12	CORRESPONDING PTF RECORD	0;12	POINTER TO PTF FILE (#45)	PTF(#45) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,11)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 11, 1990` DESCRIPTION: `This field is only filled in for census type of records. It points to the PTF record that was used to create the census record.` A census record is an extract of information from the parent PTF record for activities that occurred during the census time period. SCREEN: `S DIC("S")="I $P(^(0),U,11)=1"` EXPLANATION: `Allows only PTF record.` CROSS-REFERENCE: `45^ACENSUS` 1)= S ^DGPT("ACENSUS",$E(X,1,30),DA)="" 2)= K ^DGPT("ACENSUS",$E(X,1,30),DA)
13	CENSUS DATE	0;13	POINTER TO PTF CENSUS DATE FILE (#45.86)	PTF CENSUS DATE(#45.86) LAST EDITED: `APR 18, 1990` DESCRIPTION: This field is only filled in for census records and it points back to a PTF CENSUS DATE file entry. CROSS-REFERENCE: `^^TRIGGER^45^11` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=2 S DIH=$S($D(^DGPT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=45,DIG=11 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=1 S DIH=$S($D(^DGPT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=45,DIG=11 D ^DICR CREATE VALUE)= S X=2 DELETE VALUE)= S X=1 FIELD)= TYPE OF RECORD
20	SOURCE OF ADMISSION	101;1	POINTER TO SOURCE OF ADMISSION FILE (#45.1)	SOURCE OF ADMISSION(#45.1) INPUT TRANSFORM: `S DIC("S")="S DGER=0 D SA^DGPTFJ K DGSU0,DGSU1 I 'DGER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 28, 1990` HELP-PROMPT: `Enter the source of admission from the available entries.` DESCRIPTION: This field contains the source of admission of the veteran, or where he was admitted to the hospital from, i.e. community, other facility, etc. SCREEN: `S DIC("S")="S DGER=0 D SA^DGPTFJ K DGSU0,DGSU1 I 'DGER"` EXPLANATION: `Note: 3E only valid with active Psych Med Center suffix, 4E only valid with active VA Domiciliary suffix, 5D only valid with active VA Nursing Home suffix. (4E and 5D require Transferring Suffix entry also)` NOTES: `TRIGGERED by the SUFFIX field of the PTF File`
20.1	ADMITTING ELIGIBILITY	101;8	POINTER TO ELIGIBILITY CODE FILE (#8)	ELIGIBILITY CODE(#8) LAST EDITED: `JAN 31, 1997` HELP-PROMPT: `Please enter the Admitting Eligibility.` DESCRIPTION: This field contains the Admitting Eligibility associated with this inpatient stay.
21	*TRANSFERING FACILITY	101;2	POINTER TO PTF TRANSFERRING FACILITY FILE (#45.2)	PTF TRANSFERRING FACILITY(#45.2) LAST EDITED: `FEB 26, 1984` HELP-PROMPT: `Enter the from which this patient was transfered.` DESCRIPTION: Old version no longer used
21.1	TRANSFERRING FACILITY	101;5	NUMBER	INPUT TRANSFORM: `S DIC="^DIC(4,",DIC(0)="ME" D ^DIC S X=$S($D(^DIC(4,+Y,99)):$E(^(99),1,3),1:"") K:Y'>0 X` LAST EDITED: `JAN 21, 2000` HELP-PROMPT: `ENTER FACILITY NUMBER` DESCRIPTION: Facility number of the facility that the veteran was transferred to the hospital from. EXECUTABLE HELP: `S DIC(0)="ME",DIC="^DIC(4," D ^DIC` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
21.2	TRANSFERRING SUFFIX	101;6	FREE TEXT	INPUT TRANSFORM: `D UP^DGHELP S DIC(0)="ECF",DIC="^DIC(45.81,",D="D1" D IX^DIC S DIC=$S($D(DIE):DIE,1:DIC) I +Y'>0!(X=" ") K X` LAST EDITED: `JUN 07, 1995` HELP-PROMPT: `Enter the suffix (if applicable) assigned to the facility the patient was transferred from.` DESCRIPTION: The suffix assigned to the facility (if applicable) the veteran was transferred to the hospital from, i.e. 9AA = Nursing Home. EXECUTABLE HELP: `S DIZ=$Y+10,DIC="^DIC(45.81,",DIC(0)="E",D="D1",X="??" D IX^DIC S DIC=DIE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
22	SOURCE OF PAYMENT	101;3	SET	'1' FOR CONTRACT-PUBLIC&PRIV; '2' FOR SHARING; '3' FOR CONTRACT-MILT&FED AGENCY; '4' FOR PAID UNAUTH; LAST EDITED: `FEB 22, 1984` HELP-PROMPT: `Enter the source of payment for this patient for non-VA hospitals only.` DESCRIPTION: The field contains the source of payment for this patient for Non-VA hospitals only.
23	CATEGORY OF BENEFICIARY	101;4	POINTER TO CATEGORY OF BENEFICIARY FILE (#45.82)	CATEGORY OF BENEFICIARY(#45.82) INPUT TRANSFORM: `D CAT1^DGINP` LAST EDITED: `MAY 03, 1991` HELP-PROMPT: `Enter the category of beneficiary of this patient.` DESCRIPTION: Category of beneficiary. This field through cross reference sets Category of beneficiary field in patient file which is used for Amis 358 NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^AE^MUMPS` 1)= S %=+^DGPT(DA,0) I %>0 S %C=$S($D(^DPT(%,.3)):^(.3),1:"")_"^^^^^^^^^^",^(.3)=$P(%C,U,1,9)_U_X_U_$P(%C,U,11,99),^DPT("ACB",X,%)="" K ^DPT("ACB",+$P(%C,U,10),%),%,%C 2)= S %=+^DGPT(DA,0) I $D(^DPT(%,.3)) S %C=$P(^(.3),U,10) I %C S ^(.3)=$P(^(.3),U,1,9)_U_U_$P(^(.3),U,11,99) K ^DPT("ACB",%C,%),%,%C
30	CPT RECORD DATE/TIME	C;0	DATE Multiple #45.06	45.06 LAST EDITED: `NOV 24, 2004`
40	401	S;0	DATE Multiple #45.01	45.01 DESCRIPTION: Multiple containing information on the PTF 401 screen relating to surgical procedures and operations.
45.01	PROCEDURE 1	401P;1	POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)	ICD OPERATION/PROCEDURE(#80.1) INPUT TRANSFORM: `K K S DIC("S")="S DGI=1 D EN2^DGPTFJC I 'DGER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 09, 1986` HELP-PROMPT: `Enter the first procedure for this episode of care.` DESCRIPTION: This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1) indicating a procedure performed during this episode of care. SCREEN: `S DIC("S")="S DGI=1 D EN2^DGPTFJC I 'DGER"` EXPLANATION: `NOT INACTIVE CODES` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^AP^MUMPS` 1)= S ^DGPT(DA,"AP",X)="" 2)= K ^DGPT(DA,"AP",X)
45.02	PROCEDURE 2	401P;2	POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)	ICD OPERATION/PROCEDURE(#80.1) INPUT TRANSFORM: `K K S DIC("S")="S DGI=2 D EN2^DGPTFJC I 'DGER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 09, 1986` HELP-PROMPT: `Enter the 2nd procedure for this patient's current episode of care.` DESCRIPTION: This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1) indicating an operation or procedure performed during this episode of care. SCREEN: `S DIC("S")="S DGI=2 D EN2^DGPTFJC I 'DGER"` EXPLANATION: `Not inactive code.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^AP^MUMPS` 1)= S ^DGPT(DA,"AP",X)="" 2)= K ^DGPT(DA,"AP",X)
45.03	PROCEDURE 3	401P;3	POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)	ICD OPERATION/PROCEDURE(#80.1) INPUT TRANSFORM: `K K S DIC("S")="S DGI=3 D EN2^DGPTFJC I 'DGER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 09, 1986` HELP-PROMPT: `Enter the 3rd procedure performed on this patient during this episode of care.` DESCRIPTION: This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1) indicating a procedure performed during this episode of care. SCREEN: `S DIC("S")="S DGI=3 D EN2^DGPTFJC I 'DGER"` EXPLANATION: `Not inactive codes` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^AP^MUMPS` 1)= S ^DGPT(DA,"AP",X)="" 2)= K ^DGPT(DA,"AP",X)
45.04	PROCEDURE 4	401P;4	POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)	ICD OPERATION/PROCEDURE(#80.1) INPUT TRANSFORM: `K K S DIC("S")="S DGI=4 D EN2^DGPTFJC I 'DGER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 09, 1986` HELP-PROMPT: `Enter the 4th procedure that was performed on the patient during his current episode of care.` DESCRIPTION: This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1) indicating a procedure performed during this episode of care. SCREEN: `S DIC("S")="S DGI=4 D EN2^DGPTFJC I 'DGER"` EXPLANATION: `Not inactive codes` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^AP^MUMPS` 1)= S ^DGPT(DA,"AP",X)="" 2)= K ^DGPT(DA,"AP",X)
45.05	PROCEDURE 5	401P;5	POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)	ICD OPERATION/PROCEDURE(#80.1) INPUT TRANSFORM: `K K S DIC("S")="S DGI=5 D EN2^DGPTFJC I 'DGER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 09, 1986` HELP-PROMPT: `Enter the 5th procedure for the patient's current episode of care.` DESCRIPTION: This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1) indicating a procedure performed during this episode of care. SCREEN: `S DIC("S")="S DGI=5 D EN2^DGPTFJC I 'DGER"` EXPLANATION: `Not inactive codes` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^AP^MUMPS` 1)= S ^DGPT(DA,"AP",X)="" 2)= K ^DGPT(DA,"AP",X)
50	501	M;0	Multiple #45.02	45.02 LAST EDITED: `JUN 28, 1991` DESCRIPTION: 501 movements TECHNICAL DESCR: IDENTIFIED BY: `MOVEMENT DATE(#10)[R], TRANSMIT FLAG(#17)`
60	601	P;0	DATE Multiple #45.05	45.05 DESCRIPTION: 601 movements.
70	DISCHARGE DATE	70;1	DATE	INPUT TRANSFORM: `S %DT="ETXP" D ^%DT S X=Y K:Y<1 X I $D(X) K:X<$P(^DGPT(DA,0),U,2) X I '$D(X) W *7,!,"Not before admission"` LAST EDITED: `DEC 12, 1986` HELP-PROMPT: `Enter the date this patient was dispositioned from the medical center.` DESCRIPTION: For census records, this field holds the census date associated with the record, not the admission's discharge date. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^ADS` 1)= S ^DGPT("ADS",$E(X,1,30),DA)="" 2)= K ^DGPT("ADS",$E(X,1,30),DA) CROSS-REFERENCE: `45^AC^MUMPS` 1)= S %=$S($D(^DGPT(DA,"M",1,0)):^(0),1:""),%D=+$P(%,U,10),^(0)=$P(%_"^^^^^^^^^^",U,1,9)_U_X_U_$P(%,U,11,99),^DGPT(DA,"M","AM",X,1)="" K:%D'=X ^DGPT(DA,"M","AM",%D,1) K %,%D 2)= S %=$S($D(^DGPT(DA,"M",1,0)):^(0),1:""),%D=+$P(%,U,10),^(0)=$P(%_"^^^^^^^^^^",U,1,9)_U_X_U_$P(%,U,11,99) K ^DGPT(DA,"M","AM",%D,1),%,%D CROSS-REFERENCE: `45^AADA1^MUMPS` 1)= S L=$P(^DGPT(DA,0),"^",2) I L?7N.E K ^DGPT("AADA",L,DA) 2)= S L=$P(^DGPT(DA,0),"^",2) I L?7N.E,$G(DIK)'="^DGPT(" S ^DGPT("AADA",L,DA)="" RECORD INDEXES: `ACR9DSD1 (#366), ACR9DSD10 (#367), ACR9DSD11 (#368), ACR9DSD12 (#369), ACR9DSD13 (#370), ACR9DSD2 (#371), ACR9DSD3 (#372), ACR9DSD4 (#373), ACR9DSD5 (#374), ACR9DSD6 (#375), ACR9DSD7 (#376), ACR9DSD8 (#377),` ACR9DSD9 (#378), ACR9DXLS (#379), ACR9PDX (#390)
71	DISCHARGE SPECIALTY	70;2	POINTER TO SPECIALTY FILE (#42.4)	SPECIALTY(#42.4) INPUT TRANSFORM: `S DIC("S")="I $G(^DGPT(DA,70)),$$ACTIVE^DGACT(42.4,Y,$P(^DGPT(DA,70),U))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 16, 1996` HELP-PROMPT: `Enter the bedsection this patient was discharged from. This must be an active treating specialty. You must have a discharge date to enter a discharge specialty.` DESCRIPTION: This field contains the bedsection this patient was discharged from. SCREEN: `S DIC("S")="I $G(^DGPT(DA,70)),$$ACTIVE^DGACT(42.4,Y,$P(^DGPT(DA,70),U))"` EXPLANATION: `Allows only active treating specialties.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^AD^MUMPS` 1)= I $D(^DGPT(DA,"M",1,0)) S $P(^(0),U,2)=X,$P(^DGPT(DA,"M",1,0),U,16)=$S($D(^DIC(42.4,X,0)):$P(^(0),U,6),1:"") 2)= I $D(^DGPT(DA,"M",1,0)) S $P(^(0),U,2)="",$P(^(0),U,16)=""
72	TYPE OF DISPOSITION	70;3	SET	'1' FOR REGULAR; '2' FOR NBC OR WHILE ASIH; '3' FOR EXPIRATION 6 MONTH LIMIT; '4' FOR IRREGULAR; '5' FOR TRANSFER; '6' FOR DEATH WITH AUTOPSY; '7' FOR DEATH WITHOUT AUTOPSY; LAST EDITED: `AUG 19, 1991` HELP-PROMPT: `Enter the type of disposition for this patient for this episode of care.` DESCRIPTION: This field contains the type of disposition for this patient for this episode of care.
72.1	DISCHARGE STATUS	70;14	SET	'1' FOR BED OCCUPANT; '2' FOR ON PASS; '3' FOR ON LEAVE; '4' FOR ASIH; LAST EDITED: `JUL 21, 1986` DESCRIPTION: This field contains the discharge status for the patient during this episode of care.
73	OUTPATIENT TREATMENT	70;4	SET	'1' FOR YES; '3' FOR NO; LAST EDITED: `FEB 23, 1984` HELP-PROMPT: `Enter '1' if the patient was discharged to outpatient treatment, '3' if not.` DESCRIPTION: This field indicates if the veteran was referred for outpatient treatment following an episode of hospital care.
74	VA AUSPICES	70;5	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `APR 08, 1985` DESCRIPTION: If outpatient care indicated, is it under VA auspices? Is the VA paying for this care or is the veteran being seen at a VA facility?
75	PLACE OF DISPOSITION	70;6	POINTER TO PLACE OF DISPOSITION FILE (#45.6)	PLACE OF DISPOSITION(#45.6) LAST EDITED: `FEB 24, 1984` DESCRIPTION: Enter place of disposition..where is the veteran being discharged to?
76	*RECEIVING FACILITY	70;7	POINTER TO PTF TRANSFERRING FACILITY FILE (#45.2)	PTF TRANSFERRING FACILITY(#45.2) LAST EDITED: `FEB 24, 1984` HELP-PROMPT: `Enter the location of the facility receiving this patient.` DESCRIPTION: Discontinued after version 3.3
76.1	RECEIVING FACILITY	70;12	NUMBER	INPUT TRANSFORM: `S DIC="^DIC(4,",DIC(0)="ME" D ^DIC S DIC=$S($D(DIE):DIE,1:DIC) S X=$S($D(^DIC(4,+Y,99)):$E(^(99),1,3),1:"") K:Y'>0 X` LAST EDITED: `JAN 20, 2000` HELP-PROMPT: `Enter Facility Number` DESCRIPTION: Facility number of the facility that the veteran is being transferred to from hospital. EXECUTABLE HELP: `S DIC(0)="ME",DIC="^DIC(4," D ^DIC` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
76.2	RECEIVING SUFFIX	70;13	FREE TEXT	INPUT TRANSFORM: `D UP^DGHELP S DIC(0)="EFC",DIC="^DIC(45.81,",D="D1" D IX^DIC S DIC=DIE I +Y'>0!(X=" ") K X` LAST EDITED: `JUL 05, 1995` HELP-PROMPT: `Enter the suffix of this medical center if not included in the facility number.` DESCRIPTION: Suffix of receiving facility, i.e. 9AA for nursing home. EXECUTABLE HELP: `S DIZ=$Y+10,DIC="^DIC(45.81,",DIC(0)="E",D="D1",X="??" D IX^DIC S DIC=DIE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
77	ASIH DAYS	70;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 24, 1984` HELP-PROMPT: `Enter the number of days the patient was ASIH if stay was not in a hospital.` DESCRIPTION: Number of days patient was Absent Sick in Hospital during this episode of care (pertains to NHCU/DOM patients only).
78	C&P STATUS	70;9	SET	'1' FOR COMP/SC COND >10%; '2' FOR NON-COMP/SC COND<10%; '3' FOR COMP/SC (+10%) NO MED CARE; '4' FOR NON-COMP(-10%) SC NO MED CARE-VA PENSION; '5' FOR VA PENSION-NO SC COND; '6' FOR NON-COMP(-10%) SC NO MED CARE NO PENSION; '7' FOR NO PENSION-NO SC; '8' FOR NON-VET; LAST EDITED: `FEB 24, 1984` HELP-PROMPT: `Enter the C&P status for this patient's visit.` DESCRIPTION: Compensation and Pension status (synoymous with eligibility).
79	PRINCIPAL DIAGNOSIS	70;10	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=1 D EN3^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: `NOV 23, 2005` HELP-PROMPT: `Enter the ICD diagnosis responsible for the patient's greatest length of stay.` DESCRIPTION: This field contains the diagnosis responsible for the patient's greatest length of stay. SCREEN: `S DIC("S")="S DGI=1 D EN3^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `For DRG calculation` EXECUTABLE HELP: `Q` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^ADGRU79^MUMPS` 1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) 2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes RECORD INDEXES: `ACR9DXLS (#379)`
79.1	PROVIDER	70;15	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="S DG1=0 X ^DD(45,79.1,9.2) I DG1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` 9.2 = S DFN=+^DGPT(DA,0),%=+$O(^DGPM("APTF",DA,0)) S:%'>0 DG1=1 X:'DG1 ^DD(45,79.1,9.3) 9.3 = F I=0:0 S I=$O(^DGPM("CA",%,I)) Q:'I I $D(^DGPM(I,0)),$P(^(0),U,8)=+Y S DG1=1 Q LAST EDITED: `JAN 26, 1993` DESCRIPTION: The primary physician responsible for this patient's episode of care. SCREEN: `S DIC("S")="S DG1=0 X ^DD(45,79.1,9.2) I DG1"` EXPLANATION: `Same as in treating specialties`
79.16	SECONDARY DIAGNOSIS 1	70;16	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=2 D EN3^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: `AUG 30, 2005` DESCRIPTION: This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG. SCREEN: `S DIC("S")="S DGI=2 D EN3^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Active Codes` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^ADGRU7916^MUMPS` 1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) 2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes RECORD INDEXES: `ACR9DSD1 (#366)`
79.17	SECONDARY DIAGNOSIS 2	70;17	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=3 D EN3^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: `AUG 11, 2005` DESCRIPTION: This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG. SCREEN: `S DIC("S")="S DGI=3 D EN3^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Active Codes` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^ADGRU7917^MUMPS` 1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) 2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes RECORD INDEXES: `ACR9DSD2 (#371)`
79.18	SECONDARY DIAGNOSIS 3	70;18	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=4 D EN3^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: `AUG 11, 2005` DESCRIPTION: This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the caluculation of the DRG. SCREEN: `S DIC("S")="S DGI=4 D EN3^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Active Codes` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^ADGRU7818^MUMPS` 1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) 2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes RECORD INDEXES: `ACR9DSD3 (#372)`
79.19	SECONDARY DIAGNOSIS 4	70;19	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=5 D EN3^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: `AUG 11, 2005` DESCRIPTION: This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG. SCREEN: `S DIC("S")="S DGI=5 D EN3^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Active Codes` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^ADGRU7919^MUMPS` 1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) 2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes RECORD INDEXES: `ACR9DSD4 (#373)`
79.2	PROVIDER SSN		COMPUTED	MUMPS CODE: `X ^DD(45,79.2,9.2) S X=$P(Y(45,79.2,101),U,9) S D0=Y(45,79.2,80)` 9.2 = S Y(45,79.2,80)=$S($D(D0):D0,1:""),Y(45,79.2,1)=$S($D(^DGPT(D0,70)):^(70),1:""),D0=$P(Y(45,79.2,1),U,15) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(45,79.2,101)=$S($D(^VA(200,D0,1)):^(1),1:"") ALGORITHM: `PROVIDER:SSN` LAST EDITED: `JUL 17, 1993` DESCRIPTION: Social Security number of primary care physician.
79.201	SECONDARY DIAGNOSIS 5	70;20	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=6 D EN3^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: `AUG 11, 2005` DESCRIPTION: This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG. SCREEN: `S DIC("S")="S DGI=6 D EN3^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Active Codes` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^ADGRU79201^MUMPS` 1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) 2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes RECORD INDEXES: `ACR9DSD5 (#374)`
79.21	SECONDARY DIAGNOSIS 6	70;21	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=7 D EN3^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: `AUG 11, 2005` DESCRIPTION: This field conatins a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG. SCREEN: `S DIC("S")="S DGI=7 D EN3^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Active Codes` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^ADGRU7921^MUMPS` 1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) 2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes RECORD INDEXES: `ACR9DSD6 (#375)`
79.22	SECONDARY DIAGNOSIS 7	70;22	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=8 D EN3^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: `AUG 11, 2005` DESCRIPTION: This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG. SCREEN: `S DIC("S")="S DGI=8 D EN3^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Active Codes` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^ADGRU7922^MUMPS` 1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) 2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes RECORD INDEXES: `ACR9DSD7 (#376)`
79.23	SECONDARY DIAGNOSIS 8	70;23	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=9 D EN3^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: `AUG 11, 2005` DESCRIPTION: This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG. SCREEN: `S DIC("S")="S DGI=9 D EN3^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Active Codes` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^ADGRU7923^MUMPS` 1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) 2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes RECORD INDEXES: `ACR9DSD8 (#377)`
79.24	SECONDARY DIAGNOSIS 9	70;24	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=10 D EN3^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: `AUG 11, 2005` DESCRIPTION: This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG. SCREEN: `S DIC("S")="S DGI=10 D EN3^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Active Codes` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^ADGRU7924^MUMPS` 1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) 2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes RECORD INDEXES: `ACR9DSD9 (#378)`
79.241	SECONDARY DIAGNOSIS 10	71;1	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=11 D EN3^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: `AUG 11, 2005` DESCRIPTION: This field contains a diagnosis for the patient during this episode of care. SCREEN: `S DIC("S")="S DGI=11 D EN3^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Valid Code` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^ADGRU79241^MUMPS` 1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) 2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes RECORD INDEXES: `ACR9DSD10 (#367)`
79.242	SECONDARY DIAGNOSIS 11	71;2	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=12 D EN3^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: `AUG 11, 2005` DESCRIPTION: This field contains a diagnosis for the patient during this episode of care. SCREEN: `S DIC("S")="S DGI=12 D EN3^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Valid Code` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^ADGRU79242^MUMPS` 1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) 2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes RECORD INDEXES: `ACR9DSD11 (#368)`
79.243	SECONDARY DIAGNOSIS 12	71;3	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="S DGI=13 D EN3^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: `AUG 11, 2005` DESCRIPTION: This field contains a diagnosis for the patient during this episode of care. SCREEN: `S DIC("S")="S DGI=13 D EN3^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Valid Entries` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^ADGRU79243^MUMPS` 1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) 2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes RECORD INDEXES: `ACR9DSD12 (#369)`
79.244	SECONDARY DIAGNOSIS 13	71;4	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5` LAST EDITED: `JUL 27, 2005` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^ADGRU79244^MUMPS` 1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) 2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes RECORD INDEXES: `ACR9DSD13 (#370)`
79.25	TREATED FOR SC CONDITION	70;25	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `MAR 22, 1993` HELP-PROMPT: `The Patient care must be SC related`
79.26	TREATED FOR AO CONDITION	70;26	SET	'Y' FOR YES; 'N' FOR NO; INPUT TRANSFORM: `S DGFLAG=1 D 701^DGPTSPQ K:DGER X K DGER,DGFLAG` LAST EDITED: `MAR 23, 1993` HELP-PROMPT: `The Patient must have Agent Orange exposure indicated!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
79.27	TREATED FOR IR CONDITION	70;27	SET	'Y' FOR YES; 'N' FOR NO; INPUT TRANSFORM: `S DGFLAG=2 D 701^DGPTSPQ K:DGER X K DGER,DGFLAG` LAST EDITED: `MAR 23, 1993` HELP-PROMPT: `The Patient must have Ionizing Radiation exposure indicated!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
79.28	EXPOSED TO ENVIR CONTAMINANTS	70;28	SET	'Y' FOR YES; 'N' FOR NO; INPUT TRANSFORM: `S DGFLAG=3 D 701^DGPTSPQ K:DGER X K DGER,DGFLAG` LAST EDITED: `MAR 23, 1993` HELP-PROMPT: `The patient must have Environmental Contaminants exposure!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
79.29	TREATMENT FOR MST	70;29	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUN 18, 1998` DESCRIPTION: Was the treatment related to Military Sexual Trauma.
79.3	TREATMENT FOR HEAD/NECK CA	70;30	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUL 31, 2001` DESCRIPTION: Was the treatment related to Head and/or Neck Cancer.
80	PRINCIPAL DIAGNOSIS pre 1986	70;11	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^DGPTF5 Q:X="" S DIC("S")="I '$P(^ICD9(+Y,0),U,9)" 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: `AUG 11, 2005` HELP-PROMPT: `Enter the diagnosis responsible for the patient being admitted to the medical center.` DESCRIPTION: This field contains the diagnosis responsible for the patient being admitted to the medical center. This field is not used in the calculation of the DRG. This field is no longer used. SCREEN: `S DIC("S")="I '$P(^ICD9(+Y,0),U,9)" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `NOT AN INACTIVATED CODE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45^ADGRU80^MUMPS` 1)= N DG1 S DG1=$P(^(0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) 2)= N DG1 S DG1=$P(^(0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1) Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes RECORD INDEXES: `ACR9PDX (#390)`
99	TERMINAL DIGIT		COMPUTED	MUMPS CODE: `X ^DD(45,99,9.2) S X=Y(45,99,101) S D0=I(0,0)` 9.2 = S I(0,0)=$S($D(D0):D0,1:""),Y(45,99,1)=$S($D(^DGPT(D0,0)):^(0),1:""),D0=$P(Y(45,99,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 X $P(^DD(2,.0901,0),U,5,99) S Y(45,99,101)=X ALGORITHM: `PATIENT:TERMINAL DIGIT` LAST EDITED: `JUL 18, 1985` DESCRIPTION: Computed field to determine the last four digits of the SSN
100	CODING CLERK	1;0	POINTER Multiple #45.03	45.03 DESCRIPTION: Multiple contains information on the coding clerk who worked on the PTF record for this episode of care. WRITE AUTHORITY: ^
101.07	INCOME	101;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 03, 1991` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits` DESCRIPTION: This field contains the patient's income as reported for the MEANS TEST if applicable or the income is calculated from fields in the PATIENT file (#2).
200	CENSUS YEAR	CEN;0	DATE Multiple #45.04	45.04 DESCRIPTION: Multiple containing information on the census year
300.01	KIDNEY SOURCE	300;1	SET	'1' FOR Live Donor; '2' FOR Cadaver; INPUT TRANSFORM: `S DGFLAG=1 D 401^DGPTSC01 K:DGER X K DGFLAG,DGER` LAST EDITED: `MAY 15, 1991` DESCRIPTION: This field will indicate where the transplanted organ was received from. TECHNICAL DESCR: `The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen. 2) Scan the DGPTIT array for codes that require additional` information. The PTF EXPANDED CODE FILE contains all ICD's that require special processing. If a match is made an entry is made in the DGBPC array. 3) If the DGBPC array exist then additional questions are required to complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
300.02	SUICIDE/SELF INFLICT INDICATOR	300;2	SET	'1' FOR Attempted Suicide; '2' FOR Accomplished Suicide; '3' FOR Self Inflicted Injury; INPUT TRANSFORM: `S DGFLAG=2 D 701^DGPTSC01 K:DGER X K DGER,DGFLAG` LAST EDITED: `MAR 05, 1993` DESCRIPTION: This field will indicated if a suicide was attempted or accomplished. TECHNICAL DESCR: `The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen. 2) Scan the DGPTIT array for codes that require additional` information. The PTF EXPANDED CODE FILE contains all ICD's that require special processing. If a match is made an entry is made in the DGBPC array. 3) If the DGBPC array exist then additional questions are required to complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
300.03	LEGIONNAIRE'S DISEASE	300;3	SET	'1' FOR Yes; '2' FOR No; INPUT TRANSFORM: `S DGFLAG=3 D 701^DGPTSC01 K:DGER X K DGER,DGFLAG` LAST EDITED: `AUG 16, 1991` DESCRIPTION: This field will indicated the patient was treated for Legionnaire's Disease. TECHNICAL DESCR: `The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen. 2) Scan the DGPTIT array for codes that require additional` information. The PTF EXPANDED CODE FILE contains all ICD's that require special processing. If a match is made an entry is made in the DGBPC array. 3) If the DGBPC array exist then additional questions are required to complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
300.04	SUBSTANCE ABUSE	300;4	POINTER TO PTF ABUSED SUBSTANCE FILE (#45.61)	PTF ABUSED SUBSTANCE(#45.61) INPUT TRANSFORM: `S DGFLAG=4 D 701^DGPTSC01 K:DGER X K DGFLAG,DGER` LAST EDITED: `MAY 15, 1991` DESCRIPTION: Select type of substance abused by the patient. TECHNICAL DESCR: `The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen. 2) Scan the DGPTIT array for codes that require additional` information. The PTF EXPANDED CODE FILE contains all ICD's that require special processing. If a match is made an entry is made in the DGBPC array. 3) If the DGBPC array exist then additional questions are required to complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
300.05	PSYCHIATRY CLASS. SEVERITY	300;5	SET	'0' FOR INADEQUATE INFORMATION OR NO CHANGE IN CONDITION; '1' FOR NONE; '2' FOR MILD; '3' FOR MODERATE; '4' FOR SEVERE; '5' FOR EXTREME; '6' FOR CATASTROPHIC; INPUT TRANSFORM: `S DGFLAG=5 D 701^DGPTSC01 K:DGER X K DGFLAG,DGER` LAST EDITED: `MAY 15, 1991` DESCRIPTION: Enter a one-digit rating from 0 (inadequate information/unchanged) through 6 (catastrophic). This field contains a rating indicating maximal stress. TECHNICAL DESCR: `The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen. 2) Scan the DGPTIT array for codes that require additional` information. The PTF EXPANDED CODE FILE contains all ICD's that require special processing. If a match is made an entry is made in the DGBPC array. 3) If the DGBPC array exist then additional questions are required to complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
300.06	CURRENT FUNCTIONAL ASSESSMENT	300;6	NUMBER	INPUT TRANSFORM: `S DGFLAG=6 D 701^DGPTSC01 S:DGER X="" K DGER,DGFLAG K:+X'=X!(X>90)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 26, 1997` HELP-PROMPT: `Type a Number between 1 and 90, 0 Decimal Digits` DESCRIPTION: `CODE TERMINOLOGY` 90 TO 81 ABSENT OR MINIMAL SYMPTOMS 80 TO 71 IF SYMPTOMS ARE PRESENT, THEY ARE TRANSIENT AND EXPECTABLE REACTIONS TO PSYCHOSOCIAL STRESSORS 70 TO 61 SOME MILD SYMPTOMS OR SOME DIFFICULTY IN SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING 60 TO 51 MODERATE SYMPTOMS OR MODERATE DIFFICULTY IN SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING 50 TO 41 SERIOUS SYMPTOMS OR SERIOUS IMPAIRMENT IN SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING 40 TO 31 SOME IMPAIRMENT IN REALITY TESTING OR COMMUNICATION OR MAJOR IMPAIRMENT IN SEVERAL AREAS, SUCH AS SCHOOL, FAMILY RELATIONS, JUDGEMENT, THINKING OR MOOD 30 TO 21 SOME DANGER OR HURTING SELF OR OTHER OR OCCASIONALLY FAILS TO MAINTAIN PERSONAL HYGIENE OR GROSS IMPAIRMENT IN COMMUNICATION OR JUDGEMENT OR INABILITY TO FUNCTION IN ALMOST ALL AREAS 20 TO 11 SOME DANGER OF HURTING SELF OR OTHERS OR OCCASIONALLY FAILS TO MAINTAIN MINIMAL PERSONAL HYGIENE OR GROSS IMPAIRMENT IN COMMUNICATION 10 TO 1 PERSISTENT DANGER OF SEVERELY HURTING SELF OR OTHERS OR PERSISTENT INABILITY TO MAINTAIN MINIMAL PERSONAL HYGIENE OR SERIOUS SUICIDAL ACT WITH CLEAR EXPECTATIONS OF DEATH TECHNICAL DESCR: `The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen. 2) Scan the DGPTIT array for codes that require additional` information. The PTF EXPANDED CODE FILE contains all ICD's that require special processing. If a match is made an entry is made in the DGBPC array. 3) If the DGBPC array exist then additional questions are required to complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
300.07	HIGH LEVEL PSYCH CLASS	300;7	NUMBER	INPUT TRANSFORM: `S DGFLAG=7 D 701^DGPTSC01 S:DGER X="" K DGER,DGFLAG K:+X'=X!(X>90)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 26, 1997` HELP-PROMPT: `Type a Number between 1 and 90, 0 Decimal Digits` DESCRIPTION: `CODE TERMINOLOGY` 90 TO 81 ABSENT OR MINIMAL SYMPTOMS 80 TO 71 IF SYMPTOMS ARE PRESENT, THEY ARE TRANSIENT AND EXPECTABLE REACTIONS TO PSYCHOSOCIAL STRESSORS 70 TO 61 SOME MILD SYMPTOMS OR SOME DIFFICULTY IN SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING 60 TO 51 MODERATE SYMPTOMS OR MODERATE DIFFICULTY IN SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING 50 TO 41 SERIOUS SYMPTOMS OR SERIOUS IMPAIRMENT IN SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING 40 TO 31 SOME IMPAIRMENT IN REALITY TESTING OR COMMUNICATION OR MAJOR IMPAIRMENT IN SEVERAL AREAS, SUCH AS SCHOOL, FAMILY RELATIONS, JUDGEMENT, THINKING OR MOOD 30 TO 21 SOME DANGER OF HURTING SELF OR OTHERS OR OCCASIONALLY FAILS TO MAINTAIN PERSONAL HYGIENE OR GROSS IMPAIRMENT IN COMMUNICATION OR JUDGEMENT OR INABILITY TO FUNCTION IN ALMOST ALL AREAS 20 TO 11 SOME DANGER OF HURTING SELF OR OTHERS OR OCCASIONALLY FAILS TO MAINTAIN MINIMAL PERSONAL HYGIENE OR GROSS IMPAIRMENT IN COMMUNICATION 10 TO 1 PERSISTENT DANGER OF SEVERELY HURTING SELF OR OTHERS OR PERSISTENT INABILITY TO MAINTAIN MINIMAL PERSONAL HYGIENE OR SERIOUS SUICIDAL ACT WITH CLEAR EXPECTATIONS OF DEATH TECHNICAL DESCR: `The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen. 2) Scan the DGPTIT array for codes that require additional` information. The PTF EXPANDED CODE FILE contains all ICD's that require special processing. If a match is made an entry is made in the DGBPC array. 3) If the DGBPC array exist then additional questions are required to complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
535	535	535;0	Multiple #45.0535	45.0535 DESCRIPTION: `This multiple contains all the ward specialty movements of a patient that occur during the admission.` If a patient changed wards but the specialty of the two wards are the same then no entry in this multiple is created. IDENTIFIED BY: `MOVEMENT DATE(#10), TRANSMIT FLAG(#17)`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #418	INTEGRATED BILLING LAB SERVICE MENTAL HEALTH ORDER ENTRY/RESULTS REPORTING ACCOUNTS RECEIVABLE ONCOLOGY	PATIENT (.01). Access: Pointed to ADMISSION DATE (2). Access: Direct Global Read & w/Fileman FEE BASIS (4). Access: Direct Global Read & w/Fileman STATUS (6). Access: Direct Global Read & w/Fileman DISCHARGE DATE (70). Access: Direct Global Read & w/Fileman DISCHARGE SPECIALTY (71). Access: Direct Global Read & w/Fileman TYPE OF DISPOSITION (72). Access: Direct Global Read & w/Fileman PRINCIPAL DX (79). Access: Direct Global Read & w/Fileman SECONDARY DX 1 (79.16). Access: Direct Global Read & w/Fileman SECONDARY DX 2 (79.17). Access: Direct Global Read & w/Fileman PROVIDER (79.1). Access: Direct Global Read & w/Fileman SECONDARY DX 3 (79.18). Access: Direct Global Read & w/Fileman SECONDARY DX 4 (79.19). Access: Direct Global Read & w/Fileman SECONDARY DX 5 (79.201). Access: Direct Global Read & w/Fileman SECONDARY DX 6 (79.21). Access: Direct Global Read & w/Fileman SECONDARY DX 7 (79.22). Access: Direct Global Read & w/Fileman SECONDARY DX 8 (79.23). Access: Direct Global Read & w/Fileman SECONDARY DX 9 (79.24). Access: Direct Global Read & w/Fileman TREATED FOR SC CONDITION (79.25). Access: Direct Global Read & w/Fileman LOSING SPECIALTY (2). Access: Direct Global Read & w/Fileman LEAVE DAYS (3). Access: Direct Global Read & w/Fileman PASS DAYS (4). Access: Direct Global Read & w/Fileman ICD 1 (5). Access: Direct Global Read & w/Fileman ICD 2 (6). Access: Direct Global Read & w/Fileman ICD 3 (7). Access: Direct Global Read & w/Fileman ICD 4 (8). Access: Direct Global Read & w/Fileman ICD 5 (9). Access: Direct Global Read & w/Fileman MOVEMENT DATE (10). Access: Direct Global Read & w/Fileman TREATED FOR SC CONDITION (18). Access: Direct Global Read & w/Fileman ICD 6 (11). Access: Direct Global Read & w/Fileman ICD 7 (12). Access: Direct Global Read & w/Fileman ICD 8 (13). Access: Direct Global Read & w/Fileman ICD 9 (14). Access: Direct Global Read & w/Fileman ICD 10 (15). Access: Direct Global Read & w/Fileman PROCEDURE DATE (.01). Access: Direct Global Read & w/Fileman PROCEDURE CODE 1 (4). Access: Direct Global Read & w/Fileman PROCEDURE CODE 2 (5). Access: Direct Global Read & w/Fileman PROCEDURE CODE 3 (6). Access: Direct Global Read & w/Fileman PROCEDURE CODE 4 (7). Access: Direct Global Read & w/Fileman PROCEDURE CODE 5 (8). Access: Direct Global Read & w/Fileman PROCEDURE CODE 6 (9). Access: Direct Global Read & w/Fileman PROCEDURE CODE 7 (10). Access: Direct Global Read & w/Fileman PROCEDURE CODE 8 (11). Access: Direct Global Read & w/Fileman PROCEDURE CODE 9 (12). Access: Direct Global Read & w/Fileman PROCEDURE CODE 10 (13). Access: Direct Global Read & w/Fileman PROCEDURE CODE 11 (14). Access: Direct Global Read & w/Fileman PROCEDURE CODE 12 (15). Access: Direct Global Read & w/Fileman PROCEDURE CODE 13 (16). Access: Direct Global Read & w/Fileman PROCEDURE CODE 14 (17). Access: Direct Global Read & w/Fileman PROCEDURE CODE 15 (18). Access: Direct Global Read & w/Fileman PROCEDURE CODE 16 (19). Access: Direct Global Read & w/Fileman PROCEDURE CODE 17 (20). Access: Direct Global Read & w/Fileman PROCEDURE CODE 18 (21). Access: Direct Global Read & w/Fileman PROCEDURE CODE 19 (22). Access: Direct Global Read & w/Fileman PROCEDURE CODE 20 (23). Access: Direct Global Read & w/Fileman SURGERY/PROCEDURE DATE (.01). Access: Direct Global Read & w/Fileman OPERATION CODE 1 (8). Access: Direct Global Read & w/Fileman OPERATION CODE 2 (9). Access: Direct Global Read & w/Fileman OPERATION CODE 3 (10). Access: Direct Global Read & w/Fileman OPERATION CODE 4 (11). Access: Direct Global Read & w/Fileman OPERATION CODE 5 (12). Access: Direct Global Read & w/Fileman OPERATION CODE 6 (13). Access: Direct Global Read & w/Fileman OPERATION CODE 7 (14). Access: Direct Global Read & w/Fileman OPERATION CODE 8 (15). Access: Direct Global Read & w/Fileman OPERATION CODE 9 (16). Access: Direct Global Read & w/Fileman OPERATION CODE 10 (17). Access: Direct Global Read & w/Fileman OPERATION CODE 11 (18). Access: Direct Global Read & w/Fileman OPERATION CODE 12 (19). Access: Direct Global Read & w/Fileman OPERATION CODE 13 (20). Access: Direct Global Read & w/Fileman OPERATION CODE 14 (21). Access: Direct Global Read & w/Fileman OPERATION CODE 15 (22). Access: Direct Global Read & w/Fileman OPERATION CODE 16 (23). Access: Direct Global Read & w/Fileman OPERATION CODE 17 (24). Access: Direct Global Read & w/Fileman OPERATION CODE 18 (25). Access: Direct Global Read & w/Fileman OPERATION CODE 19 (26). Access: Direct Global Read & w/Fileman OPERATION CODE 20 (27). Access: Direct Global Read & w/Fileman CURRENT FUNCTIONAL ASSESSMENT (300.06). Access: Direct Global Read & w/Fileman TRANSFER DRG (20). Access: Direct Global Read & w/Fileman PROVIDER (24). Access: Direct Global Read & w/Fileman LOSING WARD (6). Access: Direct Global Read & w/Fileman MOVEMENT DATE (10). Access: Direct Global Read & w/Fileman SECONDARY DX 10 (79.241). Access: Direct Global Read & w/Fileman SECONDARY DX 11 (79.242). Access: Direct Global Read & w/Fileman SECONDARY DX 12 (79.243). Access: Direct Global Read & w/Fileman SECONDARY DX 13 (79.244). Access: Direct Global Read & w/Fileman SECONDARY DX 14 (79.245). Access: Direct Global Read & w/Fileman SECONDARY DX 15 (79.246). Access: Direct Global Read & w/Fileman SECONDARY DX 16 (79.247). Access: Direct Global Read & w/Fileman SECONDARY DX 17 (79.248). Access: Direct Global Read & w/Fileman SECONDARY DX 18 (79.249). Access: Direct Global Read & w/Fileman SECONDARY DX 19 (79.2491). Access: Direct Global Read & w/Fileman SECONDARY DX 20 (79.24911). Access: Direct Global Read & w/Fileman SECONDARY DX 21 (79.24912). Access: Direct Global Read & w/Fileman SECONDARY DX 22 (79.24913). Access: Direct Global Read & w/Fileman SECONDARY DX 24 (79.24914). Access: Direct Global Read & w/Fileman SECONDARY DX 24 (79.24915). Access: Direct Global Read & w/Fileman POA PRINCIPAL DX (82.01). Access: Direct Global Read & w/Fileman POA SECONDARY DX 1 (82.02). Access: Direct Global Read & w/Fileman POA SECONDARY DX 2 (82.03). Access: Direct Global Read & w/Fileman POA SECONDARY DX 3 (82.04). Access: Direct Global Read & w/Fileman POA SECONDARY DX 4 (82.05). Access: Direct Global Read & w/Fileman POA SECONDARY DX 5 (82.06). Access: Direct Global Read & w/Fileman POA SECONDARY DX 6 (82.07). Access: Direct Global Read & w/Fileman POA SECONDARY DX 7 (82.08). Access: Direct Global Read & w/Fileman POA SECONDARY DX 8 (82.09). Access: Direct Global Read & w/Fileman POA SECONDARY DX 9 (82.1). Access: Direct Global Read & w/Fileman POA SECONDARY DX 10 (82.11). Access: Direct Global Read & w/Fileman POA SECONDARY DX 11 (82.12). Access: Direct Global Read & w/Fileman POA SECONDARY DX 12 (82.13). Access: Direct Global Read & w/Fileman POA SECONDARY DX 13 (82.14). Access: Direct Global Read & w/Fileman POA SECONDARY DX 14 (82.15). Access: Direct Global Read & w/Fileman POA SECONDARY DX 15 (82.16). Access: Direct Global Read & w/Fileman POA SECONDARY DX 16 (82.17). Access: Direct Global Read & w/Fileman POA SECONDARY DX 17 (82.18). Access: Direct Global Read & w/Fileman POA SECONDARY DX 18 (82.19). Access: Direct Global Read & w/Fileman POA SECONDARY DX 19 (82.2). Access: Direct Global Read & w/Fileman POA SECONDARY DX 20 (82.21). Access: Direct Global Read & w/Fileman POA SECONDARY DX 21 (82.22). Access: Direct Global Read & w/Fileman POA SECONDARY DX 22 (82.23). Access: Direct Global Read & w/Fileman POA SECONDARY DX 23 (82.24). Access: Direct Global Read & w/Fileman POA SECONDARY DX 24 (82.25). Access: Direct Global Read & w/Fileman ICD 11 (81.01). Access: Direct Global Read & w/Fileman ICD 12 (81.02). Access: Direct Global Read & w/Fileman ICD 13 (81.03). Access: Direct Global Read & w/Fileman ICD 14 (81.04). Access: Direct Global Read & w/Fileman ICD 15 (81.05). Access: Direct Global Read & w/Fileman ICD 16 (81.06). Access: Direct Global Read & w/Fileman ICD 17 (81.07). Access: Direct Global Read & w/Fileman ICD 18 (81.08). Access: Direct Global Read & w/Fileman ICD 19 (81.09). Access: Direct Global Read & w/Fileman ICD 20 (81.1). Access: Direct Global Read & w/Fileman ICD 22 (81.12). Access: Direct Global Read & w/Fileman ICD 21 (81.11). Access: Direct Global Read & w/Fileman ICD 23 (81.13). Access: Direct Global Read & w/Fileman ICD 24 (81.14). Access: Direct Global Read & w/Fileman ICD 25 (81.15). Access: Direct Global Read & w/Fileman POA FOR ICD 1 (82.01). Access: Direct Global Read & w/Fileman POA FOR ICD 2 (82.02). Access: Direct Global Read & w/Fileman POA FOR ICD 3 (82.03). Access: Direct Global Read & w/Fileman POA FOR ICD 4 (82.04). Access: Direct Global Read & w/Fileman POA FOR ICD 5 (82.05). Access: Direct Global Read & w/Fileman POA FOR ICD 6 (82.06). Access: Direct Global Read & w/Fileman POA FOR ICD 7 (82.07). Access: Direct Global Read & w/Fileman POA FOR ICD 8 (82.08). Access: Direct Global Read & w/Fileman POA FOR ICD 9 (82.09). Access: Direct Global Read & w/Fileman POA FOR ICD 10 (82.1). Access: Direct Global Read & w/Fileman POA FOR ICD 11 (82.11). Access: Direct Global Read & w/Fileman POA FOR ICD 12 (82.12). Access: Direct Global Read & w/Fileman POA FOR ICD 13 (82.13). Access: Direct Global Read & w/Fileman POA FOR ICD 14 (82.14). Access: Direct Global Read & w/Fileman POA FOR ICD 15 (82.15). Access: Direct Global Read & w/Fileman POA FOR ICD 16 (82.16). Access: Direct Global Read & w/Fileman POA FOR ICD 17 (82.17). Access: Direct Global Read & w/Fileman POA FOR ICD 18 (82.18). Access: Direct Global Read & w/Fileman POA FOR ICD 19 (82.19). Access: Direct Global Read & w/Fileman POA FOR ICD 20 (82.2). Access: Direct Global Read & w/Fileman POA FOR ICD 21 (82.21). Access: Direct Global Read & w/Fileman POA FOR ICD 22 (82.22). Access: Direct Global Read & w/Fileman POA FOR ICD 23 (82.23). Access: Direct Global Read & w/Fileman POA FOR ICD 24 (82.24). Access: Direct Global Read & w/Fileman POA FOR ICD 25 (82.25). Access: Direct Global Read & w/Fileman PROCEDURE CODE 21 (24). Access: Direct Global Read & w/Fileman PROCEDURE CODE 22 (25). Access: Direct Global Read & w/Fileman PROCEDURE CODE 23 (26). Access: Direct Global Read & w/Fileman PROCEDURE CODE 24 (27). Access: Direct Global Read & w/Fileman PROCEDURE CODE 25 (28). Access: Direct Global Read & w/Fileman OPERATION CODE 21 (28). Access: Direct Global Read & w/Fileman OPERATION CODE 22 (29). Access: Direct Global Read & w/Fileman OPERATION CODE 23 (30). Access: Direct Global Read & w/Fileman OPERATION CODE 24 (31). Access: Direct Global Read & w/Fileman OPERATION CODE 25 (32). Access: Direct Global Read & w/Fileman DRG (9). Access: Read w/Fileman	The "B" cross-reference is used to find a specific PTFrecord for a patient.The "AAD" cross reference is used to find all admissionsfor a patient within a specified date range.The "AFEE" cross reference is used to find all Feeadmissions for a patient within a specified date range.The "AM" cross reference is used to find all 501movements based on a specified date range.Admission date cross-reference.For discharge date ranges
ICR #993	FEE BASIS	FEE BASIS (4). Access: Direct Global Read & w/Fileman	check for IEN in file 45 by$O(^DGPT("AFEE",DFN,ADMISSION DATE,0))
ICR #3545	CLINICAL CASE REGISTRIES	PRINCIPLE DIAGNOSIS (80). Access: Read w/Fileman (DGPT('AAD',). Access: Direct Global Read & w/Fileman
ICR #4945	SPINAL CORD DYSFUNCTION	(n/a). Access: Direct Global Read & w/Fileman PATIENT (.01). Access: Direct Global Read & w/Fileman FACILITY (3). Access: Direct Global Read & w/Fileman FEE BASIS (4). Access: Direct Global Read & w/Fileman PLACE OF DISPOSITION (75). Access: Direct Global Read & w/Fileman RECEIVING FACILITY (76.1). Access: Direct Global Read & w/Fileman SOURCE OF ADMISSION (20). Access: Direct Global Read & w/Fileman PROCEDURE 1 (.01). Access: Direct Global Read & w/Fileman PROCEDURE 2 (.02). Access: Direct Global Read & w/Fileman PROCEDURE 3 (.03). Access: Direct Global Read & w/Fileman PROCEDURE 4 (.04). Access: Direct Global Read & w/Fileman PROCEDURE 5 (.05). Access: Direct Global Read & w/Fileman	AF Cross-reference

Customize PDF page

Package: Registration

Global: ^DGPT

Information

Description

Directly Accessed By Routines, Total: 210

Accessed By FileMan Db Calls, Total: 70

Pointed To By FileMan Files, Total: 9

Pointer To FileMan Files, Total: 21

Fields, Total: 83

ICR, Total: 4