- Timestamp:
- Dec 4, 2009, 12:11:15 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBXX28.m
r613 r623 1 IBXX28 ; COMPILED XREF FOR FILE #399. 077 ; 01/03/091 IBXX28 ; COMPILED XREF FOR FILE #399.30416 ; 12/27/07 2 2 ; 3 S DA =03 S DA(2)=DA(1) S DA(1)=0 S DA=0 4 4 A1 ; 5 I $D(DISET) K DIKLM S:DIKM1=1 DIKLM=1 G @DIKM1 6 0 ; 7 A S DA=$O(^DGCR(399,DA(1),"TXC",DA)) I DA'>0 S DA=0 G END 5 I $D(DISET) K DIKLM S:DIKM1=2 DIKLM=1 S:DIKM1'=2&'$G(DIKPUSH(2)) DIKPUSH(2)=1,DA(2)=DA(1),DA(1)=DA,DA=0 G @DIKM1 6 A S DA(1)=$O(^DGCR(399,DA(2),"CP",DA(1))) I DA(1)'>0 S DA(1)=0 G END 8 7 1 ; 9 S DIKZ(0)=$G(^DGCR(399,DA(1),"TXC",DA,0)) 8 B S DA=$O(^DGCR(399,DA(2),"CP",DA(1),"MOD",DA)) I DA'>0 S DA=0 Q:DIKM1=1 G A 9 2 ; 10 S DIKZ(0)=$G(^DGCR(399,DA(2),"CP",DA(1),"MOD",DA,0)) 10 11 S X=$P(DIKZ(0),U,1) 11 I X'="" S ^DGCR(399,DA(1),"TXC","B",$E(X,1,30),DA)="" 12 S X=$P(DIKZ(0),U,1) 13 I X'="" D 14 .N DIK,DIV,DIU,DIN 15 .K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,"TXC",D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(399.077,.01,1,2,1.4) 16 G:'$D(DIKLM) A Q:$D(DISET) 17 END G ^IBXX29 12 I X'="" S ^DGCR(399,DA(2),"CP",DA(1),"MOD","B",$E(X,1,30),DA)="" 13 S X=$P(DIKZ(0),U,2) 14 I X'="" S ^DGCR(399,DA(2),"CP",DA(1),"MOD","C",$E(X,1,30),DA)="" 15 G:'$D(DIKLM) B Q:$D(DISET) 16 END Q
Note:
See TracChangeset
for help on using the changeset viewer.