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

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

@@ -1 @@
-IBXSC117 ; ;09/05/07
+IBXSC117 ; ;12/27/07
  D DE G BEGIN
 DE S DIE="^DPT(",DIC=DIE,DP=2,DL=2,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
@@ -57 +57 @@
 C1S S X="" G:DG(DQ)=X C1F1 K DB
 C1F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=603 S DIEZRXR(2,DIXR)=""
+ F DIXR=600 S DIEZRXR(2,DIXR)=""
  Q
 X1 S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) S DFN=DA D TAD^DGLOCK I $D(X),(X<$P(^DPT(DFN,.121),"^",7)) K X
@@ -72 +72 @@
  ;
 C2F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=603 S DIEZRXR(2,DIXR)=""
+ F DIXR=600 S DIEZRXR(2,DIXR)=""
  Q
 X2 K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D TAD^DGLOCK
@@ -91 +91 @@
  ;
 C4F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=603 S DIEZRXR(2,DIXR)=""
+ F DIXR=600 S DIEZRXR(2,DIXR)=""
  Q
 X4 K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D TAD^DGLOCK
@@ -106 +106 @@
 C6S S X="" G:DG(DQ)=X C6F1 K DB
 C6F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=603 S DIEZRXR(2,DIXR)=""
+ F DIXR=600 S DIEZRXR(2,DIXR)=""
  Q
 X6 K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D TAD^DGLOCK
@@ -118 +118 @@
 C7S S X="" G:DG(DQ)=X C7F1 K DB
 C7F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=603 S DIEZRXR(2,DIXR)=""
+ F DIXR=600 S DIEZRXR(2,DIXR)=""
  Q
 X7 K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D TAD^DGLOCK
@@ -131 +131 @@
 C8S S X="" G:DG(DQ)=X C8F1 K DB
 C8F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=603 S DIEZRXR(2,DIXR)=""
+ F DIXR=600 S DIEZRXR(2,DIXR)=""
  Q
 X8 S DFN=DA D TAD^DGLOCK Q
@@ -147 +147 @@
  D SET^DGREGDD1(DA,.1216,.121,6,$E(X,1,5))
 C9F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=603 S DIEZRXR(2,DIXR)=""
+ F DIXR=600 S DIEZRXR(2,DIXR)=""
  Q
 X9 K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D TAD^DGLOCK I $D(X) K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR