Changeset 623 for WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRPX7.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/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRPX7.m (modified) (6 diffs)

WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRPX7.m

@@ -1 @@
-DGRPX7 ; GENERATED FROM 'DG LOAD EDIT SCREEN 7' INPUT TEMPLATE(#420), FILE 2;12/13/08
+DGRPX7 ; GENERATED FROM 'DG LOAD EDIT SCREEN 7' INPUT TEMPLATE(#420), FILE 2;12/27/07
  D DE G BEGIN
 DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
- I $D(^(.29)) S %Z=^(.29) S %=$P(%Z,U,1) S:%]"" DE(14)=% S %=$P(%Z,U,2) S:%]"" DE(13)=% S %=$P(%Z,U,12) S:%]"" DE(11)=%
  I $D(^(.3)) S %Z=^(.3) S %=$P(%Z,U,1) S:%]"" DE(5)=% S %=$P(%Z,U,2) S:%]"" DE(7)=% S %=$P(%Z,U,4) S:%]"" DE(8)=% S %=$P(%Z,U,5) S:%]"" DE(9)=% S %=$P(%Z,U,12) S:%]"" DE(10)=%
- I $D(^(.31)) S %Z=^(.31) S %=$P(%Z,U,3) S:%]"" DE(15)=% S %=$P(%Z,U,4) S:%]"" DE(16)=%
  I $D(^("TYPE")) S %Z=^("TYPE") S %=$P(%Z,U,1) S:%]"" DE(2)=%
  I $D(^("VET")) S %Z=^("VET") S %=$P(%Z,U,1) S:%]"" DE(4)=%
@@ -60 +58 @@
 X1 S:DGDR'["701" Y="@702"
  Q
-2 S DW="TYPE;1",DV="P391'a",DU="",DLB="TYPE",DIFLD=391
+2 S DW="TYPE;1",DV="RP391'a",DU="",DLB="TYPE",DIFLD=391
  S DE(DW)="C2^DGRPX7",DE(DW,"INDEX")=1
  S DU="DG(391,"
@@ -87 +85 @@
 X3 D SC7^DGRPV
  Q
-4 D:$D(DG)>9 F^DIE17,DE S DQ=4,DW="VET;1",DV="SXa",DU="",DLB="VETERAN (Y/N)?",DIFLD=1901
+4 D:$D(DG)>9 F^DIE17,DE S DQ=4,DW="VET;1",DV="RSXa",DU="",DLB="VETERAN (Y/N)?",DIFLD=1901
  S DE(DW)="C4^DGRPX7"
  S DU="Y:YES;N:NO;"
@@ -123 +121 @@
  Q
  ;
-5 D:$D(DG)>9 F^DIE17,DE S DQ=5,DW=".3;1",DV="SXa",DU="",DLB="SERVICE CONNECTED?",DIFLD=.301
+5 D:$D(DG)>9 F^DIE17,DE S DQ=5,DW=".3;1",DV="RSXa",DU="",DLB="SERVICE CONNECTED?",DIFLD=.301
  S DE(DW)="C5^DGRPX7"
  S DU="Y:YES;N:NO;"
@@ -206 +204 @@
  G RE
 C9 G C9S:$D(DE(9))[0 K DB
- S X=DE(9),DIC=DIE
- D AUTOUPD^DGENA2(DA)
- S X=DE(9),DIC=DIE
- S DFN=DA D EN^DGMTCOR K DGMTCOR
+ D ^DGRPX71
 C9S S X="" G:DG(DQ)=X C9F1 K DB
- S X=DG(DQ),DIC=DIE
- D AUTOUPD^DGENA2(DA)
- S X=DG(DQ),DIC=DIE
- S DFN=DA D EN^DGMTCOR K DGMTCOR
+ D ^DGRPX72
 C9F1 Q
 X9 Q
@@ -222 +214 @@
  Q
  ;
-11 S DW=".29;12",DV="S",DU="",DLB="RATED INCOMPETENT?",DIFLD=.293
- S DE(DW)="C11^DGRPX7"
- S DU="0:NO;1:YES;"
- G RE
-C11 G C11S:$D(DE(11))[0 K DB
- S X=DE(11),DIC=DIE
- D EVENT^IVMPLOG(DA)
-C11S S X="" G:DG(DQ)=X C11F1 K DB
- S X=DG(DQ),DIC=DIE
- D EVENT^IVMPLOG(DA)
-C11F1 Q
-X11 Q
-12 D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=12 D X12 D:$D(DIEFIRE)#2 FIREREC^DIE17 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
-X12 S:'X Y=.313
- Q
-13 D:$D(DG)>9 F^DIE17,DE S DQ=13,DW=".29;2",DV="D",DU="",DLB="DATE RULED INCOMPETENT (CIVIL)",DIFLD=.292
- G RE
-X13 S %DT="E" D ^%DT S X=Y K:Y<1 X
- Q
- ;
-14 S DW=".29;1",DV="D",DU="",DLB="DATE RULED INCOMPETENT (VA)",DIFLD=.291
- G RE
-X14 S %DT="E" D ^%DT S X=Y K:Y<1 X
- Q
- ;
-15 S DW=".31;3",DV="FXOa",DU="",DLB="CLAIM NUMBER",DIFLD=.313
- S DQ(15,2)="S Y(0)=Y S Y=$E(Y,1,10)"
- S DE(DW)="C15^DGRPX7"
- G RE
-C15 G C15S:$D(DE(15))[0 K DB
- S X=DE(15),DIC=DIE
- I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".313;" D AVAFC^VAFCDD01(DA)
- S X=DE(15),DIC=DIE
- D EVENT^IVMPLOG(DA)
- S X=DE(15),DIIX=2_U_DIFLD D AUDIT^DIET
-C15S S X="" G:DG(DQ)=X C15F1 K DB
- D ^DGRPX71
-C15F1 Q
-X15 S DFN=DA D EV^DGLOCK I $D(X) S L=$S($D(^DPT(DA,0)):$P(^(0),U,9),1:X) W:X?1"SS".E "  ",L S:X?1"SS".E X=L K:$L(X)>9 X Q:'$D(X)  I X'=L K:$L(X)>8!($L(X)<7)!'(X?.N) X
- I $D(X),X'?.ANP K X
- Q
- ;
-16 D:$D(DG)>9 F^DIE17,DE S DQ=16,DW=".31;4",DV="*P4'X",DU="",DLB="CLAIM FOLDER LOCATION",DIFLD=.314
- S DE(DW)="C16^DGRPX7"
- S DU="DIC(4,"
- G RE
-C16 G C16S:$D(DE(16))[0 K DB
- D ^DGRPX72
-C16S S X="" G:DG(DQ)=X C16F1 K DB
- D ^DGRPX73
-C16F1 Q
-X16 S DIC("S")="I $$CFLTF^DGREGDD(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
- Q
- ;
-17 S DQ=18 ;@702
-18 D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=18 D X18 D:$D(DIEFIRE)#2 FIREREC^DIE17 G A:$D(Y)[0,A:Y=U S X=Y,DIC(0)="F",DW=DQ G OUT^DIE17
-X18 S:DGDR'["702" Y="@703"
- Q
-19 D:$D(DG)>9 F^DIE17 G ^DGRPX74
+11 D:$D(DG)>9 F^DIE17 G ^DGRPX73