2009-12-04 00:11:15 -05:00
DVBHCE26 ; ; 12 / 27 / 07
D DE G BEGIN
DE S DIE = "^DPT(" , DIC = DIE , DP = 2 , DL = 1 , DIEL = 0 , DU = "" K DG , DE , DB Q : $ O ( ^ DPT ( DA , "" ) ) = ""
I $ D ( ^ ( .3 ) ) S % Z = ^ ( .3 ) S % = $ P ( % Z , U , 2 ) S : % ] "" DE ( 26 ) = % S % = $ P ( % Z , U , 5 ) S : % ] "" DE ( 1 ) = %
I $ D ( ^ ( .32 ) ) S % Z = ^ ( .32 ) S % = $ P ( % Z , U , 2 ) S : % ] "" DE ( 8 ) = %
I $ D ( ^ ( .321 ) ) S % Z = ^ ( .321 ) S % = $ P ( % Z , U , 1 ) S : % ] "" DE ( 14 ) = %
K % Z Q
;
W W ! ? DL + DL -2 , DLB_ ": "
Q
O D W W Y W : $ X > 45 ! ? 9
I $ L ( Y ) > 19 , ' DV , DV ' [ "I" , ( DV [ "F" ! ( DV [ "K" ) ) G RW ^ DIR2
W : Y ] "" "// " I ' DV , DV [ "I" , $ D ( DE ( DQ ) ) #2 S X = "" W " (No Editing)" Q
TR R X : DTIME E S ( DTOUT , X ) = U W $ C ( 7 )
Q
A K DQ ( DQ ) S DQ = DQ + 1
B G @ DQ
RE G PR : $ D ( DE ( DQ ) ) D W , TR
N I X = "" G NKEY : $ D ( ^ DD ( "KEY" , "F" , DP , DIFLD ) ) , A : DV ' [ "R" , X : ' DV , X : D ' > 0 , A
RD G QS : X ? . "?" I X [ "^" D D G ^ DIE17
I X = "@" D D G Z ^ DIE2
I X = " " , DV [ "d" , DV ' [ "P" , $ D ( ^ DISV ( DUZ , "DIE" , DLB ) ) S X = ^ ( DLB ) I DV ' [ "D" , DV ' [ "S" W " " _X
T G M ^ DIE17 : DV , ^ DIE3 : DV [ "V" , P : DV ' [ "S" X : $ D ( ^ DD ( DP , DIFLD , 12.1 ) ) ^ ( 12.1 ) I X ? . ANP D SET I ' DDER X : $ D ( DIC ( "S" ) ) DIC ( "S" ) I W : ' $ D ( DB ( DQ ) ) " " _ % G V
K DDER G X
P I DV [ "P" S DIC = U_DU , DIC ( 0 ) = $ E ( "EN" , $ D ( DB ( DQ ) ) + 1 ) _ "M" _ $ E ( "L" , DV ' [ "'" ) S : DIC ( 0 ) [ "L" DLAYGO = + $ P ( DV , "P" , 2 ) G : DV [ "*" AST ^ DIED D NOSCR ^ DIED S X = + Y , DIC = DIE G X : X < 0
G V : DV ' [ "N" D D I $ L ( $ P ( X , "." ) ) > 24 K X G Z
I $ P ( DQ ( DQ ) , U , 5 ) ' [ "$" , X ? .1 "-" . N .1 "." . N , $ P ( DQ ( DQ ) , U , 5 , 99 ) [ "+X'=X" S X = + X
V D @ ( "X" _DQ ) K YS
Z K DIC ( "S" ) , DLAYGO I $ D ( X ) , X ' = U D : $ G ( DE ( DW , "INDEX" ) ) SAVEVALS G : ' $ $ KEYCHK UNIQFERR ^ DIE17 S DG ( DW ) = X S : DV [ "d" ^ DISV ( DUZ , "DIE" , DLB ) = X G A
X W : ' $ D ( ZTQUEUED ) $ C ( 7 ) , "??" I $ D ( DB ( DQ ) ) G Z ^ DIE17
S X = "?BAD"
QS S DZ = X D D , QQ ^ DIEQ G B
D S D = DIFLD , DQ ( DQ ) = DLB_U _DV _U _DU _U _DW _U _ $ P ( $ T ( @ ( "X" _DQ ) ) , " " , 2 , 99 ) Q
Y I ' $ D ( DE ( DQ ) ) D O G RD : "@" ' [ X , A : DV ' [ "R" & ( X = "@" ) , X : X = "@" S X = Y G N
PR S DG = DV , Y = DE ( DQ ) , X = DU I $ D ( DQ ( DQ , 2 ) ) X DQ ( DQ , 2 ) G RP
R I DG [ "P" , @ ( "$D(^" _X _ "0))" ) S X = + $ P ( ^ ( 0 ) , U , 2 ) G RP : ' $ D ( ^ ( Y , 0 ) ) S Y = $ P ( ^ ( 0 ) , U ) , X = $ P ( ^ DD ( X , .01 , 0 ) , U , 3 ) , DG = $ P ( ^ ( 0 ) , U , 2 ) G R
I DG [ "V" , + Y , $ P ( Y , ";" , 2 ) [ "(" , $ D ( @ ( U_ $ P ( Y , ";" , 2 ) _ "0)" ) ) S X = + $ P ( ^ ( 0 ) , U , 2 ) G RP : ' $ D ( ^ ( + Y , 0 ) ) S Y = $ P ( ^ ( 0 ) , U ) I $ D ( ^ DD ( + X , .01 , 0 ) ) S DG = $ P ( ^ ( 0 ) , U , 2 ) , X = $ P ( ^ ( 0 ) , U , 3 ) G R
X : DG [ "D" ^ DD ( "DD" ) I DG [ "S" S % = $ P ( $ P ( ";" _X , ";" _Y _ ":" , 2 ) , ";" ) S : % ] "" Y = %
RP D O I X = "" S X = DE ( DQ ) G A : ' DV , A : DC < 2 , N ^ DIE17
I I DV ' [ "I" , DV ' [ "#" G RD
D E ^ DIE0 G RD : $ D ( X ) , PR
Q
SET N DIR S DIR ( 0 ) = "SV" _ $ E ( "o" , $ D ( DB ( DQ ) ) ) _U _DU , DIR ( "V" ) = 1
I $ D ( DB ( DQ ) ) , ' $ D ( DIQUIET ) N DIQUIET S DIQUIET = 1
D ^ DIR I ' DDER S % = Y ( 0 ) , X = Y
Q
SAVEVALS S @ DIEZTMP @ ( "V" , DP , DIIENS , DIFLD , "O" ) = $ G ( DE ( DQ ) ) S : $ D ( ^ ( "F" ) ) [ 0 ^ ( "F" ) = $ G ( DE ( DQ ) )
I $ D ( DE ( DW , "4/" ) ) S @ DIEZTMP @ ( "V" , DP , DIIENS , DIFLD , "4/" ) = ""
E K @ DIEZTMP @ ( "V" , DP , DIIENS , DIFLD , "4/" )
Q
NKEY W : ' $ D ( ZTQUEUED ) "?? Required key field" S X = "?BAD" G QS
KEYCHK ( ) Q : $ G ( DE ( DW , "KEY" ) ) = "" 1 Q @ DE ( DW , "KEY" )
BEGIN S DNM = "DVBHCE26" , DQ = 1
1 D : $ D ( DG ) > 9 F ^ DIE17 , DE S DQ = 1 , DW = ".3;5" , DV = "S" , DU = "" , DLB = "UNEMPLOYABLE" , DIFLD =. 305
S DE ( DW ) = "C1^DVBHCE26"
S DU = "Y:YES;N:NO;"
S X = $ S ( DVBEI = "Y" : "Y" , 1 : "N" )
S Y = X
S X = Y , DB ( DQ ) = 1 G : X = "" N ^ DIE17 : DV , A I $ D ( DE ( DQ ) ) , DV [ "I" ! ( DV [ "#" ) D E ^ DIE0 G A : ' $ D ( X )
G RD
C1 G C1S : $ D ( DE ( 1 ) ) [ 0 K DB
S X = DE ( 1 ) , DIC = DIE
D AUTOUPD ^ DGENA2 ( DA )
S X = DE ( 1 ) , DIC = DIE
S DFN = DA D EN ^ DGMTCOR K DGMTCOR
C1S S X = "" G : DG ( DQ ) = X C1F1 K DB
S X = DG ( DQ ) , DIC = DIE
D AUTOUPD ^ DGENA2 ( DA )
S X = DG ( DQ ) , DIC = DIE
S DFN = DA D EN ^ DGMTCOR K DGMTCOR
C1F1 Q
X1 Q
2 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 2 D X2 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X2 W "." S JP = JP + 1 , DVBJ2 = 1
Q
3 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 3 D X3 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X3 S Y = "@50"
Q
4 S DQ = 5 ; @ 40
5 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 5 D X5 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X5 I $ P ( Z2 , U , JP ) ' = 1 S Y = "@42"
Q
6 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 6 D X6 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X6 I ' $ D ( DVBP ( 6 ) ) S Y = "@42" , JP = JP + 1
Q
7 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 7 D X7 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X7 I $ S ( $ P ( DVBP ( 6 ) , U , 8 ) ' = "Y" : 1 , ' $ D ( ^ DPT ( DFN , .32 ) ) : 1 , + $ P ( ^ ( 0 ) , U , 2 ) : 1 , 1 : 0 ) S Y = "@42" , JP = JP + 1
Q
8 D : $ D ( DG ) > 9 F ^ DIE17 , DE S DQ = 8 , DW = ".32;2" , DV = "DX" , DU = "" , DLB = "SERVICE VERIFICATION DATE" , DIFLD =. 322
S X = "T"
S Y = X
S X = Y , DB ( DQ ) = 1 G : X = "" N ^ DIE17 : DV , A I $ D ( DE ( DQ ) ) , DV [ "I" ! ( DV [ "#" ) D E ^ DIE0 G A : ' $ D ( X )
G RD
X8 S % DT = "" , % DT ( 0 ) = - DT D ^ % DT K % DT S X = Y K : Y < 1 X I $ D ( X ) D EK ^ DGLOCK
Q
;
9 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 9 D X9 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X9 W "." S JP = JP + 1 , DVBJ2 = 1
Q
10 S DQ = 11 ; @ 42
11 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 11 D X11 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X11 I $ P ( Z2 , U , JP ) ' = 2 S Y = "@45"
Q
12 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 12 D X12 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X12 I ' $ D ( DVBP ( 6 ) ) S Y = "@45" , JP = JP + 1
Q
13 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 13 D X13 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X13 I $ P ( DVBP ( 6 ) , U , 4 ) [ " " S Y = "@45" , JP = JP + 1
Q
14 S DW = ".321;1" , DV = "RSX" , DU = "" , DLB = "VIETNAM SERVICE INDICATED?" , DIFLD =. 32101
S DE ( DW ) = "C14^DVBHCE26"
S DU = "Y:YES;N:NO;U:UNKNOWN;"
S X = $ P ( DVBP ( 6 ) , U , 4 )
S Y = X
S X = Y , DB ( DQ ) = 1 G : X = "" N ^ DIE17 : DV , A I $ D ( DE ( DQ ) ) , DV [ "I" ! ( DV [ "#" ) D E ^ DIE0 G A : ' $ D ( X )
G RD
C14 G C14S : $ D ( DE ( 14 ) ) [ 0 K DB
S X = DE ( 14 ) , DIC = DIE
;
S X = DE ( 14 ) , DIC = DIE
;
S X = DE ( 14 ) , DIC = DIE
D EVENT ^ IVMPLOG ( DA )
C14S S X = "" G : DG ( DQ ) = X C14F1 K DB
2009-11-29 13:37:14 -05:00
S X = DG ( DQ ) , DIC = DIE
X ^ DD ( 2 , .32101 , 1 , 1 , 1.3 ) I X S X = DIV S Y ( 1 ) = $ S ( $ D ( ^ DPT ( D0 , .321 ) ) : ^ ( .321 ) , 1 : "" ) S X = $ P ( Y ( 1 ) , U , 4 ) S DIU = X K Y S X = DIV S X = "" X ^ DD ( 2 , .32101 , 1 , 1 , 1.4 )
S X = DG ( DQ ) , DIC = DIE
X ^ DD ( 2 , .32101 , 1 , 2 , 1.3 ) I X S X = DIV S Y ( 1 ) = $ S ( $ D ( ^ DPT ( D0 , .321 ) ) : ^ ( .321 ) , 1 : "" ) S X = $ P ( Y ( 1 ) , U , 5 ) S DIU = X K Y S X = DIV S X = "" X ^ DD ( 2 , .32101 , 1 , 2 , 1.4 )
S X = DG ( DQ ) , DIC = DIE
D EVENT ^ IVMPLOG ( DA )
2009-12-04 00:11:15 -05:00
C14F1 Q
X14 S DFN = DA D SV ^ DGLOCK
Q
;
15 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 15 D X15 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X15 W "." S JP = JP + 1 , DVBJ2 = 1
Q
16 S DQ = 17 ; @ 45
17 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 17 D X17 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X17 I $ P ( Z2 , U , JP ) ' = 3 ! ( ' $ D ( DVBDX ( 1 ) ) ) S Y = "@50"
Q
18 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 18 D X18 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X18 S : ' $ D ( DVBFL ) DVBFL = "UNKNOWN"
Q
19 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 19 D X19 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X19 I $ D ( DVBCAP ) , DVBCAP [ "No C&P" , $ P ( DVBBIR , U , 5 ) ' = "Y" D CHK ^ DVBHUTIL
Q
20 S DQ = 21 ; @ 47
21 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 21 D X21 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X21 S DVB4 = $ S ( $ D ( ^ DPT ( DFN , .3 ) ) > 0 : $ P ( ^ ( .3 ) , U ) , 1 : 0 ) , DVB5 = $ S ( $ D ( ^ DPT ( DFN , .36 ) ) > 0 : $ P ( ^ ( .36 ) , U ) , 1 : 0 ) , DVB6 = $ S ( $ D ( ^ DPT ( DFN , "VET" ) ) > 0 : ^ ( "VET" ) , 1 : 0 ) , DVB7 = $ S ( $ D ( ^ DPT ( DFN , "TYPE" ) ) > 0 : ^ ( "TYPE" ) , 1 : 0 )
Q
22 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 22 D X22 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X22 S DVB8 = $ O ( ^ DIC ( 8 , "B" , "SERVICE CONNECTED 50% to 100%" , 0 ) ) , DVB9 = $ O ( ^ DIC ( 8 , "B" , "SC LESS THAN 50%" , 0 ) )
Q
23 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 23 D X23 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X23 I DVBDXNO I ( ( DVB8 ' = DVB5 & ( DVB9 ' = DVB5 ) ) ! ( DVB4 ' = "Y" ) ! ( DVB6 ' = "Y" ) ! ( DVB7 ' = 1 ) ) S Y = "@70"
Q
24 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 24 D X24 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X24 W ! K ^ DPT ( DFN , .372 ) , JP4 , JP6 S ^ DPT ( DFN , .372 , 0 ) = "^2.04P^^0" , JP = 0
Q
25 D : $ D ( DG ) > 9 F ^ DIE17 , DE S Y = U , DQ = 25 D X25 D : $ D ( DIEFIRE ) #2 FIREREC ^ DIE17 G A : $ D ( Y ) [ 0 , A : Y = U S X = Y , DIC ( 0 ) = "F" , DW = DQ G OUT ^ DIE17
X25 S $ P ( ^ DPT ( DFN , .3 ) , U , 2 ) = "" , $ P ( ^ DPT ( DFN , .3 ) , U , 14 ) = ""
Q
26 D : $ D ( DG ) > 9 F ^ DIE17 , DE S DQ = 26 , DW = ".3;2" , DV = "NJ3,0Xa" , DU = "" , DLB = "SERVICE CONNECTED PERCENTAGE" , DIFLD =. 302
S DE ( DW ) = "C26^DVBHCE26"
S X = + $ G ( DVBDXPCT )
S Y = X
S X = Y , DB ( DQ ) = 1 G : X = "" N ^ DIE17 : DV , A I $ D ( DE ( DQ ) ) , DV [ "I" ! ( DV [ "#" ) D E ^ DIE0 G A : ' $ D ( X )
G RD
C26 G C26S : $ D ( DE ( 26 ) ) [ 0 K DB
D ^ DVBHCE27
C26S S X = "" G : DG ( DQ ) = X C26F1 K DB
D ^ DVBHCE28
C26F1 Q
X26 S DFN = DA D EV ^ DGLOCK Q : ' $ D ( X ) K : + X ' = X ! ( X > 100 ) ! ( X < 0 ) ! ( X ? . E1 "." 1 N . N ) X I $ D ( X ) , $ D ( ^ DPT ( DA , .3 ) ) , $ P ( ^ ( .3 ) , U , 1 ) ' = "Y" W ! ? 4 , * 7 , "Only applies to service-connected applicants." K X
Q
;
27 D : $ D ( DG ) > 9 F ^ DIE17 G ^ DVBHCE29