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

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

@@ -1 +1 @@
 IBCEMCA2 ;ALB/ESG - Multiple CSA Message Management - Actions ;20-SEP-2005
- ;;2.0;INTEGRATED BILLING;**320,377**;21-MAR-1994;Build 23
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+ ;;2.0;INTEGRATED BILLING;**320**;21-MAR-1994
+ ;;Per VHA Directive 10-93-142, this routine should not be modified.
  ;
  Q
@@ -7 +7 @@
 CANCEL ; mass claim cancel
  NEW NS,IBIFN,NSC,DIR,X,Y,DUOUT,DTOUT,DIRUT,DIROUT,IBDA,IB364,DISP,IBCE
- NEW IBMCSRSC,IBMCSRNB,IBMCSCNT,IBMCSTOT,IBMCSTOP,IBMCSCAN,MRACHK,IBCAN,IBMCSCAC
+ NEW IBMCSRSC,IBMCSRNB,IBMCSCNT,IBMCSTOT,IBMCSTOP,IBMCSCAN,MRACHK,IBCAN
  D FULL^VALM1
  ;
@@ -28 +28 @@
  W !!,"In order to cancel "
  W $S(NSC=1:"this claim",1:"these claims")
- W ", a Reason Cancelled and a Reason Not Billable"
- W !,"are required.  You may also provide an optional CT Additional Comment."
- W !,"These will be used as the default responses for "
+ W ", you must supply the Reason Cancelled and"
+ W !,"the Reason Not Billable.  These will be the default responses for "
  W $S(NSC=1:"this claim",1:"all claims")
  W "."
@@ -51 +50 @@
  I $D(DIRUT) G CANCELX
  M IBMCSRNB=Y           ; save the reason not billable code/desc
- ;
-CANQ3 ; reader call for the Claims Tracking Additional Comment field
- W !
- S DIR(0)="356,1.08O"
- S DIR("A")="CT Additional Comment"
- D ^DIR K DIR
- I $D(DIRUT) G CANCELX
- M IBMCSCAC=Y
  ;
  W !