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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^DVB(396

Package: Automated Medical Information Exchange

Global: ^DVB(396


Information

FileMan FileNo FileMan Filename Package
396 FORM 7131 Automated Medical Information Exchange

Description

Directly Accessed By Routines, Total: 51

Package Total Routines
Automated Medical Information Exchange 47 DVBA 21 DAY CERT    DVBA INCOMP REQ REPORT    DVBA NOT/DIS-21 DAY CERT CHECK    DVBA NOTICE OF DISCHARGE    DVBA STATUS    DVBA STATUS EDIT    DVBA35P    DVBAALRT
DVBAB57    DVBAB67    DVBAB71    DVBAB89    DVBACERT    DVBACRMS    DVBACRRP    DVBACRRR
DVBADSCK    DVBADSNT    DVBADXFR    DVBAEDIT    DVBAFINL    DVBANDCU    DVBAPEND    DVBAPND1
DVBAPRE    DVBAREG1    DVBAREG2    DVBAREQ1    DVBAREQ3    DVBAREQS    DVBARL21    DVBARPUR
DVBARQP    DVBAUTL2    DVBAUTL3    DVBAUTL6    DVBAUTL7    DVBAXF    DVBAXP    DVBAXP1
DVBAXS    DVBAXS1    DVBAXS2    DVBAXS3    DVBAXS4    DVBAXS5    DVBAXS6    

Accessed By FileMan Db Calls, Total: 28

Package Total Routines
Automated Medical Information Exchange 28 DVBA35P    DVBACERT    DVBACRMS    DVBADSNT    DVBAEDIT    DVBAERMK    DVBAFINL    DVBANDCU
DVBANT21    DVBAPST1    DVBAREG1    DVBAREG2    DVBAREQS    DVBARL21    DVBARPUR    DVBARQP
DVBASTAT    DVBAUTL2    DVBAUTL3    DVBAUTL5    DVBAUTL7    DVBAXS    DVBAXS1    DVBAXS2
DVBAXS3    DVBAXS4    DVBAXS5    DVBAXS6    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Registration 2 MEDICAL CENTER DIVISION(#40.8)[4.65.66.67.69.611.613.615.617.618.620.629]    PATIENT(#2)[.01]    
Kernel 1 NEW PERSON(#200)[6.84]    

Fields, Total: 89

Field # Name Loc Type Details
.01 PATIENT NAME 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  SEP 20, 1989
  • HELP-PROMPT:  Enter the Veteran's name as it appears on the records or the last four. The SSN may also be used for lookup.
  • DESCRIPTION:  
    Enter the patient's name, 'last four', or social security number.  This is the name of the patient from the PATIENT file.
  • CROSS-REFERENCE:  396^B
    1)= S ^DVB(396,"B",$E(X,1,30),DA)=""
    2)= K ^DVB(396,"B",$E(X,1,30),DA)
.5 ADDITIONAL REMARKS 5;0 WORD-PROCESSING #396.02

  • DESCRIPTION:  
    This field holds the remarks entered for a 7131 request.  It is a word processing field.
1 C-NUMBER COMPUTED

  • MUMPS CODE:  X ^DD(396,1,9.2) S Y(396,1,101)=$S($D(^DPT(D0,.31)):^(.31),1:"") S X=$P(Y(396,1,101),U,3) S D0=Y(396,1,80)
    9.2 = S Y(396,1,80)=$S($D(D0):D0,1:""),Y(396,1,1)=$S($D(^DVB(396,D0,0)):^(0),1:""),D0=$P(Y(396,1,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1
  • ALGORITHM:  PATIENT NAME:CLAIM NUMBER
  • DESCRIPTION:  
    The patient claim number, as it appears in the PATIENT file (#2).
2 SOC SEC NUMBER COMPUTED

  • MUMPS CODE:  X ^DD(396,2,9.2) S X=$P(Y(396,2,101),U,9) S D0=Y(396,2,80)
    9.2 = S Y(396,2,80)=$S($D(D0):D0,1:""),Y(396,2,1)=$S($D(^DVB(396,D0,0)):^(0),1:""),D0=$P(Y(396,2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(396,2,101)=$S($D(^DPT(D0,0)):^(0),1:"")
  • ALGORITHM:  PATIENT NAME:SSN
  • LAST EDITED:  SEP 02, 1989
  • DESCRIPTION:  
    This is the patient's SSN as it appears in the PATIENT file.
3 ADMISSION DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  This field is computer maintained. Alter only for corrections.
  • DESCRIPTION:  
    This is the admission date this request is associated with.
  • CROSS-REFERENCE:  396^G
    1)= S ^DVB(396,"G",$E(X,1,30),DA)=""
    2)= K ^DVB(396,"G",$E(X,1,30),DA)
4 NOTICE OF DISCHARGE 0;5 SET
************************REQUIRED FIELD************************
  • 'YES' FOR YES;
  • 'NO' FOR NO;

  • HELP-PROMPT:  Enter Y if you wish to receive this item, N if not.
  • DESCRIPTION:  
    This field indicates if a notice of discharge is requested.
4.5 NOTICE/DISCHG STATUS 0;9 SET
  • 'P' FOR PENDING;
  • 'C' FOR COMPLETED;

  • LAST EDITED:  DEC 29, 1989
  • HELP-PROMPT:  Enter C if this item is completed or RETURN to leave item as pending.
  • DESCRIPTION:  
    Indicates the status of the notice of discharge report.
4.6 NOTICE OF DISCHARGE DIVISION 6;9 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) MEDICAL CENTER DIVISION(#40.8)

  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the division the Notice of Dishcarge is to be completed by.
  • DESCRIPTION:  
    This field is a pointer to the Medical Center Division file.  It contains the division the Notice of Discharge requested on the 7131 has been transferred to.
  • TECHNICAL DESCR:  
    This field is a pointer to file 40.8.
  • CROSS-REFERENCE:  396^AE1^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,9) S:A'="" ^DVB(396,"AE",A,$E(X,1,30),DA,4)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,9) I A'="" K ^DVB(396,"AE",A,$E(X,1,30),DA,4)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the Notice of Discharge Tran Date and Division.
    To reindex the 'AE' X-ref for these fields, the user need only reindex either the Notice of Discharge Tran Date or Division.  This will NOT reindex the 'AE' X-ref on other fields in the file.
  • CROSS-REFERENCE:  396^AF1^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,9) S:A'="" ^DVB(396,"AF",DA,A,$E(X,1,30),4)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,9) I A'="" K ^DVB(396,"AF",DA,A,$E(X,1,30),4)
    This cross-reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the Notice of Discharge Tran Date and Division.
    To reindex the 'AF' X-ref for these fields, the user need only reindex either the Notice of Discharge Tran Date or Division.  This will NOT reindex the 'AF' X-ref on other fields in the file.
4.7 NOTICE OF DISCHARGE TRAN DATE 7;9 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the date the Notice of Discharge was transferred to another division.
  • DESCRIPTION:  
    This field contains the date the Notice of Discharge was transferred to another division at a multi-divisional facility.
  • TECHNICAL DESCR:  
    This field is a PRECISE date in which Time can be entered.
  • CROSS-REFERENCE:  396^AE2^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,9) S:+A>0 ^DVB(396,"AE",$E(X,1,30),A,DA,4)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,9) I +A>0 K ^DVB(396,"AE",$E(X,1,30),A,DA,4)
    This cross reference is used to print the New 7131 Report (Long).  It is on the Notice of Discharge Tran Date and Division.
  • CROSS-REFERENCE:  396^AF2^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,9) S:+A>0 ^DVB(396,"AF",DA,$E(X,1,30),A,4)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,9) I +A>0 K ^DVB(396,"AF",DA,$E(X,1,30),A,4)
    This cross reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the Notice of Discharge Tran Date and Division.
