source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGMTXX12.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: 2.0 KB
Line 
1DGMTXX12 ; COMPILED XREF FOR FILE #408.21 ; 11/06/06
2 ;
3 S DIKZK=1
4 S DIKZ(0)=$G(^DGMT(408.21,DA,0))
5 S X=$P(DIKZ(0),U,1)
6 I X'="" S ^DGMT(408.21,"B",$E(X,1,30),DA)=""
7 S X=$P(DIKZ(0),U,1)
8 I X'="" S:$P(^DGMT(408.21,DA,0),U,2) ^DGMT(408.21,"AI",+$P(^(0),U,2),-X,DA)=""
9 S X=$P(DIKZ(0),U,1)
10 I X'="" D E40821^DGRTRIG(DA)
11 S X=$P(DIKZ(0),U,2)
12 I X'="" S ^DGMT(408.21,"AI",X,-$P(^DGMT(408.21,DA,0),U),DA)=""
13 S X=$P(DIKZ(0),U,2)
14 I X'="" S ^DGMT(408.21,"C",$E(X,1,30),DA)=""
15 S X=$P(DIKZ(0),U,8)
16 I X'="" D E40821^DGRTRIG(DA)
17 S X=$P(DIKZ(0),U,9)
18 I X'="" D E40821^DGRTRIG(DA)
19 S X=$P(DIKZ(0),U,10)
20 I X'="" D E40821^DGRTRIG(DA)
21 S X=$P(DIKZ(0),U,11)
22 I X'="" D E40821^DGRTRIG(DA)
23 S X=$P(DIKZ(0),U,12)
24 I X'="" D E40821^DGRTRIG(DA)
25 S X=$P(DIKZ(0),U,13)
26 I X'="" D E40821^DGRTRIG(DA)
27 S X=$P(DIKZ(0),U,14)
28 I X'="" D EMP^DGMTDD3
29 S X=$P(DIKZ(0),U,14)
30 I X'="" D E40821^DGRTRIG(DA)
31 S X=$P(DIKZ(0),U,15)
32 I X'="" D E40821^DGRTRIG(DA)
33 S X=$P(DIKZ(0),U,16)
34 I X'="" D E40821^DGRTRIG(DA)
35 S X=$P(DIKZ(0),U,17)
36 I X'="" D E40821^DGRTRIG(DA)
37 S DIKZ(1)=$G(^DGMT(408.21,DA,1))
38 S X=$P(DIKZ(1),U,1)
39 I X'="" D AGME101^DGMTSCU4(DA)
40 S X=$P(DIKZ(1),U,1)
41 I X'="" D E40821^DGRTRIG(DA)
42 S X=$P(DIKZ(1),U,2)
43 I X'="" D E40821^DGRTRIG(DA)
44 S X=$P(DIKZ(1),U,3)
45 I X'="" D E40821^DGRTRIG(DA)
46 S DIKZ(2)=$G(^DGMT(408.21,DA,2))
47 S X=$P(DIKZ(2),U,1)
48 I X'="" D E40821^DGRTRIG(DA)
49 S X=$P(DIKZ(2),U,2)
50 I X'="" D E40821^DGRTRIG(DA)
51 S X=$P(DIKZ(2),U,3)
52 I X'="" D E40821^DGRTRIG(DA)
53 S X=$P(DIKZ(2),U,4)
54 I X'="" I $D(^DGMT(408.21,DA,2)),$P(^(2),U,4)=0 D OTH^DGMTDD3
55 S X=$P(DIKZ(2),U,4)
56 I X'="" D E40821^DGRTRIG(DA)
57 S X=$P(DIKZ(2),U,5)
58 I X'="" D E40821^DGRTRIG(DA)
59 S DIKZ("MT")=$G(^DGMT(408.21,DA,"MT"))
60 S X=$P(DIKZ("MT"),U,1)
61 I X'="" S ^DGMT(408.21,"AM",$E(X,1,30),DA)=""
62 S DIKZ("USR")=$G(^DGMT(408.21,DA,"USR"))
63 S X=$P(DIKZ("USR"),U,4)
64 I X'="" D
65 .N DIK,DIV,DIU,DIN
66 .K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P($G(^DGMT(408.21,DA,0)),U,18) I X S X=DIV S Y(1)=$S($D(^DGMT(408.21,D0,0)):^(0),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV S X=0 X ^DD(408.21,104,1,1,1.4)
67END Q
Note: See TracBrowser for help on using the repository browser.