| 1 | DGRPTX21 ; ;12/13/08
|
|---|
| 2 | S X=DG(DQ),DIC=DIE
|
|---|
| 3 | X ^DD(2,.525,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$S('$D(^DIC(22,+$P(Y(1),U,6),0)):"",1:$P(^(0),U,1)) S DIU=X K Y S X=DIV S X="" X ^DD(2,.525,1,1,1.4)
|
|---|
| 4 | S X=DG(DQ),DIC=DIE
|
|---|
| 5 | X ^DD(2,.525,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P(Y(1),U,7) S DIU=X K Y S X=DIV S X="" X ^DD(2,.525,1,2,1.4)
|
|---|
| 6 | S X=DG(DQ),DIC=DIE
|
|---|
| 7 | X ^DD(2,.525,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"") S X=$P(Y(1),U,8) S DIU=X K Y S X=DIV S X="" X ^DD(2,.525,1,3,1.4)
|
|---|
| 8 | S X=DG(DQ),DIC=DIE
|
|---|
| 9 | D AUTOUPD^DGENA2(DA)
|
|---|
| 10 | S X=DG(DQ),DIC=DIE
|
|---|
| 11 | X "S DFN=DA D EN^DGMTR K DGREQF"
|
|---|
| 12 | S X=DG(DQ),DIC=DIE
|
|---|
| 13 | D EVENT^IVMPLOG(DA)
|
|---|
