Changeset 623 for WorldVistAEHR/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC.m (modified) (8 diffs)

WorldVistAEHR/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/A1CKC.m

@@ -1 @@
-A1CKC ; GENERATED FROM 'A1CK VARO/DHCP' INPUT TEMPLATE(#1505), FILE 2;12/13/08
+A1CKC ; GENERATED FROM 'A1CK VARO/DHCP' INPUT TEMPLATE(#1505), FILE 2;04/21/06
  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)=%,DE(11)=% S %=$P(%Z,U,2) S:%]"" DE(5)=%
+ 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(^(.362)) S %Z=^(.362) S %=$P(%Z,U,12) S:%]"" DE(13)=% S %=$P(%Z,U,14) S:%]"" DE(12)=%
  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
  ;
@@ -61 +60 @@
  Q
 2 S DQ=3 ;@10
-3 S DW="VET;1",DV="SXa",DU="",DLB="VETERAN (Y/N)?",DIFLD=1901
+3 S DW="VET;1",DV="RSXa",DU="",DLB="VETERAN (Y/N)?",DIFLD=1901
  S DE(DW)="C3^A1CKC"
  S DU="Y:YES;N:NO;"
@@ -71 +70 @@
  S DFN=DA D EN^DGMTCOR K DGMTCOR
  S X=DE(3),DIC=DIE
- S DFN=DA D EN^DGRP7CC
- S X=DE(3),DIC=DIE
  ;
  S X=DE(3),DIC=DIE
@@ -84 +81 @@
  S X=DG(DQ),DIC=DIE
  S DFN=DA D EN^DGMTCOR K DGMTCOR
- S X=DG(DQ),DIC=DIE
- S DFN=DA D EN^DGRP7CC
  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)
@@ -99 +94 @@
  Q
  ;
-4 D:$D(DG)>9 F^DIE17,DE S DQ=4,DW=".3;1",DV="SXa",DU="",DLB="SERVICE CONNECTED?",DIFLD=.301
+4 D:$D(DG)>9 F^DIE17,DE S DQ=4,DW=".3;1",DV="RSXa",DU="",DLB="SERVICE CONNECTED?",DIFLD=.301
  S DE(DW)="C4^A1CKC"
  S DU="Y:YES;N:NO;"
@@ -187 +182 @@
  S X=DE(6),DIIX=2_U_DIFLD D AUDIT^DIET
 C6S S X="" G:DG(DQ)=X C6F1 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)
- I $D(DE(6))'[0!(^DD(DP,DIFLD,"AUDIT")'="e") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET
+ D ^A1CKC1
 C6F1 Q
 X6 S DFN=DA D EV^DGLOCK I $D(X) D ECD^DGLOCK1
  Q
  ;
-7 D:$D(DG)>9 F^DIE17,DE S DQ=7,DW="TYPE;1",DV="P391'a",DU="",DLB="TYPE",DIFLD=391
+7 D:$D(DG)>9 F^DIE17,DE S DQ=7,DW="TYPE;1",DV="RP391'a",DU="",DLB="TYPE",DIFLD=391
  S DE(DW)="C7^A1CKC",DE(DW,"INDEX")=1
  S DU="DG(391,"
@@ -214 +199 @@
  S X=DE(7),DIIX=2_U_DIFLD D AUDIT^DIET
 C7S S X="" G:DG(DQ)=X C7F1 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
+ D ^A1CKC2
 C7F1 N X,X1,X2 S DIXR=664 D C7X1(U) K X2 M X2=X D C7X1("O") K X1 M X1=X
  I $G(X(1))]"" D
@@ -233 +216 @@
  Q
 9 S DQ=10 ;@20
-10 D:$D(DG)>9 F^DIE17,DE S DQ=10,DW="VET;1",DV="SXa",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 ^A1CKC1
-C10S S X="" G:DG(DQ)=X C10F1 K DB
- D ^A1CKC2
-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,DE S DQ=11,DW=".3;1",DV="SXa",DU="",DLB="SERVICE CONNECTED?",DIFLD=.301
- S DE(DW)="C11^A1CKC"
- 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
-C11 G C11S:$D(DE(11))[0 K DB
- D ^A1CKC3
-C11S S X="" G:DG(DQ)=X C11F1 K DB
- D ^A1CKC4
-C11F1 Q
-X11 S DFN=DA D EV^DGLOCK I $D(X),X="Y" D VET^DGLOCK
- Q
- ;
-12 D:$D(DG)>9 F^DIE17,DE S DQ=12,DW=".362;14",DV="SX",DU="",DLB="RECEIVING A VA PENSION?",DIFLD=.36235
- S DE(DW)="C12^A1CKC"
- 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
-C12 G C12S:$D(DE(12))[0 K DB
- D ^A1CKC5
-C12S S X="" G:DG(DQ)=X C12F1 K DB
- D ^A1CKC6
-C12F1 Q
-X12 S DFN=DA D MV^DGLOCK
- Q
- ;
-13 D:$D(DG)>9 F^DIE17,DE S DQ=13,DW=".362;12",DV="SX",DU="",DLB="RECEIVING A&A BENEFITS?",DIFLD=.36205
- S DE(DW)="C13^A1CKC"
- 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
-C13 G C13S:$D(DE(13))[0 K DB
- D ^A1CKC7
-C13S S X="" G:DG(DQ)=X C13F1 K DB
- D ^A1CKC8
-C13F1 Q
-X13 S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK
- Q
- ;
-14 D:$D(DG)>9 F^DIE17 G ^A1CKC9
+10 D:$D(DG)>9 F^DIE17 G ^A1CKC3