Global: ^RMPR(668

FileMan FileNo	FileMan Filename	Package
668	PROSTHETIC SUSPENSE	Prosthetics

Package	Total	Routines
Prosthetics	60	ACTION DATE AMIS GROUPER HO LETTER 3 LIST PATIENT 2319 RMPR SUSPENSE CLOSE RMPR144P RMPR150P RMPR163P RMPR213P RMPR29CA RMPR29CB RMPR29GU RMPR29W1 RMPR29WO RMPR8PG RMPR8PG1 RMPR9CA RMPR9CE RMPR9CL RMPR9DEM RMPR9DM1 RMPR9DO RMPR9EPD RMPR9PA RMPR9PCD RMPR9S4 RMPR9S7 RMPREOL RMPRFC4 ^RMPR(668 RMPR9LM RMPR9PU RMPR9S6 RMPR9S8 RMPR9VR RMPR9X RMPRED4 RMPREO RMPREO24 RMPREOPS RMPREOS RMPREOSA RMPREOU RMPREPDT RMPRFC3 RMPRGULK RMPRHL7A RMPRHL7B RMPRHL7U RMPROWL RMPRPCE1 RMPRPCED RMPRPCEG RMPRPCEL RMPRS RMPRSP RMPRSP1 RMPRSP2 RMPRSP3 RMPRSP7
Consult Request Tracking	1	GMRCRFC0

Package	Total	Routines
Prosthetics	15	RMPR29CA RMPR29CB RMPR8PG RMPR9CA RMPREO23 RMPREO24 RMPREOPS RMPREOS RMPREOSA RMPRFC4 RMPRHL7A RMPRHL7B RMPROWL RMPRPCEG RMPRS

Package	Total	FileMan Files
Prosthetics	1	PROSTHETIC 2529-3(#664.1)[.05]

Package	Total	FileMan Files
Consult Request Tracking	2	REQUEST/CONSULTATION(#123)[20] REQUEST SERVICES(#123.5)[23]
Kernel	2	INSTITUTION(#4)[2, 2.1] NEW PERSON(#200)[6, 8, 13, 16, 17, 24]
DRG Grouper	1	ICD DIAGNOSIS(#80)[1.6, 30, 31, 32, 33]
Order Entry Results Reporting	1	ORDER(#100)[19]
Prosthetics	1	RECORD OF PROS APPLIANCE/REPAIR(#660)[#668.81(.01)]
Registration	1	PATIENT(#2)[1]

Fields, Total: 64

Field #	Name	Loc	Type	Details
.01	SUSPENSE DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 12, 2000` HELP-PROMPT: `Enter date and time as mmddyy@hhmm when this entry is added.` DESCRIPTION: `Date that the Suspense entry was entered.` TECHNICAL DESCR: NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `668^B` `1)= S ^RMPR(668,"B",$E(X,1,30),DA)=""` `2)= K ^RMPR(668,"B",$E(X,1,30),DA)`
1	VETERAN	0;2	POINTER TO PATIENT FILE (#2)	PATIENT(#2) LAST EDITED: `APR 07, 1992` HELP-PROMPT: `Please Enter The Name of the Veteran` DESCRIPTION: `Pointer to the Patient file. MAS Patients may not become Prosthetic Patients while their eligility is being determined.` CROSS-REFERENCE: `668^C` `1)= S ^RMPR(668,"C",$E(X,1,30),DA)=""` `2)= K ^RMPR(668,"C",$E(X,1,30),DA)` `Cross refference to allow looking up by patient name. e`
1.5	PROVISIONAL DIAGNOSIS	8;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `SEP 15, 2003` HELP-PROMPT: `Answer must be 1-50 characters in length.` DESCRIPTION: `CPRS Provisional Diagnosis at the time the Consult was created.` TECHNICAL DESCR:
1.6	ICD	8;3	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `DEC 29, 2011` HELP-PROMPT: `Select the primary CPRS diagnosis code at the time of consult.` DESCRIPTION: `This is the primary CPRS diagnosis code at the time of consult. (Stuffed from HL7 message.)`
2	STATION	0;7	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `DEC 17, 1992` HELP-PROMPT: `Enter the Station Number of the patient.` DESCRIPTION: `This field stores the station number of the patient.`
2.1	REQUESTING FACILITY	8;1	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `MAR 01, 2000` DESCRIPTION: `CPRS Requesting Facility, local facility only from Consult Tracking.`
2.3	URGENCY	8;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `MAR 01, 2000` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: `From CPRS, the urgency the user defined at the time the Consult was created.`
3	SUSPENSE FORM	0;3	SET	**********************REQUIRED FIELD********************** '1' FOR PSC; '2' FOR 2421; '3' FOR 2237; '4' FOR 2529-3; '5' FOR 2529-7; '6' FOR 2474; '7' FOR 2431; '8' FOR 2914; '9' FOR OTHER; '10' FOR 2520; '11' FOR STOCK ISSUE; LAST EDITED: `MAR 20, 1991` DESCRIPTION: `Type of form for the transaction that is being tracked by the Suspense Module.`
4	DESCRIPTION OF ITEM/SERVICES	2;0	WORD-PROCESSING #668.04	DESCRIPTION: `This Field will contain the Description of the Item on suspense and Service rendered to the Veteran.`
5	COMPLETION DATE	0;5	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 14, 2003` HELP-PROMPT: `MUST NOT BE LESS THAN BEGINNING SUSPENSE DATE` DESCRIPTION: `This is the date and time of the completion note.` CROSS-REFERENCE: `^^TRIGGER^668^6` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(668,5,1,1,1.4)` `1.4)= S DIH=$S($D(^RMPR(668,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=668,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" S DIH=$S($D(^RMPR(668,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=668,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1` `,0))>0` `CREATE VALUE)= S X=DUZ` `DELETE VALUE)= @` `FIELD)= COMPLETED BY` `Triggers completed by field.` CROSS-REFERENCE: `668^CD^MUMPS` `1)= D EN02^RMPR9X` `2)= D KILL02^RMPR9X` `This will create a cross reference to be used with the Delayed Order Report. Completeion Date and Number of Processing Days.`
6	COMPLETED BY	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 20, 1991` DESCRIPTION: `This is the person who dispositioned this transaction.` NOTES: `TRIGGERED by the COMPLETION DATE field of the PROSTHETIC SUSPENSE File`
7	INITIAL ACTION NOTE	3;0	WORD-PROCESSING #668.07	LAST EDITED: `JAN 26, 2000` TECHNICAL DESCR: `This field has changed from the action taken to the initial action taken. This used to be the only action taken, the action taken at the time a suspense is completed.` LAST EDITED: `JAN 26, 2000` HELP-PROMPT: `Enter the the action that was taken on this supsense record.` DESCRIPTION: `Action taken with initial action.`
8	SUSPENDED BY	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 22, 1992` HELP-PROMPT: `Enter the name of the employee to suspended the action` DESCRIPTION: `Person who created the suspense entry.`
8.1	PATIENT 2319	10;0	POINTER Multiple #668.81	668.81
8.2	AMIS GROUPER	11;0	Multiple #668.82	668.82
9	TYPE OF REQUEST	0;8	SET	'1' FOR ROUTINE PROSTHETICS; '2' FOR EYEGLASS; '3' FOR CONTACT LENS; '4' FOR OXYGEN; '5' FOR MANUAL NON CPRS; '6' FOR CLOTHING ALLOWANCE; '7' FOR CLONE; '8' FOR AUTO ADAPTIVE; '9' FOR PROSTHETICS IFC; '10' FOR DISCONTINUED; '11' FOR LAB; LAST EDITED: `JAN 31, 2006` DESCRIPTION: `This is the type of order from CPRS Consult Tracking Module, or VBA. It also records MANUAL for paper orders received.`
10	INITIAL ACTION DATE	0;9	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 26, 2000` DESCRIPTION: `This is the date and time the first action on a suspense was taken.`
11	ACTION DATE	1;0	DATE Multiple #668.011	668.011 DESCRIPTION: `This is the date an Other Action Note was created.`
12	COMPLETION NOTE	4;0	WORD-PROCESSING #668.012	DESCRIPTION: `This is the note for the completion comments.` LAST EDITED: `JAN 26, 2000` DESCRIPTION: `This is the note for the completion comments.`
13	REQUESTOR	0;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 03, 2000` DESCRIPTION: `This is the person who requested the order, or submitted the order.`
14	STATUS	0;10	SET	'O' FOR OPEN; 'P' FOR PENDING; 'C' FOR CLOSED; 'X' FOR CANCELLED; LAST EDITED: `MAR 05, 2003` DESCRIPTION: `This is the current status, Open, Pending, Closed, or Cancelled.` TECHNICAL DESCR: CROSS-REFERENCE: `668^E` `1)= S ^RMPR(668,"E",$E(X,1,30),DA)=""` `2)= K ^RMPR(668,"E",$E(X,1,30),DA)` CROSS-REFERENCE: `668^I^MUMPS` `1)= D EN^RMPR9X` `2)= D KILL^RMPR9X` `Sort and filter on last 2 numbers of the Patients SSN number for Open or Pending Orders Only.` CROSS-REFERENCE: `668^L^MUMPS` `1)= D EN0^RMPR9X` `2)= D KILL0^RMPR9X` `This cross refernce is used for the Delayed Order Report GUI Grid. It is the last 2 of SSN, the Create Date with no Time, and the Status.` CROSS-REFERENCE: `668^L1^MUMPS` `1)= D EN01^RMPR9X` `2)= D KILL01^RMPR9X` `This is for the Delayed Order Report, GUI Grid. It is the last 2 of patient SSN, Status and ien.`
15	OIF/OEF	7;1	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `APR 30, 2007` DESCRIPTION: `Veteran determined to be OEF/OIF 1 Yes 0 NO.`
16	INITIAL ACTION BY	0;12	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 29, 2000` DESCRIPTION: `This is the person who took first action.`
17	CANCELLED BY	0;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 17, 2000` DESCRIPTION: `This is the person who cancelled the suspense.`
18	CANCEL DATE	5;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 17, 2000` DESCRIPTION: `This is the date the suspense record was cancelled.`
19	ORDER	0;14	POINTER TO ORDER FILE (#100)	ORDER(#100) LAST EDITED: `MAR 21, 2000` DESCRIPTION: `This is the CPRS Order Number used to send messages.`
20	CONSULT	0;15	POINTER TO REQUEST/CONSULTATION FILE (#123)	REQUEST/CONSULTATION(#123) LAST EDITED: `MAR 22, 2000` DESCRIPTION: `This is the entry associated with consult Tracking.` CROSS-REFERENCE: `668^D` `1)= S ^RMPR(668,"D",$E(X,1,30),DA)=""` `2)= K ^RMPR(668,"D",$E(X,1,30),DA)` `To be used with GMRC API.` `~`
21	CANCEL NOTE	9;0	WORD-PROCESSING #668.021	DESCRIPTION: `This is the cancel note. If it is a CPRS order the note will be recorded with the Consult. Reason you are cancelling suspense, and/or deny consult.` LAST EDITED: `MAR 30, 2000` DESCRIPTION: `Reason you are cancelling suspense, and/or deny consult.`
22	DATE RX WRITTEN	0;16	DATE	INPUT TRANSFORM: `S %DT(0)=X D NOW^%DTC S X=%DT(0),%DT(0)=0-%,%DT="ESTX" D ^%DT S X=Y K:Y<1 X K %DT` LAST EDITED: `DEC 12, 2000` DESCRIPTION: `This is the date the request was signed by a provider.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
23	CONSULT REQUEST SERVICE	8;6	POINTER TO REQUEST SERVICES FILE (#123.5)	REQUEST SERVICES(#123.5) LAST EDITED: `JUN 28, 2000` DESCRIPTION: `This is used to forward a Consult to another service.`
24	FORWARDED BY	8;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 03, 2000` DESCRIPTION: `This is the person who forwarded the consult.`
27	ORDERING PROVIDER	IFC1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `JUN 24, 2004` HELP-PROMPT: `Answer must be 1-50 characters in length.` DESCRIPTION: `Provider who ordered the entry for Inter-facility Consults (IFC). This is a free text field.`
30	PRIMARY ICD DIAGNOSIS CODE	BA1;1	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `OCT 20, 2011` HELP-PROMPT: `Select the primary CPRS diagnosis code at the time of consult.` DESCRIPTION: `This is the primary diagnosis code.`
30.1	PRIMARY AGENT ORANGE	BA1;2	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Primary diagnosis is related to Agent Orange exposure.` DESCRIPTION: `Primary diagnosis is related to Agent Orange exposure.`
30.2	PRIMARY IONIZED RADIATION	BA1;3	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Primary diagnosis is related to Ionized Radiation exposure.` DESCRIPTION: `Primary diagnosis is related to Ionized Radiation exposure.`
30.3	PRIMARY SERVICE-CONNECTED	BA1;4	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Primary diagnosis is related to a Service-Connected condition.` DESCRIPTION: `Primary diagnosis is related to a Service-Connected condition.`
30.4	PRIMARY ENVIRONMENTAL CONT.	BA1;5	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Primary diagnosis is related to Environmental Contaminants exposure.` DESCRIPTION: `Primary diagnosis is related to Environmental Contaminants exposure.`
30.5	PRIMARY MST	BA1;6	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if diagnosis is related to Military Sexual Trauma.` DESCRIPTION: `Primary diagnosis is related to Military Sexual Trauma.`
30.6	PRIMARY HEAD/NECK CANCER	BA1;7	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Primary diagnosis is related to Head/Neck Cancer.` DESCRIPTION: `Primary diagnosis is related to Head/Neck Cancer.`
30.7	PRIMARY COMBAT VET	BA1;8	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Primary diagnosis is related to Combat.` DESCRIPTION: `Primary diagnosis is related to Combat.`
31	SECONDARY ICD DIAGNOSIS 1	BA2;1	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `OCT 20, 2011` HELP-PROMPT: `Select the secondary CPRS diagnosis code 1 at the time of consult.` DESCRIPTION: `This is the secondary CPRS diagnosis code 1 at the time of consult.`
31.1	SECONDARY AGENT ORANGE 1	BA2;2	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 1 is related to Agent Orange exposure.` DESCRIPTION: `Secondary diagnosis 1 is related to Agent Orange exposure.`
31.2	SECONDARY IONIZED RADIATION 1	BA2;3	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 1 is related to Ionized Radiation exposure.` DESCRIPTION: `Secondary diagnosis 1 is related to Ionized Radiation exposure.`
31.3	SECONDARY SERVICE-CONNECTED 1	BA2;4	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 1 is related to a Service-Connected condition.` DESCRIPTION: `Secondary diagnosis 1 is related to a Service-Connected condition.`
31.4	SECONDARY ENVIRON. CONT. 1	BA2;5	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 1 is related to Environmental Contaminants exposure.` DESCRIPTION: `Secondary diagnosis 1 is related to Environmental Contaminants exposure.`
31.5	SECONDARY MST 1	BA2;6	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 1 is related to Military Sexual Trauma.` DESCRIPTION: `Secondary diagnosis 1 is related to Military Sexual Trauma.`
31.6	SECONDARY HEAD/NECK CANCER 1	BA2;7	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 1 is related to Head/Neck Cancer.` DESCRIPTION: `Secondary diagnosis 1 is related to Head/Neck Cancer.`
31.7	SECONDARY COMBAT VET 1	BA2;8	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 1 is related to Combat.` DESCRIPTION: `Secondary diagnosis 1 is related to Combat.`
32	SECONDARY ICD DIAGNOSIS 2	BA3;1	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `OCT 20, 2011` HELP-PROMPT: `Select the secondary CPRS diagnosis code 2 at the time of consult.` DESCRIPTION: `This is the secondary CPRS diagnosis code 2 at the time of consult.`
32.1	SECONDARY AGENT ORANGE 2	BA3;2	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 2 is related to Agent Orange exposure.` DESCRIPTION: `Secondary diagnosis 2 is related to Agent Orange exposure.`
32.2	SECONDARY IONIZED RADIATION 2	BA3;3	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 2 is related to Ionized Radiation exposure.` DESCRIPTION: `Secondary diagnosis 2 is related to Ionized Radiation exposure.`
32.3	SECONDARY SERVICE-CONNECTED 2	BA3;4	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 2 is related to a Service-Connected condition.` DESCRIPTION: `Secondary diagnosis 2 is related to a Service-Connected condition.`
32.4	SECONDARY ENVIRON. CONT. 2	BA3;5	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 2 is related to Environmental Contaminants exposure.` DESCRIPTION: `Secondary diagnosis 2 is related to Environmental Contaminants exposure.`
32.5	SECONDARY MST 2	BA3;6	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if diagnosis is related to Military Sexual Trauma.` DESCRIPTION: `Secondary diagnosis 2 is related to Military Sexual Trauma.`
32.6	SECONDARY HEAD/NECK CANCER 2	BA3;7	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 2 is related to Head/Neck Cancer.` DESCRIPTION: `Secondary diagnosis 2 is related to Head/Neck Cancer.`
32.7	SECONDARY COMBAT VET 2	BA3;8	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 2 is related to Combat.` DESCRIPTION: `Secondary diagnosis 2 is related to Combat.`
33	SECONDARY ICD DIAGNOSIS 3	BA4;1	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `OCT 20, 2011` HELP-PROMPT: `Select the secondary CPRS diagnosis code 3 at the time of consult.` DESCRIPTION: `This is the secondary CPRS diagnosis code 3 at the time of consult.`
33.1	SECONDARY AGENT ORANGE 3	BA4;2	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 3 is related to Agent Orange exposure.` DESCRIPTION: `Secondary diagnosis 3 is related to Agent Orange.`
33.2	SECONDARY IONIZED RADIATION 3	BA4;3	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 3 is related to Ionized Radiation exposure.` DESCRIPTION: `Secondary diagnosis 3 is related to Ionized Radiation.`
33.3	SECONDARY SERVICE-CONNECTED 3	BA4;4	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 3 is related to a Service-Connected condition.` DESCRIPTION: `Secondary diagnosis 3 is related to a Service-Connected condition.`
33.4	SECONDARY ENVIRON. CONT. 3	BA4;5	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if Secondary diagnosis 3 is related to Environmental Contaminants exposure.` DESCRIPTION: `Secondary diagnosis 3 is related to Environmental Contaminants exposure.`
33.5	SECONDARY MST 3	BA4;6	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es if diagnosis is related to Military Sexual Trauma.` DESCRIPTION: `Secondary diagnosis 3 is related to Military Sexual Trauma.`
33.6	SECONDARY HEAD/NECK CANCER 3	BA4;7	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es to indicate Secondary diagnosis 3 is related to Head/Neck Cancer.` DESCRIPTION: `Secondary diagnosis 3 is related to Head/Neck Cancer.`
33.7	SECONDARY COMBAT VET 3	BA4;8	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 25, 2004` HELP-PROMPT: `Enter 'Y'es to indicate Secondary diagnosis 3 is related to Combat.` DESCRIPTION: `Secondary diagnosis 3 is related to Combat.`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #3603	Communications Service Library	Internal Entry Number (IEN). Access: Read w/Fileman SUSPENSE DATE (.01). Access: Read w/Fileman VETERAN (1). Access: Read w/Fileman STATION (2). Access: Read w/Fileman TYPE OF REQUEST (9). Access: Read w/Fileman DESCRIPTION OF ITEM/SERVICES (4). Access: Read w/Fileman PROVISIONAL DIAGNOSIS (1.5). Access: Read w/Fileman ICD9 (1.6). Access: Read w/Fileman
ICR #6540	ABOVE PAR ADVANCED PROSTHETICS ACQUISITION TOOL	SUSPENSE DATE (.01). Access: Direct Global Read & R/W w/Fileman VETERAN (1). Access: Direct Global Read & R/W w/Fileman STATION (2). Access: Direct Global Read & R/W w/Fileman COMPLETION DATE (5). Access: Direct Global Read & R/W w/Fileman COMPLETED BY (6). Access: Write w/Fileman SUSPENDED BY (8). Access: Read w/Fileman TYPE OF REQUEST (9). Access: Direct Global Read & R/W w/Fileman INITIAL ACTION DATE (10). Access: Direct Global Read & R/W w/Fileman REQUESTOR (13). Access: Direct Global Read & R/W w/Fileman STATUS (14). Access: Both R/W w/Fileman INITIAL ACTION BY (16). Access: Both R/W w/Fileman CANCELLED BY (17). Access: Both R/W w/Fileman CONSULT (20). Access: Direct Global Read & R/W w/Fileman DATE RX WRITTEN (22). Access: Direct Global Read & R/W w/Fileman ACTION DATE (.01). Access: Direct Global Read & R/W w/Fileman ACTION NOTE (.01). Access: Direct Global Read & R/W w/Fileman DESCRIPTION OF ITEM/SERVICES (.01). Access: Direct Global Read & R/W w/Fileman INITIAL ACTION NOTE (.01). Access: Direct Global Read & R/W w/Fileman COMPLETION DATE (.01). Access: Direct Global Read & R/W w/Fileman CANCEL DATE (18). Access: Direct Global Read & R/W w/Fileman OIF/OEF (15). Access: Both R/W w/Fileman REQUESTING FACILITY (2.1). Access: Read w/Fileman PROVISIONAL DIAGNOSIS (1.5). Access: Both R/W w/Fileman ICD9 (1.6). Access: Both R/W w/Fileman URGENCY (2.3). Access: Read w/Fileman CONSULT REQUEST SERVICE (23). Access: Read w/Fileman FORWARDED BY (24). Access: Read w/Fileman CANCEL NOTE (.01). Access: Both R/W w/Fileman PATIENT 2319 (.01). Access: Both R/W w/Fileman AMIS GROUPER (.01). Access: Both R/W w/Fileman PRIMARY ICD DIAGNOSIS CODE (30). Access: Read w/Fileman PRIMARY AGENT ORANGE (30.1). Access: Read w/Fileman PRIMARY IONIZED RADIATION (30.2). Access: Read w/Fileman PRIMARY SERVICE-CONNECTED (30.3). Access: Read w/Fileman PRIMARY ENVIRONMENTAL CONT. (30.4). Access: Read w/Fileman PRIMARY MST (30.5). Access: Read w/Fileman PRIMARY HEAD/NECK CANCER (30.6). Access: Read w/Fileman PRIMARY COMBAT VET (30.7). Access: Read w/Fileman SECONDARY ICD DIAGNOSIS 1 (31). Access: Read w/Fileman SECONDARY AGENT ORANGE 1 (31.1). Access: Read w/Fileman SECONDARY IONIZED RADATION 1 (31.2). Access: Read w/Fileman SECONDARY SERVICE-CONNECTED 1 (31.3). Access: Read w/Fileman SECONDARY ENVIRON. CONT. 1 (31.4). Access: Read w/Fileman SECONDARY MST 1 (31.5). Access: Read w/Fileman SECONDARY HEAD/NECK CANCER 1 (31.6). Access: Read w/Fileman SECONDARY COMBAT VET 1 (31.7). Access: Read w/Fileman SECONDARY ICD DIAGNOSIS 2 (32). Access: Read w/Fileman SECONDARY AGENT ORANGE 2 (32.1). Access: Read w/Fileman SECONDARY IONIZED RADIATION 2 (32.2). Access: Read w/Fileman SECONDARY SERVICE-CONNECTED 2 (32.3). Access: Read w/Fileman SECONDARY ENVIRON. CONT. 2 (32.4). Access: Read w/Fileman SECONDARY MST 2 (32.5). Access: Read w/Fileman SECONDARY HEAD/NECK CANCER 2 (32.6). Access: Read w/Fileman SECONDARY COMBAT VET 2 (32.7). Access: Read w/Fileman SECONDARY ICD DIAGNOSIS 3 (33). Access: Read w/Fileman SECONDARY AGENT ORANGE 3 (33.1). Access: Read w/Fileman SECONDARY IONIZED RADIATION 3 (33.2). Access: Read w/Fileman SECONDARY SERVICE-CONNECTED 3 (33.3). Access: Read w/Fileman SECONDARY MST 3 (33.5). Access: Read w/Fileman SECONDARY ENVIRON. CONT. 3 (33.4). Access: Read w/Fileman SECONDARY HEAD/NECK CANCER 3 (33.6). Access: Read w/Fileman SECONDARY COMBAT VET 3 (33.7). Access: Read w/Fileman ORDERING PROVIDER (27). Access: Read w/Fileman	File 668 'B' cross reference Used to look up bySUSPENSE DATEFile 668 'C' cross reference Used to look up by VETERANFile 668 'CD' cross reference Used to look up byCOMPLETION DATEFile 668 'E' cross reference Used to look up by STATUSFile 668 'F' cross reference Used to look up by PATIENT2319File 668 'L' cross reference Used to look up by STATUS(last 2 of patient SSN,Create Date with no time,and STATUS)File 668 'L1' cross reference Used to look up by STATUS(last 2 of patient SSN,STATUS, and IEN forDelayed Order Report)

Name	Field # of Occurrence
^%DT	.01+1, 5+1, 10+1, 18+1, 22+1
NOW^%DTC	22+1
^DICR	5(XREF 1n1.4), 5(XREF 1K)
Y^DIQ	ID1+1
EN^RMPR9X	14(XREF 2S)
EN0^RMPR9X	14(XREF 3S)
EN01^RMPR9X	14(XREF 4S)
EN02^RMPR9X	5(XREF 2S)
KILL^RMPR9X	14(XREF 2K)
KILL0^RMPR9X	14(XREF 3K)
KILL01^RMPR9X	14(XREF 4K)
KILL02^RMPR9X	5(XREF 2K)

Name	Line Occurrences (* Changed, ! Killed)
^DD(	5(XREF 1n1.4), 5(XREF 1K)
^DD(2	ID1+1
^DD(668	5(XREF 1S)
^DPT - [#2]	ID1+1
^RMPR(668 - [#668]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 5(XREF 1S), 5(XREF 1n1.4), 5(XREF 1K), 14(XREF 1S), 14(XREF 1K), 20(XREF 1S) , 20(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	22+1
%DT	.01+1, 5+1, 10+1, 18+1, 22+1*!
%DT(0	22+1*
%I	ID1+1*!
>> C	ID1+1*
>> D0	5(XREF 1S), 5(XREF 1K)
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 5(XREF 1S), 5(XREF 1K), 14(XREF 1S), 14(XREF 1K), 20(XREF 1S), 20(XREF 1K)
>> DIC	ID1+1, ID3+1
>> DIG	5(XREF 1n1.4), 5(XREF 1K)
>> DIH	5(XREF 1n1.4), 5(XREF 1K)
>> DIU	5(XREF 1S), 5(XREF 1K)
DIV	5(XREF 1S), 5(XREF 1n1.4), 5(XREF 1K)
DIV(0	5(XREF 1S), 5(XREF 1n1.4), 5(XREF 1K)
DUZ	5(XREF 1S)
U	ID1+1, 5(XREF 1S), 5(XREF 1n1.4), 5(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1.5+1!, 2.3+1!, 5+1!, 5(XREF 1S), 5(XREF 1n1.4) , 5(XREF 1K), 10+1!, 14(XREF 1S), 14(XREF 1K), 18+1!, 20(XREF 1S), 20(XREF 1K), 22+1*!, 27+1!
Y	ID1+1*, .01+1, 5+1, 5(XREF 1S), 5(XREF 1K), 10+1, 18+1, 22+1
Y(1	5(XREF 1S), 5(XREF 1K)

Customize PDF page

Package: Prosthetics

Global: ^RMPR(668

Information

Description

Directly Accessed By Routines, Total: 65

Accessed By FileMan Db Calls, Total: 15

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 8

Fields, Total: 64

ICR, Total: 2

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: