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

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

@@ -1 +1 @@
 IBCNEBF ;DAOU/ALA - Create an Entry in the Buffer File ;20-JUN-2002
- ;;2.0;INTEGRATED BILLING;**184,271,361,371**;21-MAR-94;Build 57
+ ;;2.0;INTEGRATED BILLING;**184,271,361**;21-MAR-94;Build 9
  ;;Per VHA Directive 2004-038, this routine should not be modified.
  ;
@@ -23 +23 @@
  ;
  ;
- NEW VBUF,IEN,INAME,PNAME,IIEN,GNUMB,GNAME,SUBID,PPHONE,PATID
+ NEW VBUF,IEN,INAME,PNAME,IIEN,GNUMB,GNAME,SUBID,PPHONE
  NEW BPHONE,EFFDT,EXPDT,WHO,REL,IDOB,ISSN,COB,TQIEN,RDATA,ISEX,NAME
  NEW MSG,XMSUB,MSGP,INSDATA,PCE,BFD,BFN,INSPCE,ESGHPARR
@@ -33 +33 @@
  S NAME=$P($G(^DPT(DFN,.312,IRIEN,0)),U,17)
  S SUBID=$P($G(^DPT(DFN,.312,IRIEN,0)),U,2)
- S PATID=$P($G(^DPT(DFN,.312,IRIEN,5)),U,1)
  S WHO=$P($G(^DPT(DFN,.312,IRIEN,0)),U,6)
  S COB=$P($G(^DPT(DFN,.312,IRIEN,0)),U,20)
@@ -83 +82 @@
  S COB=$P(RDATA,U,13)
  S SUBID=$P(RDATA,U,5)
- S PATID=$P(RDATA,U,18)
  S GNAME=$P(RDATA,U,6)
  S GNUMB=$P(RDATA,U,7)
@@ -93 +91 @@
  ;
  D FIL
- K DFN,VBUF,IEN,IRIEN,INAME,PNAME,IIEN,GNUMB,GNAME,SUBID,PPHONE,PATID
+ K DFN,VBUF,IEN,IRIEN,INAME,PNAME,IIEN,GNUMB,GNAME,SUBID,PPHONE
  K BPHONE,EFFDT,EXPDT,WHO,REL,IDOB,ISSN,COB,TQIEN,RDATA,ISEX,NAME
  K ADD,%DT,D0,DG,DIC,DISYS,DIW,IENS
@@ -117 +115 @@
  . S VBUF(60.07)=NAME  ; Name of Insured
  . S VBUF(60.04)=SUBID  ; Subscriber ID
- . S VBUF(62.01)=PATID  ; Patient/Member ID
  . S VBUF(20.04)=PPHONE  ; Precertification Phone
  . S VBUF(20.03)=BPHONE  ; Billing Phone
@@ -156 +153 @@
  . S MSG(4)=" Patient DFN = "_$G(DFN)
  . S MSG(5)=" Pt Ins Record IEN = "_$G(IRIEN)
- . S MSG(6)="Please log a Remedy Ticket for this problem."
+ . S MSG(6)="Please log a NOIS for this problem."
  . S XMSUB="Error creating Buffer Entry."
  . D MSG^IBCNEUT5(MSGP,XMSUB,"MSG(")