| 1 | DVBA2768 ;DLS/DEK - PATCH DRIVER ; 6/9/04
|
|---|
| 2 | ;;2.7;AMIE;**68**;Apr 10, 1995
|
|---|
| 3 | ; DBIA# External Reference(s)
|
|---|
| 4 | ; 2051 $$FIND1^DIC
|
|---|
| 5 | ; 2053 FILE^DIE
|
|---|
| 6 | ; 10141 BMES^XPDUTL, MES^XPDUTL
|
|---|
| 7 | SET S (I,J)=0,K=396.18 Q
|
|---|
| 8 | PRE D SET,DEACT,KILL Q
|
|---|
| 9 | POST D SET,NODE0,ADJ,KILL Q
|
|---|
| 10 | KILL K ^TMP("DIERR",$J),^TMP("DVBA",$J),I,J,K,NM,IEN,FD Q
|
|---|
| 11 | B(X) S X=" "_$G(X)
|
|---|
| 12 | I '$D(XPDNM) W !!,X Q
|
|---|
| 13 | D BMES^XPDUTL(X)
|
|---|
| 14 | Q
|
|---|
| 15 | DEACT ;Deactivate forms
|
|---|
| 16 | F I=1:1 S NM=$P($T(DATA+I),";;",2) Q:NM']"" D
|
|---|
| 17 | .S IEN=$$FIND1^DIC(K,,"O",NM)_","
|
|---|
| 18 | .D:IEN CD(3040615,3)
|
|---|
| 19 | ;F I=0:0 S I=$O(^DVB(K,I)) Q:'I D
|
|---|
| 20 | ;.S IEN=I_","
|
|---|
| 21 | ;.I '$D(^DVB(K,I,2)) D CD(3040721,3) Q
|
|---|
| 22 | ;.D:'$P(^DVB(K,I,2),U,2) CD(3040915,3)
|
|---|
| 23 | D:J B(">>> Review the following errors <<<"),SHO
|
|---|
| 24 | Q
|
|---|
| 25 | CD(D,F) ;Change data
|
|---|
| 26 | S FD(K,IEN,F)=D
|
|---|
| 27 | S FD(K,IEN,7)=$S(F=2:1,1:0)
|
|---|
| 28 | D FILE^DIE(,"FD")
|
|---|
| 29 | I $D(^TMP("DIERR",$J)) D
|
|---|
| 30 | .S J=J+1
|
|---|
| 31 | .M ^TMP("DVBA",$J,J)=^TMP("DIERR",$J)
|
|---|
| 32 | Q
|
|---|
| 33 | NODE0 ;Adjust zero-node
|
|---|
| 34 | F S I=$O(^DVB(K,I)) Q:'I S J=J+1
|
|---|
| 35 | S I=$O(^DVB(K,"A"),-1),$P(^DVB(K,0),U,3,4)=I_U_J
|
|---|
| 36 | Q
|
|---|
| 37 | ADJ ;Adjust forms
|
|---|
| 38 | F I=0:0 S I=$O(^DVB(K,I)) Q:'I D
|
|---|
| 39 | .S NM=^(I,0),J=$P(NM,"~",2),IEN=I_","
|
|---|
| 40 | .I J=3 D Q
|
|---|
| 41 | ..S $P(NM,"~",2)=4
|
|---|
| 42 | ..I $$FIND1^DIC(K,,"O",NM) D CD(3040915,3) Q
|
|---|
| 43 | ..D CD(3040721,2)
|
|---|
| 44 | .D:J=4 CD(3040915,2)
|
|---|
| 45 | Q
|
|---|
| 46 | SHO I $D(XPDNM) D Q
|
|---|
| 47 | .K J
|
|---|
| 48 | .M J=^TMP("DVBA",$J)
|
|---|
| 49 | .D MES^XPDUTL(.J)
|
|---|
| 50 | S J=$Q(^TMP("DVBA",$J))
|
|---|
| 51 | F Q:J="" D
|
|---|
| 52 | .W !?3,@(J)
|
|---|
| 53 | .S J=$Q(@J)
|
|---|
| 54 | DATA Q
|
|---|
| 55 | ;;AID AND ATTENDANCE
|
|---|
| 56 | ;;ARTERIES AND VEINS
|
|---|
| 57 | ;;AUDIO
|
|---|
| 58 | ;;EAR DISEASE
|
|---|
| 59 | ;;ESOPHAGUS & HIATAL HERNIA
|
|---|
| 60 | ;;EYE EXAMINATION
|
|---|
| 61 | ;;GENITOURINARY
|
|---|
| 62 | ;;MISC RESPIRATORY DISEASES
|
|---|
| 63 | ;;MUSCLES
|
|---|
| 64 | ;;NEUROLOGICAL DISORDERS, MISC.
|
|---|
| 65 | ;;NOSE SINUS LARYNX PHARYNX
|
|---|
| 66 | ;;PTSD INITIAL EVALUATION
|
|---|
| 67 | ;;PTSD REVIEW
|
|---|
| 68 | ;;RECTUM AND ANUS
|
|---|
| 69 | ;;SCARS
|
|---|
| 70 | ;;SKIN DISEASES (OTHER THAN SCARS)
|
|---|
| 71 | ;;STOMACH DUODENUM
|
|---|
| 72 | ;;
|
|---|