4.8 NOTICE/DISCHG COMPLETION DATE 0;10 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Enter the date this item was completed by MAS.
  • DESCRIPTION:  
    Date the notice of discharge was completed.
4.9 EDIT4.5 1;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • HELP-PROMPT:  Computer maintained field. Alter only for corrections.
  • DESCRIPTION:  
    Holds name of person who last edited the NOTICE OF DISCHARGE field.
5 HOSPITAL SUMMARY 0;6 SET
************************REQUIRED FIELD************************
  • 'YES' FOR YES;
  • 'NO' FOR NO;

  • HELP-PROMPT:  Enter Y if you wish to receive this item, N if not.
  • DESCRIPTION:  
    Indicates whether a hospital summary has been selected.
5.5 HOSPITAL SUMMARY STATUS 0;11 SET
  • 'P' FOR PENDING;
  • 'C' FOR COMPLETED;

  • LAST EDITED:  DEC 29, 1989
  • HELP-PROMPT:  Enter C if this item is completed or RETURN to leave this item as pending.
  • DESCRIPTION:  
    Indicates the status of the hospital summary report.
5.6 HOSPITAL SUMMARY DIVISION 6;11 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) MEDICAL CENTER DIVISION(#40.8)

  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the division the Hospital Summary is to be completed by.
  • DESCRIPTION:  
    This field contains the division the Hospital Summary on the 7131 was transferred to.
  • TECHNICAL DESCR:  
    This field is a pointer to the Medical Center Division File (40.8).
  • CROSS-REFERENCE:  396^AE3^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,11) S:A'="" ^DVB(396,"AE",A,$E(X,1,30),DA,5)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,11) I A'="" K ^DVB(396,"AE",A,$E(X,1,30),DA,5)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the Hospital Summary Tran Date and Division.
    To reindex the 'AE' X-ref for these fields, the user need only reindex either the Hospital Summary Tran Date or Division.  This will NOT reindex the 'AE' X-ref on other fields in the file.
  • CROSS-REFERENCE:  396^AF3^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,11) S:A'="" ^DVB(396,"AF",DA,A,$E(X,1,30),5)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,11) I A'="" K ^DVB(396,"AF",DA,A,$E(X,1,30),5)
    This cross-reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the Hospital Summary Tran Date and Division.
    To reindex the 'AF' X-ref for these fields, the user need only reindex either the Hospital Summary Tran Date or Division.  This will NOT reindex the 'AF' X-ref on other fields in the file.
5.7 HOSPITAL SUMMARY TRAN DATE 7;11 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the date the Hospital Summary was transferred to another division.
  • DESCRIPTION:  
    This field contains the date the Hospital Summary was transferred to another division at a multi-divisional facility.
  • TECHNICAL DESCR:  
    This field is a PRECISE date in which Time can be entered.
  • CROSS-REFERENCE:  396^AE4^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,11) S:+A>0 ^DVB(396,"AE",$E(X,1,30),A,DA,5)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,11) I +A>0 K ^DVB(396,"AE",$E(X,1,30),A,DA,5)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the Hospital Summary Tran Date and Division.
  • CROSS-REFERENCE:  396^AF4^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,11) S:+A>0 ^DVB(396,"AF",DA,$E(X,1,30),A,5)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,11) I +A>0 K ^DVB(396,"AF",DA,$E(X,1,30),A,5)
    This cross reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the Hospital Summary Tran Date and Division.
5.8 HOSP SUMMARY COMPLETION DATE 0;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Enter the date this item was completed by MAS.
  • DESCRIPTION:  
    The date the hospital summary was completed.
5.9 EDIT5.5 1;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Holds the name of the person who last edited the hospital summary status.
6 CERTIFICATE (21-DAY) 0;7 SET
************************REQUIRED FIELD************************
  • 'YES' FOR YES;
  • 'NO' FOR NO;

  • HELP-PROMPT:  Enter Y if you wish to receive this item, N if not.
  • DESCRIPTION:  
    Indicates whether a 21 day certificate is selected.
6.5 (21-DAY) CERTIFICATE STATUS 0;13 SET
  • 'P' FOR PENDING;
  • 'C' FOR COMPLETED;

  • LAST EDITED:  DEC 29, 1989
  • HELP-PROMPT:  Enter C if this item is completed or RETURN to leave this item as pending.
  • DESCRIPTION:  
    Indicates the status of the 21 day certificate.
