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

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

@@ -1 +1 @@
 IBCEP0 ;ALB/TMP - Functions for PROVIDER ID MAINTENANCE ;13-DEC-99
- ;;2.0;INTEGRATED BILLING;**137,191,239,232,320,348,349,377**;21-MAR-94;Build 23
+ ;;2.0;INTEGRATED BILLING;**137,191,239,232,320,348,349**;21-MAR-94;Build 46
  ;;Per VHA Directive 2004-038, this routine should not be modified.
  ;
@@ -67 +67 @@
  S IBDSP=Y,IBSORT=""
  I IBDSP="A"!(IBDSP="I") F  D  Q:'IBOK!(IBSORT'="")
- . ;
- . I IBDSP="A" D
- .. S DIR("A")="Display only IDs with a specific ID Qualifier?: "
- .. S DIR("?",1)="Answer Yes to select a specific ID Qualifier by which to display IDs."
- .. S DIR("?")="Answer No to display all IDs."
- .. Q
- . ;
- . I IBDSP="I" D
- .. S DIR("A")="Display IDs for a specific Provider?: "
- .. S DIR("?",1)="Answer Yes to select a specific Provider."
- .. S DIR("?")="Answer No to display all Providers."
- .. Q
- . ;
- . S DIR("B")="NO",DIR(0)="YA"
+ . N Z
+ . S Z=$S(IBDSP="I":"",1:" ID TYPE")
+ . S DIR("A")="DO YOU WANT TO DISPLAY IDS FOR A SPECIFIC PROVIDER"_Z_"?: ",DIR("B")="NO",DIR(0)="YA"
+ . S DIR("?",1)="IF YOU ANSWER YES TO THIS QUESTION, YOU MAY SELECT A SPECIFIC PROVIDER"_Z,DIR("?")="  TO DISPLAY, OTHERWISE, ALL PROVIDER"_Z_"S FOUND WILL BE DISPLAYED"
  . W ! D ^DIR K DIR W !
  . I $D(DTOUT)!$D(DUOUT) S IBOK=0 Q
@@ -86 +76 @@
  . ;
  . I IBDSP="A" D  Q
- .. S DIC(0)="AEMQ",DIC="^IBE(355.97,",DIC("S")="I $S('$P(^(0),U,2):1,1:$P(^(0),U,2)=3)"
- .. S DIC("A")="Select type of ID Qualifier: "
- .. D ^DIC K DIC
+ .. S DIC(0)="AEMQ",DIC="^IBE(355.97,",DIC("S")="I $S('$P(^(0),U,2):1,1:$P(^(0),U,2)=3)" D ^DIC K DIC
  .. I Y>0 S IBSORT=+Y Q
  .. I $D(DTOUT)!$D(DUOUT) S IBOK=0