Changeset 623 for WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBXSC37.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (15 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBXSC37.m (modified) (7 diffs)

WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBXSC37.m

@@ -1 @@
-IBXSC37 ; ;12/13/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