- 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/IBCECOB1.m
r628 r636 1 1 IBCECOB1 ;ALB/CXW - IB COB MANAGEMENT SCREEN/REPORT ;14-JUN-99 2 ;;2.0;INTEGRATED BILLING;**137,155,288,348,377**;21-MAR-94;Build 23 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 2 ;;2.0;INTEGRATED BILLING;**137,155,288,348**;21-MAR-94;Build 5 4 3 ; 5 4 BLD ; Build list entrypoint … … 121 120 .. S X="" 122 121 .. S X=$$SETFLD^VALM1(IBCNT,X,"NUMBER") 123 .. S X=$$SETFLD^VALM1($$BN1^PRCAFN(IBIFN) _$S($P($G(^DGCR(399,IBIFN,"TX")),U,10)=1:"*",1:""),X,"BILL")122 .. S X=$$SETFLD^VALM1($$BN1^PRCAFN(IBIFN),X,"BILL") 124 123 .. S X=$$SETFLD^VALM1($$DAT1^IBOUTL($P(IB,U)),X,"SERVICE") 125 124 .. S X=$$SETFLD^VALM1(IBPAT,X,"PATNM")
Note:
See TracChangeset
for help on using the changeset viewer.