source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBA2778.m@ 724

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1DVBA2778 ;DLS/DEK - PATCH DRIVER ; 10/21/04
2 ;;2.7;AMIE;**78**;Apr 10, 1995
3 ; DBIA# External Reference(s)
4 ; 2053 FILE^DIE
5 ; 10141 BMES^XPDUTL, MES^XPDUTL
6SET S (C,I,J)=0,K=396.18 Q
7PRE D SET,DEACT,KILL Q
8POST D SET,FIXUP,KILL Q
9KILL D:J B(">>> Review the following errors <<<"),SHO
10 K C,I,J,K,NM,IEN,FD,^TMP("DIERR",$J),^TMP("DVBA",$J)
11 Q
12B(X) S X=" "_$G(X)
13 I '$D(XPDNM) W !!,X Q
14 D BMES^XPDUTL(X)
15 Q
16DEACT ;Deactivate forms
17 F S I=$O(^DVB(K,I)) Q:'I D
18 .S IEN=I_","
19 .D CD(3041125,3)
20 Q
21CD(D,F) ;Change data
22 S FD(K,IEN,F)=D
23 S FD(K,IEN,7)=$S(F=2:1,1:0)
24 S:F=2 FD(K,IEN,3)="@"
25 D FILE^DIE(,"FD")
26 I $D(^TMP("DIERR",$J)) D
27 .S J=J+1
28 .M ^TMP("DVBA",$J,J)=^TMP("DIERR",$J)
29 Q
30FIXUP ;Adjust zero-node
31 F S I=$O(^DVB(K,I)) Q:'I S C=C+1
32 S I=$O(^DVB(K,"A"),-1),$P(^DVB(K,0),U,3,4)=I_U_C
33 ;Adjust forms
34 F I=0:0 S I=$O(^DVB(K,I)) Q:'I D
35 .S NM=^(I,0),C=$P(NM,"~",2),IEN=I_","
36 .D:C=78 CD(3041205,2)
37 Q
38SHO I $D(XPDNM) D Q
39 .K C
40 .M C=^TMP("DVBA",$J)
41 .D MES^XPDUTL(.C)
42 S C=$Q(^TMP("DVBA",$J))
43 F Q:C="" D
44 .W !?3,@(C)
45 .S C=$Q(@C)
46 Q
Note: See TracBrowser for help on using the repository browser.