6.6 CERTIFICATE (21-DAY) DIVISION 6;13 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) MEDICAL CENTER DIVISION(#40.8)

  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the division the 21-Day Certificate is to be completed by.
  • DESCRIPTION:  
    This field contains the division the 21 Day Certificate was transferred to on the 7131.
  • TECHNICAL DESCR:  
    This field is a pointer to the Medical Center Division file (40.8).
  • CROSS-REFERENCE:  396^AE5^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,13) S:A'="" ^DVB(396,"AE",A,$E(X,1,30),DA,6)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,13) I A'="" K ^DVB(396,"AE",A,$E(X,1,30),DA,6)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the 21-Day Cert Tran Date and Division.
    To reindex the 'AE' X-ref for these fields, the user need only reindex either the 21-Day Cert Tran Date or Division.  This will NOT reindex the 'AE' X-ref on other fields in the file.
  • CROSS-REFERENCE:  396^AF5^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,13) S:A'="" ^DVB(396,"AF",DA,A,$E(X,1,30),6)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,13) I A'="" K ^DVB(396,"AF",DA,A,$E(X,1,30),6)
    This cross-reference is used to print the Pending 7131 Report and 7131 Request Report (Short).  It is on the 21-Day Cert Tran Date and Division.
    To reindex the 'AF' X-ref for these fields, the user need only reindex either the 21-Day Cert Tran Date or Division.  This will NOT reindex the 'AF' X-ref on other fields in the file.
6.7 CERTIFICATE (21-DAY) TRAN DATE 7;13 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the date the 21-Day Cert was transferred to another division.
  • DESCRIPTION:  
    This field contains the date the 21-Day Certificate was transferred to another division at a multi-divisional facility.
  • TECHNICAL DESCR:  
    This field is a PRECISE date in which Time can be entered.
  • CROSS-REFERENCE:  396^AE6^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,13) S:+A>0 ^DVB(396,"AE",$E(X,1,30),A,DA,6)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,13) I +A>0 K ^DVB(396,"AE",$E(X,1,30),A,DA,6)
    This cross reference is used to print the New 7131 Report (Long).  It is on the 21-Day Cert Tran Date and Division.
  • CROSS-REFERENCE:  396^AF6^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,13) S:+A>0 ^DVB(396,"AF",DA,$E(X,1,30),A,6)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,13) I +A>0 K ^DVB(396,"AF",DA,$E(X,1,30),A,6)
    This cross-reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the 21-Day Cert Tran Date and Division.
6.8 (21-DAY) COMPLETION DATE 0;14 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 07, 1994
  • HELP-PROMPT:  Enter the date this item was completed by MAS.
  • DESCRIPTION:  
    Indicates the date the 21 day certificate was completed.
6.81 21 DAY CERT TEXT 3;0 WORD-PROCESSING #396.01

  • DESCRIPTION:  
    This field contains the text of the 21 day certificate.
6.82 21 DAY CERT RELEASE STATUS 4;1 SET
  • 'R' FOR RELEASED, READY TO PRINT;
  • 'P' FOR PRINTED BY RO;
  • 'N' FOR NEW;

  • LAST EDITED:  JAN 04, 1995
  • HELP-PROMPT:  This is maintained by editing programs. Change only for corrections.
  • DESCRIPTION:  
    Indicates the various stages of the 21 day certificate process.  There are three stages defined here; released and ready to be printed by the RO, printed by the RO, and new - ready for processing.
  • CROSS-REFERENCE:  396^AC^MUMPS
    1)= N DVBALOC,DVBADA S DVBADA=$P(^DVB(396,DA,0),U,1),DVBALOC=$$STATION^DVBAUTL1(DVBADA) Q:DVBALOC=-1  S ^DVB(396,"AC",DVBALOC,$E(X,1,30),DA)=""
    2)= N DVBALOC,DVBADA S DVBADA=$P(^DVB(396,DA,0),U,1),DVBALOC=$$STATION^DVBAUTL1(DVBADA) Q:DVBALOC=-1  K ^DVB(396,"AC",DVBALOC,$E(X,1,30),DA)
    This cross reference orders 21 Day Certificates by their release status and Claim folder location.
6.83 21 DAY CERT MAS RELEASE DATE 4;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Enter the date the 21-day certificate was released by MAS.
  • DESCRIPTION:  
    This is the date the certificate was released by MAS to the Regional Office.
6.84 21 DAY CERT RELEASED BY 4;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 28, 1993
  • HELP-PROMPT:  Enter the DUZ or name of the person releasing the certificate.
  • DESCRIPTION:  
    This field contains the name of the person who released the 21 day certificate.
6.85 DATE 21 DAY CERT PRINTED BY RO 4;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  This is the date the certificate was actually printed by the Regional Office.
  • DESCRIPTION:  
    Contains the date the 21 day certificate was printed by the Regional Office.
6.86 21 DAY CERT TO DATE 4;5 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 01, 1990
  • HELP-PROMPT:  This is the date through which the certificate length of stay was calculated.
  • DESCRIPTION:  
    Contains the date to which the 21 day certificate length of stay was calculated.
6.87 21 DAY CERT WARD 4;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • HELP-PROMPT:  Enter the ward of the patient on the certificate date.
  • DESCRIPTION:  
    Contains the ward the patient was on when the 21 day certificate was generated.
6.88 21 DAY CERT BED 4;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • HELP-PROMPT:  Enter the bed number of the patient on the certificate date.
  • DESCRIPTION:  
    Contains the location of the bed the patient occupied when the certificate was generated.
6.89 21 DAY CERT PRINTED BY 4;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • HELP-PROMPT:  The name of the person at the Regional Office who actually printed out the 21-day certificate.
  • DESCRIPTION:  
    This is the name of the Regional Office employee who printed the certificate.
6.9 EDIT6.5 1;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Holds the name of the person who last edited the 21 day certificate status.
7 OTHER/EXAM (REVIEW REMARKS) 0;8 SET
************************REQUIRED FIELD************************
  • 'YES' FOR YES;
  • 'NO' FOR NO;

  • LAST EDITED:  FEB 10, 1995
  • HELP-PROMPT:  Enter Y if you wish to receive this item, N if not.
  • DESCRIPTION:  
    Indicates that the user should review the REMARKS section for further instructions concerning this request.
