Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^DVB(396.3

Package: Automated Medical Information Exchange

Global: ^DVB(396.3


Information

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

Description

Directly Accessed By Routines, Total: 95

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

Accessed By FileMan Db Calls, Total: 41

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

Pointed To By FileMan Files, Total: 3

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]    

Pointer To FileMan Files, Total: 12

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)[314162023.423.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.
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

External References

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DVB(396.3 - [#396.3] .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), 18+1, 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)
^DVB(396.4 - [#396.4] .01DEL1+1

Naked Globals

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)

Local Variables

Legend:

>> 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)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All