- 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/IBJTRA1.m
r628 r636 1 1 IBJTRA1 ;ALB/AAS,ARH - TPI CT INSURANCE COMMUNICATIONS BUILD ; 4/1/95 2 ;;2.0;INTEGRATED BILLING;**39,91,347 ,389**;21-MAR-94;Build 62 ;;2.0;INTEGRATED BILLING;**39,91,347**;21-MAR-94;Build 24 3 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 4 4 ; … … 61 61 S X=$$EXSET^IBJU1(IBTYP,356,.18) 62 62 I IBTYP=2 S X=X_" of "_$P($G(^DIC(40.7,+$$SCE^IBSDU(+$P(IBTRND,U,4),3),0)),U,1) 63 I IBTYP=3 S X=X_" of "_$P($$PIN^IBCSC5B(+$P(IBTRND,U,9)),U,2)63 I IBTYP=3 S Y=+$P($G(^RMPR(660,+$P(IBTRND,U,9),0)),U,6),X=X_" of "_$$EXSET^IBJU1(Y,660,4) 64 64 I IBTYP=4 S X=X_" of "_$$FILE^IBRXUTL(+$P(IBTRND,U,8),.01) 65 65 S X=X_" on "_$$DAT1^IBOUTL($P(IBTRND,U,6),"2P")
Note:
See TracChangeset
for help on using the changeset viewer.