- 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/IBTRED01.m
r628 r636 1 1 IBTRED01 ;ALB/AAS - EXPAND/EDIT CLAIMS TRACKING ENTRY - CONT; 01-JUL-1993 2 ;; 2.0;INTEGRATED BILLING;**389**;21-MAR-94;Build 63 ;;Per VHA Directive 2004-038, this routine should not be modified.2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94 3 ;;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 ; 5 5 % I '$G(IBTRN)!($G(IORVON)="") G ^IBTRED … … 69 69 4 ; -- Visit region for prosthetics 70 70 N IBDA,IBRMPR S IBDA=$P(IBTRND,"^",9) D PRODATA^IBTUTL1(IBDA) 71 D SET^IBCNSP(START+2,OFFSET," Item: "_$ P($$PIN^IBCSC5B(+IBDA),U,2))71 D SET^IBCNSP(START+2,OFFSET," Item: "_$G(IBRMPR(660,+IBDA,4,"E"))) 72 72 D SET^IBCNSP(START+3,OFFSET," Description: "_$G(IBRMPR(660,+IBDA,24,"E"))) 73 73 D SET^IBCNSP(START+4,OFFSET," Quantity: "_$J($G(IBRMPR(660,+IBDA,5,"E")),$L($G(IBRMPR(660,+IBDA,14,"E")))))
Note:
See TracChangeset
for help on using the changeset viewer.