- Timestamp:
- Dec 4, 2009, 8:26:01 PM (15 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/IBXX28.m
r628 r636 1 IBXX28 ; COMPILED XREF FOR FILE #399. 048 ; 07/22/081 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),"OT",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),"OT",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),"OT","B",$E(X,1,30),DA)="" 12 G:'$D(DIKLM) A Q:$D(DISET) 13 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.