source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBA2792.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1DVBA2792 ;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
183 S A(K,IEN,7)=0,A(K,IEN,F)=B,A(K,IEN,2)="@" Q
192 S A(K,IEN,7)=1,A(K,IEN,F)=DT,A(K,IEN,3)="@" Q
20C(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
23L(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
Note: See TracBrowser for help on using the repository browser.