7.6 OTHER/EXAM LISTED IN REM DIV 6;15 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) MEDICAL CENTER DIVISION(#40.8)

  • LAST EDITED:  FEB 10, 1995
  • HELP-PROMPT:  Enter the Medical Center division to which the Exam of Cond's is transferred.
  • DESCRIPTION:  
    This field contains the division the OTHER/EXAM  Listed in Remarks was transferred to.
  • TECHNICAL DESCR:  
    This field is a pointer to the Medical Center Division file (40.8).
  • CROSS-REFERENCE:  396^AE7^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,15) S:A'="" ^DVB(396,"AE",A,$E(X,1,30),DA,7)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,15) I A'="" K ^DVB(396,"AE",A,$E(X,1,30),DA,7)
    This cross reference is used to print the New 7131 Report (Long).  It is on the OTHER/EXAM LISTED TRAN DATE and Division.
    To reindex the 'AE' X-ref for these fields, the user need only reindex either the OTHER/EXAM LISTED TRAN DATE or Division.  This will NOT reindex the 'AE' X-ref on other fields in the file.
  • CROSS-REFERENCE:  396^AF7^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,15) S:A'="" ^DVB(396,"AF",DA,A,$E(X,1,30),7)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,15) I A'="" K ^DVB(396,"AF",DA,A,$E(X,1,30),7)
    This cross-reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the OTHER/EXAM LISTED TRAN DATE and Division.
    To reindex the 'AF' X-ref for these fields, the user need only reindex either the OTHER/EXAM LISTED TRAN DATE or Division.  This will NOT reindex the 'AF' X-ref on other fields in the file.
7.7 OTHER/EXAM LISTED TRAN DATE 7;15 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 10, 1995
  • HELP-PROMPT:  Enter the date the Exam of Conditions listed was transferred to another division.
  • DESCRIPTION:  
    This field contains the date the OTHER/EXAM Listed in Remarks was transferred to another division in a multi-divisional facility.
  • TECHNICAL DESCR:  
    This field is a PRECISE date in which Time can be entered.
  • CROSS-REFERENCE:  396^AE8^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,15) S:+A>0 ^DVB(396,"AE",$E(X,1,30),A,DA,7)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,15) I +A>0 K ^DVB(396,"AE",$E(X,1,30),A,DA,7)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the OTHER/EXAM LISTED TRAN DATE and Division.
  • CROSS-REFERENCE:  396^AF8^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,15) S:+A>0 ^DVB(396,"AF",DA,$E(X,1,30),A,7)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,15) I +A>0 K ^DVB(396,"AF",DA,$E(X,1,30),A,7)
    This cross-reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the OTHER/EXAM LISTED TRAN DATE and Division.
8 STATUS OF OTHER/EXAM 0;15 SET
  • 'P' FOR PENDING;
  • 'C' FOR COMPLETED;

  • LAST EDITED:  FEB 10, 1995
  • HELP-PROMPT:  Enter C if this item is completed or RETURN to leave this item as pending.
  • DESCRIPTION:  
    Indicates the status of the OTHER/EXAM listed in the ADDITIONAL REMARKS field.
8.5 OTHER/EXAM COMPLETION DATE 1;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 10, 1995
  • HELP-PROMPT:  Enter the date this item was completed by MAS.
  • DESCRIPTION:  
    This is the date that this report was completed.
8.7 EDIT8 1;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Holds the name of the person who last edited the STATUS OF EXAM CONDITIONS.
9 SPECIAL REPORT 0;16 SET
************************REQUIRED FIELD************************
  • 'YES' FOR YES;
  • 'NO' FOR NO;

  • HELP-PROMPT:  Enter Y if you wish to receive this item, N if not.
  • DESCRIPTION:  
    Indicates whether a special report is requested.
9.6 SPECIAL REPORT DIVISION 6;17 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) MEDICAL CENTER DIVISION(#40.8)

  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the Medical Center division which the Special Report is transferred to.
  • DESCRIPTION:  
    This field contains the division the Special Report was transferred to.
  • TECHNICAL DESCR:  
    This field is a pointer to the Medical Center Division file (40.8).
  • CROSS-REFERENCE:  396^AE9^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,17) S:A'="" ^DVB(396,"AE",A,$E(X,1,30),DA,9)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,17) I A'="" K ^DVB(396,"AE",A,$E(X,1,30),DA,9)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the Special Report Tran Date and Division.
    To reindex the 'AE' X-ref for these fields, the user need only reindex either the Special Report Tran Date or Division.  This will NOT reindex the 'AE' X-ref on other fields in the file.
  • CROSS-REFERENCE:  396^AF9^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,17) S:A'="" ^DVB(396,"AF",DA,A,$E(X,1,30),9)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,17) I A'="" K ^DVB(396,"AF",DA,A,$E(X,1,30),9)
    This cross reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the Special Report Tran Date and Division.
    To reindex the 'AF' X-ref for these fields, the user need only reindex either the Special Report Tran Date or Division.  This will NOT reindex the 'AF' X-ref on other fields in the file.
9.7 SPECIAL REPORT TRAN DATE 7;17 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the date the Special Report was transferred to another division.
  • DESCRIPTION:  
    This field contains the date the Special Report was transferred to another division at a multi-divisional facility.
  • TECHNICAL DESCR:  
    This field is a PRECISE date in which Time can be entered.
  • CROSS-REFERENCE:  396^AE10^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,17) S:+A>0 ^DVB(396,"AE",$E(X,1,30),A,DA,9)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,17) I +A>0 K ^DVB(396,"AE",$E(X,1,30),A,DA,9)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the Special Report Tran Date and Division.
  • CROSS-REFERENCE:  396^AF10^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,17) S:+A>0 ^DVB(396,"AF",DA,$E(X,1,30),A,9)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,17) I +A>0 K ^DVB(396,"AF",DA,$E(X,1,30),A,9)
    This cross reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the Special Report Tran Date and Division.
