diff -auBN ./r1/A1CKC10.m ./r2/r/A1CKC10.m
--- ./r1/A1CKC10.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/A1CKC10.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,4 +0,0 @@
-A1CKC10	; ;07/02/04
-	S X=DG(DQ),DIC=DIE
-	I ($T(AVAFC^VAFCDD01)'="") S VAFCF="391;" D AVAFC^VAFCDD01(DA)
-	I $D(DE(6))'[0!(^DD(DP,DIFLD,"AUDIT")'="e") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
diff -auBN ./r1/A1CKC11.m ./r2/r/A1CKC11.m
--- ./r1/A1CKC11.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/A1CKC11.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,177 +0,0 @@
-A1CKC11	; ;07/02/04
-	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,11) S:%]"" DE(6)=%
-	I $D(^(.362)) S %Z=^(.362) S %=$P(%Z,U,12) S:%]"" DE(12)=% S %=$P(%Z,U,13) S:%]"" DE(15)=% S %=$P(%Z,U,14) S:%]"" DE(9)=%
-	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="A1CKC11",DQ=1
-1	D:$D(DG)>9 F^DIE17,DE S DQ=1,D=0 K DE(1) ;.3721
-	S DIFLD=.3721,DGO="^A1CKC12",DC="3^2.04P^.372^",DV="2.04MP31'X",DW="0;1",DOW="RATED DISABILITIES (VA)",DLB="Select "_DOW S:D DC=DC_D
-	S DU="DIC(31,"
-	G RE:D I $D(DSC(2.04))#2,$P(DSC(2.04),"I $D(^UTILITY(",1)="" X DSC(2.04) S D=$O(^(0)) S:D="" D=-1 G M1
-	S D=$S($D(^DPT(DA,.372,0)):$P(^(0),U,3,4),$O(^(0))'="":$O(^(0)),1:-1)
-M1	I D>0 S DC=DC_D I $D(^DPT(DA,.372,+D,0)) S DE(1)=$P(^(0),U,1)
-	S X="`"_ISC
-	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
-R1	D DE
-	G A
-	;
-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	S Y="@31"
-	Q
-3	S DQ=4 ;@39
-4	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=4 D X4 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
-X4	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
-	Q
-5	S DQ=6 ;@100
-6	S DW=".3;11",DV="SX",DU="",DLB="RECEIVING VA DISABILITY?",DIFLD=.3025
-	S DE(DW)="C6^A1CKC11"
-	S DU="Y:YES;N:NO;U:UNKNOWN;"
-	S X=CP
-	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
-C6	G C6S:$D(DE(6))[0 K DB
-	S X=DE(6),DIC=DIE
-	X ^DD(2,.3025,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2,.3025,1,1,2.4)
-	S X=DE(6),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.3025,1,2,2.4)
-C6S	S X="" G:DG(DQ)=X C6F1 K DB
-	S X=DG(DQ),DIC=DIE
-	X ^DD(2,.3025,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2,.3025,1,1,1.4)
-	S X=DG(DQ),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.3025,1,2,1.4)
-C6F1	Q
-X6	S DFN=DA D MV^DGLOCK I $D(X),X="Y" D EC^DGLOCK1
-	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	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
-	Q
-8	S DQ=9 ;@200
-9	D:$D(DG)>9 F^DIE17,DE S DQ=9,DW=".362;14",DV="SX",DU="",DLB="RECEIVING A VA PENSION?",DIFLD=.36235
-	S DE(DW)="C9^A1CKC11"
-	S DU="Y:YES;N:NO;U:UNKNOWN;"
-	S X=PE
-	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
-C9	G C9S:$D(DE(9))[0 K DB
-	S X=DE(9),DIC=DIE
-	X ^DD(2,.36235,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,1,2.4)
-	S X=DE(9),DIC=DIE
-	S DFN=DA D EN^DGMTCOR K DGMTCOR
-	S X=DE(9),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,3,2.4)
-	S X=DE(9),DIC=DIE
-	D AUTOUPD^DGENA2(DA)
-C9S	S X="" G:DG(DQ)=X C9F1 K DB
-	S X=DG(DQ),DIC=DIE
-	X ^DD(2,.36235,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,1,1.4)
-	S X=DG(DQ),DIC=DIE
-	S DFN=DA D EN^DGMTCOR K DGMTCOR
-	S X=DG(DQ),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,3,1.4)
-	S X=DG(DQ),DIC=DIE
-	D AUTOUPD^DGENA2(DA)
-C9F1	Q
-X9	S DFN=DA D MV^DGLOCK
-	Q
-	;
-10	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=10 D X10 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
-X10	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
-	Q
-11	S DQ=12 ;@300
-12	D:$D(DG)>9 F^DIE17,DE S DQ=12,DW=".362;12",DV="SX",DU="",DLB="RECEIVING A&A BENEFITS?",DIFLD=.36205
-	S DE(DW)="C12^A1CKC11"
-	S DU="Y:YES;N:NO;U:UNKNOWN;"
-	S X=AA
-	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
-C12	G C12S:$D(DE(12))[0 K DB
-	S X=DE(12),DIC=DIE
-	X ^DD(2,.36205,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,1,2.4)
-	S X=DE(12),DIC=DIE
-	S DFN=DA D EN^DGMTCOR K DGMTCOR
-	S X=DE(12),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,3,2.4)
-	S X=DE(12),DIC=DIE
-	D AUTOUPD^DGENA2(DA)
-C12S	S X="" G:DG(DQ)=X C12F1 K DB
-	D ^A1CKC13
-C12F1	Q
-X12	S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK
-	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	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
-	Q
-14	S DQ=15 ;@400
-15	D:$D(DG)>9 F^DIE17,DE S DQ=15,DW=".362;13",DV="SX",DU="",DLB="RECEIVING HOUSEBOUND BENEFITS?",DIFLD=.36215
-	S DE(DW)="C15^A1CKC11"
-	S DU="Y:YES;N:NO;U:UNKNOWN;"
-	S X=HB
-	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
-C15	G C15S:$D(DE(15))[0 K DB
-	D ^A1CKC14
-C15S	S X="" G:DG(DQ)=X C15F1 K DB
-	D ^A1CKC15
-C15F1	Q
-X15	S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK
-	Q
-	;
-16	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=16 D X16 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
-X16	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
-	Q
-17	S DQ=18 ;@999
-18	G 0^DIE17
diff -auBN ./r1/A1CKC12.m ./r2/r/A1CKC12.m
--- ./r1/A1CKC12.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/A1CKC12.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,77 +0,0 @@
-A1CKC12	; ;07/02/04
-	D DE G BEGIN
-DE	S DIE="^DPT(D0,.372,",DIC=DIE,DP=2.04,DL=2,DIEL=1,DU="" K DG,DE,DB Q:$O(^DPT(D0,.372,DA,""))=""
-	I $D(^(0)) S %Z=^(0) S %=$P(%Z,U,1) S:%]"" DE(1)=% S %=$P(%Z,U,2) S:%]"" DE(2)=% S %=$P(%Z,U,3) S:%]"" DE(3)=%
-	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="A1CKC12",DQ=1+D G B
-1	S DW="0;1",DV="MP31'X",DU="",DLB="RATED DISABILITIES (VA)",DIFLD=.01
-	S DU="DIC(31,"
-	S X="`"_ISC
-	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
-X1	I $D(X) D EK^DGLOCK Q
-	Q
-	;
-2	S DW="0;2",DV="RNJ3,0X",DU="",DLB="DISABILITY %",DIFLD=2
-	S X=+SCI(ISC)
-	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
-X2	K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X I $D(X) D EK^DGLOCK
-	Q
-	;
-3	S DW="0;3",DV="SX",DU="",DLB="SERVICE CONNECTED",DIFLD=3
-	S DU="0:NO;1:YES;"
-	S Y="1"
-	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
-X3	S DFN=DA(1) D:X SC^DGLOCK1 I $D(X) D EK^DGLOCK 
-	Q
-	;
-4	G 1^DIE17
diff -auBN ./r1/A1CKC13.m ./r2/r/A1CKC13.m
--- ./r1/A1CKC13.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/A1CKC13.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,9 +0,0 @@
-A1CKC13	; ;07/02/04
-	S X=DG(DQ),DIC=DIE
-	X ^DD(2,.36205,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,1,1.4)
-	S X=DG(DQ),DIC=DIE
-	S DFN=DA D EN^DGMTCOR K DGMTCOR
-	S X=DG(DQ),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,3,1.4)
-	S X=DG(DQ),DIC=DIE
-	D AUTOUPD^DGENA2(DA)
diff -auBN ./r1/A1CKC14.m ./r2/r/A1CKC14.m
--- ./r1/A1CKC14.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/A1CKC14.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,9 +0,0 @@
-A1CKC14	; ;07/02/04
-	S X=DE(15),DIC=DIE
-	X ^DD(2,.36215,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,2.4)
-	S X=DE(15),DIC=DIE
-	S DFN=DA D EN^DGMTCOR K DGMTCOR
-	S X=DE(15),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,3,2.4)
-	S X=DE(15),DIC=DIE
-	D AUTOUPD^DGENA2(DA)
diff -auBN ./r1/A1CKC15.m ./r2/r/A1CKC15.m
--- ./r1/A1CKC15.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/A1CKC15.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,9 +0,0 @@
-A1CKC15	; ;07/02/04
-	S X=DG(DQ),DIC=DIE
-	X ^DD(2,.36215,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,1.4)
-	S X=DG(DQ),DIC=DIE
-	S DFN=DA D EN^DGMTCOR K DGMTCOR
-	S X=DG(DQ),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,3,1.4)
-	S X=DG(DQ),DIC=DIE
-	D AUTOUPD^DGENA2(DA)
diff -auBN ./r1/A1CKC1.m ./r2/r/A1CKC1.m
--- ./r1/A1CKC1.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/A1CKC1.m	2003-03-21 10:31:18.000000000 -0500
@@ -1,12 +1,185 @@
-A1CKC1	; ;07/02/04
+A1CKC1	; ;06/28/99
+	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,1) S:%]"" DE(2)=%
+	I $D(^(.362)) S %Z=^(.362) S %=$P(%Z,U,12) S:%]"" DE(4)=% S %=$P(%Z,U,13) S:%]"" DE(5)=% S %=$P(%Z,U,14) S:%]"" DE(3)=%
+	I $D(^("VET")) S %Z=^("VET") S %=$P(%Z,U,1) S:%]"" DE(1)=%
+	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 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) I DV'["*" D ^DIC 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 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
+BEGIN	S DNM="A1CKC1",DQ=1
+1	D:$D(DG)>9 F^DIE17,DE S DQ=1,DW="VET;1",DV="RSXa",DU="",DLB="VETERAN (Y/N)?",DIFLD=1901
+	S DE(DW)="C1^A1CKC1"
+	S DU="Y:YES;N:NO;"
+	S Y="Y"
+	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
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
+	S X=DE(1),DIC=DIE
+	;
+	S X=DE(1),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+	S X=DE(1),DIC=DIE
+	I ($T(AVAFC^VAFCDD01)'="") S VAFCF="1901;" D AVAFC^VAFCDD01(DA)
+	S X=DE(1),DIIX=2_U_DIFLD D AUDIT^DIET
+C1S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
+	S X=DG(DQ),DIC=DIE
+	X ^DD(2,1901,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X="N" X ^DD(2,1901,1,3,1.4)
+	S X=DG(DQ),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+	S X=DG(DQ),DIC=DIE
+	I ($T(AVAFC^VAFCDD01)'="") S VAFCF="1901;" D AVAFC^VAFCDD01(DA)
+	Q:$D(DE(1))[0&(^DD(DP,DIFLD,"AUDIT")="e")  S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
+	Q
+X1	I $D(X) S:'$D(DPTX) DFN=DA D:'$D(^XUSEC("DG ELIGIBILITY",DUZ)) VAGE^DGLOCK:X="Y" I $D(X) D:$D(DFN) EV^DGLOCK
+	Q
+	;
+2	D:$D(DG)>9 F^DIE17,DE S DQ=2,DW=".3;1",DV="RSXa",DU="",DLB="SERVICE CONNECTED?",DIFLD=.301
+	S DE(DW)="C2^A1CKC1"
+	S DU="Y:YES;N:NO;"
+	S Y="N"
+	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
+C2	G C2S:$D(DE(2))[0 K DB S X=DE(2),DIC=DIE
+	;
+	S X=DE(2),DIC=DIE
+	;
+	S X=DE(2),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+	S X=DE(2),DIC=DIE
+	I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".301;" D AVAFC^VAFCDD01(DA)
+	S X=DE(2),DIIX=2_U_DIFLD D AUDIT^DIET
+C2S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
+	X ^DD(2,.301,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.301,1,1,1.4)
 	S X=DG(DQ),DIC=DIE
-	X "S DFN=DA D EN^DGMTR K DGREQF"
+	X ^DD(2,.301,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" X ^DD(2,.301,1,2,1.4)
 	S X=DG(DQ),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(2,.361,1,2,89.4) S Y(102)=$S($D(^DPT(D0,"E",D1,0)):^(0),1:"") S X=$S('$D(^DIC(8,+$P(Y(102),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(2,.361,1,2,1.4)
+	D AUTOUPD^DGENA2(DA)
 	S X=DG(DQ),DIC=DIE
+	I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".301;" D AVAFC^VAFCDD01(DA)
+	Q:$D(DE(2))[0&(^DD(DP,DIFLD,"AUDIT")="e")  S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
+	Q
+X2	S DFN=DA D EV^DGLOCK I $D(X),X="Y" D VET^DGLOCK
+	Q
 	;
+3	D:$D(DG)>9 F^DIE17,DE S DQ=3,DW=".362;14",DV="SX",DU="",DLB="RECEIVING A VA PENSION?",DIFLD=.36235
+	S DE(DW)="C3^A1CKC1"
+	S DU="Y:YES;N:NO;U:UNKNOWN;"
+	S X=$S(PE="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
+C3	G C3S:$D(DE(3))[0 K DB S X=DE(3),DIC=DIE
+	X ^DD(2,.36235,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,1,2.4)
+	S X=DE(3),DIC=DIE
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
+	S X=DE(3),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,3,2.4)
+	S X=DE(3),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+C3S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
+	X ^DD(2,.36235,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,1,1.4)
+	S X=DG(DQ),DIC=DIE
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
 	S X=DG(DQ),DIC=DIE
-	S ^DPT("AEL",DA,+X)=""
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,3,1.4)
 	S X=DG(DQ),DIC=DIE
 	D AUTOUPD^DGENA2(DA)
-	I $D(DE(6))'[0!(^DD(DP,DIFLD,"AUDIT")'="e") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
+	Q
+X3	S DFN=DA D MV^DGLOCK
+	Q
+	;
+4	D:$D(DG)>9 F^DIE17,DE S DQ=4,DW=".362;12",DV="SX",DU="",DLB="RECEIVING A&A BENEFITS?",DIFLD=.36205
+	S DE(DW)="C4^A1CKC1"
+	S DU="Y:YES;N:NO;U:UNKNOWN;"
+	S X=$S(AA="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
+C4	G C4S:$D(DE(4))[0 K DB S X=DE(4),DIC=DIE
+	X ^DD(2,.36205,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,1,2.4)
+	S X=DE(4),DIC=DIE
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
+	S X=DE(4),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,3,2.4)
+	S X=DE(4),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+C4S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
+	X ^DD(2,.36205,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,1,1.4)
+	S X=DG(DQ),DIC=DIE
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
+	S X=DG(DQ),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,3,1.4)
+	S X=DG(DQ),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+	Q
+X4	S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK
+	Q
+	;
+5	D:$D(DG)>9 F^DIE17,DE S DQ=5,DW=".362;13",DV="SX",DU="",DLB="RECEIVING HOUSEBOUND BENEFITS?",DIFLD=.36215
+	S DE(DW)="C5^A1CKC1"
+	S DU="Y:YES;N:NO;U:UNKNOWN;"
+	S X=$S(HB="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
+C5	G C5S:$D(DE(5))[0 K DB S X=DE(5),DIC=DIE
+	X ^DD(2,.36215,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,2.4)
+	S X=DE(5),DIC=DIE
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
+	S X=DE(5),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,3,2.4)
+	S X=DE(5),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+C5S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
+	X ^DD(2,.36215,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,1.4)
+	S X=DG(DQ),DIC=DIE
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
+	S X=DG(DQ),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,3,1.4)
+	S X=DG(DQ),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+	Q
+X5	S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK
+	Q
+	;
+6	D:$D(DG)>9 F^DIE17 G ^A1CKC2
diff -auBN ./r1/A1CKC2.m ./r2/r/A1CKC2.m
--- ./r1/A1CKC2.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/A1CKC2.m	2003-03-21 10:31:18.000000000 -0500
@@ -1,4 +1,189 @@
-A1CKC2	; ;07/02/04
+A1CKC2	; ;06/28/99
+	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,11) S:%]"" DE(15)=%
+	I $D(^(.36)) S %Z=^(.36) S %=$P(%Z,U,1) S:%]"" DE(1)=%
+	I $D(^(.362)) S %Z=^(.362) S %=$P(%Z,U,14) S:%]"" DE(18)=%
+	I $D(^("TYPE")) S %Z=^("TYPE") S %=$P(%Z,U,1) S:%]"" DE(2)=%
+	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 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) I DV'["*" D ^DIC 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 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
+BEGIN	S DNM="A1CKC2",DQ=1
+1	D:$D(DG)>9 F^DIE17,DE S DQ=1,DW=".36;1",DV="*P8'Xa",DU="",DLB="PRIMARY ELIGIBILITY CODE",DIFLD=.361
+	S DE(DW)="C1^A1CKC2"
+	S DU="DIC(8,"
+	S X=ELIG
+	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
+	;
+	S X=DE(1),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(2,.361,1,2,2.2) I DIV(1)>0 S DIK(0)=DA,DIK="^DPT(DIV(0),""E"",",DA(1)=DIV(0),DA=DIV(1) D ^DIK S DA=DIK(0) K DIK
+	S X=DE(1),DIC=DIE
+	X "I $S('$D(^DIC(8,+X,0)):0,$P(^(0),""^"",1)[""DOM"":0,'$D(^DPT(DA,.36)):1,'$D(^DIC(8,+^(.36),0)):1,$P(^(0),""^"",1)'[""DOM"":1,1:0) S DGXRF=.361 D ^DGDDC Q"
+	S X=DE(1),DIC=DIE
+	K ^DPT("AEL",DA,+X)
+	S X=DE(1),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+	S X=DE(1),DIIX=2_U_DIFLD D AUDIT^DIET
+C1S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
+	X "S DFN=DA D EN^DGMTR K DGREQF"
 	S X=DG(DQ),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(2,.361,1,2,89.4) S Y(102)=$S($D(^DPT(D0,"E",D1,0)):^(0),1:"") S X=$S('$D(^DIC(8,+$P(Y(102),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(2,.361,1,2,1.4)
+	S X=DG(DQ),DIC=DIE
+	;
+	S X=DG(DQ),DIC=DIE
+	S ^DPT("AEL",DA,+X)=""
+	S X=DG(DQ),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+	Q:$D(DE(1))[0&(^DD(DP,DIFLD,"AUDIT")="e")  S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
+	Q
+X1	S DFN=DA D EV^DGLOCK I $D(X) D ECD^DGLOCK1
+	Q
+	;
+2	D:$D(DG)>9 F^DIE17,DE S DQ=2,DW="TYPE;1",DV="RP391'a",DU="",DLB="TYPE",DIFLD=391
+	S DE(DW)="C2^A1CKC2"
+	S DU="DG(391,"
+	S X=DZT2
+	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
+C2	G C2S:$D(DE(2))[0 K DB S X=DE(2),DIC=DIE
+	I ($T(AVAFC^VAFCDD01)'="") S VAFCF="391;" D AVAFC^VAFCDD01(DA)
+	S X=DE(2),DIIX=2_U_DIFLD D AUDIT^DIET
+C2S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
 	I ($T(AVAFC^VAFCDD01)'="") S VAFCF="391;" D AVAFC^VAFCDD01(DA)
-	I $D(DE(7))'[0!(^DD(DP,DIFLD,"AUDIT")'="e") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
+	Q:$D(DE(2))[0&(^DD(DP,DIFLD,"AUDIT")="e")  S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
+	Q
+X2	Q
+3	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=3 D X3 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
+X3	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
+	Q
+4	S DQ=5 ;@30
+5	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=5 D X5 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
+X5	I 'SCI S Y="@39"
+	Q
+6	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=6 D X6 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
+X6	S ISC=0
+	Q
+7	S DQ=8 ;@31
+8	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=8 D X8 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
+X8	S ISC=$O(SCI(ISC))
+	Q
+9	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=9 D X9 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
+X9	I 'ISC S Y="@39"
+	Q
+10	D:$D(DG)>9 F^DIE17,DE S DQ=10,D=0 K DE(1) ;.3721
+	S DIFLD=.3721,DGO="^A1CKC3",DC="3^2.04P^.372^",DV="2.04MP31'X",DW="0;1",DOW="RATED DISABILITIES (VA)",DLB="Select "_DOW S:D DC=DC_D
+	S DU="DIC(31,"
+	G RE:D I $D(DSC(2.04))#2,$P(DSC(2.04),"I $D(^UTILITY(",1)="" X DSC(2.04) S D=$O(^(0)) S:D="" D=-1 G M10
+	S D=$S($D(^DPT(DA,.372,0)):$P(^(0),U,3,4),$O(^(0))'="":$O(^(0)),1:-1)
+M10	I D>0 S DC=DC_D I $D(^DPT(DA,.372,+D,0)) S DE(10)=$P(^(0),U,1)
+	S X="`"_ISC
+	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
+R10	D DE
+	G A
+	;
+11	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=11 D X11 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
+X11	S Y="@31"
+	Q
+12	S DQ=13 ;@39
+13	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=13 D X13 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
+X13	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
+	Q
+14	S DQ=15 ;@100
+15	S DW=".3;11",DV="SX",DU="",DLB="RECEIVING VA DISABILITY?",DIFLD=.3025
+	S DE(DW)="C15^A1CKC2"
+	S DU="Y:YES;N:NO;U:UNKNOWN;"
+	S X=CP
+	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
+C15	G C15S:$D(DE(15))[0 K DB S X=DE(15),DIC=DIE
+	X ^DD(2,.3025,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2,.3025,1,1,2.4)
+	S X=DE(15),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.3025,1,2,2.4)
+C15S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
+	X ^DD(2,.3025,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(2,.3025,1,1,1.4)
+	S X=DG(DQ),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.3025,1,2,1.4)
+	Q
+X15	S DFN=DA D MV^DGLOCK I $D(X),X="Y" D EC^DGLOCK1
+	Q
+	;
+16	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=16 D X16 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
+X16	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
+	Q
+17	S DQ=18 ;@200
+18	D:$D(DG)>9 F^DIE17,DE S DQ=18,DW=".362;14",DV="SX",DU="",DLB="RECEIVING A VA PENSION?",DIFLD=.36235
+	S DE(DW)="C18^A1CKC2"
+	S DU="Y:YES;N:NO;U:UNKNOWN;"
+	S X=PE
+	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
+C18	G C18S:$D(DE(18))[0 K DB S X=DE(18),DIC=DIE
+	X ^DD(2,.36235,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,1,2.4)
+	S X=DE(18),DIC=DIE
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
+	S X=DE(18),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,3,2.4)
+	S X=DE(18),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+C18S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
+	X ^DD(2,.36235,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,1,1.4)
+	S X=DG(DQ),DIC=DIE
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
+	S X=DG(DQ),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,3,1.4)
+	S X=DG(DQ),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+	Q
+X18	S DFN=DA D MV^DGLOCK
+	Q
+	;
+19	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=19 D X19 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
+X19	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
+	Q
+20	S DQ=21 ;@300
+21	D:$D(DG)>9 F^DIE17 G ^A1CKC4
diff -auBN ./r1/A1CKC3.m ./r2/r/A1CKC3.m
--- ./r1/A1CKC3.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/A1CKC3.m	2003-03-21 10:31:18.000000000 -0500
@@ -1,12 +1,71 @@
-A1CKC3	; ;07/02/04
-	S X=DE(10),DIC=DIE
-	S DFN=DA D EN^DGMTCOR K DGMTCOR
-	S X=DE(10),DIC=DIE
+A1CKC3	; ;06/28/99
+	D DE G BEGIN
+DE	S DIE="^DPT(D0,.372,",DIC=DIE,DP=2.04,DL=2,DIEL=1,DU="" K DG,DE,DB Q:$O(^DPT(D0,.372,DA,""))=""
+	I $D(^(0)) S %Z=^(0) S %=$P(%Z,U,1) S:%]"" DE(1)=% S %=$P(%Z,U,2) S:%]"" DE(2)=% S %=$P(%Z,U,3) S:%]"" DE(3)=%
+	K %Z Q
 	;
-	S X=DE(10),DIC=DIE
-	D AUTOUPD^DGENA2(DA)
-	S X=DE(10),DIC=DIE
-	I ($T(AVAFC^VAFCDD01)'="") S VAFCF="1901;" D AVAFC^VAFCDD01(DA)
-	S X=DE(10),DIC=DIE
-	D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
-	S X=DE(10),DIIX=2_U_DIFLD D AUDIT^DIET
+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 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) I DV'["*" D ^DIC 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 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
+BEGIN	S DNM="A1CKC3",DQ=1+D G B
+1	S DW="0;1",DV="MP31'X",DU="",DLB="RATED DISABILITIES (VA)",DIFLD=.01
+	S DU="DIC(31,"
+	S X="`"_ISC
+	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
+X1	I $D(X) D EK^DGLOCK Q
+	Q
+	;
+2	S DW="0;2",DV="RNJ3,0X",DU="",DLB="DISABILITY %",DIFLD=2
+	S X=+SCI(ISC)
+	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
+X2	K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X I $D(X) D EK^DGLOCK
+	Q
+	;
+3	S DW="0;3",DV="SX",DU="",DLB="SERVICE CONNECTED",DIFLD=3
+	S DU="0:NO;1:YES;"
+	S Y="1"
+	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
+X3	S DFN=DA(1) D:X SC^DGLOCK1 I $D(X) D EK^DGLOCK 
+	Q
+	;
+4	G 1^DIE17
diff -auBN ./r1/A1CKC4.m ./r2/r/A1CKC4.m
--- ./r1/A1CKC4.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/A1CKC4.m	2003-03-21 10:31:18.000000000 -0500
@@ -1,12 +1,108 @@
-A1CKC4	; ;07/02/04
+A1CKC4	; ;06/28/99
+	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(^(.362)) S %Z=^(.362) S %=$P(%Z,U,12) S:%]"" DE(1)=% S %=$P(%Z,U,13) S:%]"" DE(4)=%
+	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 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) I DV'["*" D ^DIC 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 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
+BEGIN	S DNM="A1CKC4",DQ=1
+1	D:$D(DG)>9 F^DIE17,DE S DQ=1,DW=".362;12",DV="SX",DU="",DLB="RECEIVING A&A BENEFITS?",DIFLD=.36205
+	S DE(DW)="C1^A1CKC4"
+	S DU="Y:YES;N:NO;U:UNKNOWN;"
+	S X=AA
+	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
+	X ^DD(2,.36205,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,1,2.4)
+	S X=DE(1),DIC=DIE
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
+	S X=DE(1),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,3,2.4)
+	S X=DE(1),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+C1S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
+	X ^DD(2,.36205,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,1,1.4)
 	S X=DG(DQ),DIC=DIE
 	S DFN=DA D EN^DGMTCOR K DGMTCOR
 	S X=DG(DQ),DIC=DIE
