- Timestamp:
- Dec 4, 2009, 12:11:15 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
WorldVistAEHR/trunk/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHCE14.m
r613 r623 1 DVBHCE14 ; ;12/ 13/081 DVBHCE14 ; ;12/27/07 2 2 D DE G BEGIN 3 3 DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))="" 4 I $D(^(.11)) S %Z=^(.11) S %=$P(%Z,U,1) S:%]"" DE(10)=% S %=$P(%Z,U,2) S:%]"" DE(11)=% 5 I $D(^(.3)) S %Z=^(.3) S %=$P(%Z,U,11) S:%]"" DE(4)=% 6 I $D(^(.362)) S %Z=^(.362) S %=$P(%Z,U,12) S:%]"" DE(1)=% S %=$P(%Z,U,13) S:%]"" DE(2)=% S %=$P(%Z,U,14) S:%]"" DE(3)=% S %=$P(%Z,U,20) S:%]"" DE(5)=% 4 I $D(^(.11)) S %Z=^(.11) S %=$P(%Z,U,1) S:%]"" DE(1)=% S %=$P(%Z,U,2) S:%]"" DE(2)=% S %=$P(%Z,U,3) S:%]"" DE(3)=% S %=$P(%Z,U,4) S:%]"" DE(4)=% 7 5 K %Z Q 8 6 ; … … 52 50 KEYCHK() Q:$G(DE(DW,"KEY"))="" 1 Q @DE(DW,"KEY") 53 51 BEGIN S DNM="DVBHCE14",DQ=1 54 1 D:$D(DG)>9 F^DIE17,DE S DQ=1,DW=".362;12",DV="SX",DU="",DLB="RECEIVING A&A BENEFITS?",DIFLD=.36205 55 S DE(DW)="C1^DVBHCE14" 56 S DU="Y:YES;N:NO;U:UNKNOWN;" 52 1 D:$D(DG)>9 F^DIE17,DE S DQ=1,DW=".11;1",DV="Fa",DU="",DLB="STREET ADDRESS [LINE 1]",DIFLD=.111 53 S DE(DW)="C1^DVBHCE14",DE(DW,"INDEX")=1 57 54 G RE 58 55 C1 G C1S:$D(DE(1))[0 K DB 59 56 S X=DE(1),DIC=DIE 60 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) 61 S X=DE(1),DIC=DIE 62 S DFN=DA D EN^DGMTCOR K DGMTCOR 63 S X=DE(1),DIC=DIE 64 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) 65 S X=DE(1),DIC=DIE 66 D AUTOUPD^DGENA2(DA) 57 X "S DGXRF=.111 D ^DGDDC Q" 58 S X=DE(1),DIC=DIE 59 S A1B2TAG="PAT" D ^A1B2XFR 60 S X=DE(1),DIC=DIE 61 D EVENT^IVMPLOG(DA) 62 S X=DE(1),DIC=DIE 63 K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR 64 S X=DE(1),DIC=DIE 65 S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX 66 S X=DE(1),DIC=DIE 67 I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".111;" D AVAFC^VAFCDD01(DA) 68 S X=DE(1),DIC=DIE 69 D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA) 70 S X=DE(1),DIIX=2_U_DIFLD D AUDIT^DIET 67 71 C1S S X="" G:DG(DQ)=X C1F1 K DB 68 72 S X=DG(DQ),DIC=DIE 69 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) 70 S X=DG(DQ),DIC=DIE 71 S DFN=DA D EN^DGMTCOR K DGMTCOR 72 S X=DG(DQ),DIC=DIE 73 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) 74 S X=DG(DQ),DIC=DIE 75 D AUTOUPD^DGENA2(DA) 76 C1F1 Q 77 X1 S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK 78 Q 79 ; 80 2 D:$D(DG)>9 F^DIE17,DE S DQ=2,DW=".362;13",DV="SX",DU="",DLB="RECEIVING HOUSEBOUND BENEFITS?",DIFLD=.36215 81 S DE(DW)="C2^DVBHCE14" 82 S DU="Y:YES;N:NO;U:UNKNOWN;" 73 ; 74 S X=DG(DQ),DIC=DIE 75 S A1B2TAG="PAT" D ^A1B2XFR 76 S X=DG(DQ),DIC=DIE 77 D EVENT^IVMPLOG(DA) 78 S X=DG(DQ),DIC=DIE 79 K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR 80 S X=DG(DQ),DIC=DIE 81 S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX 82 S X=DG(DQ),DIC=DIE 83 I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".111;" D AVAFC^VAFCDD01(DA) 84 S X=DG(DQ),DIC=DIE 85 D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA) 86 I $D(DE(1))'[0!(^DD(DP,DIFLD,"AUDIT")'="e") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET 87 C1F1 N X,X1,X2 S DIXR=230 D C1X1(U) K X2 M X2=X D C1X1("O") K X1 M X1=X 88 D 89 . D FC^DGFCPROT(.DA,2,.111,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q 90 K X M X=X2 D 91 . D FC^DGFCPROT(.DA,2,.111,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q 92 G C1F2 93 C1X1(DION) K X 94 S X(1)=$G(@DIEZTMP@("V",2,DIIENS,.111,DION),$P($G(^DPT(DA,.11)),U,1)) 95 S X=$G(X(1)) 96 Q 97 C1F2 Q 98 X1 K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X 99 I $D(X),X'?.ANP K X 100 Q 101 ; 102 2 D:$D(DG)>9 F^DIE17,DE S DQ=2,DW=".11;2",DV="Fa",DU="",DLB="STREET ADDRESS [LINE 2]",DIFLD=.112 103 S DE(DW)="C2^DVBHCE14",DE(DW,"INDEX")=1 83 104 G RE 84 105 C2 G C2S:$D(DE(2))[0 K DB 85 106 S X=DE(2),DIC=DIE 86 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) 87 S X=DE(2),DIC=DIE 88 S DFN=DA D EN^DGMTCOR K DGMTCOR 89 S X=DE(2),DIC=DIE 90 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) 91 S X=DE(2),DIC=DIE 92 D AUTOUPD^DGENA2(DA) 107 X "S DGXRF=.112 D ^DGDDC Q" 108 S X=DE(2),DIC=DIE 109 S A1B2TAG="PAT" D ^A1B2XFR 110 S X=DE(2),DIC=DIE 111 D EVENT^IVMPLOG(DA) 112 S X=DE(2),DIC=DIE 113 K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR 114 S X=DE(2),DIC=DIE 115 S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX 116 S X=DE(2),DIC=DIE 117 I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".112;" D AVAFC^VAFCDD01(DA) 118 S X=DE(2),DIC=DIE 119 D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA) 120 S X=DE(2),DIIX=2_U_DIFLD D AUDIT^DIET 93 121 C2S S X="" G:DG(DQ)=X C2F1 K DB 94 122 S X=DG(DQ),DIC=DIE 95 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) 96 S X=DG(DQ),DIC=DIE 97 S DFN=DA D EN^DGMTCOR K DGMTCOR 98 S X=DG(DQ),DIC=DIE 99 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) 100 S X=DG(DQ),DIC=DIE 101 D AUTOUPD^DGENA2(DA) 102 C2F1 Q 103 X2 S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK 104 Q 105 ; 106 3 D:$D(DG)>9 F^DIE17,DE S DQ=3,DW=".362;14",DV="SX",DU="",DLB="RECEIVING A VA PENSION?",DIFLD=.36235 107 S DE(DW)="C3^DVBHCE14" 108 S DU="Y:YES;N:NO;U:UNKNOWN;" 123 ; 124 S X=DG(DQ),DIC=DIE 125 S A1B2TAG="PAT" D ^A1B2XFR 126 S X=DG(DQ),DIC=DIE 127 D EVENT^IVMPLOG(DA) 128 S X=DG(DQ),DIC=DIE 129 K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR 130 S X=DG(DQ),DIC=DIE 131 S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX 132 S X=DG(DQ),DIC=DIE 133 I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".112;" D AVAFC^VAFCDD01(DA) 134 S X=DG(DQ),DIC=DIE 135 D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA) 136 I $D(DE(2))'[0!(^DD(DP,DIFLD,"AUDIT")'="e") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET 137 C2F1 N X,X1,X2 S DIXR=232 D C2X1(U) K X2 M X2=X D C2X1("O") K X1 M X1=X 138 D 139 . D FC^DGFCPROT(.DA,2,.112,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q 140 K X M X=X2 D 141 . D FC^DGFCPROT(.DA,2,.112,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q 142 G C2F2 143 C2X1(DION) K X 144 S X(1)=$G(@DIEZTMP@("V",2,DIIENS,.112,DION),$P($G(^DPT(DA,.11)),U,2)) 145 S X=$G(X(1)) 146 Q 147 C2F2 Q 148 X2 K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X D:$D(X) UP^DGHELP 149 I $D(X),X'?.ANP K X 150 Q 151 ; 152 3 D:$D(DG)>9 F^DIE17,DE S DQ=3,DW=".11;3",DV="Fa",DU="",DLB="STREET ADDRESS [LINE 3]",DIFLD=.113 153 S DE(DW)="C3^DVBHCE14",DE(DW,"INDEX")=1 109 154 G RE 110 155 C3 G C3S:$D(DE(3))[0 K DB 111 156 S X=DE(3),DIC=DIE 112 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) 113 S X=DE(3),DIC=DIE 114 S DFN=DA D EN^DGMTCOR K DGMTCOR 115 S X=DE(3),DIC=DIE 116 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) 117 S X=DE(3),DIC=DIE 118 D AUTOUPD^DGENA2(DA) 157 S A1B2TAG="PAT" D ^A1B2XFR 158 S X=DE(3),DIC=DIE 159 D EVENT^IVMPLOG(DA) 160 S X=DE(3),DIC=DIE 161 K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR 162 S X=DE(3),DIC=DIE 163 S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX 164 S X=DE(3),DIC=DIE 165 I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".113;" D AVAFC^VAFCDD01(DA) 166 S X=DE(3),DIC=DIE 167 D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA) 168 S X=DE(3),DIIX=2_U_DIFLD D AUDIT^DIET 119 169 C3S S X="" G:DG(DQ)=X C3F1 K DB 120 S X=DG(DQ),DIC=DIE 121 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) 122 S X=DG(DQ),DIC=DIE 123 S DFN=DA D EN^DGMTCOR K DGMTCOR 124 S X=DG(DQ),DIC=DIE 125 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) 126 S X=DG(DQ),DIC=DIE 127 D AUTOUPD^DGENA2(DA) 128 C3F1 Q 129 X3 S DFN=DA D MV^DGLOCK 130 Q 131 ; 132 4 D:$D(DG)>9 F^DIE17,DE S DQ=4,DW=".3;11",DV="SX",DU="",DLB="RECEIVING VA DISABILITY?",DIFLD=.3025 133 S DE(DW)="C4^DVBHCE14" 134 S DU="Y:YES;N:NO;U:UNKNOWN;" 170 D ^DVBHCE15 171 C3F1 N X,X1,X2 S DIXR=233 D C3X1(U) K X2 M X2=X D C3X1("O") K X1 M X1=X 172 D 173 . D FC^DGFCPROT(.DA,2,.113,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q 174 K X M X=X2 D 175 . D FC^DGFCPROT(.DA,2,.113,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q 176 G C3F2 177 C3X1(DION) K X 178 S X(1)=$G(@DIEZTMP@("V",2,DIIENS,.113,DION),$P($G(^DPT(DA,.11)),U,3)) 179 S X=$G(X(1)) 180 Q 181 C3F2 Q 182 X3 K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X 183 I $D(X),X'?.ANP K X 184 Q 185 ; 186 4 D:$D(DG)>9 F^DIE17,DE S DQ=4,DW=".11;4",DV="Fa",DU="",DLB="CITY",DIFLD=.114 187 S DE(DW)="C4^DVBHCE14",DE(DW,"INDEX")=1 135 188 G RE 136 189 C4 G C4S:$D(DE(4))[0 K DB 137 S X=DE(4),DIC=DIE 138 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) 139 S X=DE(4),DIC=DIE 140 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) 141 S X=DE(4),DIC=DIE 142 D EVENT^IVMPLOG(DA) 190 D ^DVBHCE16 143 191 C4S S X="" G:DG(DQ)=X C4F1 K DB 144 S X=DG(DQ),DIC=DIE145 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)146 S X=DG(DQ),DIC=DIE147 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)148 S X=DG(DQ),DIC=DIE149 D EVENT^IVMPLOG(DA)150 C4F1 Q151 X4 S DFN=DA D MV^DGLOCK I $D(X),X="Y" D EC^DGLOCK1152 Q153 ;154 5 D:$D(DG)>9 F^DIE17,DE S DQ=5,DW=".362;20",DV="NJ8,2X",DU="",DLB="TOTAL ANNUAL VA CHECK AMOUNT",DIFLD=.36295155 S DE(DW)="C5^DVBHCE14"156 G RE157 C5 G C5S:$D(DE(5))[0 K DB158 S X=DE(5),DIC=DIE159 X "S DFN=DA D EN^DGMTR K DGREQF"160 S X=DE(5),DIC=DIE161 D AUTOUPD^DGENA2(DA)162 C5S S X="" G:DG(DQ)=X C5F1 K DB163 S X=DG(DQ),DIC=DIE164 X "S DFN=DA D EN^DGMTR K DGREQF"165 S X=DG(DQ),DIC=DIE166 D AUTOUPD^DGENA2(DA)167 C5F1 Q168 X5 D DOL^DGLOCK2 K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),('$$TOTCHK^DGLOCK2(DFN)) D TOTCKMSG^DGLOCK2 K X169 Q170 ;171 6 S DQ=7 ;@2062172 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^DIE17173 X7 S Y="@104"174 Q175 8 S DQ=9 ;@11176 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^DIE17177 X9 S DVBJ2=1178 Q179 10 D:$D(DG)>9 F^DIE17,DE S DQ=10,DW=".11;1",DV="Fa",DU="",DLB="STREET ADDRESS [LINE 1]",DIFLD=.111180 S DE(DW)="C10^DVBHCE14",DE(DW,"INDEX")=1181 G RE182 C10 G C10S:$D(DE(10))[0 K DB183 S X=DE(10),DIC=DIE184 X "S DGXRF=.111 D ^DGDDC Q"185 S X=DE(10),DIC=DIE186 S A1B2TAG="PAT" D ^A1B2XFR187 S X=DE(10),DIC=DIE188 D EVENT^IVMPLOG(DA)189 S X=DE(10),DIC=DIE190 K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR191 S X=DE(10),DIC=DIE192 S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T DPT^IVMPXFR S X=IVMX K IVMX193 S X=DE(10),DIC=DIE194 I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".111;" D AVAFC^VAFCDD01(DA)195 S X=DE(10),DIC=DIE196 D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)197 S X=DE(10),DIIX=2_U_DIFLD D AUDIT^DIET198 C10S S X="" G:DG(DQ)=X C10F1 K DB199 D ^DVBHCE15200 C10F1 N X,X1,X2 S DIXR=230 D C10X1(U) K X2 M X2=X D C10X1("O") K X1 M X1=X201 D202 . D FC^DGFCPROT(.DA,2,.111,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q203 K X M X=X2 D204 . D FC^DGFCPROT(.DA,2,.111,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q205 G C10F2206 C10X1(DION) K X207 S X(1)=$G(@DIEZTMP@("V",2,DIIENS,.111,DION),$P($G(^DPT(DA,.11)),U,1))208 S X=$G(X(1))209 Q210 C10F2 Q211 X10 K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X212 I $D(X),X'?.ANP K X213 Q214 ;215 11 D:$D(DG)>9 F^DIE17,DE S DQ=11,DW=".11;2",DV="Fa",DU="",DLB="STREET ADDRESS [LINE 2]",DIFLD=.112216 S DE(DW)="C11^DVBHCE14",DE(DW,"INDEX")=1217 G RE218 C11 G C11S:$D(DE(11))[0 K DB219 D ^DVBHCE16220 C11S S X="" G:DG(DQ)=X C11F1 K DB221 192 D ^DVBHCE17 222 C 11F1 N X,X1,X2 S DIXR=232 D C11X1(U) K X2 M X2=X D C11X1("O") K X1 M X1=X223 D 224 . D FC^DGFCPROT(.DA,2,.11 2,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q225 K X M X=X2 D 226 . D FC^DGFCPROT(.DA,2,.11 2,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q227 G C 11F2228 C 11X1(DION) K X229 S X(1)=$G(@DIEZTMP@("V",2,DIIENS,.11 2,DION),$P($G(^DPT(DA,.11)),U,2))230 S X=$G(X(1)) 231 Q 232 C 11F2 Q233 X 11 K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X D:$D(X) UP^DGHELP234 I $D(X),X'?.ANP K X 235 Q 236 ; 237 12D:$D(DG)>9 F^DIE17 G ^DVBHCE18193 C4F1 N X,X1,X2 S DIXR=234 D C4X1(U) K X2 M X2=X D C4X1("O") K X1 M X1=X 194 D 195 . D FC^DGFCPROT(.DA,2,.114,"KILL",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q 196 K X M X=X2 D 197 . D FC^DGFCPROT(.DA,2,.114,"SET",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q 198 G C4F2 199 C4X1(DION) K X 200 S X(1)=$G(@DIEZTMP@("V",2,DIIENS,.114,DION),$P($G(^DPT(DA,.11)),U,4)) 201 S X=$G(X(1)) 202 Q 203 C4F2 Q 204 X4 K:$L(X)>15!($L(X)<2) X 205 I $D(X),X'?.ANP K X 206 Q 207 ; 208 5 D:$D(DG)>9 F^DIE17 G ^DVBHCE18
Note:
See TracChangeset
for help on using the changeset viewer.