- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCNBCD.m
r628 r636 1 1 IBCNBCD ;ALB/ARH-Ins Buffer: display/compare buffer and existing ins ;1 Jun 97 2 ;;2.0;INTEGRATED BILLING;**82,251,361 ,371**;21-MAR-94;Build 572 ;;2.0;INTEGRATED BILLING;**82,251,361**;21-MAR-94;Build 9 3 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 4 4 ; … … 78 78 D DISPLAY(60.12,2.312,.2,"Coor of Benefits:") 79 79 D DISPLAY(61.01,2.312,2.1,"Emp Sponsored?:") 80 D DISPLAY(62.01,2.312,5.01,"Patient Id:")81 80 ; 82 81 I +$G(^IBA(355.33,IBBUFDA,61))!($$GET1^DIQ(2.312,IBEXTDA,2.1)="YES") D ESGHP
Note:
See TracChangeset
for help on using the changeset viewer.