Ignore:
Timestamp:
Dec 4, 2009, 8:26:01 PM (14 years ago)
Author:
George Lilly
Message:

WorldVistAEHR overlayed on FOIAVistA

Location:
FOIAVistA/tag/r
Files:
1 edited
1 copied

Legend:

Unmodified
Added
Removed

  • FOIAVistA/tag/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBXX23.m

    r628 r636  
    1 IBXX23 ; COMPILED XREF FOR FILE #399.043 ; 07/22/08
     1IBXX23 ; COMPILED XREF FOR FILE #399.044 ; 12/27/07
    22 ;
    33 S DA=0
    … …  
    55 I $D(DISET) K DIKLM S:DIKM1=1 DIKLM=1 G @DIKM1
    660 ;
    7 A S DA=$O(^DGCR(399,DA(1),"OP",DA)) I DA'>0 S DA=0 G END
     7A S DA=$O(^DGCR(399,DA(1),"D1",DA)) I DA'>0 S DA=0 G END
    881 ;
    9  S DIKZ(0)=$G(^DGCR(399,DA(1),"OP",DA,0))
     9 S DIKZ(0)=$G(^DGCR(399,DA(1),"D1",DA,0))
    1010 S X=$P(DIKZ(0),U,1)
    11  I X'="" S ^DGCR(399,"AOPV",$P(^DGCR(399,DA(1),0),U,2),$E(X,1,30),DA(1))=""
    12  S X=$P(DIKZ(0),U,1)
    13  I X'="" S DGRVRCAL=1
     11 I X'="" S ^DGCR(399,DA(1),"D1","B",$E(X,1,30),DA)=""
    1412 G:'$D(DIKLM) A Q:$D(DISET)
    1513END G ^IBXX24
Note: See TracChangeset for help on using the changeset viewer.