| 1 | DVBA2778 ;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
|
|---|
| 6 | SET S (C,I,J)=0,K=396.18 Q
|
|---|
| 7 | PRE D SET,DEACT,KILL Q
|
|---|
| 8 | POST D SET,FIXUP,KILL Q
|
|---|
| 9 | KILL 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
|
|---|
| 12 | B(X) S X=" "_$G(X)
|
|---|
| 13 | I '$D(XPDNM) W !!,X Q
|
|---|
| 14 | D BMES^XPDUTL(X)
|
|---|
| 15 | Q
|
|---|
| 16 | DEACT ;Deactivate forms
|
|---|
| 17 | F S I=$O(^DVB(K,I)) Q:'I D
|
|---|
| 18 | .S IEN=I_","
|
|---|
| 19 | .D CD(3041125,3)
|
|---|
| 20 | Q
|
|---|
| 21 | CD(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
|
|---|
| 30 | FIXUP ;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
|
|---|
| 38 | SHO 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
|
|---|
