Changeset 636 for FOIAVistA/tag/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBXSC37.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/IBXSC37.m (modified) (7 diffs)

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

@@ -1 @@
-IBXSC37 ; ;02/03/08
+IBXSC37 ; ;12/27/07
  D DE G BEGIN
 DE S DIE="^DGCR(399,",DIC=DIE,DP=399,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DGCR(399,DA,""))=""
@@ -50 +50 @@
 KEYCHK() Q:$G(DE(DW,"KEY"))="" 1 Q @DE(DW,"KEY")
 BEGIN S DNM="IBXSC37",DQ=1
-1 S DW="M1;3",DV="FX",DU="",DLB="SECONDARY PROVIDER #",DIFLD=123
+1 S DW="M1;3",DV="F",DU="",DLB="SECONDARY PROVIDER #",DIFLD=123
  S DE(DW)="C1^IBXSC37"
  S Y="@"
@@ -62 +62 @@
  ;
 C1F1 Q
-X1 K:$L(X)>13!($L(X)<3)!($TR(X," ")="") X
+X1 K:$L(X)>13!($L(X)<3) X
  I $D(X),X'?.ANP K X
  Q
@@ -82 +82 @@
  Q
 6 D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=6 G A
-7 S DW="M1;3",DV="FX",DU="",DLB="SECONDARY PROVIDER #",DIFLD=123
+7 S DW="M1;3",DV="F",DU="",DLB="SECONDARY PROVIDER #",DIFLD=123
  S DE(DW)="C7^IBXSC37"
  S X="IBPSID" Q:X  Q:$NA(@X)[U  S X=$G(@X)
@@ -94 +94 @@
  ;
 C7F1 Q
-X7 K:$L(X)>13!($L(X)<3)!($TR(X," ")="") X
+X7 K:$L(X)>13!($L(X)<3) X
  I $D(X),X'?.ANP K X
  Q
@@ -132 +132 @@
 X18 I '$$SUPPPT^IBCEP7B(DA,3) S Y="@3232"
  Q
-19 S DW="M1;4",DV="FX",DU="",DLB="TERTIARY PROVIDER #",DIFLD=124
+19 S DW="M1;4",DV="F",DU="",DLB="TERTIARY PROVIDER #",DIFLD=124
  S DE(DW)="C19^IBXSC37"
  S Y="@"
@@ -144 +144 @@
  ;
 C19F1 Q
-X19 K:$L(X)>13!($L(X)<3)!($TR(X," ")="") X
+X19 K:$L(X)>13!($L(X)<3) X
  I $D(X),X'?.ANP K X
  Q