10 STATUS OF SPECIAL REPORT 0;17 SET
  • 'P' FOR PENDING;
  • 'C' FOR COMPLETED;

  • LAST EDITED:  DEC 29, 1989
  • HELP-PROMPT:  Enter C if this item is completed or RETURN to leave this item as pending.
  • DESCRIPTION:  
    Indicates the status of the special report.
10.5 SPECIAL REPORT COMPLETION DATE 1;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Enter the date this item was completed by MAS.
  • DESCRIPTION:  
    Contains the date on which the special report was completed.
10.7 EDIT10 1;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Holds the name of the person who last edited the STATUS OF SPECIAL REPORT.
11 COMPETENCY REPORT 0;18 SET
************************REQUIRED FIELD************************
  • 'YES' FOR YES;
  • 'NO' FOR NO;

  • HELP-PROMPT:  Enter Y if you wish to receive this item, N if not.
  • DESCRIPTION:  
    Indicates whether or not a competency report has been selected.
11.6 COMPETENCY REPORT DIVISION 6;19 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) MEDICAL CENTER DIVISION(#40.8)

  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the Medical Center division which the Competency Rpt is transferred to.
  • DESCRIPTION:  
    This field contains the division the Special Report was transferred to.
  • TECHNICAL DESCR:  
    This field is a pointer to the Medical Center Division file (40.8).
  • CROSS-REFERENCE:  396^AE11^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,19) S:A'="" ^DVB(396,"AE",A,$E(X,1,30),DA,11)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,19) I A'="" K ^DVB(396,"AE",A,$E(X,1,30),DA,11)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the Competency Report Tran Date and Division.
    To reindex the 'AE' X-ref for these fields, the user need only reindex either the Competency Report Tran Date or Division.  This will NOT reindex the 'AE' X-ref on other fields in the file.
  • CROSS-REFERENCE:  396^AF11^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,19) S:A'="" ^DVB(396,"AF",DA,A,$E(X,1,30),11)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,19) I A'="" K ^DVB(396,"AF",DA,A,$E(X,1,30),11)
    This cross-reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the Competency Report Tran Date and Division.
    To reindex the 'AF' X-ref for these fields, the user need only reindex either the Competency Report Tran Date or Division.  This will NOT reindex the 'AF' X-ref on other fields in the file.
11.7 COMPETENCY REPORT TRAN DATE 7;19 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the date the Competency Rpt was transferred to another division.
  • DESCRIPTION:  
    This field contains the date the Competency Report was transferred to another division at a multidivisional facility.
  • TECHNICAL DESCR:  
    This field is a PRECISE date in which Time can be entered.
  • CROSS-REFERENCE:  396^AE12^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,19) S:+A>0 ^DVB(396,"AE",$E(X,1,30),A,DA,11)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,19) I +A>0 K ^DVB(396,"AE",$E(X,1,30),A,DA,11)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the Competency Report Tran Date and Division.
  • CROSS-REFERENCE:  396^AF12^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,19) S:+A>0 ^DVB(396,"AF",DA,$E(X,1,30),A,11)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,19) I +A>0 K ^DVB(396,"AF",DA,$E(X,1,30),A,11)
    This cross-reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the Competency Report Tran Date and Division.
12 STATUS OF COMPETENCY REPORT 0;19 SET
  • 'P' FOR PENDING;
  • 'C' FOR COMPLETED;

  • LAST EDITED:  DEC 29, 1989
  • HELP-PROMPT:  Enter C if this item is completed or RETURN to leave this item as pending.
  • DESCRIPTION:  
    Indicates the current status of this report.
12.5 COMPETENCY RPT COMPLETION DATE 1;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Enter the date this item was completed by MAS.
  • DESCRIPTION:  
    This is the date the competency report was completed by MAS.
12.7 EDIT12 1;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Holds the name of the person who last edited the STATUS OF COMPETENCY REPORT.
13 VA FORM 21-2680 0;20 SET
************************REQUIRED FIELD************************
  • 'YES' FOR YES;
  • 'NO' FOR NO;

  • HELP-PROMPT:  Enter Y if you wish to receive this item, N if not.
  • DESCRIPTION:  
    Indicates whether a VA FORM 21-2680 is requested.
13.6 VA FORM 21-2680 DIVISION 6;21 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) MEDICAL CENTER DIVISION(#40.8)

  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the Medical Center division which the 21-2680 is transferred to.
  • DESCRIPTION:  
    This field contains the division the VA Form 21-2680 was transferred to.
  • TECHNICAL DESCR:  
    This field is a pointer to the Medical Center Division file (40.8).
  • CROSS-REFERENCE:  396^AE13^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,21) S:A'="" ^DVB(396,"AE",A,$E(X,1,30),DA,13)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,21) I A'="" K ^DVB(396,"AE",A,$E(X,1,30),DA,13)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the 21-2680 Tran Date and Division.
    To reindex the 'AE' X-ref for these fields, the user need only reindex either the 21-2680 Tran Date or Division.  This will NOT reindex the 'AE' X-ref on other fields in the file.
  • CROSS-REFERENCE:  396^AF13^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,21) S:A'="" ^DVB(396,"AF",DA,A,$E(X,1,30),13)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,21) I A'="" K ^DVB(396,"AF",DA,A,$E(X,1,30),13)
    This cross-reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the 21-2680 Tran Date and Division.
    To reindex the 'AF' X-ref for these fields, the user need only reindex either the 21-2680 Tran Date or Division.  This will NOT reindex the 'AF' X-ref on other fields in the file.
13.7 VA FORM 21-2680 TRAN DATE 7;21 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the date the 21-2680 was transferred to another division.
  • DESCRIPTION:  
    This field contains the date the VA Form 21-2680 was transferred to another division in a multidivisonal facility.
  • TECHNICAL DESCR:  
    This field is a PRECISE date in which Time can be entered.
  • CROSS-REFERENCE:  396^AE14^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,21) S:+A>0 ^DVB(396,"AE",$E(X,1,30),A,DA,13)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,21) I +A>0 K ^DVB(396,"AE",$E(X,1,30),A,DA,13)
    This cross reference is used to print the New 7131 Report (Long).  It is on the 21-2680 Tran Date and Division.
  • CROSS-REFERENCE:  396^AF14^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,21) S:+A>0 ^DVB(396,"AF",DA,$E(X,1,30),A,13)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,21) I +A>0 K ^DVB(396,"AF",DA,$E(X,1,30),A,13)
    This cross-reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the 21-2680 Tran Date and Division.