-	X ^DD(2,1901,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X="N" X ^DD(2,1901,1,3,1.4)
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,3,1.4)
 	S X=DG(DQ),DIC=DIE
 	D AUTOUPD^DGENA2(DA)
+	Q
+X1	S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK
+	Q
+	;
+2	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=2 D X2 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
+X2	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
+	Q
+3	S DQ=4 ;@400
+4	D:$D(DG)>9 F^DIE17,DE S DQ=4,DW=".362;13",DV="SX",DU="",DLB="RECEIVING HOUSEBOUND BENEFITS?",DIFLD=.36215
+	S DE(DW)="C4^A1CKC4"
+	S DU="Y:YES;N:NO;U:UNKNOWN;"
+	S X=HB
+	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
+C4	G C4S:$D(DE(4))[0 K DB S X=DE(4),DIC=DIE
+	X ^DD(2,.36215,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,2.4)
+	S X=DE(4),DIC=DIE
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
+	S X=DE(4),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,3,2.4)
+	S X=DE(4),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+C4S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
+	X ^DD(2,.36215,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,1.4)
 	S X=DG(DQ),DIC=DIE
-	I ($T(AVAFC^VAFCDD01)'="") S VAFCF="1901;" D AVAFC^VAFCDD01(DA)
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
+	S X=DG(DQ),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,3,1.4)
 	S X=DG(DQ),DIC=DIE
-	D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
-	I $D(DE(10))'[0!(^DD(DP,DIFLD,"AUDIT")'="e") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
+	D AUTOUPD^DGENA2(DA)
+	Q
+X4	S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK
+	Q
+	;
+5	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=5 D X5 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
+X5	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
+	Q
+6	S DQ=7 ;@999
+7	G 0^DIE17
diff -auBN ./r1/A1CKC5.m ./r2/r/A1CKC5.m
--- ./r1/A1CKC5.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/A1CKC5.m	2003-03-21 10:31:18.000000000 -0500
@@ -1,10 +1,7 @@
-A1CKC5	; ;07/02/04
+A1CKC5	; ;01/20/98
 	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,1) S:%]"" DE(1)=%
-	I $D(^(.36)) S %Z=^(.36) S %=$P(%Z,U,1) S:%]"" DE(5)=%
-	I $D(^(.362)) S %Z=^(.362) S %=$P(%Z,U,12) S:%]"" DE(3)=% S %=$P(%Z,U,13) S:%]"" DE(4)=% S %=$P(%Z,U,14) S:%]"" DE(2)=%
-	I $D(^("TYPE")) S %Z=^("TYPE") S %=$P(%Z,U,1) S:%]"" DE(6)=%
+DE	S DIE="^DPT(D0,.372,",DIC=DIE,DP=2.04,DL=2,DIEL=1,DU="" K DG,DE,DB Q:$O(^DPT(D0,.372,DA,""))=""
+	I $D(^(0)) S %Z=^(0) S %=$P(%Z,U,1) S:%]"" DE(1)=% S %=$P(%Z,U,2) S:%]"" DE(2)=% S %=$P(%Z,U,3) S:%]"" DE(3)=%
 	K %Z Q
 	;
 W	W !?DL+DL-2,DLB_": "
@@ -17,17 +14,17 @@
 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
+N	I X="" G 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
+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) I DV'["*" D ^DIC 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
+Z	K DIC("S"),DLAYGO I $D(X),X'=U 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
@@ -45,170 +42,30 @@
 	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="A1CKC5",DQ=1
-1	D:$D(DG)>9 F^DIE17,DE S DQ=1,DW=".3;1",DV="RSXa",DU="",DLB="SERVICE CONNECTED?",DIFLD=.301
-	S DE(DW)="C1^A1CKC5"
-	S DU="Y:YES;N:NO;"
-	S Y="N"
-	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
-	;
-	S X=DE(1),DIC=DIE
-	;
-	S X=DE(1),DIC=DIE
-	D AUTOUPD^DGENA2(DA)
-	S X=DE(1),DIC=DIE
-	I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".301;" D AVAFC^VAFCDD01(DA)
-	S X=DE(1),DIC=DIE
-	D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
-	S X=DE(1),DIIX=2_U_DIFLD D AUDIT^DIET
-C1S	S X="" G:DG(DQ)=X C1F1 K DB
-	S X=DG(DQ),DIC=DIE
-	X ^DD(2,.301,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.301,1,1,1.4)
-	S X=DG(DQ),DIC=DIE
-	X ^DD(2,.301,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" X ^DD(2,.301,1,2,1.4)
-	S X=DG(DQ),DIC=DIE
-	D AUTOUPD^DGENA2(DA)
-	S X=DG(DQ),DIC=DIE
-	I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".301;" D AVAFC^VAFCDD01(DA)
-	S X=DG(DQ),DIC=DIE
-	D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
-	I $D(DE(1))'[0!(^DD(DP,DIFLD,"AUDIT")'="e") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
-C1F1	Q
-X1	S DFN=DA D EV^DGLOCK I $D(X),X="Y" D VET^DGLOCK
-	Q
-	;
-2	D:$D(DG)>9 F^DIE17,DE S DQ=2,DW=".362;14",DV="SX",DU="",DLB="RECEIVING A VA PENSION?",DIFLD=.36235
-	S DE(DW)="C2^A1CKC5"
-	S DU="Y:YES;N:NO;U:UNKNOWN;"
-	S X=$S(PE="Y":"Y",1:"N")
+BEGIN	S DNM="A1CKC5",DQ=1+D G B
+1	S DW="0;1",DV="MP31'X",DU="",DLB="RATED DISABILITIES (VA)",DIFLD=.01
+	S DU="DIC(31,"
+	S X="`"_ISC
 	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
-C2	G C2S:$D(DE(2))[0 K DB
-	S X=DE(2),DIC=DIE
-	X ^DD(2,.36235,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,1,2.4)
-	S X=DE(2),DIC=DIE
-	S DFN=DA D EN^DGMTCOR K DGMTCOR
-	S X=DE(2),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,3,2.4)
-	S X=DE(2),DIC=DIE
-	D AUTOUPD^DGENA2(DA)
-C2S	S X="" G:DG(DQ)=X C2F1 K DB
-	S X=DG(DQ),DIC=DIE
-	X ^DD(2,.36235,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,1,1.4)
-	S X=DG(DQ),DIC=DIE
-	S DFN=DA D EN^DGMTCOR K DGMTCOR
-	S X=DG(DQ),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,3,1.4)
-	S X=DG(DQ),DIC=DIE
-	D AUTOUPD^DGENA2(DA)
-C2F1	Q
-X2	S DFN=DA D MV^DGLOCK
+X1	I $D(X) D EK^DGLOCK Q
 	Q
 	;
-3	D:$D(DG)>9 F^DIE17,DE S DQ=3,DW=".362;12",DV="SX",DU="",DLB="RECEIVING A&A BENEFITS?",DIFLD=.36205
-	S DE(DW)="C3^A1CKC5"
-	S DU="Y:YES;N:NO;U:UNKNOWN;"
-	S X=$S(AA="Y":"Y",1:"N")
+2	S DW="0;2",DV="RNJ3,0X",DU="",DLB="DISABILITY %",DIFLD=2
+	S X=+SCI(ISC)
 	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
-C3	G C3S:$D(DE(3))[0 K DB
-	S X=DE(3),DIC=DIE
-	X ^DD(2,.36205,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,1,2.4)
-	S X=DE(3),DIC=DIE
-	S DFN=DA D EN^DGMTCOR K DGMTCOR
-	S X=DE(3),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,3,2.4)
-	S X=DE(3),DIC=DIE
-	D AUTOUPD^DGENA2(DA)
-C3S	S X="" G:DG(DQ)=X C3F1 K DB
-	S X=DG(DQ),DIC=DIE
-	X ^DD(2,.36205,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,1,1.4)
-	S X=DG(DQ),DIC=DIE
-	S DFN=DA D EN^DGMTCOR K DGMTCOR
-	S X=DG(DQ),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,3,1.4)
-	S X=DG(DQ),DIC=DIE
-	D AUTOUPD^DGENA2(DA)
-C3F1	Q
-X3	S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK
+X2	K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X I $D(X) D EK^DGLOCK
 	Q
 	;
-4	D:$D(DG)>9 F^DIE17,DE S DQ=4,DW=".362;13",DV="SX",DU="",DLB="RECEIVING HOUSEBOUND BENEFITS?",DIFLD=.36215
-	S DE(DW)="C4^A1CKC5"
-	S DU="Y:YES;N:NO;U:UNKNOWN;"
-	S X=$S(HB="Y":"Y",1:"N")
-	S Y=X
+3	S DW="0;3",DV="SX",DU="",DLB="SERVICE CONNECTED",DIFLD=3
+	S DU="0:NO;1:YES;"
+	S Y="1"
 	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
-C4	G C4S:$D(DE(4))[0 K DB
-	S X=DE(4),DIC=DIE
-	X ^DD(2,.36215,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,2.4)
-	S X=DE(4),DIC=DIE
-	S DFN=DA D EN^DGMTCOR K DGMTCOR
-	S X=DE(4),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,3,2.4)
-	S X=DE(4),DIC=DIE
-	D AUTOUPD^DGENA2(DA)
-C4S	S X="" G:DG(DQ)=X C4F1 K DB
-	D ^A1CKC6
-C4F1	Q
-X4	S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK
+X3	S DFN=DA(1) D:X SC^DGLOCK1 I $D(X) D EK^DGLOCK 
 	Q
 	;
-5	D:$D(DG)>9 F^DIE17,DE S DQ=5,DW=".36;1",DV="*P8'Xa",DU="",DLB="PRIMARY ELIGIBILITY CODE",DIFLD=.361
-	S DE(DW)="C5^A1CKC5"
-	S DU="DIC(8,"
-	S X=ELIG
-	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
-C5	G C5S:$D(DE(5))[0 K DB
-	D ^A1CKC7
-C5S	S X="" G:DG(DQ)=X C5F1 K DB
-	D ^A1CKC8
-C5F1	Q
-X5	S DFN=DA D EV^DGLOCK I $D(X) D ECD^DGLOCK1
-	Q
-	;
-6	D:$D(DG)>9 F^DIE17,DE S DQ=6,DW="TYPE;1",DV="RP391'a",DU="",DLB="TYPE",DIFLD=391
-	S DE(DW)="C6^A1CKC5"
-	S DU="DG(391,"
-	S X=DZT2
-	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
-C6	G C6S:$D(DE(6))[0 K DB
-	D ^A1CKC9
-C6S	S X="" G:DG(DQ)=X C6F1 K DB
-	D ^A1CKC10
-C6F1	Q
-X6	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	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
-	Q
-8	S DQ=9 ;@30
-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	I 'SCI S Y="@39"
-	Q
-10	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=10 D X10 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
-X10	S ISC=0
-	Q
-11	S DQ=12 ;@31
-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	S ISC=$O(SCI(ISC))
-	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 'ISC S Y="@39"
-	Q
-14	D:$D(DG)>9 F^DIE17 G ^A1CKC11
+4	G 1^DIE17
diff -auBN ./r1/A1CKC6.m ./r2/r/A1CKC6.m
--- ./r1/A1CKC6.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/A1CKC6.m	2003-03-21 10:31:18.000000000 -0500
@@ -1,9 +1,108 @@
-A1CKC6	; ;07/02/04
+A1CKC6	; ;01/20/98
+	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(^(.362)) S %Z=^(.362) S %=$P(%Z,U,12) S:%]"" DE(4)=% S %=$P(%Z,U,14) S:%]"" DE(1)=%
+	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 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) I DV'["*" D ^DIC 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 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
+BEGIN	S DNM="A1CKC6",DQ=1
+1	D:$D(DG)>9 F^DIE17,DE S DQ=1,DW=".362;14",DV="SX",DU="",DLB="RECEIVING A VA PENSION?",DIFLD=.36235
+	S DE(DW)="C1^A1CKC6"
+	S DU="Y:YES;N:NO;U:UNKNOWN;"
+	S X=PE
+	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
+	X ^DD(2,.36235,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,1,2.4)
+	S X=DE(1),DIC=DIE
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
+	S X=DE(1),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,3,2.4)
+	S X=DE(1),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+C1S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
+	X ^DD(2,.36235,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,1,1.4)
+	S X=DG(DQ),DIC=DIE
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
 	S X=DG(DQ),DIC=DIE
