- 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/IBCNSC0.m
r628 r636 1 IBCNSC0 ;ALB/NLR - INSURANCE COMPANY EDIT - ; 12-MAR-19932 ;; 2.0; INTEGRATED BILLING ;**371**; 21-MAR-94;Build 573 ;;Per VHA Directive 2004-038, this routine should not be modified.1 IBCNSC0 ;ALB/NLR - INSURANCE COMPANY EDIT - ; 12-MAR-1993 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 CLAIMS1 ; display Inpatient Claims information 6 6 N OFFSET,START,IBCNS12,IBADD 7 S START=2 7,OFFSET=27 S START=21,OFFSET=2 8 8 D SET^IBCNSP(START,OFFSET+20," Inpatient Claims Office Information ",IORVON,IORVOFF) 9 9 S IBCNS12=$$ADDRESS(IBCNS,.12,5) … … 22 22 ; 23 23 N OFFSET,START,IBCNS16,IBADD 24 S START= 34,OFFSET=224 S START=27,OFFSET=2 25 25 D SET^IBCNSP(START,OFFSET+20," Outpatient Claims Office Information ",IORVON,IORVOFF) 26 26 S IBCNS16=$$ADDRESS(IBCNS,.16,6)
Note:
See TracChangeset
for help on using the changeset viewer.