STANDARD DATA DICTIONARY #396 -- FORM 7131 FILE 6/27/25 PAGE 1
STORED IN ^DVB(396, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.7)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Holds all requests for 7131 information. This is the information which was requested on the old paper 7131 forms.
Node 6 was added with Version 2.7 of AMIE. This node contains the divisions a selected report on a 7131 has been transferred to.
Node 7 was added with Version 2.7 of AMIE. This node contains the dates a report on a 7131 was transferred to another division.
These nodes are used only by Multidivisional facilities that transfer reports on a 7131. The decimal portion of the field numbers
for the fields on nodes 6 and 7 indicates the node the field exists on. The piece position for each field on nodes 6 and 7
corresponds to the piece position of its respective report status field on that report's node.
NOTE: The 'AE' and 'AF' cross-references are specialized MUMPS cross- references used to implement the Divisional Transfer of
reports on a 7131 request. Please follow the technical descriptions of the above cross-references when reindexing.
APPLICATION GROUP(S): DVBA
CROSS
REFERENCED BY: 21 DAY CERT RELEASE STATUS(AC), NOTICE OF DISCHARGE DIVISION(AE1), SPECIAL REPORT TRAN DATE(AE10),
COMPETENCY REPORT DIVISION(AE11), COMPETENCY REPORT TRAN DATE(AE12), VA FORM 21-2680 DIVISION(AE13),
VA FORM 21-2680 TRAN DATE(AE14), ASSET INFORMATION DIVISION(AE15), ASSET INFORMATION TRAN DATE(AE16),
ADMISSION REPORT DIVISION(AE17), ADMISSION REPORT TRAN DATE(AE18), OPT TREATMENT RPT DIVISION(AE19),
NOTICE OF DISCHARGE TRAN DATE(AE2), OPT TREATMENT RPT TRAN DATE(AE20), BEGINNING DATE/CARE DIVISION(AE21),
BEGINNING DATE/CARE TRAN DATE(AE22), DATE OF REQUEST(AE23), DIVISION(AE24), HOSPITAL SUMMARY DIVISION(AE3),
HOSPITAL SUMMARY TRAN DATE(AE4), CERTIFICATE (21-DAY) DIVISION(AE5), CERTIFICATE (21-DAY) TRAN DATE(AE6),
OTHER/EXAM LISTED IN REM DIV(AE7), OTHER/EXAM LISTED TRAN DATE(AE8), SPECIAL REPORT DIVISION(AE9),
NOTICE OF DISCHARGE DIVISION(AF1), SPECIAL REPORT TRAN DATE(AF10), COMPETENCY REPORT DIVISION(AF11),
COMPETENCY REPORT TRAN DATE(AF12), VA FORM 21-2680 DIVISION(AF13), VA FORM 21-2680 TRAN DATE(AF14),
ASSET INFORMATION DIVISION(AF15), ASSET INFORMATION TRAN DATE(AF16), ADMISSION REPORT DIVISION(AF17),
ADMISSION REPORT TRAN DATE(AF18), OPT TREATMENT RPT DIVISION(AF19), NOTICE OF DISCHARGE TRAN DATE(AF2),
OPT TREATMENT RPT TRAN DATE(AF20), BEGINNING DATE/CARE DIVISION(AF21), BEGINNING DATE/CARE TRAN DATE(AF22),
HOSPITAL SUMMARY DIVISION(AF3), HOSPITAL SUMMARY TRAN DATE(AF4), CERTIFICATE (21-DAY) DIVISION(AF5),
CERTIFICATE (21-DAY) TRAN DATE(AF6), OTHER/EXAM LISTED IN REM DIV(AF7), OTHER/EXAM LISTED TRAN DATE(AF8),
SPECIAL REPORT DIVISION(AF9), PATIENT NAME(B), DATE OF REQUEST(E), FINALIZATION DATE(F), ADMISSION DATE(G)
396,.01 PATIENT NAME 0;1 POINTER TO PATIENT FILE (#2) (Required)
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)
396,.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.
LAST EDITED: JAN 22, 1993
HELP-PROMPT: Enter any ADDITIONAL REMARKS pertaining to this 7131 request.
396,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(39
6,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).
396,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.
396,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)
396,4 NOTICE OF DISCHARGE 0;5 SET (Required)
'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.
396,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.
396,4.6 NOTICE OF DISCHARGE DIVISION 6;9 POINTER TO MEDICAL CENTER DIVISION FILE (#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),D
A,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.
396,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.
396,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.
396,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.
396,5 HOSPITAL SUMMARY 0;6 SET (Required)
'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.
396,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.
396,5.6 HOSPITAL SUMMARY DIVISION 6;11 POINTER TO MEDICAL CENTER DIVISION FILE (#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,3
0),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.
396,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,D
A,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.
396,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.
396,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.
396,6 CERTIFICATE (21-DAY) 0;7 SET (Required)
'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.
396,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.
396,6.6 CERTIFICATE (21-DAY) DIVISION 6;13 POINTER TO MEDICAL CENTER DIVISION FILE (#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,3
0),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.
396,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,D
A,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.
396,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.
396,6.81 21 DAY CERT TEXT 3;0 WORD-PROCESSING #396.01
DESCRIPTION:
This field contains the text of the 21 day certificate.
HELP-PROMPT: Enter the text of the 21-day certificate.
396,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.
396,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.
396,6.84 21 DAY CERT RELEASED BY 4;3 POINTER TO NEW PERSON FILE (#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.
396,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.
396,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.
396,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.
396,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.
396,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.
396,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.
396,7 OTHER/EXAM (REVIEW REMARKS) 0;8 SET (Required)
'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.
396,7.6 OTHER/EXAM LISTED IN REM DIV 6;15 POINTER TO MEDICAL CENTER DIVISION FILE (#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,3
0),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.
396,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,D
A,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.
396,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.
396,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.
396,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.
396,9 SPECIAL REPORT 0;16 SET (Required)
'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.
396,9.6 SPECIAL REPORT DIVISION 6;17 POINTER TO MEDICAL CENTER DIVISION FILE (#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,3
0),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.
396,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,D
A,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.
396,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.
396,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.
396,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.
396,11 COMPETENCY REPORT 0;18 SET (Required)
'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.
396,11.6 COMPETENCY REPORT DIVISION 6;19 POINTER TO MEDICAL CENTER DIVISION FILE (#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,3
0),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.
396,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,D
A,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.
396,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.
396,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.
396,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.
396,13 VA FORM 21-2680 0;20 SET (Required)
'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.
396,13.6 VA FORM 21-2680 DIVISION 6;21 POINTER TO MEDICAL CENTER DIVISION FILE (#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,3
0),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.
396,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,D
A,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.
396,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.
396,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.
396,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.
396,15 ASSET INFORMATION 0;22 SET (Required)
'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.
396,15.6 ASSET INFORMATION DIVISION 6;23 POINTER TO MEDICAL CENTER DIVISION FILE (#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,3
0),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.
396,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,D
A,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.
396,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.
396,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.
396,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.
396,17 ADMISSION REPORT 0;24 SET (Required)
'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.
396,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.
396,17.6 ADMISSION REPORT DIVISION 6;7 POINTER TO MEDICAL CENTER DIVISION FILE (#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),D
A,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.
396,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,1
7)=""
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,1
7)=""
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.
396,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.
396,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.
396,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.)
396,18.6 OPT TREATMENT RPT DIVISION 6;26 POINTER TO MEDICAL CENTER DIVISION FILE (#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,3
0),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.
396,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,D
A,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.
396,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.
396,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.
396,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.
396,20 BEGINNING DATE/CARE (CHAP 17) 0;27 SET (Required)
'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.
396,20.6 BEGINNING DATE/CARE DIVISION 6;28 POINTER TO MEDICAL CENTER DIVISION FILE (#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,3
0),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.
396,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,D
A,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.
396,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.
396,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.
396,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.
396,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.
396,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,2
3)=""
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.
396,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.
396,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)
396,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.
396,27 REQUESTING LOCATION 2;7 FREE TEXT (Required)
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.
396,28 REQUESTED BY 2;8 FREE TEXT (Required)
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.
396,29 DIVISION 2;9 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) (Required)
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),D
A,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.
396,30 DOCUMENT TYPE 2;10 SET (Required)
'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.
FILES POINTED TO FIELDS
MEDICAL CENTER DIVISION (#40.8) NOTICE OF DISCHARGE DIVISION (#4.6)
HOSPITAL SUMMARY DIVISION (#5.6)
CERTIFICATE (21-DAY) DIVISION (#6.6)
OTHER/EXAM LISTED IN REM DIV (#7.6)
SPECIAL REPORT DIVISION (#9.6)
COMPETENCY REPORT DIVISION (#11.6)
VA FORM 21-2680 DIVISION (#13.6)
ASSET INFORMATION DIVISION (#15.6)
ADMISSION REPORT DIVISION (#17.6)
OPT TREATMENT RPT DIVISION (#18.6)
BEGINNING DATE/CARE DIVISION (#20.6)
DIVISION (#29)
NEW PERSON (#200) 21 DAY CERT RELEASED BY (#6.84)
PATIENT (#2) PATIENT NAME (#.01)
INPUT TEMPLATE(S):
DVBA EDIT REMARKS JAN 25, 1993@08:56 USER #0
DVBA STATUS EDIT JAN 25, 1993@11:47 USER #0 ^DVBAXS
PRINT TEMPLATE(S):
DVBA 21 DAY CERT JAN 28, 1998@10:00 USER #0 FORM 7131 LIST
DVBA FINALIZED REPORT JAN 28, 1998@14:00 USER #0 ^DVBAXF A.M.I.E. Finalized Report
DVBA INCOMP REQ REPORT JAN 28, 1998@14:35 USER #0 A.M.I.E. Incomplete Request Report
DVBA NOT/DIS-21 DAY CERT CHECKJAN 28, 1998@14:46 USER #0 Notice of Discharge/21-day certificate Follow-up Listing
DVBA NOTICE OF DISCHARGE JAN 28, 1998@14:56 USER #0 FORM 7131 LIST
DVBA STATUS MAR 06, 1998@13:36 USER #0 @
SORT TEMPLATE(S):
DVBA 21 DAY CERT SEP 15, 1994@08:36 USER #0
SORT BY: PATIENT NAME//
WITHIN PATIENT NAME, SORT BY: CERTIFICATE (21-DAY)="YES";L1// From '0' To '1'
DVBA FINALIZED REPORT AUG 09, 1988 USER #0
SORT BY: @+FINALIZATION DATE;S2// (User is asked range)
WITHIN FINALIZATION DATE, SORT BY: @DATE OF REQUEST//
DVBA INCOMP REQ REPORT JUL 27, 1989 USER #0
SORT BY: ]FINALIZATION DATE="";L1// From '0' To '1'
WITHIN FINALIZATION DATE="", SORT BY: +@DATE OF REQUEST;S2// (User is asked range)
DVBA NOT/DIS-21 DAY CERT CHECKFEB 02, 1989 USER #0
SORT BY: PATIENT NAME;S1//
WITHIN PATIENT NAME, SORT BY: NOTICE OF DISCHARGE="YES"!(CERTIFICATE (21-DAY)="YES");L1// From '0' To '1'
DVBA NOTICE OF DISCHARGE SEP 15, 1994@08:24 USER #0
SORT BY: PATIENT NAME//
WITHIN PATIENT NAME, SORT BY: NOTICE OF DISCHARGE="YES";L1// From '0' To '1'
FORM(S)/BLOCK(S):