- 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/IBTOBI4.m
r628 r636 1 1 IBTOBI4 ;ALB/AAS - CLAIMS TRACKING BILLING INFORMATION PRINT ;27-OCT-93 2 ;;2.0;INTEGRATED BILLING;**91,125,51,210,266 ,389**;21-MAR-94;Build 62 ;;2.0;INTEGRATED BILLING;**91,125,51,210,266**;21-MAR-94 3 3 ; 4 4 CLIN ; -- output clinical information … … 94 94 4 ; -- Visit region for prosthetics 95 95 N IBDA,IBRMPR S IBDA=$P(IBTRND,"^",9) D PRODATA^IBTUTL1(IBDA) 96 S IBD(2,1)=" Item: "_$ P($$PIN^IBCSC5B(+IBDA),U,2)96 S IBD(2,1)=" Item: "_$G(IBRMPR(660,+IBDA,4,"E")) 97 97 S IBD(3,1)=" Description: "_$G(IBRMPR(660,+IBDA,24,"E")) 98 98 S IBD(4,1)=" Quantity: "_$J($G(IBRMPR(660,+IBDA,5,"E")),4)
Note:
See TracChangeset
for help on using the changeset viewer.