Changeset 636 for FOIAVistA/tag/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBXSC44.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBXSC44.m (modified) (3 diffs)

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

@@ -1 @@
-IBXSC44 ; ;02/03/08
+IBXSC44 ; ;12/27/07
  D DE G BEGIN
 DE S DIE="^DGCR(399,D0,""CV"",",DIC=DIE,DP=399.047,DL=2,DIEL=1,DU="" K DG,DE,DB Q:$O(^DGCR(399,D0,"CV",DA,""))=""
@@ -50 +50 @@
 KEYCHK() Q:$G(DE(DW,"KEY"))="" 1 Q @DE(DW,"KEY")
 BEGIN S DNM="IBXSC44",DQ=1+D G B
-1 S DW="0;1",DV="M*P399.1'X",DU="",DLB="VALUE CODE",DIFLD=.01
- S DE(DW)="C1^IBXSC44",DE(DW,"INDEX")=1
+1 S DW="0;1",DV="M*P399.1'",DU="",DLB="VALUE CODE",DIFLD=.01
+ S DE(DW)="C1^IBXSC44"
  S DU="DGCR(399.1,"
  G RE:'D S DQ=2 G 2
@@ -60 +60 @@
  S X=DG(DQ),DIC=DIE
  S ^DGCR(399,DA(1),"CV","B",$E(X,1,30),DA)=""
-C1F1 N X,X1,X2 S DIXR=723 D C1X1(U) K X2 M X2=X D C1X1("O") K X1 M X1=X
- K X M X=X2 D
- . N DIEXARR M DIEXARR=X S DIEZCOND=1
- . S X=$$COND^IBCVC(.DA,X1(1),X2(1))
- . S DIEZCOND=$G(X) K X M X=DIEXARR Q:'DIEZCOND
- . D REMOVE^IBCVC(.DA)
- G C1F2
-C1X1(DION) K X
- S X(1)=$G(@DIEZTMP@("V",399.047,DIIENS,.01,DION),$P($G(^DGCR(399,DA(1),"CV",DA,0)),U,1))
- S X=$G(X(1))
- Q
-C1F2 Q
-X1 S DIC("S")="I +$P($G(^DGCR(399.1,+Y,0)),U,11),$$ALLOWVC^IBCVC(DA(1),+Y)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
+C1F1 Q
+X1 S DIC("S")="I +$P($G(^DGCR(399.1,+Y,0)),U,11)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  Q
  ;
-2 D:$D(DG)>9 F^DIE17,DE S DQ=2,DW="0;2",DV="FX",DU="",DLB="VALUE",DIFLD=.02
+2 D:$D(DG)>9 F^DIE17,DE S DQ=2,DW="0;2",DV="F",DU="",DLB="VALUE",DIFLD=.02
  G RE
-X2 K:$L(X)>10!($L(X)<1)!'$$FORMCHK^IBCVC(X,.DA) X
+X2 K:$L(X)>9!($L(X)<1) X
  I $D(X),X'?.ANP K X
  Q