- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBXX13.m
r628 r636 1 IBXX13 ; COMPILED XREF FOR FILE #399. 077 ; 07/22/081 IBXX13 ; 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(DIKILL) 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(DIKILL) 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)) 11 S X=$P(DIKZ(0),U,2) 12 I X'="" K ^DGCR(399,DA(2),"CP",DA(1),"MOD","C",$E(X,1,30),DA) 10 13 S X=$P(DIKZ(0),U,1) 11 I X'="" K ^DGCR(399,DA( 1),"TXC","B",$E(X,1,30),DA)12 G:'$D(DIKLM) AQ:$D(DIKILL)13 END G ^IBXX1414 I X'="" K ^DGCR(399,DA(2),"CP",DA(1),"MOD","B",$E(X,1,30),DA) 15 G:'$D(DIKLM) B Q:$D(DIKILL) 16 END Q
Note:
See TracChangeset
for help on using the changeset viewer.