-	X ^DD(2,.36215,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,1.4)
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36235,1,3,1.4)
+	S X=DG(DQ),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+	Q
+X1	S DFN=DA D MV^DGLOCK
+	Q
+	;
+2	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=2 D X2 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
+X2	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
+	Q
+3	S DQ=4 ;@300
+4	D:$D(DG)>9 F^DIE17,DE S DQ=4,DW=".362;12",DV="SX",DU="",DLB="RECEIVING A&A BENEFITS?",DIFLD=.36205
+	S DE(DW)="C4^A1CKC6"
+	S DU="Y:YES;N:NO;U:UNKNOWN;"
+	S X=AA
+	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
+C4	G C4S:$D(DE(4))[0 K DB S X=DE(4),DIC=DIE
+	X ^DD(2,.36205,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,1,2.4)
+	S X=DE(4),DIC=DIE
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
+	S X=DE(4),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,3,2.4)
+	S X=DE(4),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+C4S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
+	X ^DD(2,.36205,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,1,1.4)
 	S X=DG(DQ),DIC=DIE
 	S DFN=DA D EN^DGMTCOR K DGMTCOR
 	S X=DG(DQ),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,3,1.4)
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36205,1,3,1.4)
 	S X=DG(DQ),DIC=DIE
 	D AUTOUPD^DGENA2(DA)
+	Q
+X4	S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK
+	Q
+	;
+5	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=5 D X5 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
+X5	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
+	Q
+6	S DQ=7 ;@400
+7	D:$D(DG)>9 F^DIE17 G ^A1CKC7
diff -auBN ./r1/A1CKC7.m ./r2/r/A1CKC7.m
--- ./r1/A1CKC7.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/A1CKC7.m	2003-03-21 10:31:18.000000000 -0500
@@ -1,12 +1,77 @@
-A1CKC7	; ;07/02/04
-	S X=DE(5),DIC=DIE
+A1CKC7	; ;01/20/98
+	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(^(.362)) S %Z=^(.362) S %=$P(%Z,U,13) S:%]"" DE(1)=%
+	K %Z Q
 	;
-	S X=DE(5),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(2,.361,1,2,2.2) I DIV(1)>0 S DIK(0)=DA,DIK="^DPT(DIV(0),""E"",",DA(1)=DIV(0),DA=DIV(1) D ^DIK S DA=DIK(0) K DIK
-	S X=DE(5),DIC=DIE
-	X "I $S('$D(^DIC(8,+X,0)):0,$P(^(0),""^"",1)[""DOM"":0,'$D(^DPT(DA,.36)):1,'$D(^DIC(8,+^(.36),0)):1,$P(^(0),""^"",1)'[""DOM"":1,1:0) S DGXRF=.361 D ^DGDDC Q"
-	S X=DE(5),DIC=DIE
-	K ^DPT("AEL",DA,+X)
-	S X=DE(5),DIC=DIE
+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 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) I DV'["*" D ^DIC 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 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
+BEGIN	S DNM="A1CKC7",DQ=1
+1	D:$D(DG)>9 F^DIE17,DE S DQ=1,DW=".362;13",DV="SX",DU="",DLB="RECEIVING HOUSEBOUND BENEFITS?",DIFLD=.36215
+	S DE(DW)="C1^A1CKC7"
+	S DU="Y:YES;N:NO;U:UNKNOWN;"
+	S X=HB
+	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
+	X ^DD(2,.36215,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,2.4)
+	S X=DE(1),DIC=DIE
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
+	S X=DE(1),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,3,2.4)
+	S X=DE(1),DIC=DIE
 	D AUTOUPD^DGENA2(DA)
-	S X=DE(5),DIIX=2_U_DIFLD D AUDIT^DIET
+C1S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
+	X ^DD(2,.36215,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,1,1.4)
+	S X=DG(DQ),DIC=DIE
+	S DFN=DA D EN^DGMTCOR K DGMTCOR
+	S X=DG(DQ),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(2,.36215,1,3,1.4)
+	S X=DG(DQ),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+	Q
+X1	S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK
+	Q
+	;
+2	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=2 D X2 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
+X2	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
+	Q
+3	S DQ=4 ;@999
+4	G 0^DIE17
diff -auBN ./r1/A1CKC8.m ./r2/r/A1CKC8.m
--- ./r1/A1CKC8.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/A1CKC8.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,12 +0,0 @@
-A1CKC8	; ;07/02/04
-	S X=DG(DQ),DIC=DIE
-	X "S DFN=DA D EN^DGMTR K DGREQF"
-	S X=DG(DQ),DIC=DIE
-	K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(2,.361,1,2,89.4) S Y(102)=$S($D(^DPT(D0,"E",D1,0)):^(0),1:"") S X=$S('$D(^DIC(8,+$P(Y(102),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(2,.361,1,2,1.4)
-	S X=DG(DQ),DIC=DIE
-	;
-	S X=DG(DQ),DIC=DIE
-	S ^DPT("AEL",DA,+X)=""
-	S X=DG(DQ),DIC=DIE
-	D AUTOUPD^DGENA2(DA)
-	I $D(DE(5))'[0!(^DD(DP,DIFLD,"AUDIT")'="e") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
diff -auBN ./r1/A1CKC9.m ./r2/r/A1CKC9.m
--- ./r1/A1CKC9.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/A1CKC9.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,4 +0,0 @@
-A1CKC9	; ;07/02/04
-	S X=DE(6),DIC=DIE
-	I ($T(AVAFC^VAFCDD01)'="") S VAFCF="391;" D AVAFC^VAFCDD01(DA)
-	S X=DE(6),DIIX=2_U_DIFLD D AUDIT^DIET
diff -auBN ./r1/A1CKC.m ./r2/r/A1CKC.m
--- ./r1/A1CKC.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/A1CKC.m	2003-03-21 10:31:18.000000000 -0500
@@ -1,10 +1,10 @@
-A1CKC	; GENERATED FROM 'A1CK VARO/DHCP' INPUT TEMPLATE(#1505), FILE 2;07/02/04
+A1CKC	; GENERATED FROM 'A1CK VARO/DHCP' INPUT TEMPLATE(#1505), FILE 2;06/28/99
 	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,1) S:%]"" DE(4)=% S %=$P(%Z,U,2) S:%]"" DE(5)=%
 	I $D(^(.36)) S %Z=^(.36) S %=$P(%Z,U,1) S:%]"" DE(6)=%
 	I $D(^("TYPE")) S %Z=^("TYPE") S %=$P(%Z,U,1) S:%]"" DE(7)=%
-	I $D(^("VET")) S %Z=^("VET") S %=$P(%Z,U,1) S:%]"" DE(3)=%,DE(10)=%
+	I $D(^("VET")) S %Z=^("VET") S %=$P(%Z,U,1) S:%]"" DE(3)=%
 	K %Z Q
 	;
 W	W !?DL+DL-2,DLB_": "
@@ -17,17 +17,17 @@
 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
+N	I X="" G 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
+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) I DV'["*" D ^DIC 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
+Z	K DIC("S"),DLAYGO I $D(X),X'=U 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
@@ -45,17 +45,9 @@
 	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="A1CKC",DQ=1