14 STATUS OF VA FORM 21-2680 0;21 SET
  • 'P' FOR PENDING;
  • 'C' FOR COMPLETED;

  • LAST EDITED:  DEC 29, 1989
  • HELP-PROMPT:  Enter C if this item is completed or RETURN to leave this item as pending.
  • DESCRIPTION:  
    Indicates the current status of this report.
14.5 FORM 21-2680 COMPLETION DATE 1;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Enter the date this item was completed by MAS.
  • DESCRIPTION:  
    The date this report was completed by MAS.
14.7 EDIT14 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Holds the name of the person who last edited STATUS OF VA FORM 21-2680.
15 ASSET INFORMATION 0;22 SET
************************REQUIRED FIELD************************
  • 'YES' FOR YES;
  • 'NO' FOR NO;

  • HELP-PROMPT:  Enter Y if you wish to receive this item, N if not.
  • DESCRIPTION:  
    Indicates whether asset information is requested.
15.6 ASSET INFORMATION DIVISION 6;23 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) MEDICAL CENTER DIVISION(#40.8)

  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the Medical Center division which the Asset Info is transferred to.
  • DESCRIPTION:  
    This field contains the division the Asset Information was transferred to.
  • TECHNICAL DESCR:  
    This field is a pointer to the Medical Center Division file (40.8).
  • CROSS-REFERENCE:  396^AE15^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,23) S:A'="" ^DVB(396,"AE",A,$E(X,1,30),DA,15)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,23) I A'="" K ^DVB(396,"AE",A,$E(X,1,30),DA,15)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the Asset Information Tran Date and Division.
    To reindex the 'AE' X-ref for these fields, the user need only reindex either the Asset Information Tran Date or Division.  This will NOT reindex the 'AE' X-ref on other fields in the file.
  • CROSS-REFERENCE:  396^AF15^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,23) S:A'="" ^DVB(396,"AF",DA,A,$E(X,1,30),15)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,23) I A'="" K ^DVB(396,"AF",DA,A,$E(X,1,30),15)
    This cross-reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the Asset Information Tran Date and Division.
    To reindex the 'AF' X-ref for these fields, the user need only reindex either the Asset Information Tran Date or Division.  This will NOT reindex the 'AF' X-ref on other fields in the file.
15.7 ASSET INFORMATION TRAN DATE 7;23 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the date the Asset Information was transferred to another division.
  • DESCRIPTION:  
    This field contains the date the Asset Information was transferred to another division in a multidivisional facility.
  • TECHNICAL DESCR:  
    This field is a PRECISE date in which Time can be entered.
  • CROSS-REFERENCE:  396^AE16^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,23) S:+A>0 ^DVB(396,"AE",$E(X,1,30),A,DA,15)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,23) I +A>0 K ^DVB(396,"AE",$E(X,1,30),A,DA,15)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the Asset Information Tran Date and Division.
  • CROSS-REFERENCE:  396^AF16^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,23) S:+A>0 ^DVB(396,"AF",DA,$E(X,1,30),A,15)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,23) I +A>0 K ^DVB(396,"AF",DA,$E(X,1,30),A,15)
    This cross-reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the Asset Information Tran Date and Division.
16 STATUS OF ASSET INFORMATION 0;23 SET
  • 'P' FOR PENDING;
  • 'C' FOR COMPLETED;

  • LAST EDITED:  DEC 29, 1989
  • HELP-PROMPT:  Enter C if this item is completed or RETURN to leave this item as pending.
  • DESCRIPTION:  
    Status of the requested asset information report.
16.5 ASSET INFO COMPLETION DATE 1;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Enter the date this item was completed by MAS.
  • DESCRIPTION:  
    This is the date the asset information was completed by MAS.
16.7 EDIT16 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Holds the name of the person who last edited STATUS OF ASSET INFORMATION.
17 ADMISSION REPORT 0;24 SET
************************REQUIRED FIELD************************
  • 'YES' FOR YES;
  • 'NO' FOR NO;

  • HELP-PROMPT:  Enter Y if you wish to receive this item, N if not.
  • DESCRIPTION:  
    Indicates whether an admission report was requested.
17.4 ADMISSION REPORT STATUS 1;7 SET
  • 'P' FOR PENDING;
  • 'C' FOR COMPLETED;

  • LAST EDITED:  DEC 29, 1989
  • HELP-PROMPT:  Enter C if this item is completed or RETURN to leave this item as pending.
  • DESCRIPTION:  
    This is the current status of the admission report.
17.6 ADMISSION REPORT DIVISION 6;7 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) MEDICAL CENTER DIVISION(#40.8)

  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the Medical Center division which the Admission Rpt is transferred to.
  • DESCRIPTION:  
    This field contains the division the Asset Information was transferred to.
  • TECHNICAL DESCR:  
    This field is a pointer to the Medical Center Division file (40.8).
  • CROSS-REFERENCE:  396^AE17^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,7) S:A'="" ^DVB(396,"AE",A,$E(X,1,30),DA,17)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,7) I A'="" K ^DVB(396,"AE",A,$E(X,1,30),DA,17)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the Admission Report Tran Date and Division.
    To reindex the 'AE' X-ref for these fields, the user need only reindex either the Admission Report Tran Date or Division.  This will NOT reindex the 'AE' X-ref on other fields in the file.
  • CROSS-REFERENCE:  396^AF17^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,7) S:A'="" ^DVB(396,"AF",DA,A,$E(X,1,30),17)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,7) I A'="" K ^DVB(396,"AF",DA,A,$E(X,1,30),17)
    This cross-reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the Admission Report Tran Date and Division.
    To reindex the 'AF' X-ref for these fields, the user need only reindex either the Admission Report Tran Date or Division.  This will NOT reindex the 'AF' X-ref on other fields in the file.
