| 1 | DVBA2792 ;DLS/DEK - PATCH DRIVER ; 5/2/05
|
|---|
| 2 | ;;2.7;AMIE;**92**;Apr 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ; DBIA# External Reference(s)
|
|---|
| 5 | ; 2053 FILE^DIE
|
|---|
| 6 | ; 10013 ENALL^DIK
|
|---|
| 7 | ; 10103 $$FMADD^XLFDT
|
|---|
| 8 | ; 10141 BMES^XPDUTL, MES^XPDUTL
|
|---|
| 9 | N DIK S N="92T1",(C,J,L,V)=0,K=396.18,B=$$FMADD^XLFDT(DT,-9),DIK="^DVB("_K_",",DIK(1)=".01^2"
|
|---|
| 10 | F S L=$O(^DVB(K,L)) Q:'L S T=^(L,0),V=$P(T,"~",2),M=L,C=C+1 D
|
|---|
| 11 | .I V=N D C(T'["MENT"+2,L) Q
|
|---|
| 12 | .I V["T",'$P($G(^DVB(K,L,2)),U,2) D C(3,L)
|
|---|
| 13 | S $P(^DVB(K,0),U,3,4)=M_U_C
|
|---|
| 14 | D:J L(">>>>> Review these errors <<<<<")
|
|---|
| 15 | K A,B,C,J,K,L,M,N,T,V,^TMP("DIERR",$J),^TMP("DVBA",$J),@(DIK_"""AV"")")
|
|---|
| 16 | D ENALL^DIK
|
|---|
| 17 | Q
|
|---|
| 18 | 3 S A(K,IEN,7)=0,A(K,IEN,F)=B,A(K,IEN,2)="@" Q
|
|---|
| 19 | 2 S A(K,IEN,7)=1,A(K,IEN,F)=DT,A(K,IEN,3)="@" Q
|
|---|
| 20 | C(F,IEN) S IEN=IEN_"," D @F,FILE^DIE(,"A")
|
|---|
| 21 | I $D(^TMP("DIERR",$J)) S J=J+1 M ^TMP("DVBA",$J,J)=^TMP("DIERR",$J)
|
|---|
| 22 | Q
|
|---|
| 23 | L(X) I $D(XPDNM) K C M C=^TMP("DVBA",$J) D BMES^XPDUTL(X),MES^XPDUTL(.C) Q
|
|---|
| 24 | S L="""",A=L_","_$J,J="DVBA"_A,V="^TMP("_L_"DIERR"_A_","
|
|---|
| 25 | W !!,X S C=$Q(^TMP("DVBA",$J)) F Q:C'[J W !?3,V,$P(C,",",3,99)," = ",@C S C=$Q(@C)
|
|---|
| 26 | Q
|
|---|
