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

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

@@ -1 +1 @@
 IBCEP4 ;ALB/TMP - EDI UTILITIES for provider ID ;29-SEP-00
- ;;2.0;INTEGRATED BILLING;**137,320,348,349,377**;21-MAR-94;Build 23
+ ;;2.0;INTEGRATED BILLING;**137,320,348,349**;21-MAR-94;Build 46
  ;;Per VHA Directive 2004-038, this routine should not be modified.
  ;
@@ -10 +10 @@
 EN1(IBINS) ; -- Entry point from provider number maintenence
  N IBPRV,IBALL,IB95
- S VALMBCK="R"
  D ENX
  Q
@@ -18 +17 @@
  K IBFASTXT
  D FULL^VALM1
- S DIR(0)="SA^1:Performing Provider Care Units;2:Billing Provider Care Units"
- S DIR("A")="Enter Type of Care Unit: ",DIR("B")=$P($P(DIR(0),":",2),";",1)
+ S DIR(0)="SA^1:Care Units for Performing Provider IDs;2:Care Units for Billing Provider Secondary IDs"
+ S DIR("A")="Enter Type of Care Unit: ",DIR("B")=$P($P(DIR(0),":",2),";")
  W ! D ^DIR K DIR W !
  I Y'>0 Q
@@ -66 +65 @@
  .. D SET^VALM10(IBLCT,IBQ,IBENT)
  ;
- I 'IBLCT D SET^VALM10(1,"No CARE UNITs Found"_$S('$G(IBINS):"",1:" for Insurance Co")) S IBLCT=1
+ I 'IBLCT D SET^VALM10(1,"No CARE UNITs Found"_$S('$G(IBINS):"",1:" for Insurance Co"))
  S VALMCNT=IBLCT,VALMBG=1
  Q
@@ -78 +77 @@
  ;
 EXIT ; -- exit
+ K IBFASTXT
  D CLEAN^VALM10
  K ^TMP("IBPRV_CU",$J),IBINS,IBALL