17.7 ADMISSION REPORT TRAN DATE 7;7 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the date the Admission Report was transferred to another division.
  • DESCRIPTION:  
    This field contains the date the Admission Report was transferred to another division at a multidivisional facility.
  • TECHNICAL DESCR:  
    This field is a PRECISE date in which Time can be entered.
  • CROSS-REFERENCE:  396^AE18^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,7) S:+A>0 ^DVB(396,"AE",$E(X,1,30),A,DA,17)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,7) I +A>0 K ^DVB(396,"AE",$E(X,1,30),A,DA,17)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the Admission Report Tran Date and Division.
  • CROSS-REFERENCE:  396^AF18^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,7) S:+A>0 ^DVB(396,"AF",DA,$E(X,1,30),A,17)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,7) I +A>0 K ^DVB(396,"AF",DA,$E(X,1,30),A,17)
    This cross-reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the Admission Report Tran Date and Division.
17.8 ADMISSION RPT COMPLETION DATE 1;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Enter the date this item was completed by MAS.
  • DESCRIPTION:  
    This is the date the admission report was completed.
17.9 EDIT17.4 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Holds the name of the person who last edited the ADMISSION REPORT STATUS field.
18 OPT TREATMENT RPT (DATE RANGE) 0;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  JUL 05, 1990
  • HELP-PROMPT:  If you want to receive the Outpatient Treatment report for a specific veteran, enter the date range that you want that report to cover. (A Yes or No answer is not correct here.)
  • DESCRIPTION:  
    This will contain the date range that the user has selected for the OPT report. (This field is free text and intended to hold a From/To date range.)
18.6 OPT TREATMENT RPT DIVISION 6;26 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) MEDICAL CENTER DIVISION(#40.8)

  • LAST EDITED:  DEC 07, 1994
  • HELP-PROMPT:  Enter the division the OPT Treatment Rpt is to be completed by.
  • DESCRIPTION:  
    This field contains the division the OPT Treatment Rpt was transferred to on the 7131.
  • TECHNICAL DESCR:  
    This field is a pointer to the Medical Center Division file (40.8).
  • CROSS-REFERENCE:  396^AE19^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,26) S:A'="" ^DVB(396,"AE",A,$E(X,1,30),DA,18)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,26) I A'="" K ^DVB(396,"AE",A,$E(X,1,30),DA,18)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the OPT Treatment Rpt Tran Date and Division.
    To reindex the 'AE' X-ref for these fields, the user need only reindex either the OPT Treatment Rpt Tran Date or Division.  This will NOT reindex the 'AE' X-ref on other fields in the file.
  • CROSS-REFERENCE:  396^AF19^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,26) S:A'="" ^DVB(396,"AF",DA,A,$E(X,1,30),18)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,26) I A'="" K ^DVB(396,"AF",DA,A,$E(X,1,30),18)
    This cross-reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the OPT Treatment Rpt Tran Date and Division.
    To reindex the 'AF' X-ref for these fields, the user need only reindex either the Admission Report Tran Date or Division.  This will NOT reindex the 'AF' X-ref on other fields in the file.
18.7 OPT TREATMENT RPT TRAN DATE 7;26 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 07, 1994
  • HELP-PROMPT:  Enter the date the OPT Treatment Rpt was transferred to another division.
  • DESCRIPTION:  
    This field contains the date the OPT Treatment Rpt was transferred to another division.
  • TECHNICAL DESCR:  
    This field is a PRECISE date in which Time can be entered.
  • CROSS-REFERENCE:  396^AE20^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,26) S:+A>0 ^DVB(396,"AE",$E(X,1,30),A,DA,18)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,26) I +A>0 K ^DVB(396,"AE",$E(X,1,30),A,DA,18)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the OPT Treatment Rpt Tran Date and Division.
  • CROSS-REFERENCE:  396^AF20^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,26) S:+A>0 ^DVB(396,"AF",DA,$E(X,1,30),A,18)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,26) I +A>0 K ^DVB(396,"AF",DA,$E(X,1,30),A,18)
    This cross-reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the OPT Treatment Rpt Tran Date and Division.
19 STATUS OF OPT TREATMENT RPT 0;26 SET
  • 'P' FOR PENDING;
  • 'C' FOR COMPLETED;

  • LAST EDITED:  DEC 29, 1989
  • HELP-PROMPT:  Enter C if this item is completed or RETURN to leave this item as pending.
  • DESCRIPTION:  
    Contains the current status of the OPT report.
19.5 OPT TREAT RPT COMPLETION DATE 1;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Enter the date this item was completed by MAS.
  • DESCRIPTION:  
    This is the date the OPT report was completed by MAS.
19.7 EDIT19 2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Holds the name of the person who last edited the STATUS OF OPT TREATMENT RPT field.
20 BEGINNING DATE/CARE (CHAP 17) 0;27 SET
************************REQUIRED FIELD************************
  • 'YES' FOR YES;
  • 'NO' FOR NO;

  • HELP-PROMPT:  Enter Y if you wish to receive this item, N if not.
  • DESCRIPTION:  
    This field indicates whether the beginning date/care report is selected.
20.6 BEGINNING DATE/CARE DIVISION 6;28 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) MEDICAL CENTER DIVISION(#40.8)

  • LAST EDITED:  DEC 01, 1994
  • HELP-PROMPT:  Enter the Medical Center division which the Begining Dte/Care is transferred to.
  • DESCRIPTION:  
    This field contains the division the Begining Date/Care (Chapt 17) was transferred to.
  • TECHNICAL DESCR:  
    This field is a pointer to the Medical Center Division file (40.8).
  • CROSS-REFERENCE:  396^AE21^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,28) S:A'="" ^DVB(396,"AE",A,$E(X,1,30),DA,20)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,28) I A'="" K ^DVB(396,"AE",A,$E(X,1,30),DA,20)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the Beginning Date/Care Tran Date and Division.
    To reindex the 'AE' X-ref for these fields, the user need only reindex either the Beginning Date/Care Tran Date or Division.  This will NOT reindex the 'AE' X-ref on other fields in the file.
  • CROSS-REFERENCE:  396^AF21^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,28) S:A'="" ^DVB(396,"AF",DA,A,$E(X,1,30),20)=""
    2)= N A S A="" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,28) I A'="" K ^DVB(396,"AF",DA,A,$E(X,1,30),20)
    This cross-reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the Beginning Date/Care Tran Date and Division.
    To reindex the 'AF' X-ref for these fields, the user need only reindex either the Beginning Date/Care Tran Date or Division.  This will NOT reindex the 'AF' X-ref on other fields in the file.