-	N DIEZTMP,DIEZAR,DIEZRXR,DIIENS,DIXR K DIEFIRE,DIEBADK S DIEZTMP=$$GETTMP^DIKC1("DIEZ")
-	M DIEZAR=^DIE(1505,"AR") S DICRREC="TRIG^DIE17"
-	S:$D(DTIME)[0 DTIME=300 S D0=DA,DIIENS=DA_",",DIEZ=1505,U="^"
-1	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=1 D X1 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
+	S:$D(DTIME)[0 DTIME=300 S D0=DA,DIEZ=1505,U="^"
+1	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=1 D X1 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
 X1	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
 	Q
 2	S DQ=3 ;@10
@@ -65,8 +57,7 @@
 	S Y="Y"
 	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
-C3	G C3S:$D(DE(3))[0 K DB
-	S X=DE(3),DIC=DIE
+C3	G C3S:$D(DE(3))[0 K DB S X=DE(3),DIC=DIE
 	S DFN=DA D EN^DGMTCOR K DGMTCOR
 	S X=DE(3),DIC=DIE
 	;
@@ -74,11 +65,8 @@
 	D AUTOUPD^DGENA2(DA)
 	S X=DE(3),DIC=DIE
 	I ($T(AVAFC^VAFCDD01)'="") S VAFCF="1901;" D AVAFC^VAFCDD01(DA)
-	S X=DE(3),DIC=DIE
-	D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
 	S X=DE(3),DIIX=2_U_DIFLD D AUDIT^DIET
-C3S	S X="" G:DG(DQ)=X C3F1 K DB
-	S X=DG(DQ),DIC=DIE
+C3S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
 	S DFN=DA D EN^DGMTCOR K DGMTCOR
 	S X=DG(DQ),DIC=DIE
 	X ^DD(2,1901,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X="N" X ^DD(2,1901,1,3,1.4)
@@ -86,10 +74,8 @@
 	D AUTOUPD^DGENA2(DA)
 	S X=DG(DQ),DIC=DIE
 	I ($T(AVAFC^VAFCDD01)'="") S VAFCF="1901;" D AVAFC^VAFCDD01(DA)
-	S X=DG(DQ),DIC=DIE
-	D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
-	I $D(DE(3))'[0!(^DD(DP,DIFLD,"AUDIT")'="e") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
-C3F1	Q
+	Q:$D(DE(3))[0&(^DD(DP,DIFLD,"AUDIT")="e")  S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
+	Q
 X3	I $D(X) S:'$D(DPTX) DFN=DA D:'$D(^XUSEC("DG ELIGIBILITY",DUZ)) VAGE^DGLOCK:X="Y" I $D(X) D:$D(DFN) EV^DGLOCK
 	Q
 	;
@@ -99,8 +85,7 @@
 	S Y="Y"
 	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
-C4	G C4S:$D(DE(4))[0 K DB
-	S X=DE(4),DIC=DIE
+C4	G C4S:$D(DE(4))[0 K DB S X=DE(4),DIC=DIE
 	;
 	S X=DE(4),DIC=DIE
 	;
@@ -108,11 +93,8 @@
 	D AUTOUPD^DGENA2(DA)
 	S X=DE(4),DIC=DIE
 	I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".301;" D AVAFC^VAFCDD01(DA)
-	S X=DE(4),DIC=DIE
-	D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
 	S X=DE(4),DIIX=2_U_DIFLD D AUDIT^DIET
-C4S	S X="" G:DG(DQ)=X C4F1 K DB
-	S X=DG(DQ),DIC=DIE
+C4S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
 	X ^DD(2,.301,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(2,.301,1,1,1.4)
 	S X=DG(DQ),DIC=DIE
 	X ^DD(2,.301,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" X ^DD(2,.301,1,2,1.4)
@@ -120,10 +102,8 @@
 	D AUTOUPD^DGENA2(DA)
 	S X=DG(DQ),DIC=DIE
 	I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".301;" D AVAFC^VAFCDD01(DA)
-	S X=DG(DQ),DIC=DIE
-	D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
-	I $D(DE(4))'[0!(^DD(DP,DIFLD,"AUDIT")'="e") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
-C4F1	Q
+	Q:$D(DE(4))[0&(^DD(DP,DIFLD,"AUDIT")="e")  S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
+	Q
 X4	S DFN=DA D EV^DGLOCK I $D(X),X="Y" D VET^DGLOCK
 	Q
 	;
@@ -133,20 +113,16 @@
 	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
-C5	G C5S:$D(DE(5))[0 K DB
-	S X=DE(5),DIC=DIE
+C5	G C5S:$D(DE(5))[0 K DB S X=DE(5),DIC=DIE
 	;
 	S X=DE(5),DIC=DIE
 	D AUTOUPD^DGENA2(DA)
 	S X=DE(5),DIC=DIE
-	;
+	X "S DFN=DA D EN^DGMTR K DGREQF"
 	S X=DE(5),DIC=DIE
 	I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".302;" D AVAFC^VAFCDD01(DA)
-	S X=DE(5),DIC=DIE
-	D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
 	S X=DE(5),DIIX=2_U_DIFLD D AUDIT^DIET
-C5S	S X="" G:DG(DQ)=X C5F1 K DB
-	S X=DG(DQ),DIC=DIE
+C5S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
 	;
 	S X=DG(DQ),DIC=DIE
 	D AUTOUPD^DGENA2(DA)
@@ -154,10 +130,8 @@
 	X "S DFN=DA D EN^DGMTR K DGREQF"
 	S X=DG(DQ),DIC=DIE
 	I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".302;" D AVAFC^VAFCDD01(DA)
-	S X=DG(DQ),DIC=DIE
-	D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
-	I $D(DE(5))'[0!(^DD(DP,DIFLD,"AUDIT")'="e") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
-C5F1	Q
+	Q:$D(DE(5))[0&(^DD(DP,DIFLD,"AUDIT")="e")  S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
+	Q
 X5	S DFN=DA D EV^DGLOCK Q:'$D(X)  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.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
 	;
@@ -168,8 +142,7 @@
 	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
-C6	G C6S:$D(DE(6))[0 K DB
-	S X=DE(6),DIC=DIE
+C6	G C6S:$D(DE(6))[0 K DB S X=DE(6),DIC=DIE
 	;
 	S X=DE(6),DIC=DIE
 	K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(2,.361,1,2,2.2) I DIV(1)>0 S DIK(0)=DA,DIK="^DPT(DIV(0),""E"",",DA(1)=DIV(0),DA=DIV(1) D ^DIK S DA=DIK(0) K DIK
@@ -180,9 +153,18 @@
 	S X=DE(6),DIC=DIE
 	D AUTOUPD^DGENA2(DA)
 	S X=DE(6),DIIX=2_U_DIFLD D AUDIT^DIET
-C6S	S X="" G:DG(DQ)=X C6F1 K DB
-	D ^A1CKC1
-C6F1	Q
+C6S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
+	X "S DFN=DA D EN^DGMTR K DGREQF"
+	S X=DG(DQ),DIC=DIE
+	K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(2,.361,1,2,89.4) S Y(102)=$S($D(^DPT(D0,"E",D1,0)):^(0),1:"") S X=$S('$D(^DIC(8,+$P(Y(102),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(2,.361,1,2,1.4)
+	S X=DG(DQ),DIC=DIE
+	;
+	S X=DG(DQ),DIC=DIE
+	S ^DPT("AEL",DA,+X)=""
+	S X=DG(DQ),DIC=DIE
+	D AUTOUPD^DGENA2(DA)
+	Q:$D(DE(6))[0&(^DD(DP,DIFLD,"AUDIT")="e")  S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
+	Q
 X6	S DFN=DA D EV^DGLOCK I $D(X) D ECD^DGLOCK1
 	Q
 	;
@@ -193,30 +175,16 @@
 	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
-C7	G C7S:$D(DE(7))[0 K DB
-	S X=DE(7),DIC=DIE
+C7	G C7S:$D(DE(7))[0 K DB S X=DE(7),DIC=DIE
 	I ($T(AVAFC^VAFCDD01)'="") S VAFCF="391;" D AVAFC^VAFCDD01(DA)
 	S X=DE(7),DIIX=2_U_DIFLD D AUDIT^DIET
-C7S	S X="" G:DG(DQ)=X C7F1 K DB
-	D ^A1CKC2
-C7F1	Q
+C7S	S X="" Q:DG(DQ)=X  K DB S X=DG(DQ),DIC=DIE
+	I ($T(AVAFC^VAFCDD01)'="") S VAFCF="391;" D AVAFC^VAFCDD01(DA)
+	Q:$D(DE(7))[0&(^DD(DP,DIFLD,"AUDIT")="e")  S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
+	Q
 X7	Q
-8	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=8 D X8 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
+8	D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=8 D X8 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
 X8	S Y=$P(STR,"^"),STR=$P(STR,"^",2,99)
 	Q
 9	S DQ=10 ;@20
-10	D:$D(DG)>9 F^DIE17,DE S DQ=10,DW="VET;1",DV="RSXa",DU="",DLB="VETERAN (Y/N)?",DIFLD=1901
-	S DE(DW)="C10^A1CKC"
-	S DU="Y:YES;N:NO;"
-	S Y="Y"
-	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
-C10	G C10S:$D(DE(10))[0 K DB
-	D ^A1CKC3
-C10S	S X="" G:DG(DQ)=X C10F1 K DB
-	D ^A1CKC4
-C10F1	Q
-X10	I $D(X) S:'$D(DPTX) DFN=DA D:'$D(^XUSEC("DG ELIGIBILITY",DUZ)) VAGE^DGLOCK:X="Y" I $D(X) D:$D(DFN) EV^DGLOCK
-	Q
-	;
-11	D:$D(DG)>9 F^DIE17 G ^A1CKC5
+10	D:$D(DG)>9 F^DIE17 G ^A1CKC1
diff -auBN ./r1/ABSVM1.m ./r2/r/ABSVM1.m
--- ./r1/ABSVM1.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/ABSVM1.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,48 +0,0 @@
-ABSVM1	;OAKLANDFO/DPC - VSS MIGRATION;10/9/2002
-	;;4.0;VOLUNTARY TIMEKEEPING;**31,33**;JUL 1994
-SEND	;
-	;Entry point for the Send Data option
-	N ABSRECIP,ABSSDA,ABSIEN
-	N DIR,Y
-	W @IOF
-	D ABSIEN^ABSVMUT1 Q:'ABSIEN
-	W "You are about to send VTK data to the new VSS application."
-	W !!,"DO NOT RUN THIS OPTION UNTIL DIRECTED BY SYSTEM IMPLEMENTATION."
-	;W !!,"VTK OPTIONS MUST BE OUT OF SERVICE BEFORE RUNNING THIS OPTION."
-	;
-	S DIR(0)="Y"
-	S DIR("A")="Do you want to proceed"
-	S DIR("??")="If you answer NO, you can migrate the data later."
-	D ^DIR
-	I 'Y W !!,"Data migration can be done later.  Bye." Q
-	;
-	N DIR,OUT
-	S OUT=0
-	W !
-	F  Q:OUT  D
-	. S DIR(0)="FAO"
-	. S DIR("A")="Enter a Recipient Address for the Migrated Data: "
-	. S DIR("?")="See the Install Instructions for the recipients e-mail address."
-	. S DIR("?",1)="Network e-mail addresses must contain '@'."
-	. D ^DIR
-	. I $G(DIRUT) S OUT=1 Q
-	. S ABSRECIP(X)=""
-	. Q
-	I '$D(ABSRECIP) W !!,"Migrate the VTK data when you have obtained the proper e-mail address.  Bye." Q
-	W !
-	;
-	D SENDPROC^ABSVMS1(.ABSRECIP,.ABSSDA)
-	W !!,"Data is being sent."
-	;
-	W !!
-	S DIR(0)="Y"
-	S DIR("A")="Do you want to print the error lists now"
-	S DIR("??")="If you answer NO, you can print the errors later."
-	D ^DIR
-	I Y D PRINTRES^ABSVM(.ABSSDA,ABSIEN)
-	;
-	W !!,"You will be notified when the data has been received and filed."
-	W !,"Your office may then begin to use the new system."
-	W !!,?20,"ENJOY THE NEW VOLUNTARY SERVICE SYSTEM"
-	Q
-	;
diff -auBN ./r1/ABSVMHV1.m ./r2/r/ABSVMHV1.m
--- ./r1/ABSVMHV1.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/ABSVMHV1.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,126 +0,0 @@
-ABSVMHV1	;OAKLANDFO/DPC-VSS MIGRATION;7/26/2002
-	;;4.0;VOLUNTARY TIMEKEEPING;**31,33,35**;Jul 1994
-	;
-OHRSVAL(FLAG,VALRES,START,END)	;
-	;Validate occasional hours data.
-	N OCCIEN,OCC0,OCCIDEN
-	N DATE,ORGPTR,SRVPTR
-	S VALRES("ERRCNT")=0
-	S VALRES("DA")=$$CRERRLOG^ABSVMUT1("O",$G(FLAG))
-	I VALRES("DA")=0 W !,"There was an error creating VALIDATION RESULTS entry for Occasional Hours." Q
-	S OCCIEN=$G(START,0)
-	F  S OCCIEN=$O(^ABS(503336,OCCIEN)) Q:'OCCIEN  D
-	. N ERRS S ERRS=0
-	. S OCC0=$G(^ABS(503336,OCCIEN,0))
-	. I $P(OCC0,U,3)]"" Q:$D(EXSITES($P(OCC0,U,3)))  ;check for excluded sites
-	. S OCCIDEN="Occasional Vol Time Sheet rec #"_OCCIEN_" at "_$P(OCC0,U,3)
-	. I OCC0="" D ADDERR^ABSVMVV1(OCCIDEN_" does not exist.",.ERRS) Q
-	. ;DATE
-	. S DATE=$P($P(OCC0,U,8),".")
-	. I DATE<2961001 Q  ;too early
-	. I $L(DATE)'=7!('+$E(DATE,4,5))!('+$E(DATE,6,7)) D ADDERR^ABSVMVV1(OCCIDEN_" has an improper Date field.",.ERRS) Q
-	. ;TRANSMISSION STATUS
-	. I $P(OCC0,U,9)=0 D ADDERR^ABSVMVV1(OCCIDEN_" has a transmission status of SUSPENDED.",.ERRS) Q
-	. I $P(OCC0,U,9)=2 D ADDERR^ABSVMVV1(OCCIDEN_" has a transmission status of ERROR - NOT TRANSMITTED.",.ERRS) Q
-	. ;FACILITY
-	. I $P(OCC0,U,3)="" D ADDERR^ABSVMVV1(OCCIDEN_" is missing a Facility.",.ERRS)
-	. I $L($P(OCC0,U,3))>7 D ADDERR^ABSVMVV1(OCCIDEN_" has a Facility Number longer than 7 characters.",.ERRS)
-	. ;NAME/ORG NAME
-	. I $L($P(OCC0,U,14))>40 D ADDERR^ABSVMVV1(OCCIDEN_" has a Name Or Organization Name longer than 40 characters.",.ERRS)
-	. ;SERVICE
-	. S SRVPTR=$P(OCC0,U,5)
-	. I SRVPTR="" D ADDERR^ABSVMVV1(OCCIDEN_" is missing a Service.",.ERRS)
-	. I SRVPTR'="",'$D(SCDS(SRVPTR)) D ADDERR^ABSVMVV1(OCCIDEN_" has an incorrect Service Code.",.ERRS)
-	. ;ORG
-	. S ORGPTR=$P(OCC0,U,4)
-	. I ORGPTR'="",'$D(OCDS(ORGPTR)) D ADDERR^ABSVMVV1(OCCIDEN_" has an incorrect Organization Code.",.ERRS)
-	. ;GROUP
-	. I $P(OCC0,U,6)="" D ADDERR^ABSVMVV1(OCCIDEN_" is missing the Number In Group.",.ERRS)
-	. I $P(OCC0,U,6)'?.N D ADDERR^ABSVMVV1(OCCIDEN_" has an invalid Number in Group.",ERRS)
-	. ;HOURS
-	. I $P(OCC0,U,7)="" D ADDERR^ABSVMVV1(OCCIDEN_" is missing Total Hours.",.ERRS)
-	. I $P(OCC0,U,7)'?.N D ADDERR^ABSVMVV1(OCCIDEN_" has an invalid Total Hours.",.ERRS)
-	. I ERRS>0 D RECERR^ABSVMUT1(.VALRES,.ERRS) Q
-	. I $G(FLAG)["S" S ^XTMP("ABSVMOHRS","IEN",OCCIEN)=""
-	. Q
-	D ERRCNT^ABSVMUT1(.VALRES)
-	Q
-	;
-RHRSVAL(FLAG,VALRES,START,END)	;
-	;Validate regular volunteer hours data.
-	N REGIEN,REG0,REGIDEN
-	N DATE,ORGPTR,SRVPTR,VOLPTR,SCHD
-	S VALRES("ERRCNT")=0
-	S VALRES("DA")=$$CRERRLOG^ABSVMUT1("R",$G(FLAG))
-	I VALRES("DA")=0 W !,"There was an error creating VALIDATION RESULTS entry for Regular Hours." Q
-	S REGIEN=$G(START,0)
-	F  S REGIEN=$O(^ABS(503331,REGIEN)) Q:'REGIEN  D
-	. N ERRS S ERRS=0
-	. S REG0=$G(^ABS(503331,REGIEN,0))
-	. I $P(REG0,U,7)]"" Q:$D(EXSITES($P(REG0,U,7)))  ;check for excluded sites
-	. S REGIDEN="Vol Daily Time rec #"_REGIEN_" at "_$P(REG0,U,7)
-	. I REG0="" D ADDERR^ABSVMVV1(REGIDEN_" does not exist.",.ERRS) Q
-	. ;DATE
-	. S DATE=$P($P(REG0,U,3),".")
-	. I DATE<2961001 Q  ;too early
-	. I $L(DATE)'=7!('+$E(DATE,4,5))!('+$E(DATE,6,7)) D ADDERR^ABSVMVV1(REGIDEN_" has an improper Date field.",.ERRS) Q
-	. ;FACILITY
-	. I $P(REG0,U,7)="" D ADDERR^ABSVMVV1(REGIDEN_" is missing a Facility.",.ERRS)
-	. I $L($P(REG0,U,7))>7 D ADDERR^ABSVMVV1(REGIDEN_" has a Facility Number longer than 7 characters.",.ERRS)
-	. ;VOLUNTEER
-	. S VOLPTR=$P(REG0,U)
-	. I VOLPTR="" D ADDERR^ABSVMVV1(REGIDEN_" is missing a Volunteer.",.ERRS)
-	. I VOLPTR'="",$G(FLAG)["S",'$D(^XTMP("ABSVMVOL","IEN",VOLPTR)) Q  ;D ADDERR^ABSVMVV1(REGIDEN_" has an incorrect Volunteer pointer.",.ERRS)
-	. I VOLPTR'="",$G(FLAG)'["S",$G(^ABS(503330,VOLPTR,0))="" D ADDERR^ABSVMVV1(REGIDEN_" has an incorrect Volunteer pointer.",.ERRS)
-	. ;SERVICE
-	. S SRVPTR=$P(REG0,U,8)
-	. I SRVPTR="" D ADDERR^ABSVMVV1(REGIDEN_" is missing a Service.",.ERRS)
-	. I SRVPTR'="",'$D(SCDS(SRVPTR)) D ADDERR^ABSVMVV1(REGIDEN_" has an incorrect Service Code.",.ERRS)
-	. ;ORG
-	. S ORGPTR=$P(REG0,U,4)
-	. I ORGPTR="" D ADDERR^ABSVMVV1(REGIDEN_" is missing an Organization Code.",.ERRS)
-	. I ORGPTR'="",'$D(OCDS(ORGPTR)) D ADDERR^ABSVMVV1(REGIDEN_" has an incorrect Organization Code.",.ERRS)
-	. ;SCHEDULE
-	. S SCHD=$E($P(REG0,U,6),4)
-	. I SCHD="" D ADDERR^ABSVMVV1(REGIDEN_" is missing a Work Schedule Code in its Combination Code.",.ERRS)
-	. I SCHD'="",'$D(WCDS("CD",SCHD)) D ADDERR^ABSVMVV1(REGIDEN_" has an incorrect Work Schedule Code.",.ERRS)
-	. ;HOURS
-	. I $P(REG0,U,5)="" D ADDERR^ABSVMVV1(REGIDEN_" is missing Total Hours.",.ERRS)
-	. I $P(REG0,U,5)'?.N D ADDERR^ABSVMVV1(REGIDEN_" has an invalid Total Hours.",.ERRS)
-	. I ERRS>0 D RECERR^ABSVMUT1(.VALRES,.ERRS) Q
-	. I $G(FLAG)["S" D
-	. . ;Putting data into FY Quarters arrays in prep for sending.
-	. . I DATE<2970101 S ^XTMP("ABSVMRHRS","IEN","97Q1",REGIEN)="" Q
-	. . I DATE<2970401 S ^XTMP("ABSVMRHRS","IEN","97Q2",REGIEN)="" Q
-	. . I DATE<2970701 S ^XTMP("ABSVMRHRS","IEN","97Q3",REGIEN)="" Q
-	. . I DATE<2971001 S ^XTMP("ABSVMRHRS","IEN","97Q4",REGIEN)="" Q
-	. . I DATE<2980101 S ^XTMP("ABSVMRHRS","IEN","98Q1",REGIEN)="" Q
-	. . I DATE<2980401 S ^XTMP("ABSVMRHRS","IEN","98Q2",REGIEN)="" Q
-	. . I DATE<2980701 S ^XTMP("ABSVMRHRS","IEN","98Q3",REGIEN)="" Q
-	. . I DATE<2981001 S ^XTMP("ABSVMRHRS","IEN","98Q4",REGIEN)="" Q
-	. . I DATE<2990101 S ^XTMP("ABSVMRHRS","IEN","99Q1",REGIEN)="" Q
-	. . I DATE<2990401 S ^XTMP("ABSVMRHRS","IEN","99Q2",REGIEN)="" Q
-	. . I DATE<2990701 S ^XTMP("ABSVMRHRS","IEN","99Q3",REGIEN)="" Q
-	. . I DATE<2991001 S ^XTMP("ABSVMRHRS","IEN","99Q4",REGIEN)="" Q
-	. . I DATE<3000101 S ^XTMP("ABSVMRHRS","IEN","00Q1",REGIEN)="" Q
-	. . I DATE<3000401 S ^XTMP("ABSVMRHRS","IEN","00Q2",REGIEN)="" Q
-	. . I DATE<3000701 S ^XTMP("ABSVMRHRS","IEN","00Q3",REGIEN)="" Q
-	. . I DATE<3001001 S ^XTMP("ABSVMRHRS","IEN","00Q4",REGIEN)="" Q
-	. . I DATE<3010101 S ^XTMP("ABSVMRHRS","IEN","01Q1",REGIEN)="" Q
-	. . I DATE<3010401 S ^XTMP("ABSVMRHRS","IEN","01Q2",REGIEN)="" Q
-	. . I DATE<3010701 S ^XTMP("ABSVMRHRS","IEN","01Q3",REGIEN)="" Q
-	. . I DATE<3011001 S ^XTMP("ABSVMRHRS","IEN","01Q4",REGIEN)="" Q
-	. . I DATE<3020101 S ^XTMP("ABSVMRHRS","IEN","02Q1",REGIEN)="" Q
-	. . I DATE<3020401 S ^XTMP("ABSVMRHRS","IEN","02Q2",REGIEN)="" Q
-	. . I DATE<3020701 S ^XTMP("ABSVMRHRS","IEN","02Q3",REGIEN)="" Q
-	. . I DATE<3021001 S ^XTMP("ABSVMRHRS","IEN","02Q4",REGIEN)="" Q
-	. . I DATE<3030101 S ^XTMP("ABSVMRHRS","IEN","03Q1",REGIEN)="" Q
-	. . I DATE<3030401 S ^XTMP("ABSVMRHRS","IEN","03Q2",REGIEN)="" Q
-	. . I DATE<3030701 S ^XTMP("ABSVMRHRS","IEN","03Q3",REGIEN)="" Q
-	. . I DATE<3031001 S ^XTMP("ABSVMRHRS","IEN","03Q4",REGIEN)="" Q
-	. . I DATE<3040101 S ^XTMP("ABSVMRHRS","IEN","04Q1",REGIEN)="" Q
-	. . Q
-	. Q
-	D ERRCNT^ABSVMUT1(.VALRES)
-	Q
-	;
diff -auBN ./r1/ABSVMLC1.m ./r2/r/ABSVMLC1.m
--- ./r1/ABSVMLC1.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/ABSVMLC1.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,310 +0,0 @@
-ABSVMLC1	;OAKLANDFO/DPC-VSS MIGRATION;8/20/2002
-	;;4.0;VOLUNTARY TIMEKEEPING;**31,33**;Jul 1994
-	;
-SAVE	;Saves the list of orgs to Organization Code multiple in Migration Log file
-	;
-	N ABSFDA,ABSIEN,ABSIENS,ORGCD
-	D ABSIEN^ABSVMUT1 Q:'ABSIEN
-	F I=1:1 S ORGCD=$P($T(ORGS+I),";;",2) Q:ORGCD=""  D
-	. S ABSFDA(503339.53,"+"_I_","_ABSIEN_",",.01)=ORGCD
-	D UPDATE^DIE("E","ABSFDA","ABSIENS")
-	Q
-	;Loads IENS for national codes.
-LDORGS	;
-	N ABSIEN,ORGCD,I
-	D ABSIEN^ABSVMUT1 Q:'ABSIEN
-	K OCDS ;Array of IENs of valid org codes.
-	S ORGCD=""
-	F  S ORGCD=$O(^ABS(503339.5,ABSIEN,3,"B",ORGCD)) Q:ORGCD=""  D
-	. N ORGIEN,FOUNDIEN
-	. D FIND^DIC(503334,,"@","X",ORGCD,,"B",,,"FOUNDIEN")
-	. F I=1:1 S ORGIEN=$G(FOUNDIEN("DILIST",2,I)) Q:ORGIEN=""  D
-	. . S OCDS(ORGIEN)=""
-	. . Q
-	. Q
-	Q
-	;
-ORGS	;
-	;;100
-	;;101
-	;;102
-	;;103
-	;;104
-	;;105
-	;;106
-	;;107
-	;;108
-	;;109
-	;;110
-	;;111
-	;;112
-	;;113
-	;;114
-	;;115
-	;;116
-	;;117
-	;;118
-	;;119
-	;;120
-	;;121
-	;;122
-	;;123
-	;;124
-	;;126
-	;;127
-	;;128
-	;;129
-	;;130
-	;;131
-	;;132
-	;;133
-	;;134
-	;;135
-	;;136
-	;;137
-	;;138
-	;;139
-	;;140
-	;;141
-	;;142
-	;;143
-	;;144
-	;;145
-	;;146
-	;;147
-	;;148
-	;;149
-	;;150
-	;;151
-	;;152
-	;;153
-	;;154
-	;;155
-	;;156
-	;;157
-	;;158
-	;;159
-	;;160
-	;;161
-	;;162
-	;;163
-	;;164
-	;;165
-	;;166
-	;;167
-	;;168
-	;;169
-	;;170
-	;;171
-	;;172
-	;;173
-	;;174
-	;;175
-	;;176
-	;;177
-	;;178
-	;;179
-	;;180
-	;;181
-	;;182
-	;;183
-	;;184
-	;;185
-	;;186
-	;;187
-	;;188
-	;;189
-	;;190
-	;;191
-	;;192
-	;;193
-	;;194
-	;;195
-	;;196
-	;;197
-	;;198
-	;;199
-	;;200
-	;;201
-	;;202
-	;;203
-	;;204
-	;;205
-	;;206
-	;;207
-	;;208
-	;;209
-	;;210
-	;;211
-	;;212
-	;;213
-	;;214
-	;;215
-	;;216
-	;;217
-	;;218
-	;;220
-	;;221
-	;;222
-	;;223
-	;;224
-	;;225
-	;;226
-	;;227
-	;;228
-	;;229
-	;;230
-	;;231
-	;;232
-	;;233
-	;;234
-	;;235
-	;;236
-	;;237
-	;;238
-	;;239
-	;;240
-	;;241
-	;;242
-	;;243
-	;;244
-	;;245
-	;;246
-	;;247
-	;;248
-	;;249
-	;;250
-	;;251
-	;;252
-	;;253
-	;;254
-	;;255
-	;;256
-	;;257
-	;;258
-	;;259
-	;;260
-	;;261
-	;;262
-	;;263
-	;;264
-	;;265
-	;;266
-	;;267
-	;;268
-	;;269
-	;;270
-	;;271
-	;;272
-	;;274
-	;;275
-	;;276
-	;;277
-	;;278
-	;;279
-	;;280
-	;;281
-	;;282
-	;;283
-	;;284
-	;;286
-	;;301
-	;;303
-	;;305
-	;;307
-	;;309
-	;;311
-	;;313
-	;;315
-	;;317
-	;;318
-	;;319
-	;;320
-	;;321
-	;;322
-	;;323
-	;;324
-	;;325
-	;;400
-	;;401
-	;;001
-	;;002
-	;;003
-	;;004
-	;;005
-	;;006
-	;;007
-	;;008
-	;;009
-	;;010
-	;;011
-	;;012
-	;;013
-	;;014
-	;;015
-	;;016
-	;;017
-	;;018
-	;;019
-	;;020
-	;;021
-	;;022
-	;;023
-	;;024
-	;;025
-	;;026
-	;;027
-	;;028
-	;;029
-	;;030
-	;;031
-	;;032
-	;;033
-	;;034
-	;;035
-	;;036
-	;;037
-	;;038
-	;;039
-	;;040
-	;;041
-	;;042
-	;;043
-	;;044
-	;;045
-	;;046
-	;;057
-	;;058
-	;;059
-	;;060
-	;;061
-	;;062
-	;;063
-	;;064
-	;;065
-	;;066
-	;;067
-	;;078
-	;;079
-	;;080
-	;;081
-	;;082
-	;;083
-	;;084
-	;;085
-	;;086
-	;;087
-	;;088
-	;;089
-	;;090
-	;;091
-	;;092
-	;;093
-	;;094
-	;;095
-	;;096
-	;;097
-	;;098
-	;;099
-	;;
-	;END OF ORG CODES
diff -auBN ./r1/ABSVMLC2.m ./r2/r/ABSVMLC2.m
--- ./r1/ABSVMLC2.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/ABSVMLC2.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,157 +0,0 @@
-ABSVMLC2	;OAKLAND/DPC-VSS MIGRATION;8/20/2002
-	;;4.0;VOLUNTARY TIMEKEEPING;**31,33**;Jul 1994
-	;
-SAVE	;Saves the list of codes to Service Code multiple in Migration Log file
-	;
-	N ABSFDA,ABSIEN,ABSIENS,SRVCD
-	D ABSIEN^ABSVMUT1 Q:'ABSIEN
-	F I=1:1 S SRVCD=$P($T(SRVS+I),";;",2) Q:SRVCD=""  D
-	. S ABSFDA(503339.54,"+"_I_","_ABSIEN_",",.01)=SRVCD
-	D UPDATE^DIE("E","ABSFDA","ABSIENS")
-	Q
-	;Loads IENs for national Service codes
-LDSRVS	;
-	N ABSIEN,SRVCD,I
-	D ABSIEN^ABSVMUT1 Q:'ABSIEN
-	K SCDS ;Array of IENs of service codes
-	S SRVCD=""
-	F  S SRVCD=$O(^ABS(503339.5,ABSIEN,4,"B",SRVCD)) Q:SRVCD=""  D
-	. N SRVIEN,FOUNDIEN
-	. D FIND^DIC(503332,,"@","X",SRVCD,,"B",,,"FOUNDIEN")
-	. F I=1:1 S SRVIEN=$G(FOUNDIEN("DILIST",2,I)) Q:SRVIEN=""  D
-	. . S SCDS(SRVIEN)=""
-	. . Q
-	. Q
-	Q
-	;
-SRVS	;
-	;;100
-	;;108
-	;;111
-	;;112
-	;;113
-	;;113
-	;;114
-	;;115
-	;;116
-	;;117
-	;;118
-	;;119
-	;;120
-	;;121
-	;;122
-	;;123
-	;;126
-	;;127
-	;;128
-	;;129
-	;;132
-	;;133
-	;;134
-	;;135
-	;;136
-	;;137
-	;;138
-	;;139
-	;;142
-	;;143
-	;;151
-	;;160
-	;;170
-	;;181
-	;;182
-	;;190
-	;;199
-	;;200
-	;;250
-	;;260
-	;;270
-	;;771
-	;;772
-	;;773
-	;;774
-	;;775
-	;;776
-	;;777
-	;;000
-	;;000T
-	;;004
-	;;004T
-	;;005
-	;;005T
-	;;011
-	;;011C
-	;;011T
-	;;041
-	;;100T
-	;;108E
-	;;108T
-	;;111T
-	;;112T
-	;;113T
-	;;114T
-	;;115T
-	;;116H
-	;;116T
-	;;116V
-	;;117A
-	;;117B
-	;;117D
-	;;117E
-	;;117F
-	;;117T
-	;;118E
-	;;118H
-	;;118T
-	;;119T
-	;;120T
-	;;121T
-	;;122S
-	;;122T
-	;;123T
-	;;126T
-	;;127T
-	;;128T
-	;;129T
-	;;132T
-	;;133T
-	;;134B
-	;;134C
-	;;134D
-	;;134E
-	;;134T
-	;;135A
-	;;135B
-	;;135E
-	;;135M
-	;;135R
-	;;135T
-	;;135V
-	;;136A
-	;;136B
-	;;136C
-	;;136D
-	;;136F
-	;;136T
-	;;136Z
-	;;137T
-	;;138T
-	;;139T
-	;;142T
-	;;143T
-	;;151T
-	;;160T
-	;;170A
-	;;170T
-	;;190T
-	;;250A
-	;;250D
-	;;250H
-	;;270A
-	;;270B
-	;;270C
-	;;270D
-	;;270E
-	;;500T
-	;;
-	;End of Service Codes
diff -auBN ./r1/ABSVMLC3.m ./r2/r/ABSVMLC3.m
--- ./r1/ABSVMLC3.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/ABSVMLC3.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,115 +0,0 @@
-ABSVMLC3	;OAKLAND/DPC-VSS MIGRATION;8/20/2002
-	;;4.0;VOLUNTARY TIMEKEEPING;*31*;Jul 1994
-	;
-	;Loads codes for Scheduled Workdays.
-LDWKS	;
-	N WKCD,I,J
-	K WCDS
-	;Array of valid work codes.
-	;At WCDS(ien), IEN in file #503333
-	;At WCDS("CD",code), actual code.
-	F I=1:1 S WKCD=$P($T(WKS+I),";;",2) Q:WKCD=""  D
-	. N WKIEN,FOUNDIEN
-	. D FIND^DIC(503333,,"@","X",WKCD,,"B",,,"FOUNDIEN")
-	. F J=1:1 S WKIEN=$G(FOUNDIEN("DILIST",2,J)) Q:WKIEN=""  D
-	. . S WCDS(WKIEN)=""
-	. . Q
-	. S WCDS("CD",WKCD)=""
-	. Q
-	Q
-	;
-WKS	;
-	;;0
-	;;1
-	;;2
-	;;3
-	;;4
-	;;5
-	;;6
-	;;7
-	;;8
-	;;9
-	;;#
-	;;%
-	;;&
-	;;&
-	;;*
-	;;+
-	;;/
-	;;A
-	;;B
-	;;C
-	;;D
-	;;E
-	;;F
-	;;G
-	;;H
-	;;I
-	;;J
-	;;K
-	;;L
-	;;M
-	;;N
-	;;O
-	;;P
-	;;Q
-	;;R
-	;;S
-	;;T
-	;;U
-	;;V
-	;;W
-	;;X
-	;;Y
-	;;Z
-	;;
-	; End of work schedule codes
-LDAWDS	;
-	N AWDCD,I,J
-	K ACDS ;Array of IENs of valid award codes.
-	F I=1:1 S AWDCD=$P($T(AWDS+I),";;",2) Q:AWDCD=""  D
-	. N AWDIEN,FOUNDIEN
-	. D FIND^DIC(503337,,"@","X",AWDCD,,"C",,,"FOUNDIEN")
-	. F J=1:1 S AWDIEN=$G(FOUNDIEN("DILIST",2,J)) Q:AWDIEN=""  D
-	. . S ACDS(AWDIEN)=""
-	. . Q
-	. Q
-	Q
-	;
-AWDS	;
-	;;00
-	;;16
-	;;14
-	;;24
-	;;02
-	;;04
-	;;06
-	;;07
-	;;08
-	;;12
-	;;18
-	;;20
-	;;22
-	;;15
-	;;17
-	;;21
-	;;25
-	;;19
-	;;23
-	;;50
-	;;03
-	;;05
-	;;26
-	;;27
-	;;28
-	;;29
-	;;30
-	;;31
-	;;32
-	;;33
-	;;34
-	;;35
-	;;36
-	;;
-	;End of award codes
-	Q
diff -auBN ./r1/ABSVM.m ./r2/r/ABSVM.m
--- ./r1/ABSVM.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/ABSVM.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,266 +0,0 @@
-ABSVM	;OAKLANDFO/DPC - VSS MIGRATION;8/23/2002
-	;;4.0;VOLUNTARY TIMEKEEPING;**31,33**;Jul 1994
-	;
-	;
-PREP	;
-	;Entry  point for the Prepare For Transition option.
-	;Accomplishes the initial setup.
-	N ABSSITE,SITENUM,DIR,I,DIERR,ABSFDA,ABSIEN
-	N ABSSITES ;This array is created in BLDVOLLT^ABSVMUT1.
-	W @IOF
-	;Check for existing entries.
-	D LIST^DIC(503339.5)
-	I ^TMP("DILIST",$J,0) D  Q
-	. W !!,"This option has already been run.  The Migration Process is started."
-	. W !,"Continue the Migration process with another option."
-	. W !,"Contact the System Implementation team if you need additional instructions."
-	. Q
-	;
-	W "You are starting the process that will move "
-	W !,"Voluntary Timekeeping data to the new "
-	W !,"Voluntary Service System application."
-	W !!,"First, information about your site will be collected."
-	;this get the Station Number from Institution file
-	S ABSSITE=$P($G(^DIC(4,+$$KSP^XUPARAM("INST"),99)),U)
-	I ABSSITE="" W !!,"There is no Station Number for your site, Contact System Implementation team!!!" Q
-	W !,"Your Volunteer Daily Time file will be scanned to find "
-	W !,"all sites referenced.  This will take some time.",!
-	D BLDVOLLT^ABSVMUT1("S")
-	W !,"Done."
-	W !!,"Your primary site number is "_ABSSITE_"."
-	W !,"Volunteer Hours are recorded for the following sites:"
-	S SITENUM=0
-	F I=0:1 S SITENUM=$O(ABSSITES(SITENUM)) Q:SITENUM=""  W !,?20,SITENUM
-	W !!,"The next section will allow you to designate which of the above sites",!,"you want data sent from.  Your primary site will default to 'YES' ",!
-	I I W "Any Games site,(700, 701, 702, or 575W), will default to 'NO'.",!
-	S DIR(0)="Y"
-	S DIR("A")="Do you want to continue"
-	S DIR("??")="If the information is not correct, answer NO. The preparation process will be stopped for now."
-	D ^DIR
-	W !!
-	I 'Y W "CONTACT THE IMPLEMENTATION TEAM. PROCESS STOPPED FOR NOW." Q
-	W "Making an entry in the Voluntary Migration Log file."
-	S ABSFDA(503339.5,"+1,",.01)=ABSSITE,SITENUM=0
-	F I=2:1 S SITENUM=$O(ABSSITES(SITENUM)) Q:SITENUM=""  D
-	. S ABSFDA(503339.51,"+"_I_",+1,",.01)=SITENUM
-	. ;setup games site for no sending of data
-	. S:"^700^701^702^575W^"[(U_SITENUM_U) ABSFDA(503339.51,"+"_I_",+1,",.02)="N"
-	D UPDATE^DIE("E","ABSFDA","ABSIEN")
-	I $D(DIERR) W ! D MSG^DIALOG() Q
-	D SITEINFO(ABSIEN(1))
-	W !
-	D SENDMSG(ABSIEN(1))
-	Q
-	;
-SITEINFO(ABSIEN)	;
-	;User Inputs data for sites
-	N ABSROOT,I,DIE,DA,DR,DIERR,SITENUM
-	D LIST^DIC(503339.51,","_ABSIEN_",",1,,,,,,,,"ABSROOT")
-	I $D(DIERR) W ! D MSG^DIALOG() Q
-	F I=1:1:+ABSROOT("DILIST",0) D
-	. S DIE="^ABS(503339.5,"_ABSIEN_",1,",SITENUM=ABSROOT("DILIST",1,I)
-	. S DA=ABSROOT("DILIST",2,I),DA(1)=ABSIEN
-	. D
-	.. ;check for primary or games site
-	.. I SITENUM=ABSSITE S DR="W ""Send this Station's Data?: YES"";.02///YES;1:11" Q
-	.. I "^700^701^702^575W^"[(U_SITENUM_U) S DR="W ""Send this Station's Data?: NO"";.02///NO" Q
-	.. S DR=".02//YES;S:X=""N"" Y=0;1:11"
-	.. Q
-	. S DIE("NO^")="BACK"
-	. W !!,?20,"Add information for Station Number "_SITENUM,!
-	. D ^DIE
-	. Q
-	;save codes
-	W !!,"Saving information...",!
-	D SAVE^ABSVMLC1,SAVE^ABSVMLC2
-	Q
-	;
-SENDMSG(NEWIEN)	;
-	N ABSMSG,OUT,ABSRECIP,DIR,DIRUT,X,Y
-	N MSGNUM,ABSSUBJ,ABSMSG,ABSRECIP
-	S OUT=0
-	W !,"Sending a message containing information about your site."
-	F  Q:OUT  D
-	. S DIR(0)="FAO"
-	. S DIR("A")="Enter a Recipient of the Institution Creation message: "
-	. S DIR("?")="See the Install Instructions for the recipients e-mail address."
-	. S DIR("?",1)="Network e-mail addresses must contain '@'."
-	. D ^DIR
-	. I $G(DIRUT) D
-	. . I $D(ABSRECIP) S OUT=1 Q  ;At least 1 recipient selected.
-	. . N DIR,X,Y,DIRUT,DIK,DA
-	. . W !!,"You must enter at least one recipient of the message."
-	. . W !,"If you do not, you will need to run the Preparation option again"
-	. . W !,"and re-enter all information.",!
-	. . S DIR(0)="Y"
-	. . S DIR("A")="Do you want to exit the Preparation option and run it again later"
-	. . S DIR("B")="No"
-	. . D ^DIR
-	. . I Y D
-	. . . W !!,"Rerun Preparation later. BYE."
-	. . . ;Delete entry in Migration Log.
-	. . . S DIK="^ABS(503339.5,",DA=NEWIEN
-	. . . D ^DIK
-	. . . S OUT=1
-	. . . Q
-	. . Q
-	. E  S ABSRECIP(X)=""
-	. Q
-	I '$D(ABSRECIP) Q  ;No recipients selected.
-	S ABSSUBJ="VSS: Institution Creation Message from: "_$P($G(^DIC(4,+$$KSP^XUPARAM("INST"),99)),U)
-	D BLDMSG(.ABSMSG,NEWIEN)
-	D SENDMSG^XMXAPI(DUZ,ABSSUBJ,"ABSMSG",.ABSRECIP,,.MSGNUM)
-	W !,"Message sent.  Message number: "_MSGNUM
-	Q
-	;
-BLDMSG(MSGBODY,NEWIEN)	;
-	N I,LNCNT,TEXT
-	S LNCNT=0
-	S TEXT="This is a VSS migration message."
-	D ADDLN(TEXT,.MSGBODY,.LNCNT)
-	S TEXT="It contains information needed to create an entry in the VtkInstitutions table."
-	D ADDLN(TEXT,.MSGBODY,.LNCNT,1)
-	S TEXT="The message is sent from Station Number: "_$P($G(^DIC(4,+$$KSP^XUPARAM("INST"),99)),U)_"."
-	D ADDLN(TEXT,.MSGBODY,.LNCNT,1)
-	S TEXT="The sender is "_$$GET1^DIQ(200,DUZ_",",.01)_" (DUZ= "_DUZ_")."
-	D ADDLN(TEXT,.MSGBODY,.LNCNT)
-	;GET the list of station numbers.
-	N FLDNUM,ABSIEN,VALUE,FIELD
-	D LIST^DIC(503339.51,","_NEWIEN_",",1,,,"X",,"SN",,,"ABSROOT")
-	I $D(DIERR) W ! D MSG^DIALOG() Q
-	;Assemble the message for each site.
-	F I=1:1:+ABSROOT("DILIST",0) D
-	. S TEXT="          INFORMATION FOR STATION NUMBER: "_ABSROOT("DILIST","ID",I,.01)
-	. D ADDLN(TEXT,.MSGBODY,.LNCNT,1)
-	. S ABSIEN=ABSROOT("DILIST",2,I)_","_NEWIEN_","
-	. ;Fieldnames and values are obtained for Voluntary Migration Log.
-	. ;Note changes to the DD will require changes to this code.
-	. F FLDNUM=1:1:11 D
-	. . S FIELD=$$GET1^DID(503339.51,FLDNUM,,"LABEL")
-	. . S VALUE=$$GET1^DIQ(503339.51,ABSIEN,FLDNUM)
-	. . S TEXT=FIELD_":  "_VALUE
-	. . D ADDLN(TEXT,.MSGBODY,.LNCNT,1)
-	. . Q
-	. Q
-	Q
-	;
-ADDLN(LINE,BODY,COUNT,SKIP)	;
-	I $G(SKIP) S COUNT=COUNT+1,BODY(COUNT)=" "
-	S COUNT=COUNT+1
-	S BODY(COUNT)=LINE
-	Q
-	;
-VAL	;
-	;Entry point for Validate Existing Data Option
-	;Checks all data that will be migrated and creates log entries 
-	;containing entries with problems.
-	;Optionally, you can print results.
-	N DIR,Y,ABSRES,ABSRESDA,ABSIEN,EXSITES
-	W @IOF
-	;Check to assure entry exists in Migration Log file.
-	D ABSIEN^ABSVMUT1 Q:'ABSIEN
-	W "Data that will be moved to the new Voluntary Service System database"
-	W !," will now be checked for consistency."
-	W !!,"The result will be recorded in the Voluntary Migration Log File."
-	W !,"You will have the opportunity to print these results."
-	W !!
-	;
-	S DIR(0)="Y"
-	S DIR("A")="Do you want to proceed"
-	S DIR("??")="If you answer NO, you can check the data at a later time."
-	D ^DIR
-	I 'Y W !!,"Data checking can be done at a later time.  Bye." Q
-	;
-	W !!,"Creating list of all Volunteers with hours after Sept. 30, 1996."
-	D EXSITES^ABSVMUT1
-	D BLDVOLLT^ABSVMUT1()
-	W !,"Done."
-	;
-	W !!,"Creating lists of valid Organization, Service, Schedule, and Award Codes."
-	D LDCDS^ABSVMUT1
-	W !,"Done."
-	;
-	W !!,"Validating entries in the Volunteer Organization Codes File."
-	D ORGVAL^ABSVMRV1(,.ABSRES)
-	W !,"Errors Found in Organization Codes: "_ABSRES("ERRCNT")
-	S ABSRESDA(ABSRES("DA"))=""
-	;
-	W !!,"Validating entries in the Service Assignment Codes File."
-	D SRVVAL^ABSVMRV1(,.ABSRES)
-	W !,"Errors found in Service Assignment Codes: "_ABSRES("ERRCNT")
-	S ABSRESDA(ABSRES("DA"))=""
-	;
-	W !!,"Validating Occasional Hours."
-	D OHRSVAL^ABSVMHV1(,.ABSRES)
-	W !,"Errors found in Occasional Hours: "_ABSRES("ERRCNT")
-	S ABSRESDA(ABSRES("DA"))=""
-	;
-	W !!,"Validating Regular Hours."
-	W !,"THIS WILL TAKE SOME TIME."
-	D RHRSVAL^ABSVMHV1(,.ABSRES)
-	W !,"Errors found in Regular Hours: "_ABSRES("ERRCNT")
-	S ABSRESDA(ABSRES("DA"))=""
-	;
-	W !!,"Validating Volunteer data."
-	W !,"THIS WILL TAKE SOME TIME."
-	D VALVOL^ABSVMVV1(,.ABSRES)
-	W !,"Errors found in Volunteer data: "_ABSRES("ERRCNT")
-	S ABSRESDA(ABSRES("DA"))=""
-	;
-	W !!,"The data checking on your system is complete!"
-	D CLEANCDS^ABSVMUT1 ;Kills arrays of National Codes
-	;
-	W !!
-	S DIR(0)="Y"
-	S DIR("A")="Do you want to print the results now"
-	S DIR("??")="If you answer NO, you can print the results later."
-	D ^DIR
-	I Y D PRINTRES(.ABSRESDA,ABSIEN)
-	Q
-	;
-PRINT	;
-	;Prints entries from the VALIDATION RESULTS multiple of Voluntary Migration Log file.
-	N DIC,Y,DA
-	N ABSI,ABSVDA,DIR,ABSIEN
-	N OUT S OUT=0
-	W @IOF
-	;Check to assure entry exists in Migration Log file.
-	D ABSIEN^ABSVMUT1 Q:'ABSIEN
-	W "You can print results of the Examination of Existing Data "
-	W !,"by selecting the date/time that the examination was done."
-	W !
-	F ABSI=1:1 D  Q:OUT
-	. S DIC="^ABS(503339.5,"_ABSIEN_",2,"
-	. S DIC(0)="AE"
-	. D ^DIC
-	. I Y=-1 S OUT=1 Q
-	. S ABSVDA(+Y)=""
-	. W !
-	. S DIR(0)="Y"
-	. S DIR("A")="Do you want to select another result to print"
-	. D ^DIR
-	. I 'Y S OUT=1 Q
-	. W !
-	. Q
-	I $D(ABSVDA) D PRINTRES(.ABSVDA,ABSIEN)
-	Q
-	;
-PRINTRES(ABSVMDA,ABSMIEN)	;
-	;Prints preselected subentries in the VALIDATION RESULTS multiple
-	;passed in by the input parameter (passed by reference).
-	N ABSI,POP,DA,DIC
-	D ^%ZIS
-	Q:$G(POP)
-	U IO
-	S ABSI=0
-	F  S ABSI=$O(ABSVMDA(ABSI)) Q:ABSI=""  D
-	. W @IOF
-	. W "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
-	. S DIC="^ABS(503339.5,"_ABSMIEN_",2,"
-	. S DA(1)=1
-	. S DA=ABSI
-	. D EN^DIQ
-	. Q
-	D ^%ZISC
-	Q
-	;
diff -auBN ./r1/ABSVMRV1.m ./r2/r/ABSVMRV1.m
--- ./r1/ABSVMRV1.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/ABSVMRV1.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,79 +0,0 @@
-ABSVMRV1	;OAKLANDFO/DPC-VSS MIGRATION;7/23/2002
-	;;4.0;VOLUNTARY TIMEKEEPING;*31*;Jul 1994
-	;
-	;Reference file validation
-ORGVAL(FLAG,VALRES)	;
-	N ORGIEN,ORG0,ORGIDEN
-	N CODE
-	K ^TMP("ABSVM",$J,"ORGCODES")
-	S VALRES("ERRCNT")=0
-	S VALRES("DA")=$$CRERRLOG^ABSVMUT1("G",$G(FLAG))
-	I VALRES("DA")=0 W !,"There was an error creating VALIDATION RESULTS entry for Organizations." Q
-	S ORGIEN=899
-	F  S ORGIEN=$O(^ABS(503334,ORGIEN)) Q:ORGIEN=""  D
-	. N ERRS
-	. S ERRS=0
-	. S ORG0=$G(^ABS(503334,ORGIEN,0))
-	. S ORGIDEN="Volunteer Organizations Codes record #"_ORGIEN
-	. I ORG0="" D ADDERR^ABSVMVV1(ORGIDEN_" does not exist.",.ERRS) Q
-	. ;CODE
-	. D
-	. . S CODE=$P(ORG0,U)
-	. . I CODE="" D ADDERR^ABSVMVV1(ORGIDEN_" is missing a Code.",.ERRS) Q
-	. . I CODE'?3N D ADDERR^ABSVMVV1(ORGIDEN_" has an incorrect Code.",.ERRS) Q
-	. . I $D(^TMP("ABSVM",$J,"ORGCODES",CODE)) D ADDERR^ABSVMVV1(ORGIDEN_" has a duplicate Code of "_CODE_" with record #"_$G(^TMP("ABSVM",$J,"ORGOCDES",CODE))_".",.ERRS) Q
-	. . S ^TMP("ABSVM",$J,"ORGCODES",CODE)=ORGIEN ;array of local org codes.
-	. . S OCDS(ORGIEN)="" ;array of acceptable Org Code entries.
-	. ;ORG NAME
-	. I $P(ORG0,U,2)="" D ADDERR^ABSVMVV1(ORGIDEN_" is missing an organization name.",.ERRS)
-	. I $L($P(ORG0,U,2))>35 D ADDERR^ABSVMVV1(ORGIDEN_" has an Organization Name that is longer than 35 characters.",.ERRS)
-	. ;ABBREV.
-	. I $L($P(ORG0,U,3))>6!($L($P(ORG0,U,4))>6) D ADDERR^ABSVMVV1(ORGIDEN_" has an Abbreviation longer than 6 characters.",.ERRS)
-	. ;INACTIVE
-	. I ",0,1,,"'[(","_$P(ORG0,U,5)_",") D ADDERR^ABSVMVV1(ORGIDEN_" has an invalid Inactive Code.",.ERRS)
-	. I ERRS>0 D RECERR^ABSVMUT1(.VALRES,.ERRS) Q
-	. S OCDS(ORGIEN)="" ;Array of good org IENS for validating hours.
-	. I $G(FLAG)["S" S ^XTMP("ABSVMORG","IEN",ORGIEN)=""
-	. Q
-	D ERRCNT^ABSVMUT1(.VALRES)
-	K ^TMP("ABSVM",$J,"ORGCODE")
-	Q
-	;
-SRVVAL(FLAG,VALRES)	;
-	N SRVIEN,SRV0,SRVIDEN
-	N CODE,SRVNAME
-	K ^TMP("ABSVM",$J,"SRVCODES")
-	S VALRES("ERRCNT")=0
-	S VALRES("DA")=$$CRERRLOG^ABSVMUT1("S",$G(FLAG))
-	I VALRES("DA")=0 W !,"There was an error creating VALIDATION RESULTS entry for Services." Q
-	S SRVIEN=0
-	F  S SRVIEN=$O(^ABS(503332,SRVIEN)) Q:SRVIEN=""  D
-	. N ERRS,LOWCODE
-	. S ERRS=0
-	. S SRV0=$G(^ABS(503332,SRVIEN,0))
-	. S SRVIDEN="Voluntary Service Assignment Codes record #"_SRVIEN
-	. I SRV0="" D ADDERR^ABSVMVV1(SRVIDEN_" does not exist.",.ERRS) Q
-	. ;CODE
-	. D  Q:LOWCODE
-	. . S LOWCODE=0
-	. . S CODE=$P(SRV0,U)
-	. . I CODE="" D ADDERR^ABSVMVV1(SRVIDEN_" is missing a Code.",.ERRS) Q
-	. . I CODE'?3N.1A D ADDERR^ABSVMVV1(SRVIDEN_" has an incorrect Code.",.ERRS) Q
-	. . I CODE<800 S LOWCODE=1 Q
-	. . I $D(^TMP("ABSVM",$J,"SRVCODES",CODE)) D ADDERR^ABSVMVV1(SRVIDEN_" has a duplicate Code of "_CODE_" with record #"_^TMP("ABSVM",$J,"SRVCODES",CODE)_".",.ERRS) Q
-	. . S ^TMP("ABSVM",$J,"SRVCODES",CODE)=SRVIEN ;Array of local service codes.
-	. . S SCDS(SRVIEN)="" ;Array of usable service code IENs
-	. ;SERVICE NAME
-	. S SRVNAME=$P(SRV0,U,2)
-	. I SRVNAME="" D ADDERR^ABSVMVV1(SRVIDEN_" is missing service name.",.ERRS)
-	. I $L($P(SRVNAME,"-"))>35 D ADDERR^ABSVMVV1(SRVIDEN_" has Service Name that is longer than 35 characters.",.ERRS)
-	. I $L($P(SRVNAME,"-",2))>30 D ADDERR^ABSVMVV1(SRVIDEN_" has a Service Subdivision longer than 30 characters.",.ERRS)
-	. ;ABBREV.
-	. I $L($P(SRV0,U,3))>7 D ADDERR^ABSVMVV1(SRVIDEN_" has an Abbreviation longer than 6 characters.",.ERRS)
-	. I ERRS>0 D RECERR^ABSVMUT1(.VALRES,.ERRS) Q
-	. S SCDS(SRVIEN)="" ;Array of good service IENS used in hours' validation.
-	. I $G(FLAG)="S" S ^XTMP("ABSVMSERV","IEN",SRVIEN)=""
-	. Q
-	D ERRCNT^ABSVMUT1(.VALRES)
-	K ^TMP("ABSVM",$J,"SRVCODE")
-	Q
diff -auBN ./r1/ABSVMS1.m ./r2/r/ABSVMS1.m
--- ./r1/ABSVMS1.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/ABSVMS1.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,275 +0,0 @@
-ABSVMS1	;OAKLAND/DPC-VSS MIGRATION;7/31/2002
-	;;4.0;VOLUNTARY TIMEKEEPING;**31,33**;Jul 1994
-	;
-SENDPROC(ABSVMTO,ABSSDA)	;
-	;Driver for sending data to SQL database.
-	D CLEANXTP^ABSVMUT1
-	D SETUPXTP^ABSVMUT1
-	D LDCDS^ABSVMUT1
-	D SERVSP(.ABSVMTO,.ABSSDA)
-	D ORGSP(.ABSVMTO,.ABSSDA)
-	D VOLSP(.ABSVMTO,.ABSSDA)
-	D OHRSSP(.ABSVMTO,.ABSSDA)
-	D RHRSSP(.ABSVMTO,.ABSSDA)
-	D CLEANXTP^ABSVMUT1
-	Q
-	;
-SERVSP(ABSVMWHO,ABSSDA)	;
-	;Process for sending Services.  Includes Validation.
-	N FL,EXPORT,TOSEND,TXTFILE
-	N ABSSRES
-	;
-	W !,"Validating Services"
-	D SRVVAL^ABSVMRV1("S",.ABSSRES)
-	W !,"Errors found in Service Codes: "_ABSSRES("ERRCNT")
-	S ABSSDA(ABSSRES("DA"))=""
-	;
-	S FL=503332
-	S EXPORT="ABSVM SERVICE CODES EXPORT"
-	S TOSEND="ABSVM SERVICES TOSEND"
-	S TXTFILE="VtkServices"
-	W !,"Sending Services.."
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	W !
-	Q
-	;
-ORGSP(ABSVMWHO,ABSSDA)	;
-	;Send Process for Organizations.
-	N FL,EXPORT,TOSEND,TXTFILE
-	N ABSSRES
-	W !,"Validating Organizations"
-	D ORGVAL^ABSVMRV1("S",.ABSSRES)
-	W !,"Errors found in Organization Codes: "_ABSSRES("ERRCNT")
-	S ABSSDA(ABSSRES("DA"))=""
-	;
-	W !,"Sending Organizations.."
-	S FL=503334
-	S EXPORT="ABSVM ORGANIZATION EXPORT"
-	S TOSEND="ABSVM ORGANIZATIONS TOSEND"
-	S TXTFILE="VtkOrganizations"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	W !
-	Q
-	;
-VOLSP(ABSVMWHO,ABSSDA)	;
-	;Send Process for Volunteers
-	N FL,EXPORT,TOSEND,TXTFILE
-	N ABSSRES,EXSITES
-	D EXSITES^ABSVMUT1
-	W !,"Building List of Volunteers with Hours"
-	D BLDVOLLT^ABSVMUT1()
-	W !,"Validating Volunteers"
-	D VALVOL^ABSVMVV1("S",.ABSSRES)
-	W !,"Errors found in Volunteer data: "_ABSSRES("ERRCNT")
-	S ABSSDA(ABSSRES("DA"))=""
-	;
-	S FL=503330
-	; Volunteer Master
-	S EXPORT="ABSVM VOL MASTER EXPORT"
-	S TOSEND="ABSVM VOLUNTEER TOSEND"
-	S TXTFILE="VtkVolunteers"
-	W !,"Sending Volunteer Master Information.."
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;CONTACTS
-	S EXPORT="ABSVM VOL CONTACT EXPORT"
-	S TOSEND="ABSVM VOLUNTEER TOSEND"
-	S TXTFILE="VtkVolContacts"
-	W !,"Sending Volunteer Contact Information.."
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;COMBINATION CODES
-	N COMBDIS
-	S EXPORT="ABSVM VOL COMBINATIONS EXPORT"
-	S TOSEND=""
-	S COMBDIS(0)="I $D(^XTMP(""ABSVMVOLCB"",""IEN"",D0))"
-	S TXTFILE="VtkVolCombinations"
-	W !,"Sending Combination code Information.."
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,,.COMBDIS)
-	;PROFILES
-	N PROFDIS
-	S EXPORT="ABSVM PROFILES EXPORT"
-	S TOSEND=""
-	S TXTFILE="VtkVolProfiles"
-	S PROFDIS(0)="I $D(^XTMP(""ABSVMVOLP"",""IEN"",D0))"
-	W !,"Sending Volunteer Profile Information.."
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,,.PROFDIS)
-	;PARKING STICKERS
-	N PARKDIS
-	S EXPORT="ABSVM PARKING EXPORT"
-	S TOSEND=""
-	S TXTFILE="VtkVolParking"
-	S PARKDIS(0)="I $D(^XTMP(""ABSVMVOLPK"",""IEN"",D0))"
-	W !,"Sending Parking Sticker Information.."
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,,.PARKDIS)
-	W !
-	Q
-	;
-OHRSSP(ABSVMWHO,ABSSDA)	;
-	;Occasional Hours Processing.
-	N FL,EXPORT,TOSEND,TXTFILE
-	N ABSSRES,EXSITES
-	D EXSITES^ABSVMUT1
-	W !,"Validating Occasional Hours"
-	D OHRSVAL^ABSVMHV1("S",.ABSSRES)
-	W !,"Errors found in Occasional Hours: "_ABSSRES("ERRCNT")
-	S ABSSDA(ABSSRES("DA"))=""
-	;
-	S FL=503336
-	S EXPORT="ABSVM OCCASIONAL EXPORT"
-	S TOSEND="ABSVM OCCASIONAL HOURS TOSEND"
-	S TXTFILE="VtkOccHours"
-	W !,"Sending Occasional Hours.."
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	W !
-	Q
-	;
-RHRSSP(ABSVMWHO,ABSSDA)	;
-	;Regular hours processing.
-	N FL,EXPORT,TOSEND,TXTFILE
-	N ABSSRES,EXSITES
-	D EXSITES^ABSVMUT1
-	W !,"Validating Regular Hours"
-	D RHRSVAL^ABSVMHV1("S",.ABSSRES)
-	W !,"Errors found in Regular Hours: "_ABSSRES("ERRCNT")
-	S ABSSDA(ABSSRES("DA"))=""
-	;
-	S FL=503331
-	S EXPORT="ABSVM REGULAR HOURS EXPORT"
-	W !,"Sending Regular Hours.."
-	;97
-	S TOSEND="ABSVM REG HOURS 97Q1 TOSEND"
-	S TXTFILE="VtkRegHours97Q1"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;97Q2
-	S TOSEND="ABSVM REG HOURS 97Q2 TOSEND"
-	S TXTFILE="VtkRegHours97Q2"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;97Q3
-	S TOSEND="ABSVM REG HOURS 97Q3 TOSEND"
-	S TXTFILE="VtkRegHours97Q3"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;97Q4
-	S TOSEND="ABSVM REG HOURS 97Q4 TOSEND"
-	S TXTFILE="VtkRegHours97Q4"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;98
-	S TOSEND="ABSVM REG HOURS 98Q1 TOSEND"
-	S TXTFILE="VtkRegHours98Q1"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;98Q2
-	S TOSEND="ABSVM REG HOURS 98Q2 TOSEND"
-	S TXTFILE="VtkRegHours98Q2"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;98Q3
-	S TOSEND="ABSVM REG HOURS 98Q3 TOSEND"
-	S TXTFILE="VtkRegHours98Q3"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;98Q4
-	S TOSEND="ABSVM REG HOURS 98Q4 TOSEND"
-	S TXTFILE="VtkRegHours98Q4"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;99
-	S TOSEND="ABSVM REG HOURS 99Q1 TOSEND"
-	S TXTFILE="VtkRegHours99Q1"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;99Q2
-	S TOSEND="ABSVM REG HOURS 99Q2 TOSEND"
-	S TXTFILE="VtkRegHours99Q2"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;99Q3
-	S TOSEND="ABSVM REG HOURS 99Q3 TOSEND"
-	S TXTFILE="VtkRegHours99Q3"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;99Q4
-	S TOSEND="ABSVM REG HOURS 99Q4 TOSEND"
-	S TXTFILE="VtkRegHours99Q4"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;00
-	S TOSEND="ABSVM REG HOURS 00Q1 TOSEND"
-	S TXTFILE="VtkRegHours00Q1"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;00Q2
-	S TOSEND="ABSVM REG HOURS 00Q2 TOSEND"
-	S TXTFILE="VtkRegHours00Q2"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;00Q3
-	S TOSEND="ABSVM REG HOURS 00Q3 TOSEND"
-	S TXTFILE="VtkRegHours00Q3"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;00Q4
-	S TOSEND="ABSVM REG HOURS 00Q4 TOSEND"
-	S TXTFILE="VtkRegHours00Q4"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;01
-	S TOSEND="ABSVM REG HOURS 01Q1 TOSEND"
-	S TXTFILE="VtkRegHours01Q1"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;01Q2
-	S TOSEND="ABSVM REG HOURS 01Q2 TOSEND"
-	S TXTFILE="VtkRegHours01Q2"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;01Q3
-	S TOSEND="ABSVM REG HOURS 01Q3 TOSEND"
-	S TXTFILE="VtkRegHours01Q3"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;01Q4
-	S TOSEND="ABSVM REG HOURS 01Q4 TOSEND"
-	S TXTFILE="VtkRegHours01Q4"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;02
-	S TOSEND="ABSVM REG HOURS 02Q1 TOSEND"
-	S TXTFILE="VtkRegHours02Q1"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;02Q2
-	S TOSEND="ABSVM REG HOURS 02Q2 TOSEND"
-	S TXTFILE="VtkRegHours02Q2"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;02Q3
-	S TOSEND="ABSVM REG HOURS 02Q3 TOSEND"
-	S TXTFILE="VtkRegHours02Q3"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;02Q4
-	S TOSEND="ABSVM REG HOURS 02Q4 TOSEND"
-	S TXTFILE="VtkRegHours02Q4"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;03
-	S TOSEND="ABSVM REG HOURS 03Q1 TOSEND"
-	S TXTFILE="VtkRegHours03Q1"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;03Q2
-	S TOSEND="ABSVM REG HOURS 03Q2 TOSEND"
-	S TXTFILE="VtkRegHours03Q2"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;03Q3
-	S TOSEND="ABSVM REG HOURS 03Q3 TOSEND"
-	S TXTFILE="VtkRegHours03Q3"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;03Q4
-	S TOSEND="ABSVM REG HOURS 03Q4 TOSEND"
-	S TXTFILE="VtkRegHours03Q4"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	;04
-	S TOSEND="ABSVM REG HOURS 04Q1 TOSEND"
-	S TXTFILE="VtkRegHours04Q1"
-	D SEND(TXTFILE,.ABSVMWHO,FL,EXPORT,TOSEND)
-	Q
-	;
-SEND(TEXTFILE,ABSVMWHO,FILE,XPTEMP,SORTTEMP,SCREEN)	;
-	;Sending data.
-	N ABSVHFS,ABSVDEL,XMDUZ,XMY,XMSUB,XMTEXT,XMZ,%ZIS,IOP,Y
-	;set MailMan variables
-	M XMY=ABSVMWHO
-	S XMDUZ=DUZ,XMSUB="$Station$ "_$P($G(^DIC(4,+$$KSP^XUPARAM("INST"),99)),U)_" :"_TEXTFILE_" -- "_$$FMTE^XLFDT($$NOW^XLFDT)
-	;set device handler variables
-	S ABSVHFS="ABSVMIGRATION.DAT",IOP="HFS",%ZIS="",%ZIS("HFSMODE")="W",%ZIS("HFSNAME")=ABSVHFS
-	D EXPORT^DDXP(FILE,XPTEMP,0,$G(SORTTEMP),,,.SCREEN,,IOP)
-	;create message and get message number
-	F  D XMZ^XMA2 Q:XMZ>0  H 1
-	;import from HFS to message global
-	S Y=$$FTG^%ZISH("",ABSVHFS,$NA(^XMB(3.9,XMZ,2,1,0)),4)
-	;send message
-	S XMDUZ=DUZ
-	D ENT1^XMD
-	;delete HFS file
-	S ABSVDEL(ABSVHFS)="",Y=$$DEL^%ZISH("",$NA(ABSVDEL))
-	W !,"   Message #",XMZ
-	Q
diff -auBN ./r1/ABSVMUT1.m ./r2/r/ABSVMUT1.m
--- ./r1/ABSVMUT1.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/ABSVMUT1.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,133 +0,0 @@
-ABSVMUT1	;OAKLANDFO/DPC-VSS MIGRATIOIN;8/3/2002
-	;;4.0;VOLUNTARY TIMEKEEPING;**31,33**;Jul 1994
-	;
-BLDVOLLT(FLAG)	      ;
-	;
-	;FLAG="S" -- Only need site data into ABSSITES()
-	N REGIEN,VOLPTR,SITE,REG0,SRTDATE,ENTRY,TERM
-	K ^TMP("ABSVM","VOLWHRS",$J),ABSSITES
-	S REGIEN=0
-	F  S REGIEN=$O(^ABS(503331,REGIEN)) Q:'REGIEN  D
-	. S REG0=$G(^ABS(503331,REGIEN,0))
-	. I $P(REG0,U,3)<2961001 Q
-	. S VOLPTR=$P(REG0,U)
-	. S SITE=$P(REG0,U,7)
-	. ;check for excluded sites
-	. Q:(VOLPTR="")!(SITE="")  Q:$D(EXSITES(SITE))
-	. I $G(FLAG)="S" S ABSSITES(SITE)="" Q
-	. S ^TMP("ABSVM","VOLWHRS",$J,VOLPTR,SITE)=""
-	. Q
-	;check for new volunteer's, less than 90 days, with no hours
-	S VOLPTR=0,SRTDATE=$$HTFM^XLFDT($$HADD^XLFDT($H,-90))
-	F  S VOLPTR=$O(^ABS(503330,VOLPTR)) Q:VOLPTR=""  D
-	. S REGIEN=0
-	. F  S REGIEN=$O(^ABS(503330,VOLPTR,4,REGIEN)) Q:'REGIEN  D
-	.. S REG0=$G(^ABS(503330,VOLPTR,4,REGIEN,0))
-	.. Q:REG0=""
-	.. ;check for excluded sites
-	.. S SITE=$P(REG0,U,12)  Q:SITE=""  Q:$D(EXSITES(SITE))
-	.. S ENTRY=$P(REG0,U,2),TERM=$P(REG0,U,8)
-	.. I ENTRY>SRTDATE,TERM="",'$D(^TMP("ABSVM","VOLWHRS",$J,VOLPTR,REGIEN)) S ^(REGIEN)=""
-	.. Q
-	Q
-	;
-EXSITES	;get exclude sites and put in EXSITES array
-	;
-	N I,J,X
-	K EXSITES
-	;there should only be one entry at top level
-	S I=$O(^ABS(503339.5,"IN","N",0)),J=0 Q:I=""
-	F  S J=$O(^ABS(503339.5,"IN","N",I,J)) Q:J=""  D
-	. S X=$P($G(^ABS(503339.5,I,1,J,0)),U)
-	. S:X]"" EXSITES(X)=""
-	Q
-	;
-ABSIEN	;get the ien of Migration Log file
-	;returns ABSIEN=IEN or 0 if failed
-	S ABSIEN=0
-	D LIST^DIC(503339.5)
-	I '^TMP("DILIST",$J,0) D  Q
-	. W "You must run the Prepare for Transition to VSS option first."
-	. W !,"If you have any questions, contact the System Implementation team."
-	. Q
-	I ^TMP("DILIST",$J,0)>1 D  Q
-	. W "You have multiple entries in the Voluntary Migration Log."
-	. W !,"Contact System Implementation."
-	S ABSIEN=^TMP("DILIST",$J,2,1)
-	;
-SETUPXTP	;
-	;Sets up 0-nodes in XTMP
-	S ^XTMP("ABSVMORG",0)=$$NOW^XLFDT_U_$$HTFM^XLFDT($$HADD^XLFDT($H,30))_U_"Voluntary Organizations to be migrated."
-	S ^XTMP("ABSVMSERV",0)=$$NOW^XLFDT_U_$$HTFM^XLFDT($$HADD^XLFDT($H,30))_U_"Voluntary Services to be migrated."
-	S ^XTMP("ABSVMOHRS",0)=$$NOW^XLFDT_U_$$HTFM^XLFDT($$HADD^XLFDT($H,30))_U_"Voluntary Occasional Hours to be migrated."
-	S ^XTMP("ABSVMRHRS",0)=$$NOW^XLFDT_U_$$HTFM^XLFDT($$HADD^XLFDT($H,30))_U_"Voluntary Regular Hours to be migrated."
-	S ^XTMP("ABSVMVOL",0)=$$NOW^XLFDT_U_$$HTFM^XLFDT($$HADD^XLFDT($H,30))_U_"Volunteers to be migrated."
-	S ^XTMP("ABSVMVOLP",0)=$$NOW^XLFDT_U_$$HTFM^XLFDT($$HADD^XLFDT($H,30))_U_"Volunteer Profiles to be migrated."
-	S ^XTMP("ABSVMVOLCB",0)=$$NOW^XLFDT_U_$$HTFM^XLFDT($$HADD^XLFDT($H,30))_U_"Volunteer Combination Codes to be migrated."
-	S ^XTMP("ABSVMVOLPK",0)=$$NOW^XLFDT_U_$$HTFM^XLFDT($$HADD^XLFDT($H,30))_U_"Volunteer Parking Stickers to be migrated."
-	Q
-	;
-CLEANXTP	;
-	;Empties all the XTMP()s and TMP holding IENs to Export.
-	K ^XTMP("ABSVMSERV"),^XTMP("ABSVMORG")
-	K ^XTMP("ABSVMRHRS"),^XTMP("ABSVMOHRS")
-	K ^XTMP("ABSVMVOL"),^XTMP("ABSVMVOLP")
-	K ^XTMP("ABSVMVOLCB"),^XTMP("ABSVMVOLPK")
-	K ^TMP("ABSVM","VOLWHRS"),^TMP("ABSVM",$J)
-	Q
-	;
-LDCDS	;
-	;Call routines that Load codes for orgs, services,
-	;work schedules and awards into Local arrays.
-	D LDORGS^ABSVMLC1 ;Organizations into OCDS()
-	D LDSRVS^ABSVMLC2 ;Services into SCDS()
-	D LDWKS^ABSVMLC3 ; Work Schedules into WCDS()
-	D LDAWDS^ABSVMLC3 ;Awards into ACDS()
-	Q
-	;
-CLEANCDS	;
-	;Kills local arrays of national codes
-	K OCDS,SCDS,WCDS,ACDS
-	Q
-	;
-CRERRLOG(RUNTYPE,SEND)	;
-	;Function that creates an entry in the VALIDATION RESULTS multiple.
-	;Returns the DA of the subentry.
-	N ABSVMFDA,ABSVMIEN,DIERR,ABSIEN
-	;Get IEN of Migration Log entry.
-	D ABSIEN Q:'ABSIEN
-	;Set TIME RUN = NOW
-	S ABSVMFDA(503339.52,"+1,"_ABSIEN_",",.01)=$$NOW^XLFDT
-	;Set VALIDATED DATA = Type passed in.
-	S ABSVMFDA(503339.52,"+1,"_ABSIEN_",",1)=RUNTYPE
-	I $G(SEND)["S" S ABSVMFDA(503339.52,"+1,"_ABSIEN_",",2)="Y"
-	E  S ABSVMFDA(503339.52,"+1,"_ABSIEN_",",2)="N"
-	D UPDATE^DIE(,"ABSVMFDA","ABSVMIEN")
-	I $G(DIERR)="" Q ABSVMIEN(1) ;Successful creation
-	D MSG^DIALOG()
-	Q 0
-	;
-RECERR(VALRESUL,ERRORS)	;
-	;Records errors in the VALIDATION RESULTS multiple.
-	;Also, increments the error count.
-	;Get IEN of Migration Log entry.
-	I $G(VALRESUL("ERRIEN"))="" D
-	. N ABSIEN
-	. D ABSIEN Q:'ABSIEN
-	. S VALRESUL("ERRIEN")=ABSIEN
-	. Q
-	D WP^DIE(503339.52,VALRESUL("DA")_","_VALRESUL("ERRIEN")_",",4,"A","ERRORS")
-	S VALRESUL("ERRCNT")=$G(VALRESUL("ERRCNT"))+1
-	Q
-	;
-ERRCNT(VALRESUL)	;
-	;Records the number of errors during a run.
-	N ABSVMFDA,ABSIEN
-	I $G(VALRESUL("ERRIEN"))="" D
-	. D ABSIEN Q:'ABSIEN
-	. S VALRESUL("ERRIEN")=ABSIEN
-	. Q
-	S ABSVMFDA(503339.52,VALRESUL("DA")_","_VALRESUL("ERRIEN")_",",3)=VALRESUL("ERRCNT")
-	D FILE^DIE(,"ABSVMFDA")
-	Q
-	;
diff -auBN ./r1/ABSVMVV1.m ./r2/r/ABSVMVV1.m
--- ./r1/ABSVMVV1.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/ABSVMVV1.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,125 +0,0 @@
-ABSVMVV1	;OAKLANDFO/DPC-VSS MIGRATION;7/9/2002
-	;;4.0;VOLUNTARY TIMEKEEPING;**31,33**;Jul 1994
-	;
-	;
-VALVOL(FLAG,VALRES,START,END)	;Beginning of validation of volunteer data
-	;FLAG=S Send mode; so, build sort template array in XTMP.
-	N VOLIEN
-	N VOLCNT
-	;
-	K ^TMP("ABSVM",$J)
-	S VALRES("ERRCNT")=0
-	S VALRES("DA")=$$CRERRLOG^ABSVMUT1("V",$G(FLAG))
-	I VALRES("DA")=0 W !,"There was an error creating VALIDATION RESULTS entry for Volunteers." Q
-	S VOLIEN=$G(START,0),END=$G(END,999999999999999),VOLCNT=0
-	F  S VOLIEN=$O(^ABS(503330,VOLIEN)) Q:VOLIEN=""!(VOLIEN>END)  D
-	. S VOLCNT=VOLCNT+1
-	. D VOLVAL($G(FLAG),VOLIEN)
-	. Q
-	D ERRCNT^ABSVMUT1(.VALRES)
-	Q
-	;
-VOLVAL(FLAG,VOLIEN)	;
-	N VOL0,VOLIDEN,ERRS,VOL3
-	N VOLNAME,SSN,AD1,CITY,DOB,LANG,SEX,STPTR,ZIP
-	;Check if Volunteer had hours. If not, don't process.
-	;Need to add exception for brand new volunteers (entry < 3 mos.)
-	I '$D(^TMP("ABSVM","VOLWHRS",$J,VOLIEN)) Q
-	S ERRS=0
-	S VOL0=$G(^ABS(503330,VOLIEN,0))
-	S VOL3=$G(^ABS(503330,VOLIEN,3))
-	;IEN
-	I VOL0="" D ADDERR("Volunteer record #"_VOLIEN_" does not exist",.ERRS) D RECERR^ABSVMUT1(.VALRES,.ERRS) Q
-	;NAME
-	S VOLNAME=$P(VOL0,U,1)
-	I VOLNAME="" D ADDERR("Volunteer record #"_VOLIEN_" does not have a volunteer name.",.ERRS)
-	S VOLIDEN="Volunteer record #"_VOLIEN_" with Name "_VOLNAME_" "
-	D STDNAME^XLFNAME(.VOLNAME,"C")
-	I VOLNAME("FAMILY")="" D ADDERR(VOLIDEN_"is missing a last name.",.ERRS)
-	I $L(VOLNAME("FAMILY"))>30 D ADDERR(VOLIDEN_"has a last name longer than 30 characters.",.ERRS)
-	I VOLNAME("GIVEN")="" D ADDERR(VOLIDEN_"is missing a first name.",.ERRS)
-	I $L(VOLNAME("GIVEN"))>30 D ADDERR(VOLIDEN_"has a first name longer than 30 characters.",.ERRS)
-	I $L(VOLNAME("MIDDLE"))>20 D ADDERR(VOLIDEN_"has a middle name longer than 20 characters.",.ERRS)
-	I $L(VOLNAME("SUFFIX"))>10 D ADDERR(VOLIDEN_"has a name suffix longer than 10 characters.",.ERRS)
-	;SSN
-	D
-	. S SSN=$P(VOL0,U,2)
-	. I SSN="" D ADDERR(VOLIDEN_"is missing a Social Security Number.",.ERRS) Q
-	. I SSN'?9N D ADDERR(VOLIDEN_" has an incorrect SSN: "_SSN_".",.ERRS) Q
-	. I $D(^TMP("ABSVM",$J,"SSN",SSN)) D  Q
-	.. N ERRORS
-	.. S ERRORS(1)="Warning: "_VOLIDEN_"has a duplicate SSN with record "_^TMP("ABSVM",$J,"SSN",SSN)
-	.. I $G(VALRES("ERRIEN"))="" D
-	... N ABSIEN
-	... D ABSIEN^ABSVMUT1 Q:'ABSIEN
-	... S VALRES("ERRIEN")=ABSIEN
-	... Q
-	.. D WP^DIE(503339.52,VALRES("DA")_","_VALRES("ERRIEN")_",",4,"A","ERRORS")
-	.. Q
-	. S ^TMP("ABSVM",$J,"SSN",SSN)=VOLIEN
-	;ADDR #1
-	S AD1=$P(VOL0,U,3)
-	I AD1="" D ADDERR(VOLIDEN_"is missing first line of address.",.ERRS)
-	I $L(AD1)>35 D ADDERR(VOLIDEN_"has a first line of address longer than 35 characters.",.ERRS)
-	;CITY
-	S CITY=$P(VOL0,U,4)
-	I CITY="" D ADDERR(VOLIDEN_"is missing a city.",.ERRS)
-	I $L(CITY)>30 D ADDERR(VOLIDEN_"has a city longer than 30 characters.",ERRS)
-	;STATE
-	;MAY NEED CHECK ABBREVIATION AGAINST AN ACCEPTABLE LIST.
-	S STPTR=$P(VOL0,U,5)
-	I STPTR="" D ADDERR(VOLIDEN_"is missing a state.",.ERRS)
-	I STPTR'="",$L($P($G(^DIC(5,STPTR,0)),U,2))'=2 D ADDERR(VOLIDEN_"has incorrect state data.",.ERRS)
-	;ZIP
-	S ZIP=$P(VOL0,U,6)
-	I ZIP="" D ADDERR(VOLIDEN_"is missing a zip code.",.ERRS)
-	I $L(ZIP)>10 D ADDERR(VOLIDEN_"has a zip code longer than 10 characters.",.ERRS)
-	;SEX
-	S SEX=$P(VOL0,U,7)
-	I SEX="" D ADDERR(VOLIDEN_"is missing a gender designation.",.ERRS)
-	I ",M,F,B,G,"'[(","_SEX_",") D ADDERR(VOLIDEN_"has incorrect sex data.",.ERRS)
-	;DOB
-	D
-	. S DOB=$P(VOL0,U,8)
-	. I DOB="" D ADDERR(VOLIDEN_"is missing a data of birth.",.ERRS) Q
-	. N RES D DT^DILF("",DOB,.RES)
-	. I $L($P(DOB,"."))'=7!(RES=-1) D ADDERR(VOLIDEN_"has incorrect date of birth date.",.ERRS)
-	. Q
-	;NICK NAME
-	I $L($P(VOL0,U,9))>20 D ADDERR(VOLIDEN_"has a nick name longer than 20 characters.",.ERRS)
-	;ADDR #2
-	I $L($P(VOL0,U,10))>35 D ADDERR(VOLIDEN_"has a second line of address longer than 35 characters.",.ERRS)
-	;LANGUAGE
-	S LANG=$P(VOL0,U,11)
-	I LANG'="",",1,2,"'[(","_LANG_",") D ADDERR(VOLIDEN_"has an incorrect preferred language code.",.ERRS)
-	;PSEUDO SSN
-	I $P(VOL0,U,18)'="P",$P(VOL0,1,18)'="" D ADDERR(VOLIDEN_"has an incorect psuedo SSN indicator",.ERRS)
-	;CODE
-	I $L($P(VOL0,U,22))>5 D ADDERR(VOLIDEN_"has a Code longer than 5 characters.",.ERRS)
-	;NOK
-	I $L($P(VOL3,U,1))>30 D ADDERR(VOLIDEN_"has a Next of Kin longer than 30 characters.",.ERRS)
-	;PHONE
-	I $L($P(VOL3,U,2))>30 D ADDERR(VOLIDEN_"has a Telephone Number longer than 30 characters.",.ERRS)
-	;NOK RELATIONSHIP
-	I $L($P(VOL3,U,3))>15 D ADDERR(VOLIDEN_"has a Kin's Relationship longer than 15 characters.",.ERRS)
-	;NOK TELEPHONE
-	I $L($P(VOL3,U,4))>30 D ADDERR(VOLIDEN_"has a Kin's Telephone longer than 30 characters.",.ERRS)
-	;NOK ALT PHONE
-	I $L($P(VOL3,U,5))>30 D ADDERR(VOLIDEN_"has a Kin's Alternate Phone longer than 30 characters.")
-	;ALT PHONE
-	I $L($P(VOL3,U,7))>30 D ADDERR(VOLIDEN_"has an Alternate Phone longer than 30 characters.",.ERRS)
-	;Record errors
-	I ERRS>0 D RECERR^ABSVMUT1(.VALRES,.ERRS)
-	;If no errors, proceed and add to sort template.
-	I $G(FLAG)["S",'ERRS S ^XTMP("ABSVMVOL","IEN",VOLIEN)=""
-	;STATION PROFILE
-	D PROF^ABSVMVV2(VOLIEN,VOLIDEN,$G(FLAG),.VALRES)
-	;COMBINATIONS
-	D COMBVAL^ABSVMVV3(VOLIEN,VOLIDEN,$G(FLAG),.VALRES)
-	;
-	Q
-	;
-ADDERR(ERRMSG,ERRS,ABSVIEN)	;
-	S ERRS=ERRS+1
-	S ERRS(ERRS)=ERRMSG
-	Q
diff -auBN ./r1/ABSVMVV2.m ./r2/r/ABSVMVV2.m
--- ./r1/ABSVMVV2.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/ABSVMVV2.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,93 +0,0 @@
-ABSVMVV2	;OAKLANDFO/DPC-VSS MIGRATION;7/18/2002
-	;;4.0;VOLUNTARY TIMEKEEPING;**31,33,35**;Jul 1994
-	;
-PROF(VOLIEN,VOLIDEN,FLAG,VALRESP)	;
-	;
-	N PROFIEN,PROF0,ERRS,OUT
-	N AWARD,AWCDPTR,ENTRY,STATION,STATPTR,TERM
-	S PROFIEN=0
-	F  S PROFIEN=$O(^ABS(503330,VOLIEN,4,PROFIEN)) Q:PROFIEN=""  D
-	. N ERRS S ERRS=0
-	. S OUT=0
-	. S PROF0=$G(^ABS(503330,VOLIEN,4,PROFIEN,0))
-	. ; if no zero node, clean up children nodes and 'B' cross-ref
-	. I PROF0="" K ^ABS(503330,VOLIEN,4,"B",PROFIEN,PROFIEN),^ABS(503330,VOLIEN,4,PROFIEN) Q
-	. ;STATION NUMBER
-	. D
-	. . S STATPTR=$P(PROF0,U)
-	. . I STATPTR="" D ADDERR^ABSVMVV1(VOLIDEN_"is missing Station information.",.ERRS,VOLIEN) S OUT=1 Q
-	. . S STATION=$P($G(^ABS(503338,STATPTR,0)),U,9)
-	. . Q:$D(EXSITES(STATION))  ;check for excluded sites
-	. . I $L(STATION)>7!(STATION="") D ADDERR^ABSVMVV1(VOLIDEN_"has incorrect Station Number information.",.ERRS,VOLIEN) S OUT=1 Q
-	. . ; if no station number, then set it. This field should alway be there, it is set in a trigger on .01 field
-	. . I $P(PROF0,U,12)="" S $P(PROF0,U,12)=STATION,^ABS(503330,VOLIEN,4,PROFIEN,0)=PROF0 Q
-	. ;ENTRY DATE, if no error then do
-	. D:'OUT
-	. . N DA,DIK
-	. . S ENTRY=$P(PROF0,U,2),DIK="^ABS(503330,"_VOLIEN_",4,"
-	. . ;if no entry date, then delete this station multiple
-	. . I ENTRY="" S DA=PROFIEN,DA(1)=VOLIEN D ^DIK S OUT=1 Q
-	. . ;D ADDERR^ABSVMVV1(VOLIDEN_"is missing Entry Date information.",.ERRS,VOLIEN) Q
-	. . ;Check if hours recorded for that station. Ok if entry date new.
-	. . I '$D(^TMP("ABSVM","VOLWHRS",$J,VOLIEN,STATION))&(+ENTRY<$$HTFM^XLFDT($$HADD^XLFDT($H,-90))) S OUT=1 Q
-	. . N RES D DT^DILF("",ENTRY,.RES)
-	. . I $L($P(ENTRY,"."))'=7!(RES=-1) D ADDERR^ABSVMVV1(VOLIDEN_"has an incorrect Entry Date.",.ERRS,VOLIDEN)
-	. ;If OUT, Station Profile should not be sent, record error and QUIT
-	. I OUT D:ERRS>0 RECERR^ABSVMUT1(.VALRESP,.ERRS) Q
-	. ;YEARS
-	. I $P(PROF0,U,3)'?.N D ADDERR^ABSVMVV1(VOLIDEN_"has an incorrect value for Years At Station.",ERRS,VOLIEN)
-	. ;PRIOR HOURS
-	. I $P(PROF0,U,20)'?.N D ADDERR^ABSVMVV1(VOLIDEN_"has an incorrect value for Prior Years Hours Served.",.ERRS,VOLIEN)
-	. ;CURRENT HOURS
-	. I $P(PROF0,U,21)'?.N D ADDERR^ABSVMVV1(VOLIDEN_"has an incorrect value for Current Year Hours Served.",.ERRS,VOLIEN)
-	. ;LAST AWARD HOURS
-	. I $P(PROF0,U,5)'?.N D ADDERR^ABSVMVV1(VOLIDEN_"has an incorrect value for Hours Last Award.",.ERRS,VOLIEN)
-	. ;LAST AWARD DATE
-	. S AWARD=$P(PROF0,U,6)
-	. D:AWARD'=""
-	. . N RES D DT^DILF("",AWARD,.RES)
-	. . I $L($P(AWARD,"."))'=7!(RES=-1) D ADDERR^ABSVMVV1(VOLIDEN_"has an incorrect Last Award Date.",.ERRS,VOLIDEN)
-	. ;AWARD CODE
-	. S AWCDPTR=$P(PROF0,U,7)
-	. I AWCDPTR'="",'$D(ACDS(AWCDPTR)) D ADDERR^ABSVMVV1(VOLIDEN_"has an incorrect Award Code.",.ERRS,.VOLIEN)
-	. ;TERM DATE
-	. S TERM=$P(PROF0,U,8)
-	. D:TERM'=""
-	. . N RES D DT^DILF("",TERM,.RES)
-	. . I $L($P(TERM,"."))'=7!(RES=-1) D ADDERR^ABSVMVV1(VOLIDEN_"has an incorrect Termination Date.",.ERRS,VOLIDEN)
-	. ;REMARKS
-	. ;Only 160 characters can be sent. See ABSVM VOLREMARKS function.
-	. D
-	.. N D0,D1,REM,ERRORS
-	.. S D0=VOLIEN,D1=PROFIEN,REM=$$GETREM()
-	.. I $L(REM)>160 D
-	... S ERRORS(1)="Warning: "_VOLIDEN_"has Remarks greater than 160 characters."
-	... I $G(VALRES("ERRIEN"))="" D
-	.... N ABSIEN
-	.... D ABSIEN^ABSVMUT1 Q:'ABSIEN
-	.... S VALRES("ERRIEN")=ABSIEN
-	... D WP^DIE(503339.52,VALRES("DA")_","_VALRES("ERRIEN")_",",4,"A","ERRORS")
-	. ;MEALS?
-	. I ",,0,1,"'[(","_$P(PROF0,U,24)_",") D ADDERR^ABSVMVV1(VOLIDEN_"has an incorrect Eligible For Meals code.",.ERRS,VOLIEN)
-	. ;TRANSPORT
-	. I ",,1,2,3,4,"'[(","_$P(PROF0,U,23)_",") D ADDERR^ABSVMVV1(VOLIDEN_"has an incorrect Method of Transportation code.",.ERRS,VOLIEN)
-	. ; Check for errors
-	. I ERRS>0 D RECERR^ABSVMUT1(.VALRESP,.ERRS) Q
-	. ; No errors and got this far; add to send list if FLAG=S
-	. I $G(FLAG)["S" S ^XTMP("ABSVMVOLP","IEN",VOLIEN)=""
-	. ;PARKING STICKERS
-	. D PARKVAL^ABSVMVV3(VOLIEN,PROFIEN,VOLIDEN,$G(FLAG),.VALRESP)
-	Q
-	;
-GETREM()	;Function to return Remarks field from Voluntary Master
-	N MYIENS,MYROOT,WPREM,REMARKS,I
-	S MYIENS=D1_","_D0_","
-	S MYROOT=$$GET1^DIQ(503330.01,MYIENS,18,,"WPREM")
-	I MYROOT="" Q ""
-	S I=0,REMARKS=""
-	F  S I=$O(WPREM(I)) Q:I=""  D
-	. ;Avoid string too long error.
-	. I $L(REMARKS)+$L(WPREM(I))>511 S I=99999 Q
-	. S REMARKS=REMARKS_$S($L(REMARKS)>0:" ",1:"")_WPREM(I)
-	Q REMARKS
-	;
diff -auBN ./r1/ABSVMVV3.m ./r2/r/ABSVMVV3.m
--- ./r1/ABSVMVV3.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/ABSVMVV3.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,55 +0,0 @@
-ABSVMVV3	;OAKLANDFO/DPC-VSS MIGRATION;7/19/2002
-	;;4.0;VOLUNTARY TIMEKEEPING;**31,33**;Jul 1994
-	;
-PARKVAL(VOLIEN,PROFIEN,VOLIDEN,FLAG,VALRESPK)	;
-	;Validate Parking Sticker Information.
-	N PARKIEN,PARK0
-	N STPTR
-	S PARKIEN=0
-	F  S PARKIEN=$O(^ABS(503330,VOLIEN,4,PROFIEN,2,PARKIEN)) Q:PARKIEN=""  D
-	. N ERRS S ERRS=0
-	. S PARK0=$G(^ABS(503330,VOLIEN,4,PROFIEN,2,PARKIEN,0))
-	. I PARK0="" Q
-	. ;STICKER#
-	. I $P(PARK0,U)="" D ADDERR^ABSVMVV1(VOLIDEN_"is missing a Parking Sticker.",.ERRS,VOLIEN)
-	. I $L($P(PARK0,U))>13 D ADDERR^ABSVMVV1(VOLIDEN_"has a Parking Sticker longer than 13 characters.",.ERRS,VOLIEN)
-	. ;REG STATE
-	. S STPTR=$P(PARK0,U,2)
-	. I STPTR'="",$L($P($G(^DIC(5,STPTR,0)),U,2))'=2 D ADDERR^ABSVMVV1(VOLIDEN_"has incorrect State data for a Parking Sticker.",.ERRS,VOLIEN)
-	. ;PLATE#
-	. I $L($P(PARK0,U,3))>12 D ADDERR^ABSVMVV1(VOLIDEN_"has a License Plate Number longer than 12 characters.",.ERRS,VOLIEN)
-	. I ERRS>0 D RECERR^ABSVMUT1(.VALRESPK,.ERRS) Q
-	. ;If got this far and FLAG=S, add to Parking Sort Template
-	. I $G(FLAG)["S" S ^XTMP("ABSVMVOLPK","IEN",VOLIEN)=""
-	. Q
-	Q
-	;
-COMBVAL(VOLIEN,VOLIDEN,FLAG,VALRESC)	;
-	;Validate combination data.
-	N COMBIEN,COMB0,COMB
-	N ORGPTR,SCHDPTR,SRVPTR
-	S COMBIEN=0
-	F  S COMBIEN=$O(^ABS(503330,VOLIEN,1,COMBIEN)) Q:COMBIEN=""  D
-	. N ERRS S ERRS=0
-	. S COMB0=$G(^ABS(503330,VOLIEN,1,COMBIEN,0))
-	. I COMB0="" Q
-	. I $P($P(COMB0,U),"-")]"" Q:$D(EXSITES($P($P(COMB0,U),"-")))  ;check for excluded sites
-	. ;ORGANIZATION
-	. S ORGPTR=$P(COMB0,U,2),COMB=$P(COMB0,U)
-	. I ORGPTR="" D ADDERR^ABSVMVV1(VOLIDEN_"has Combination, "_COMB_" missing an Organization.",.ERRS,VOLIEN)
-	. I ORGPTR'="",'$D(OCDS(ORGPTR)) D ADDERR^ABSVMVV1(VOLIDEN_"has Combination, "_COMB_" with an incorrect Organization Code.",.ERRS,VOLIEN)
-	. ;SCHEDULE
-	. S SCHDPTR=$P(COMB0,U,3)
-	. I SCHDPTR="" D ADDERR^ABSVMVV1(VOLIDEN_"has Combination, "_COMB_" missing a Schedule.",.ERRS,VOLIEN)
-	. I SCHDPTR'="",'$D(WCDS(SCHDPTR)) D ADDERR^ABSVMVV1(VOLIDEN_"has Combination, "_COMB_" with an incorrect Schedule Code.",.ERRS,VOLIEN)
-	. ;SERVICE
-	. S SRVPTR=$P(COMB0,U,4)
-	. I SRVPTR="" D ADDERR^ABSVMVV1(VOLIDEN_"has Combination, "_COMB_" missing a Service.",.ERRS,VOLIEN)
-	. I SRVPTR'="",'$D(SCDS(SRVPTR)) D ADDERR^ABSVMVV1(VOLIDEN_"has Combination, "_COMB_" with an incorrect Service Code.",.ERRS,VOLIEN)
-	. ;INACTIVE
-	. I ",0,1,"'[","_$P(COMB0,U,6)_"," D ADDERR^ABSVMVV1(VOLIDEN_"Has Combination, "_COMB_" with an incorrect Active/Inactive value.",.ERRS,VOLIEN)
-	. I ERRS>0 D RECERR^ABSVMUT1(.VALRESC,.ERRS) Q
-	. I $G(FLAG)["S" S ^XTMP("ABSVMVOLCB","IEN",VOLIEN)=""
-	. Q
-	Q
-	;
diff -auBN ./r1/ACKQAG01.m ./r2/r/ACKQAG01.m
--- ./r1/ACKQAG01.m	2005-02-21 00:30:58.000000000 -0500
+++ ./r2/r/ACKQAG01.m	1969-12-31 19:00:00.000000000 -0500
@@ -1,194 +0,0 @@
-ACKQAG01	       ;DDC/PJU - Get data for Audiogram(s) Display from 509850.9 ;11/01/02
-	;;3.0;QUASAR AUDIOMETRIC MODULE;**3**;11/01/02
-	;input: ref to array and DFN
-	;return: array of VALUES in ACKQARR array transformed to input array reference
-	;returns: value of variable ACKQERR in 8th pc of 0 node,if an error was found
-	;Series 1&3 Right Ear - Series 2&4 Left  Ear
-	;ACKQARR(0)= pieces
-	; 1= # audiograms[0-2]
-	; 2= name of patient
-	; 3= first audiogram date seen
-	; 4= first tester name
-	; 5= age of patient at first audiogram
-	; 6= title of tester for first audiogram
-	; 7= SSN of patient
-	; 8= second audiogram date(or error msg if an error exists)
-	; 9= tester name for second audiogram
-	; 10= age of patient at second audiogram
-	; 11= title of tester for second audiogram
-	; 12= station name of site
-	;ACKQARR(ctr) pieces for subscripts 1-24 and 26-50
-	; 1= X value(Hz) being tested
-	; 2= ACKQI - internal record number
-	; 3= ear[L,R]
-	; 4= air Y(dB) val
-	; 5= airMask[0-6]
-	; 6* airMaskLevel
-	; 7*= bone Y(dB) value
-	; 8*= boneMask[0-6]
-	; 9*= boneMaskLevel
-	; 10*= IAR
-	; 11*= CAR
-	;in addition ACKQARR(24/50)
-	; ^31= SRT- R1
-	; ^32= SRT- R2
-	; ^33= SRT- L1
-	; ^34= SRT- L2
-	; ^35= MaskLevel initial
-	; ^36= MaskLevel final
-	;ACKQARR(25/51 PC'S)
-	; 1R^2R^3R^4R^5R^1L^2L^3L^4L^5L^R MAX^R PIPB^R CONSIS^L MAX^L PIPB^L CONSIS
-	;ACKQARR(array nodes:26/52 PC'S from 120/121 nodes in file)
-	; Rmip^Rstat^Rveq^R IAR 5^R IAR 1^R IAR 2^R IAR 4^R CAR 5^R CAR 1^R CAR 2^R CAR 4^R ARD 5^R ARD 10^R HL 5^R HL 1^
-	; Lmip^Lstat^Lveq^L IAR 5^L IAR 1^L IAR 2^L IAR 4^L CAR 5^L CAR 1^L CAR 2^L CAR 4^L ARD 5^L ARD 10^L HL 5^L HL 1
-	;will return to the Delphi app as subscripted array
-	; Results() subscripts:
-	;  1-12(1st audiogram R ear)
-	;  13-24(1st audiogram L ear)
-	;  25 is speech recog 1st audiogram
-	;  26 is the 120/121 nodes 1st
-	;  27-38(2nd audiogram R ear)
-	;  39-50(2nd audiogram L ear)
-	;  51 is speech recog 2nd audiogram
-	;  52 is the 120/121 nodes for 2nd
-START(ACKQARR,DFN,IEN)	  ;;array name(.reference) and pointer to Patient file (#2)
-	;include IEN in 509850.9 if want just one, otherwise put 0
-	; see flow chart GetData.vsd
-	;ACKQARR=array name **passed by reference**
-	;ACKI,ACKQT=array subscript values
-	;ACKQ=number of graphs ; killed at end
-	;ACKQERR = ERR msg ; returned to calling ap and killed at end
-	;BD=dob, S0=file node, TD=test date
-	;TU=DUZ of tester, TT=title of tester
-	;ACKQDAT = fileman date from end of file; killed at end
-	;ACKQ1IEN = first entry used ; killed at end
-	;ACKQ2IEN = second entry used ; killed at end
-	K ACKQARR ;make sure does not have previous entries
-	N ACKT,BD,S0,S1,SSN,TD,TT,TU
-	S (ACKQARR(0),ACKI,ACKQ)=0
-	S ACKQERR=""
-	I '$G(DFN) D  G END
-	.S ACKQERR="**ERROR** Must have a DFN to run routine ACKQAG01 "
-	I '$D(^ACK(509850.9,0)) D  G END
-	.S ACKQERR="**ERROR** QUASAR file 509850.9 (Audiometric Exam Data file) is not available"
-	I '$D(^ACK(509850.9,"DFN",DFN)) D  G END
-	.S ACKQERR="**ERROR** patient not in audiogram file"
-	D DEM^VADPT ; - demographic variables
-	I $G(VAERR) S ACKQERR="**ERROR** Problem in retrieving Demographic values" G END
-	S SSN=$P(VADM(2),U,1),BD=VADM(3)
-	;determine if 1 or 2 audiograms - set flag
-	S ACKQDAT="A",(ACKQ1IEN,ACKQ2IEN)=""
-	I $G(IEN) D  G S3
-	.S (ACKQ1IEN,ACKQI)=IEN
-	.S ACKQDAT=$P($G(^ACK(509850.9,IEN,0)),U)
-	.S ACKQ=1
-S1	S ACKQDAT=$O(^ACK(509850.9,"DFN",DFN,ACKQDAT),-1)
-	;set up array for 1st
-	I 'ACKQ,'ACKQDAT D  G END
-	.S ACKQERR="**ERROR** No current audiograms for patient in file"
-	I ACKQ=1,'ACKQDAT G END ;only 1
-	I ACKQ>0 S ACKI=ACKI+1 ;,ACKQARR(ACKI)="*****" ;MARKER for END OF 1ST AUDIOGRAM
-	S ACKQI=0
-S2	S ACKQI=$O(^ACK(509850.9,"DFN",DFN,ACKQDAT,ACKQI))
-	I 'ACKQ,'ACKQI D  G S1
-	.S ACKQERR="**ERROR** No data exists for visit on "_$$FMTE^XLFDT(ACKQDAT)
-	G:'ACKQI S1
-	;W !,"Entry number found: ",ACKQI - for testing
-	I '$D(^ACK(509850.9,ACKQI,0)) D  G END
-	.S ACKQERR="**ERROR** Node missing in file for this visit"
-	S ACKQ=ACKQ+1 ;set flag for Number of Audiograms available
-S3	;record 1st then See if another ACKQI exists for patient
-	S S0=$G(^ACK(509850.9,ACKQI,0))
-	I $P(S0,U,2)'=DFN D  G END
-	.S ACKQERR="***URGENT** Actual Patient in Exam File entry:"_ACKQI_"