source: WorldVistAEHR/trunk/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHQM13.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1DVBHQM13 ;ISC-ALBANY/JLU ; This routine is general for space saving ;10/6/88@08:00
2 ;;4.0;HINQ;**49**;03/25/92
3 ;
4MRT S Z=$S(T="A":"Veterans Master Record",T="B":"Death Payee",T="C":"Apportioned Payee-Live",T="D":"Accounts Receivable or Deposit Fund",1:"")
5 I Z="" S Z=$S(T="E":"Terminated Pending Purge",T="F":"Apportioned Payee-death",T="G":"PFOP Recurring Payment",T="N":"Notice of Death Record",1:"")
6 Q
7OLC S Z=$S(T1=0:"No losses in this group",T1=1:"Loss or loss of use of creative organ.",T1=2:"Loss or loss of use of both buttocks.",T1=3:"Loss of buttocks & loss of creative organ",1:"")
8 I Z="" S Z=$S(T1=4:"Regular aid and attendance or permanently bedridden",T1=5:"Loss of creative organ & Regular A&A or bedridden",T1=6:"Loss of buttocks,creative organ Regular A&A,bedridden",1:"")
9 I Z="" S Z=$S(T1=7:"Loss creative organ,buttocks Regular A&A,bedridden",1:"")
10 Q
11VMV S Z=$S(T1=" "!(T1=0):"No spouse or not eligible",T1=1:"Spouse WWI, MBP, included in award.",T1=2:"Spouse veteran, not of WWI or MBP, included in award.",T1="Y":"Yes",1:"")
12 I Z="" S Z=$S(T1=3:"Spouse veteran WWI or MBP, paid separately. Another file number.",T1=4:"Spouse not veteran WWI or MBP, paid separately. Another file number.",1:"")
13 Q
14SPC S Z=$S(T1=1:"Paragraph 29",T1=2:"Paragraph 30",T1=3:"VA Regulation 1321(B)",T1=4:"VA Regulation 1322(A)",T1=5:"Analogous Ratings",T1=6:"Other or Combination",1:"")
15 Q
Note: See TracBrowser for help on using the repository browser.