20.7 BEGINNING DATE/CARE TRAN DATE 7;28 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 02, 1994
  • HELP-PROMPT:  Enter the date the Beginning Date/Care was transferred to another division.
  • DESCRIPTION:  
    This field contains the date the Beginning Date/Care was transferred to another division at a multidivisional facility.
  • TECHNICAL DESCR:  
    This field is a PRECISE date in which Time can be entered.
  • CROSS-REFERENCE:  396^AE22^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,28) S:+A>0 ^DVB(396,"AE",$E(X,1,30),A,DA,20)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,28) I +A>0 K ^DVB(396,"AE",$E(X,1,30),A,DA,20)
    This cross-reference is used to print the New 7131 Report (Long).  It is on the Beginning Date/Care Tran Date and Division.
  • CROSS-REFERENCE:  396^AF22^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,28) S:+A>0 ^DVB(396,"AF",DA,$E(X,1,30),A,20)=""
    2)= N A S A="" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,28) I +A>0 K ^DVB(396,"AF",DA,$E(X,1,30),A,20)
    This cross reference is used to print the Pending 7131 Report and the New 7131 Request Report (Short).  It is on the Beginning Date/Care Tran Date and Division.
21 STATUS-BEG DATE/CARE (CHAP 17) 0;28 SET
  • 'P' FOR PENDING;
  • 'C' FOR COMPLETED;

  • LAST EDITED:  DEC 29, 1989
  • HELP-PROMPT:  Enter C if this item is completed or RETURN to leave this item as pending.
  • DESCRIPTION:  
    Indicates the current status of the beginning date/care report.
21.5 BEG/DATE/CARE COMPLETION DATE 1;10 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Enter the date this item was completed by MAS.
  • DESCRIPTION:  
    This field holds the date the beginning date/care report was completed.
21.7 EDIT21 2;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Holds the name of the person who last edited the STATUS-BEG DATE/CARE field.
22 *ADDITIONAL REMARKS 0;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>65!($L(X)<1) X
  • LAST EDITED:  JAN 22, 1993
  • HELP-PROMPT:  ANSWER MUST BE 1-65 CHARACTERS IN LENGTH (STARRED FOR DELETION)
  • DESCRIPTION:  
    This field is starred for deletion and is being replaced by a WP field.
23 DATE OF REQUEST 1;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 02, 1994
  • DESCRIPTION:  
    This field contains the date the 7131 request was entered.
  • CROSS-REFERENCE:  396^E
    1)= S ^DVB(396,"E",$E(X,1,30),DA)=""
    2)= K ^DVB(396,"E",$E(X,1,30),DA)
  • CROSS-REFERENCE:  396^AE23^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,2)) A=$P(^DVB(396,DA,2),U,9) S:+A>0 ^DVB(396,"AE",$E(X,1,30),A,DA,23)=""
    2)= N A S A="" S:$D(^DVB(396,DA,2)) A=$P(^DVB(396,DA,2),U,9) I +A>0 K ^DVB(396,"AE",$E(X,1,30),A,DA,23)
    This cross-reference will be used by the New 7131 Request Report (Long).  It is needed to print a 7131 at the Division the request has been sent to by the Regional Office.
24 DATE LAST STATUS EDIT 1;11 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    This field contains the date the status of any of the reports was changed.
25 FINALIZATION DATE 1;12 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    This field contains the date that the 7131 was finalized.
  • CROSS-REFERENCE:  396^F
    1)= S ^DVB(396,"F",$E(X,1,30),DA)=""
    2)= K ^DVB(396,"F",$E(X,1,30),DA)
26 FINALIZED BY 2;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains the name of the user who finalized the 7131 request.
27 REQUESTING LOCATION 2;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 08, 1993
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    The name of the Regional Office that requested this 7131.
28 REQUESTED BY 2;8 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The Regional Office employee who requested the 7131.
29 DIVISION 2;9 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)
************************REQUIRED FIELD************************
MEDICAL CENTER DIVISION(#40.8)

  • LAST EDITED:  DEC 02, 1994
  • HELP-PROMPT:  Enter the routing location for this request (required).
  • DESCRIPTION:  
    This field containts the division to which the 7131 request should be sent.
  • CROSS-REFERENCE:  396^AE24^MUMPS
    1)= N A S A="" S:$D(^DVB(396,DA,1)) A=$P(^DVB(396,DA,1),U,1) S:A'="" ^DVB(396,"AE",A,$E(X,1,30),DA,23)=""
    2)= N A S A="" S:$D(^DVB(396,DA,1)) A=$P(^DVB(396,DA,1),U,1) I A'="" K ^DVB(396,"AE",A,$E(X,1,30),DA,23)
    This cross reference will be used by the New 7131 Request Report (Long).  It is needed to print a 7131 at the Division the request has been sent to by the Regional Office.
    To reindex the 'AE' X-ref for these fields, the user need only reindex  either the Date of Request or Division.  This will NOT reindex the 'AE' X-ref on other fields in the file.
30 DOCUMENT TYPE 2;10 SET
************************REQUIRED FIELD************************
  • 'L' FOR ACTIVITY DATE;
  • 'A' FOR ADMISSION DATE;

  • LAST EDITED:  AUG 23, 1989
  • HELP-PROMPT:  Enter the type of document being entered A for admission date or L for activity date.
  • DESCRIPTION:  
    Stores the document type of the 7131 request; either admission date or activity date.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All