Global: ^DVB(396.3

FileMan FileNo	FileMan Filename	Package
396.3	2507 REQUEST	Automated Medical Information Exchange

Package	Total	Routines
Automated Medical Information Exchange	91	*EXAM DVBA215P DVBAALRT DVBAB1A DVBAB5 DVBAB82 DVBAB96 DVBACER1 DVBACPR1 DVBAPRE DVBARSBD DVBCADE2 DVBCAMR2 DVBCBUL1 DVBCCHKR DVBCCNC1 DVBCCNCL DVBCENQ1 DVBCHLOR DVBCHLQ DVBCHLR DVBCHS1 DVBCHS2 DVBCIRP1 DVBCLOG DVBCLOG2 DVBCMKLK DVBCPND1 DVBCREDT DVBCRELS DVBCREQP DVBCROPN DVBCRPON DVBCSCHD DVBCUTA1 DVBCUTA4 DVBCUTIL DVBCUTL5 DVBCUTL8 DVBCXFR2 DVBCXFRA DVBCXFRB DVBCXFRS REROUTE DATE/TIME REROUTE STATUS DATE/TIME SPECIAL CONSIDERATIONS ^DVB(396.3 CLAIM TYPE DVBA C REQUESTS BY DATE RANGE DVBA179P DVBAB1 DVBAB1C DVBAB2 DVBAB58 DVBAB6 DVBAB68 DVBAB70 DVBABEBD DVBADD DVBC193P DVBCADE1 DVBCADEX DVBCAMI2 DVBCBULL DVBCCNNS DVBCEDIT DVBCEEXM DVBCHLUT DVBCHS0 DVBCIRP2 DVBCIRPT DVBCIUTL DVBCLABR DVBCLKTL DVBCLOGE DVBCNTSC DVBCPRN1 DVBCPRNT DVBCREQ1 DVBCRPRT DVBCTRN1 DVBCUTA2 DVBCUTL2 DVBCUTL4 DVBCUTL6 DVBCXFR1 DVBCXFRC DVBCXFRE ^DVB(396.4 ^DVB(396.95 DVBCXFRD
Scheduling	3	SDEC58 SDECCAP SDESCOMPPEN
Text Integration Utility	1	TIUPUTA

Package	Total	Routines
Automated Medical Information Exchange	39	DVBA179P DVBAB1A DVBAB6 DVBABEBD DVBACER1 DVBACPR1 DVBAPST1 DVBARSBD DVBCADE1 DVBCADE2 DVBCADEX DVBCBULL DVBCCNC1 DVBCCNCL DVBCEDIT DVBCENQ DVBCHLR DVBCIUTL DVBCLABR DVBCLOG DVBCLOG2 DVBCLOGE DVBCPRN1 DVBCREDT DVBCRELS DVBCREQP DVBCRLST DVBCROP1 DVBCROPN DVBCRPON DVBCSCHD DVBCUTA2 DVBCUTL8 DVBCXFR2 DVBCXFRA DVBCXFRB DVBCXFRC DVBCXFRE DVBCXFRS
Scheduling	2	SDECCAP SDESCOMPPEN

Package	Total	FileMan Files
Automated Medical Information Exchange	3	2507 REQUEST(#396.3)[44] 2507 EXAM(#396.4)[.02] AMIE C&P EXAM TRACKING(#396.95)[.06]

Package	Total	FileMan Files
Automated Medical Information Exchange	7	2507 SPECIAL CONSIDERATIONS(#396.25)[#396.31(.01)] 2507 CLAIM TYPE(#396.27)[#396.32(.01)] 2507 REQUEST(#396.3)[44] 2507 STATUS(#396.33)[17] 2507 CANCELLATION REASON(#396.5)[#396.327(2)] 2507 REROUTE CODE(#396.55)[#396.34(4)] AMIE EXAM(#396.6)[#396.327(.01)]
Kernel	2	INSTITUTION(#4)[2] NEW PERSON(#200)[3, 14, 16, 20, 23.4, 23.6, #396.327(2.3), #396.34(7)]
Registration	2	MEDICAL CENTER DIVISION(#40.8)[24, #396.34(8)] PATIENT(#2)[.01]
MailMan	1	DOMAIN(#4.2)[28, #396.327(8)]

Fields, Total: 49

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) HELP-PROMPT: `Enter the name of the Veteran as it appears on the hospital records or how it appears on your records.` DESCRIPTION: `This field contains the name of the veteran for whom you are requesting a 2507 exam.` DELETE TEST: `1,0)= I $O(^DVB(396.4,"C",DA,0)) W !,"Delete associated exams first!"` CROSS-REFERENCE: `396.3^B` `1)= S ^DVB(396.3,"B",$E(X,1,30),DA)=""` `2)= K ^DVB(396.3,"B",$E(X,1,30),DA)`
1	REQUEST DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 19, 1990` HELP-PROMPT: `Enter the date and time of the request. Seconds may be used and are encouraged.` DESCRIPTION: `This field contains the date the 2507 request was entered.` CROSS-REFERENCE: `396.3^C` `1)= S ^DVB(396.3,"C",$E(X,1,30),DA)=""` `2)= K ^DVB(396.3,"C",$E(X,1,30),DA)`
2	REGIONAL OFFICE NUMBER	0;3	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) LAST EDITED: `SEP 06, 1994` HELP-PROMPT: `Enter the name or number of the Regional Office which owns this request.` DESCRIPTION: `This field contains the name of the regional office that entered the request.` CROSS-REFERENCE: `396.3^AG^MUMPS` `1)= N DVBCSTAT S DVBCSTAT=$P(^DVB(396.3,DA,0),U,18) S:DVBCSTAT]"" ^DVB(396.3,"AF",DVBCSTAT,$E(X,1,30),DA)=""` `2)= N DVBCSTAT S DVBCSTAT=$P(^DVB(396.3,DA,0),U,18) K:DVBCSTAT]"" ^DVB(396.3,"AF",DVBCSTAT,$E(X,1,30),DA)` `This is the other half of the complex cross reference on the REQUEST STATUS field.`
3	REQUESTER	0;4	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `JAN 28, 1993` HELP-PROMPT: `The name of the person who entered the request.` DESCRIPTION: `This field contains the name of the regional office employee who entered the 2507 request.`
4	DATE REPORTED TO MAS	0;5	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 16, 1994` HELP-PROMPT: `The date the request was printed out for MAS.` DESCRIPTION: `This is the date the request was reported (printed) to MAS. It can only be set one time, at the first printing. Future prints or reprints of the same request will not alter the "starting" date. This date is the basis` `for when the clock begins for both the RO and MAS.` TECHNICAL DESCR: `Modified when the is printed as a new 2507 request.` CROSS-REFERENCE: `396.3^ADP1^MUMPS` `1)= S:$P(^DVB(396.3,DA,0),U,10)'="" ^DVB(396.3,"ADP",$E(X,1,30),$P(^(0),U,10),DA)=""` `2)= I $P(^DVB(396.3,DA,0),U,10)'="" K ^DVB(396.3,"ADP",$E(X,1,30),$P(^(0),U,10),DA)` `The 'ADP' cross reference is used by the 'Summary Insufficient Exam Report' as generated by the Insufficient Exam Report option.`
5	DATE SCHEDULING COMPLETED	0;6	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `The date the last exam was successfully scheduled by MAS.` DESCRIPTION: `This field contains the date scheduling of the 2507 request was completed through the AMIE option.` TECHNICAL DESCR: `Modified by the option 'Schedule C&P Exams' when the user enters 'Yes' to the prompt 'Has scheduling for all exams been completed?'. Todays date is entered.`
6	DATE COMPLETED	0;7	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `The date the entire request was completed.` DESCRIPTION: `This field contains the date the entire 2507 request was completed.`
7	DATE STATUS LAST CHANGED	7;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 17, 2012` HELP-PROMPT: `Enter date of the last REQUEST STATUS change.` DESCRIPTION: `This is the date of the last change to the REQUEST STATUS field (#17). The field is populated by a trigger on the REQUEST STATUS field.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the REQUEST STATUS field of the 2507 REQUEST File` CROSS-REFERENCE: `396.3^AH` `1)= S ^DVB(396.3,"AH",$E(X,1,30),DA)=""` `2)= K ^DVB(396.3,"AH",$E(X,1,30),DA)` `This index is used to pull reports based on the last date that the REQUEST STATUS (#17) field changed.`
9	PRIORITY OF EXAM	0;10	SET	**********************REQUIRED FIELD********************** 'T' FOR TERMINAL; 'P' FOR POW; 'OS' FOR ORIGINAL SC; 'ON' FOR ORIGINAL NSC; 'I' FOR INCREASE; 'R' FOR REVIEW; 'OTR' FOR OTHER; 'E' FOR INSUFFICIENT EXAM; 'AO' FOR AGENT ORANGE; 'BDD' FOR BEN DELIV AT DISCHG; 'QS' FOR QUICK START; 'IDES' FOR IDES; LAST EDITED: `FEB 22, 2013` HELP-PROMPT: `Enter the priority of the exam to be conducted.` DESCRIPTION: `This field contains the status of the 2507 exam to be conducted.` CROSS-REFERENCE: `396.3^ADP2^MUMPS` `1)= S:$P(^DVB(396.3,DA,0),U,5)'="" ^DVB(396.3,"ADP",$P(^(0),U,5),$E(X,1,30),DA)=""` `2)= I $P(^DVB(396.3,DA,0),U,5)'="" K ^DVB(396.3,"ADP",$P(^(0),U,5),$E(X,1,30),DA)` `The 'ADP' cross reference is used by the 'Summary Insufficient Exam Report' as generated by the Insufficient Exam Report option.`
9.1	CLAIM TYPE	9;0	POINTER Multiple #396.32	396.32 DESCRIPTION: `This is a list of Claim Types for this request.`
10	OTHER DISABILITIES [Line 1]	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>75!($L(X)<1) X` HELP-PROMPT: `Enter any other disabilities known or stated by the Veteran. [1-75 characters].` DESCRIPTION: `This field contains other known disabilities or those stated by the veteran.`
10.1	OTHER DISABILITIES [Line 2]	1;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>75!($L(X)<1) X` LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Answer must be 1-75 characters in length.` DESCRIPTION: `This field contains other known disabilities or those stated by the veteran.`
10.2	OTHER DISABILITIES [Line 3]	1;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>75!($L(X)<1) X` HELP-PROMPT: `Answer must be 1-75 characters in length.` DESCRIPTION: `This field contains other known disabilities or those stated by the veteran.`
11	TRANSCRIPTION DATE	0;12	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 12, 1990` HELP-PROMPT: `Enter the date and time the transcription was completed.` DESCRIPTION: `This field contains the date/time transcription was completed.` CROSS-REFERENCE: `396.3^E` `1)= S ^DVB(396.3,"E",$E(X,1,30),DA)=""` `2)= K ^DVB(396.3,"E",$E(X,1,30),DA)`
12	DATE APPROVED	0;13	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the date and time the exam results were approved.` DESCRIPTION: `This field contains the date/time exam results were approved.`
13	DATE RELEASED	0;14	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the date and time that the request was released to the RO for printing.` DESCRIPTION: `This field contains the date/time the 2507 request was released to the regional office for printing.`
14	RELEASED BY	0;15	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 28, 1993` HELP-PROMPT: `The name of the person who released the request to the RO.` DESCRIPTION: `This field contains the name of the MAS employee who released the request to the regional office.`
15	DATE PRINTED BY THE RO	0;16	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `The date and time the examination results were printed by the RO.` DESCRIPTION: `This field contains the date/time the examination results were printed by the regional office.`
16	PRINTED BY	0;17	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 28, 1993` HELP-PROMPT: `The name of the person that printed the examination results.` DESCRIPTION: `This field contains the name of the regional office employee who printed the examination results.`
17	REQUEST STATUS	0;18	POINTER TO 2507 STATUS FILE (#396.33)	**********************REQUIRED FIELD********************** 2507 STATUS(#396.33) LAST EDITED: `JAN 17, 2012` HELP-PROMPT: `Enter the status of the entire request.` DESCRIPTION: `This field contains the request status of the 2507 exam request.` CROSS-REFERENCE: `396.3^AF^MUMPS` `1)= S DVBCRO=$P(^DVB(396.3,DA,0),U,3) S:DVBCRO]"" ^DVB(396.3,"AF",$E(X,1,30),DVBCRO,DA)="" K DVBCRO` `2)= S DVBCRO=$P(^DVB(396.3,DA,0),U,3) K:DVBCRO]"" ^DVB(396.3,"AF",$E(X,1,30),DVBCRO,DA) K DVBCRO` `This cross reference is to collect all entries with the same Regional Office number and request status.` CROSS-REFERENCE: `^^TRIGGER^396.3^7` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DVB(396.3,D0,7)):^(7),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S DIH=$G(^DVB(396.3,DIV(0),7)),DIV=X S $P(^(7),U,1)=DIV,DIH=396.3,DIG=7 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DVB(396.3,D0,7)):^(7),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S DIH=$G(^DVB(396.3,DIV(0),7)),DIV=X S $P(^(7),U,1)=DIV,DIH=396.3,DIG=7 D ^DICR` `CREATE VALUE)= TODAY` `DELETE VALUE)= TODAY` `FIELD)= DATE STATUS LAST` `This trigger populates the DATE STATUS LAST CHANGED (#7) field with the value of TODAY whenever the REQUEST STATUS (#17) field is entered or changed.`
18	ELAPSED TIME		COMPUTED	MUMPS CODE: `S Y(396.3,18,1)=$S($D(^DVB(396.3,D0,0)):^(0),1:""),X=DT S X=X,X1=X,X2=$P(Y(396.3,18,1),U,5),X="" D:X2 ^%DTC:X1 S X=$J(X,0,0)` ALGORITHM: `TODAY-DATE REPORTED TO MAS (ALWAYS 0 DECIMAL DIGITS)` LAST EDITED: `JUN 19, 1990` DESCRIPTION: `This field contains the computation of TODAY - DATE REPORTED TO MAS.`
19	CANCELLATION DATE	0;19	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `The date and time the entire request was cancelled.` DESCRIPTION: `This field contains the date/time the entire request was cancelled.`
20	CANCELLED BY	1;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 28, 1993` HELP-PROMPT: `The name of the person who cancelled the entire request.` DESCRIPTION: `This field contains the name of the employee who cancelled the entire request.`
21	CLAIM FOLDER REQUIRED?	1;2	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `APR 13, 1990` HELP-PROMPT: `Enter Y if a claim folder review will be required or N if no review will be necessary.` DESCRIPTION: `This field indicates whether or not a claim folder is required for this request.`
21.1	ELECTRONIC CLAIM FOLDER AVAIL	5;3	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAR 19, 2015` HELP-PROMPT: `: Enter Y if an ELECTRONIC CLAIM FOLDER is available And N if an ELECTRONIC CLAIM FOLDER is not available` DESCRIPTION: `An answer is required in the EXAM FOLDER AVAILABLE field if the CLAIM FOLDER REQUIRED field is marked YES` TECHNICAL DESCR: `This field stores the response from the Delphi CAPRI GUI 'Add New C&P Exam' form, (Yes or No) if an Electronic Claim Folder is available for this Exam.` CROSS-REFERENCE: `396.3^H` `1)= S ^DVB(396.3,"H",$E(X,1,30),DA)=""` `2)= K ^DVB(396.3,"H",$E(X,1,30),DA)` `This cross reference will help to look up exams that have an Electronic Claims Folder associated with it. the responses are Y for Yes and N for No`
22	OTHER DOCUMENTS REQUIRED?	1;3	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `APR 20, 1990` HELP-PROMPT: `Enter 'Y' if other documents will be required or 'N' if not. A 'N' answer will prompt the Regional Office to print this request as New. A 'Y' answer will prevent this prompting at the R/O.` DESCRIPTION: `This field indicates whether or not a document will be able to be printed at the regional office. If YES, the regional office will not be prompted to print the document when it is released by the Medical Center.` TECHNICAL DESCR: `If the user enters YES to this field upon release to the Regional Office, fields DATE COMPLETED, DATE APPROVED, DATE RELEASED and DATE PRINTED BY THE RO are marked with the date/time of release; fields RELEASED BY and` `PRINTED BY are entered with the date of the person releasing the request; and the field REQUEST STATUS is marked with a status of COMPLETED, PRINTED BY RO.` `This means that the regional office will not be prompted to print this request as a new request when they log into their report menus. This request can be reprinted, however.`
23	REMARKS	2;0	WORD-PROCESSING #396.323	DESCRIPTION: `This field contains the remarks that are entered for a 2507 request.` LAST EDITED: `JAN 10, 1990` HELP-PROMPT: `Enter any pertinent remarks about the Veteran.`
23.3	LAST EXAM ADD DATE	0;20	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 11, 1990` HELP-PROMPT: `The last date that an exam was added to this request.` DESCRIPTION: `This field contains the last date an exam was added to this request.` CROSS-REFERENCE: `396.3^AD` `1)= S ^DVB(396.3,"AD",$E(X,1,30),DA)=""` `2)= K ^DVB(396.3,"AD",$E(X,1,30),DA)`
23.4	LAST PERSON TO ADD EXAM	0;21	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 28, 1993` HELP-PROMPT: `The name of the last person to add an exam to this request after logging by the regional office.` DESCRIPTION: `This field contains the name of the last person to add an exam to this request after it was originally entered by the RO.`
23.5	REMARKS MODIFICATION DATE	0;8	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 06, 1990` HELP-PROMPT: `The date and time of the last REMARKS field modification.` DESCRIPTION: `This field contains the date the REMARKS field was last modified.` CROSS-REFERENCE: `396.3^AC` `1)= S ^DVB(396.3,"AC",$E(X,1,30),DA)=""` `2)= K ^DVB(396.3,"AC",$E(X,1,30),DA)`
23.6	REMARKS MODIFIED BY	0;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 28, 1993` HELP-PROMPT: `The name of the person who last modified the REMARKS field.` DESCRIPTION: `This field contains the name of the employee who last modified the REMARKS field.`
24	ROUTING LOCATION	1;4	POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)	**********************REQUIRED FIELD********************** MEDICAL CENTER DIVISION(#40.8) LAST EDITED: `JAN 16, 1990` HELP-PROMPT: `Enter the name or station number of the site which will be responsible for this request.` DESCRIPTION: `This field contains the station name or number of the site which will be responsible for this request.`
25	APPROVED BY	1;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 03, 1991` HELP-PROMPT: `Enter the name of the person who approved the exam results. [3-30 characters]` DESCRIPTION: `This field contains the name of the employee who approved the examination results.`
26	APPROVAL DATE/TIME	1;6	DATE	INPUT TRANSFORM: `S %DT="ESTXR",%DT(0)="-NOW" D ^%DT K %DT S X=Y K:Y<1 X` LAST EDITED: `MAR 11, 2003` HELP-PROMPT: `Enter the date and time that the exam was approved.` DESCRIPTION: `This field contains the date/time the exam was approved.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
27	*EXAM	3;0	POINTER Multiple #396.327	396.327 LAST EDITED: `MAR 16, 1993` DESCRIPTION: `Data moved to File #396.4; field starred for deletion.`
27.5	RETURNED TO OWNER SITE BY	4;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>35!($L(X)<3) X` LAST EDITED: `APR 19, 1991` HELP-PROMPT: `The free text name of the person who transferred part or all of this request.` DESCRIPTION: `This field contains the name of the employee who returned the transferred request to the owner site.`
28	OWNER DOMAIN	0;22	POINTER TO DOMAIN FILE (#4.2)	DOMAIN(#4.2) LAST EDITED: `OCT 26, 1990` HELP-PROMPT: `Enter the domain of the hospital which owns this request. Transfers ONLY!!` DESCRIPTION: `For transferred-in requests, this field contains the domain of the site which owns the request.`
29	LAST RATING EXAM DATE	1;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 19, 1990` HELP-PROMPT: `Enter the date of the last rating exam, if it is known.` DESCRIPTION: `This field contains the date of the last rating exam.`
30	ORIGINAL REQUEST POINTER	1;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 26, 1990` HELP-PROMPT: `Type a Number between 1 and 999999999999999, 0 Decimal Digits. This is the original record indicator for transfers ONLY.` DESCRIPTION: `This field contains a number which is used to point to the original request at the original site.`
31	TRANSFERRED TO ANOTHER SITE?	4;1	SET	'y' FOR YES; LAST EDITED: `APR 26, 1991` HELP-PROMPT: `System controlled. Change only if necessary.` DESCRIPTION: `This field is set to YES if either the entire request or individual exams on it have been transferred to another site.` TECHNICAL DESCR: `Edited by the DVBCXFR* routines when 2507's are transferred to remote sites and received back from remote sites.` CROSS-REFERENCE: `396.3^AE` `1)= S ^DVB(396.3,"AE",$E(X,1,30),DA)=""` `2)= K ^DVB(396.3,"AE",$E(X,1,30),DA)`
32	DATE TRANSFERRED TO OTHER SITE	4;3	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 23, 1991` HELP-PROMPT: `The last date the owner site transferred an exam from this request to another site.` DESCRIPTION: `This is the date the owner site transferred this request to another site.`
33	DATE TRANSFRD IN FRM REM SITE	4;4	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 23, 1991` HELP-PROMPT: `The date this site received this request from the owner site.` DESCRIPTION: `This field contains the date this transferred in request was received from the owner site.`
34	DATE ALL TRANSFERS RETURNED	4;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 23, 1991` HELP-PROMPT: `The date that all transfers were returned to the owner site` DESCRIPTION: `A request may be transferred to multiple sites. This field represents the date the last transfer on the request was received back at the owner site. Only after this date is set will the request be counted on the AMIS` `290.`
35	REROUTE DATE/TIME	6;0	POINTER Multiple #396.34	396.34 LAST EDITED: `AUG 02, 2016` DESCRIPTION: `This sub file contains information about the sites where the original request was placed.`
44	ORIGINAL 2507 REQUEST	5;1	POINTER TO 2507 REQUEST FILE (#396.3)	2507 REQUEST(#396.3) LAST EDITED: `NOV 15, 1994` HELP-PROMPT: `Select the original 2507 request this request is being entered for.` DESCRIPTION: `This field is a pointer to the insufficient request this 2507 was entered for.` TECHNICAL DESCR: `This field is a pointer to the 2507 Request file (396.3).` CROSS-REFERENCE: `396.3^AORQ` `1)= S ^DVB(396.3,"AORQ",$E(X,1,30),DA)=""` `2)= K ^DVB(396.3,"AORQ",$E(X,1,30),DA)` `The 'AORQ' cross reference will be used by the 'Purge old 2507 Requests (Taskman)' option to prevent the deletion of a 2507 request record linked to a 2507 request entered with a priority of 'Insufficient'.`
45	ORIGINAL 2507 PROCESSING TIME	5;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 16, 1994` HELP-PROMPT: `Enter the number of days the original request took to complete processing.` DESCRIPTION: `This field contains the processing time of the original request the insufficient request was entered for.` TECHNICAL DESCR: `This field is entered by the Regional Office if the Original Request has been purged from the system.`
46	REQUEST UUID	7;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>36!($L(X)<1) X` LAST EDITED: `JUL 07, 2014` HELP-PROMPT: `Answer must be 1-36 characters in length.` DESCRIPTION: `This field is the Request UUID (universally unique identifier for VLER DAS.)`
50	SPECIAL CONSIDERATIONS	8;0	POINTER Multiple #396.31	396.31 DESCRIPTION: `This is the list of special considerations for this request.`
51	INSUFFICIENT REQUEST	10;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `DEC 03, 2014` HELP-PROMPT: `Enter the insufficient request.` DESCRIPTION: `The CAPRI GUI will mark this field Yes or No. If this request is marked Insufficient, then this field will be set to Y(es) by the CAPRI GUI.` CROSS-REFERENCE: `396.3^G` `1)= S ^DVB(396.3,"G",$E(X,1,30),DA)=""` `2)= K ^DVB(396.3,"G",$E(X,1,30),DA)` `The whole file cross reference for the Insufficient request field field`

Name	Field # of Occurrence
^%DT	1+1, 4+1, 5+1, 6+1, 7+1, 11+1, 12+1, 13+1, 15+1, 19+1 , 23.3+1, 23.5+1, 26+1, 29+1, 32+1, 33+1, 34+1
^%DTC	18+1
NOW^%DTC	17(XREF 2S), 17(XREF 2K)
^DICR	17(XREF 2S), 17(XREF 2K)
DICW^DVBCUTIL	IDWRITE+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	17(XREF 2S), 17(XREF 2K)
%DT	1+1, 4+1, 5+1, 6+1, 7+1, 11+1, 12+1, 13+1, 15+1, 19+1 , 23.3+1, 23.5+1, 26+1!, 29+1, 32+1, 33+1, 34+1*
%DT(0	26+1*
%H	17(XREF 2S), 17(XREF 2K)
%I	17(XREF 2S), 17(XREF 2K)
>> D0	17(XREF 2S), 17(XREF 2K), 18+1
>> DA	.01DEL1+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K), 7(XREF 1S) , 7(XREF 1K), 9(XREF 1S), 9(XREF 1K), 11(XREF 1S), 11(XREF 1K), 17(XREF 1S), 17(XREF 1K), 17(XREF 2S), 17(XREF 2K), 21.1(XREF 1S) , 21.1(XREF 1K), 23.3(XREF 1S), 23.3(XREF 1K), 23.5(XREF 1S), 23.5(XREF 1K), 31(XREF 1S), 31(XREF 1K), 44(XREF 1S), 44(XREF 1K), 51(XREF 1S) , 51(XREF 1K)
>> DIG	17(XREF 2S), 17(XREF 2K)
>> DIH	17(XREF 2S), 17(XREF 2K)
>> DIU	17(XREF 2S), 17(XREF 2K)
DIV	17(XREF 2S), 17(XREF 2K)
DIV(0	17(XREF 2S), 17(XREF 2K)
DT	18+1
DVBCRO	17(XREF 1S), 17(XREF 1K)
DVBCSTAT	2(XREF 1S), 2(XREF 1K)
U	ID1+1, 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K), 9(XREF 1S), 9(XREF 1K), 17(XREF 1S), 17(XREF 1K), 17(XREF 2S) , 17(XREF 2K), 18+1
X	.01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 4+1!, 4(XREF 1S), 4(XREF 1K) , 5+1!, 6+1!, 7+1!, 7(XREF 1S), 7(XREF 1K), 9(XREF 1S), 9(XREF 1K), 10+1!, 10.1+1!, 10.2+1! , 11+1!, 11(XREF 1S), 11(XREF 1K), 12+1!, 13+1!, 15+1!, 17(XREF 1S), 17(XREF 1K), 17(XREF 2S), 17(XREF 2K) , 18+1, 19+1!, 21.1(XREF 1S), 21.1(XREF 1K), 23.3+1!, 23.3(XREF 1S), 23.3(XREF 1K), 23.5+1!, 23.5(XREF 1S), 23.5(XREF 1K) , 25+1!, 26+1!, 27.5+1!, 29+1!, 30+1!, 31(XREF 1S), 31(XREF 1K), 32+1!, 33+1!, 34+1! , 44(XREF 1S), 44(XREF 1K), 45+1!, 46+1!, 51(XREF 1S), 51(XREF 1K)
>> X1	18+1*
>> X2	18+1*
Y	1+1, 4+1, 5+1, 6+1, 7+1, 11+1, 12+1, 13+1, 15+1, 17(XREF 2S) , 17(XREF 2K), 19+1, 23.3+1, 23.5+1, 26+1, 29+1, 32+1, 33+1, 34+1
Y(	18+1*
Y(1	17(XREF 2S), 17(XREF 2K)

Customize PDF page

Package: Automated Medical Information Exchange

Global: ^DVB(396.3

Information

Description

Directly Accessed By Routines, Total: 97

Accessed By FileMan Db Calls, Total: 41

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 12

Fields, Total: 49

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^(0	ID1+1, 4(XREF 1S), 4(XREF 1K), 9(XREF 1S), 9(XREF 1K), 18+1
^(7	17(XREF 2S), 17(XREF 2K)