Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ABME3HA0

ABME3HA0.m

Go to the documentation of this file.
  1. ABME3HA0 ; IHS/ASDST/SDR - HCFA-1500 NSF 3.01 RECORD HA0 (Claim Root Segment) ;
  1. ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
  1. ;
  1. ;
  1. START ;START HERE
  1. K ABMREC(64)
  1. D SET^ABMERUTL
  1. D LOOP
  1. K ABM,ABME,ABMRV
  1. Q
  1. LOOP ;LOOP HERE
  1. F I=10:10:50 D
  1. .D @I
  1. .I $D(^ABMEXLM("AA",+$G(ABMP("INS")),+$G(ABMP("EXP")),64,I)) D @(^(I))
  1. .D ADD
  1. S ABMEF("LINE")=ABMREC(64)
  1. D WRITE^ABMEF20
  1. Q
  1. ADD ;ADD TO RECORD
  1. I '$G(ABMP("NOFMT")) S ABMREC(64)=$G(ABMREC(64))_ABMR(64,I)
  1. Q
  1. 10 ;1-3 Record type
  1. S ABMR(64,10)="HA0"
  1. Q
  1. 20 ;4-5 Sequence
  1. S ABMR(64,20)=1
  1. S ABMR(64,20)=$$FMT^ABMERUTL(ABMR(64,20),"2NR")
  1. Q
  1. 30 ;6-22 Patient Control Number
  1. S ABMR(64,30)=ABMP("PCN")
  1. S ABMR(64,30)=$$FMT^ABMERUTL(ABMR(64,30),17)
  1. Q
  1. 40 ;23-39 Line Item Control Number
  1. S ABMR(64,40)=""
  1. S ABMR(64,40)=$$FMT^ABMERUTL(ABMR(64,40),17)
  1. Q
  1. 50 ;40-320 Extra Narrative Data
  1. S ABMR(64,50)=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),10)),U)
  1. S ABMR(64,50)=$$FMT^ABMERUTL(ABMR(64,50),281)
  1. Q
  1. EX(ABMX,ABMY,ABMZ) ;EXTRINSIC FUNCTION HERE
  1. ;X=data element, Y=bill internal entry number
  1. S ABMP("BDFN")=ABMY D SET^ABMERUTL
  1. I '$G(ABMP("NOFMT")) S ABMP("FMT")=0
  1. D @ABMX
  1. S Y=ABMR(64,ABMX)
  1. I $D(ABMP("FMT")) S ABMP("FMT")=1
  1. K ABMR(64,ABMX),ABME,ABMX,ABMY,ABMZ,ABM
  1. Q Y