\n", "", "\nThe prior payments made by each insurance company for bill entry IBXIEN.\nData is returned in an array IBXDATA(1-n). This is a group element and\nup to 2 data elements are returned in the IBXDATA(n) array. If the primary\ninsurance is the current responsible, no prior payments are returned. If\nthe secondary insurance is the current responsible, the primary insurance \nprior payments are returned. If the tertiary insurance is the current \nresponsible, the primary and secondary insurance prior payments are \nreturned.\n
\n\n"], ["N-HCFA 1500 SERVICE LINE (EDI)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=\"\" I $$FT^IBCEF(IBXIEN)=2 D OUTPT^IBCEF11(IBXIEN,0)\n", "", "\nThe elements of the outpatient services line on the HCFA 1500 (BOX 24) for\nFor COB data at a line level, the array IBXDATA(n,"COB",COBSEQ,m)=cob line\nlevel adjustment data (0-node) and IBXDATA(n,"COB",COBSEQ,m,z,p) = the\nreasons for the adj m,p are sequence #'s, z = ' PR' for deductible and\nco-insurance entries and = Reason Group Code for the rest.\nbill entry IBXIEN. Format is begin date^end date^place of service code\n type of service code^procedure or revenue code^type of code^ diagnosis\n pointers^unit charge^units^modifier pointer ien(s) separated by commas\n purchased charge amount ^ anesthesia minutes^emergency indicator^lab type\nof service flag. Data is returned in an array IBXDATA(1-n). Also returns\nthe arrays IBXDATA(n,"AUX")=the 'AUX' node for the procedure entry on the\nclaim IBXDATA("ITEM",item type,item pointer)=n^ctr if this data can be\ngathered. \n\n\n"], ["N-CURR INSURANCE CO PROV #", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,Z D F^IBCEF(\"N-ALL INSURANCE CO PROV NUM\",\"IBZ\",,IBXIEN) S Z=+$$COBN^IBCEF(IBXIEN) I $G(IBZ(Z))'=\"\" S IBXDATA=IBZ(Z)\n", "", "\nThe provider number for the current insurance company for bill entry IBXIEN.\n
\n\n"], ["N-OTH INSURANCE PROVIDER #", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,Z1,IBZ D F^IBCEF(\"N-ALL INSURANCE CO PROV NUM\",\"IBZ\") S Z=$$COBN^IBCEF(IBXIEN) S Z0=0 F Z1=1:1:3 I Z1'=Z,$D(^DGCR(399,IBXIEN,\"I\"_Z1)) S Z0=Z0+1,IBXDATA(Z0)=$G(IBZ(Z1))\n", "", "\nThis data element returns the provider numbers from bill entry IBXIEN for\nIf any of the insurance company's do not have this data, the site's tax\nid is used.\nthe insurance companies on the bill that are not currently the company\nresponsible for the payment of the bill. This is a group element and up to\n2 data elements are returned in the IBXDATA(n) array. If the primary\ninsurance is the current responsible, the secondary and tertiary insurance\nco #'s are returned. If the secondary insurance is the current responsible,\nthe primary and tertiary insurance co #'s are returned. If the tertiary\ninsurance is the current responsible, the primary and secondary insurance\nco #'s are returned.\n
\n\n"], ["N-CURRENT INSURANCE CO 837 ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$PAYERID^IBCEF2(IBXIEN)\n", "", "\nThe internal code number to identify the current insurance company to the\nENVOY system.\n
\n\n"], ["N-UB92 FORM LOCATOR 56", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$P($G(^DGCR(399,IBXIEN,\"UF3\")),U,7) D:IBXDATA=\"\" F^IBCEF(\"N-PRIOR BILLS\")\n", "", "\nThe UB92 data for FORM LOCATOR 56 for bill IBXIEN. If the data field for \nfree text in form locator 56 is null, output prior bills.\n
\n\n"], ["N-REFER PROV QUAL (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$PRQUAL^IBCEF83(IBXIEN)\n", "", "\nCheck for a Referring Doctor. If there is one, set the Qualifier to \n"DN". If there is not a Referring Doctor, check for a Supervising Doctor. \nIf there is a supervising doctor set the Qualifier to "DQ".\n
\n\n"], ["N-RECORD ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=\"\"\n", "", "\nThe hard-coded record id for each segment of the 837 transmission string.\n
\n\n"], ["N-CUR ILL QUAL (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ S IBXDATA=$P($$QUAL^IBCF22(IBXIEN,14,.IBXSAVE,.IBZ),U,2)\n", "", "\nQualifier for box 14.\n
\n\n"], ["N-STATEMENT COVERS TO DATE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "STATEMENT COVERS TO\n", "INTERNAL\n", "", "", "", "\nThe internal fileman date for statement to date for bill entry IBXIEN.\n
\n\n"], ["N-SITE NUMBER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=+$$SITE^VASITE()\n", "", "\nThis is the 3-digit number that identifies the site.\n
\n\n"], ["N-COMMON BILL REMARKS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D CREM^IBCEF21(IBXIEN)\n", "", "\nCommon remarks to appear on every bill from the IB site parameters file\nfor all bills, the standard non-service connected disclaimer and the\nMEDICARE non-payment explanation.\n
\n\n"], ["N-SEGMENT DELIMITER", "NATIONAL,NO EDIT\n", "CONSTANT VALUE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "~\n", "", "", "\nThe character that will be used to indicate the end of each segment. Must\nbe included in the BGN segment.\n
\n\n"], ["N-MAILING ADDRESS NAME", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "MAILING ADDRESS NAME\n", "INTERNAL\n", "", "", "", "\nThe mailing address name from the bill.\n
\n\n"], ["N-MAILING ADDRESS FULL", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,A K IB S Z=$G(^DGCR(399,IBXIEN,\"M\")),A=0 S:$P(Z,U,5)'=\"\" A=A+1,IB(A)=$P(Z,U,5) S:$P(Z,U,6)'=\"\" A=A+1,IB(A)=$P(Z,U,6) S:$L($P($G(^(\"M1\")),U)) A=A+1,IB(A)=$P(^(\"M1\"),U) S IB(\"C\")=$P(Z,U,7),IB(\"S\")=$P(Z,U,8),IB(\"Z\")=$TR($P(Z,U,9),\"-\")\n", "IB\n", "\nReplaced by data element #192 - N-CURR INS CO FULL ADDRESS 9/2000\nThe street mailing addresses for the bill returned as a group element\nin IB(1-3) and then the mailing address city, state and zip returned in\nIB("C"), IB("S") and IB("Z"). Note the zip code is stripped of any 'dashes'\nit may contain.\n\n\n"], ["N-OTHER DATE QUAL (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ S IBXDATA=$P($$QUAL^IBCF22(IBXIEN,15,.IBXSAVE,.IBZ),U,2)\n", "IBXDATA\n", "\nQualifier for box 15.\n
\n\n"], ["N-UB92 FORM LOCATOR 57", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "*FORM LOCATOR 57\n", "", "", "", "", "\nThe UB92 data for FORM LOCATOR 57 for bill IBXIEN.\n
\n\n"], ["N-CUR ILL DATE (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ S IBXDATA=$P($$QUAL^IBCF22(IBXIEN,14,.IBXSAVE,.IBZ),U,1) I $D(IBZ) M IBXSAVE(\"DATE\")=IBZ\n", "", "\nThis is either LMP or Onset of Illness date.\n
\n\n"], ["N-OTHER DATE (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ S IBXDATA=$P($$QUAL^IBCF22(IBXIEN,15,.IBXSAVE,.IBZ),U,1) I $D(IBZ) M IBXSAVE(\"DATE\")=IBZ\n", "", "\nThis is accident date or Last x-ray date or Acute Manifestation of \nChronic Condition date or Prescription date or Initial Treatment Date or \nLatest Visit/Consultation date.\n
\n\n"], ["N-PRINT BILL SUBMIT STATUS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S:'$D(IBPNT) IBPNT=0 S IBXDATA=$S($$NEEDMRA^IBEFUNC(IBXIEN):\"*** NOT A BILL-MRA NEEDED ***\",IBPNT=0:\"*** COPY OF ORIGINAL BILL ***\",IBPNT=2:\"*** SECOND NOTICE ***\",IBPNT=3:\"*** THIRD NOTICE ***\",1:\"\")\n", "", "\nThe bill type to print at the top of either the CMS-1500 or the UB-04. \nThis element assumes that the variable IBPNT has been previously set by a\npre-processor routine or by some other method.\n
\n\n"], ["N-PATIENT SSN", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$PTDEM^IBCEF(IBXIEN,2)\n", "", "\nUnformatted social security number for the patient for bill IBXIEN.\n
\n\n"], ["N-OTHER INSURANCE EXISTS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0 S (IBXDATA,Z0)=0 F Z=1:1:3 I $D(^DGCR(399,IBXIEN,\"I\"_Z)) S Z0=Z0+1 S:Z0>1 IBXDATA=1 Q:IBXDATA\n", "", "\nReturns a 0 if only one insurance found for bill IBXIEN, returns a 1 if more\nthan one insurance found.\n
\n\n"], ["N-HCFA 1500 BOX 12", "NATIONAL,NO EDIT\n", "CONSTANT VALUE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "SIGNATURE ON FILE\n", "", "", "\nPATIENT'S OR AUTHORIZED SIGNATURE FOR RELEASE OF INFORMATION TEXT\n
\n\n"], ["N-HCFA 1500 BOX 13", "NATIONAL,NO EDIT\n", "CONSTANT VALUE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "SIGNATURE ON FILE\n", "", "", "\nStatement proclaiming the insured's or authorized person's signature for\nassignment of benefits is on file.\n
\n\n"], ["N-HCFA 1500 BOX 18 (FR)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D F^IBCEF(\"N-ADMISSION DATE\") S:IBXDATA IBXDATA=IBXDATA\\1 I 'IBXDATA,'$$INPAT^IBCEF(IBXIEN,1) D F^IBCEF(\"N-STATEMENT COVERS FROM DATE\")\n", "", "\nGet admission date from N-ADMISSION DATE data element and strip off the\ntime.\n
\n\n"], ["N-HCFA 1500 BOX 19", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$BOX19^IBCEU3(IBXIEN)\n", "", "\nThe data for BOX 19 on the HCFA 1500. This data is derived from a\n NO ASSIGNMENT OF BENEFITS (if no assignment of benefits indicated)\n Hearing aid testing (if applicable)\n DENTAL SURGERY (if applicable)\n ATTENDING PHYSICIAN NOT HOSPICE EMPLOYEE (if applicable)\n LOW OSMOLAR CONTRAST MATERIAL (if applicable)\n SHARED POST-OP CARE TRANSITION DATE (if applicable)\n COMMENTS IN BOX 19 DATA FIELD\n REMARKS IN BILL COMMENTS\n \nYou will need to use the Medicare manual to determine when these data\ncombination of different data throughout the system and is limited to 80\nelements are needed and specifically what data is to be reported. If the\nindividual data elements cannot be entered into VistA in unique fields,\nyou will need to enter the corresponding text into the free text box 19\nfield.\ncharacters. The hierarchy for including data is as follows (until 80\ncharacters have been used):\n \n DATE LAST SEEN and REFERRING PHYSICIAN ID# (physical therapy)\n X-RAY DATE (chiropractic)\n HOMEBOUND INDICATOR (independent lab renders an EKG or obtains specimen\n from a homebound patient)\n
\n\n"], ["N-DIAGNOSIS IND", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$DXIND^IBCF2(IBXIEN)\n", "", "\nDetermine if diagnosis codes are ICD9 or ICD10. The value will be a 9 for \nICD9 codes and a 0 for ICD10 codes,\n
\n\n"], ["N-UB92 FORM LOCATOR 31", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "*FORM LOCATOR 31\n", "", "", "", "", "\nThe UB92 data for FORM LOCATOR 31 for bill IBXIEN.\n
\n\n"], ["N-HCFA 1500 OUTSIDE LAB", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$OLAB^IBCEU(IBXIEN)\n", "", "\nField that BOX 20 of the HCFA 1500 should always check the NO box.\n
\n\n"], ["N-HCFA 1500 EIN FLAG (BOX 25)", "NATIONAL,NO EDIT\n", "CONSTANT VALUE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "X\n", "", "", "\n'X' to indicate the federal tax id # is of type EIN, not SSN.\n
\n\n"], ["N-TOTAL CHARGES LESS OFFSET", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z S Z=$G(^DGCR(399,IBXIEN,\"U1\")),IBXDATA=$P(Z,U)-$P(Z,U,2)\n", "", "\nThe value of total charges minus the offset.\n
\n\n"], ["N-HCFA 1500 BOX 31", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "", "", "\nNo longer used.\n
\n\n"], ["N-HCFA 1500 SERVICES (PRINT)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "K IBXSAVE(\"BOX24\") D OUTPT^IBCEF11(IBXIEN,1)\n", "", "\nThe elements of the outpatient services line on the HCFA 1500 (BOX 24) for\n not hospice physician flag ^ chiro - level of subluxation\n ^ chiro - treatment series # ^ chiro - quantity ^ EPSDT indicator\nIBXDATA(n,"A") for revenue code description (abbreviated) if no procedure.\nIBXDATA(n,"TEXT") for lines of text that will span the entire block 24.\nIBXDATA(n,"RX")=rx#^drug name^NDC#^refill#^refil dt^qty^days^charg^ien 362.4\nbill entry IBXIEN. Format is begin date (MMDDYYYY)^ end date (MMDDYYYY) or\n null if not different from start date^ place of service code^ type of\n service code^procedure or bedsection name^type of code^ diagnosis pointers\n ^ unit charge ^ units ^ modifier pointer ien(s) separated by commas\n ^ purchased charge amount ^ anesthesia minutes ^ emergency indicator\n ^ lab type of service flag.\nData is returned in an array IBXDATA(n) for the above data, and\nIBXDATA(n,"AUX")=box 24K data ^ last chiropractic xray date ^ attending,\n
\n\n"], ["N-FACILITY STREET ADDRESS 2", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ S IBZ=$G(^TMP(\"IBXSITE\",$J)) D:'IBZ F^IBCEF(\"N-SITE NUMBER\",\"IBZ\",,IBXIEN) S:IBZ IBXDATA=$P($G(^DIC(4,+IBZ,1)),U,2)\n", "", "\nThe facility street address line 2 from the INSTITUTION file. Only has to\nbe extracted for the first bill in the batch.\n
\n\n"], ["N-PRIOR PAYMENTS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0 S IBXSAVE(\"PTOT\")=0 F Z=1:1:3 I $D(^DGCR(399,IBXIEN,\"I\"_Z)) S IBXDATA(Z)=$$OTHPAY^IBCEF1(IBXIEN,Z),IBXSAVE(\"PTOT\")=IBXSAVE(\"PTOT\")+IBXDATA(Z)\n", "", "\nThis data element contains the primary, secondary, and tertiary prior\npayments in array data elements IBXDATA(1), IBXDATA(2), and IBXDATA(3).\nStore the total prior payments in IBXSAVE array for later use.\n
\n\n"], ["N-PATIENT STREET ADDRESS 1-3", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z S Z=$$PTADDR^IBCEF(IBXIEN,0),IBXDATA=\"\"\n", "", "\nReturns the array ^UTILITY("VAPA",$J,Z) where Z=1,2,3 and contains the pt's\n3 street addresses.\n\n\n"], ["N-CURRENT INSURED RELATIONSHIP", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D F^IBCEF(\"N-ALL INSURED PT RELATION\",\"IBZ\",,IBXIEN) S IBZ=$G(IBZ(+$$COBN^IBCEF(IBXIEN))) I IBZ'=\"\" S IBXDATA=IBZ\n", "", "\nThe relationship of the current insured from the policy nodes in the bill\nfile for bill IBXIEN. This is used to determine if the address of the\ninsured is the 'SAME' as the patient's.\n
\n\n"], ["N-AUTO ACCIDENT STATE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"CONDA\")) F^IBCEF(\"N-CONDITION RELATED TO AUTO\") S IBXDATA=$S($D(IBXSAVE(\"CONDA\")):$P($G(IBXSAVE(\"CONDA\")),U,2),1:$P(IBXDATA,U,2))\n", "", "\nThis field relies on the existence of the IBXSAVE("CONDA") variable\npreviously extracted for CONDITION RELATED TO AUTO. If IBXSAVE("CONDA")\ndoes not exist, extract the field that sets it. If IBXSAVE("CONDA")\nexists, the second piece contains the pointer to the state.\n\n\n"], ["N-UB-04 PROCEDURES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IB,IBPROC,Z D PROCX^IBCVA1 S (IB,Z)=0 F S IB=$O(IBPROC(IB)) Q:'IB S Z=Z+1,IBXDATA(Z)=IBPROC(IB) D SETMODS^IBCVA1($P(IBPROC(IB),U,15),Z,.IBXSAVE)\n", "", "\nThe procedures associated with bill IBXIEN. Format is:\nprocedure code;ICPT( or ICD0(^procedure date in fileman format.\nData is returned in an array IBXDATA(1-n) and modifiers on the procedures\nare returned in IBXSAVE("PROCMODS",1-n)=modifiers separated by comma.\n\n\n"], ["N-HCFA 1500 BOX 18 (TO)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D F^IBCEF(\"N-DISCHARGE DATE\") S:IBXDATA IBXDATA=IBXDATA\\1\n", "", ""], ["N-DIAGNOSIS CODE 5 (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"DX\")) F^IBCEF(\"N-DIAGNOSES\") S IBXDATA=$G(IBXSAVE(\"DX\",5))\n", "", "\nData element relies on previously extracted data in array IBXSAVE("DX") \nfrom the HCFA DIAGNOSES. If IBXSAVE(""DX"") does not exist, extract the \nfield that sets it. The second in the sequence of diagnoses for bill \nIBXIEN for the HCFA 1500. This is the internal diagnosis code (ICD9).\n\n\n"], ["N-DIAGNOSIS CODE 2 (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"DX\")) F^IBCEF(\"N-DIAGNOSES\") S IBXDATA=$G(IBXSAVE(\"DX\",2))\n", "", "\nData element relies on previously extracted data in array IBXSAVE("DX")\nfrom the HCFA DIAGNOSES. If IBXSAVE("DX") does not exist, extract the\nfield that sets it. The second in the sequence of diagnoses for bill\nIBXIEN for the HCFA 1500. This is the internal diagnosis code (ICD9).\n\n\n"], ["N-DIAGNOSIS CODE 3 (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"DX\")) F^IBCEF(\"N-DIAGNOSES\") S IBXDATA=$G(IBXSAVE(\"DX\",3))\n", "", "\nData element relies on previously extracted data in array IBXSAVE("DX")\nfrom the HCFA DIAGNOSES. If IBXSAVE("DX") does not exist, extract the\nfield that sets it. The third in the sequence of diagnoses for bill\nIBXIEN for the HCFA 1500. This is the internal diagnosis code (ICD9).\n\n\n"], ["N-DIAGNOSIS CODE 4 (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"DX\")) F^IBCEF(\"N-DIAGNOSES\") S IBXDATA=$G(IBXSAVE(\"DX\",4))\n", "", "\nData element relies on previously extracted data in array IBXSAVE("DX")\nfrom the HCFA DIAGNOSES. If IBXSAVE("DX") does not exist, extract the\nfield that sets it. The fourth in the sequence of diagnoses for bill\nIBXIEN for the HCFA 1500. This is the internal diagnosis code (ICD9).\n\n\n"], ["N-DATE OF SERVICE FROM", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"BOX24\")) B24^IBCEF3(.IBXSAVE,IBXIEN) D TEXT24^IBCEU3(\"AF\",.IBXSAVE,.IBXDATA)\n", "", "\nData element relies on the data previously extracted in array\nIBXSAVE("BOX24") from HCFA 1500 SERVICES PRINT. Returns the array of\nservice from dates for each procedure being billed in IBXDATA(n). Since\neach procedure has 2 lines of data, if there is a text line present for a\nprocedure (IBXSAVE("BOX24",n,"TEXT") is defined), the data is returned on\nthe upper line and the characters 1-9 of the text are returned on the\nbottom line. If there is no text, the upper line is returned as null and\nthe data extracted is returned on the second line.\n\n\n"], ["N-DATE OF SERVICE TO", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"BOX24\")) B24^IBCEF3(.IBXSAVE,IBXIEN) D TEXT24^IBCEU3(\"AT\",.IBXSAVE,.IBXDATA)\n", "", "\nData element relies on the data previously extracted in array\nIBXSAVE("BOX24") from HCFA 1500 SERVICES PRINT. Returns the array of\nservice to dates for each procedure being billed in IBXDATA(n). Since\neach procedure has 2 lines of data, if there is a text line present for a\nprocedure (IBXSAVE("BOX24",n,"TEXT") is defined), the data is returned on\nthe upper line and the characters 10-18 of the text are returned on the\nbottom line. If there is no text, the upper line is returned as null and\nthe data extracted is returned on the second line.\n\n\n"], ["N-HCFA 1500 PLACE OF SERVICE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"BOX24\")) B24^IBCEF3(.IBXSAVE,IBXIEN) D TEXT24^IBCEU3(\"B\",.IBXSAVE,.IBXDATA)\n", "", "\nData element relies on the data previously extracted in array\nIBXSAVE("BOX24") from HCFA 1500 SERVICES PRINT. Returns the array of\nplace of service codes for each procedure being billed in IBXDATA(n). Since\neach procedure has 2 lines of data, if there is a text line present for a\nprocedure (IBXSAVE("BOX24",n,"TEXT") is defined), the data is returned on\nthe upper line and the characters 19-21 of the text are returned on the\nbottom line. If there is no text, the upper line is returned as null and\nthe data extracted is returned on the second line.\n\n\n"], ["N-HCFA 1500 TYPE OF SERVICE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"BOX24\")) B24^IBCEF3(.IBXSAVE,IBXIEN) D TEXT24^IBCEU3(\"C\",.IBXSAVE,.IBXDATA)\n", "", "\nData element relies on the data previously extracted in array\nIBXSAVE("BOX24") from HCFA 1500 SERVICES PRINT. Returns the array of\ntype of service codes for each procedure being billed in IBXDATA(n). Since\neach procedure has 2 lines of data, if there is a text line present for a\nprocedure (IBXSAVE("BOX24",n,"TEXT") is defined), the data is returned on\nthe upper line and the characters 22-24 of the text are returned on the\nbottom line. If there is no text, the upper line is returned as null and\nthe data extracted is returned on the second line.\n\n\n"], ["N-HCFA 1500 PROCEDURES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"BOX24\")) B24^IBCEF3(.IBXSAVE,IBXIEN) D TEXT24^IBCEU3(\"D\",.IBXSAVE,.IBXDATA)\n", "", "\nData element relies on the data previously extracted in array\nIBXSAVE("BOX24") from HCFA 1500 SERVICES PRINT. Returns the array of\nHCPCS codes for each procedure being billed in IBXDATA(n). Since\neach procedure has 2 lines of data, if there is a text line present for a\nprocedure (IBXSAVE("BOX24",n,"TEXT") is defined), the data is returned on\nthe upper line and the characters 26-41 of the text are returned on the\nbottom line. If there is no text, the upper line is returned as null and\nthe data extracted is returned on the second line.\n\n\n"], ["N-DIAGNOSIS CODE REFS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"BOX24\")) B24^IBCEF3(.IBXSAVE,IBXIEN) D TEXT24^IBCEU3(\"E\",.IBXSAVE,.IBXDATA)\n", "", "\nData element relies on the data previously extracted in array\nIBXSAVE("BOX24") from HCFA 1500 SERVICES PRINT. Returns the array of\nDx code references for each procedure being billed in IBXDATA(n). Since\neach procedure has 2 lines of data, if there is a text line present for a\nprocedure (IBXSAVE("BOX24",n,"TEXT") is defined), the data is returned on\nthe upper line and the characters 42-48 of the text are returned on the\nbottom line. If there is no text, the upper line is returned as null and\nthe data extracted is returned on the second line.\n\n\n"], ["N-HCFA 1500 CHARGES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"BOX24\")) B24^IBCEF3(.IBXSAVE,IBXIEN) D TEXT24^IBCEU3(\"F\",.IBXSAVE,.IBXDATA)\n", "", "\nData element relies on the data previously extracted in array\nsecond line.\nIBXSAVE("BOX24") from HCFA 1500 SERVICES PRINT. Returns the array of\nraw charges (unformatted) for each procedure being billed in IBXDATA(n).\nThis data is calculated by taking the unit charge * units to get the total\ncharge for the line item. Since each procedure has 2 lines of data, if\nthere is a text line present for a procedure (IBXSAVE("BOX24",n,"TEXT") is\ndefined), the data is returned on the upper line and the characters 49-58\nof the text are returned on the bottom line. If there is no text, the\nupper line is returned as null and the data extracted is returned on the\n\n\n"], ["N-HCFA 1500 UNITS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"BOX24\")) B24^IBCEF3(.IBXSAVE,IBXIEN) D TEXT24^IBCEU3(\"G\",.IBXSAVE,.IBXDATA)\n", "", "\nData element relies on the data previously extracted in array\nreturned as null and the data extracted is returned on the second line.\nIBXSAVE("BOX24") from HCFA 1500 SERVICES PRINT. Returns the array of\nunits (unformatted) for each procedure being billed in IBXDATA(n).\nIf the line item has a type of service = 7 (anesthesia), the units are\nalways output as 1 and the actual minutes print as text on the text line.\nSince each procedure has 2 lines of data, if there is a text line present\nfor a procedure (IBXSAVE("BOX24",n,"TEXT") is defined), the data is\nreturned on the upper line and the characters 59-61 of the text are\nreturned on the bottom line. If there is no text, the upper line is\n\n\n"], ["N-HCFA 1500 BALANCE DUE BOX", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z S Z=$G(^DGCR(399,IBXIEN,\"U1\")),IBXDATA=Z-$P(Z,U,2)\n", "", "\nThe total due on bill entry IBXIEN calculated: Total Charges - Offset Amount\n
\n\n"], ["N-HCFA BOX 24H FREE TEXT", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"BOX24\")) B24^IBCEF3(.IBXSAVE,IBXIEN) D TEXT24^IBCEU3(\"H\",.IBXSAVE,.IBXDATA)\n", "", "\nData element relies on the data previously extracted in array\nIBXSAVE("BOX24") from HCFA 1500 SERVICES PRINT. Returns the array of\nEPSDT indicator for each procedure being billed in IBXDATA(n).\nSince each procedure has 2 lines of data, if there is a text line present\nfor a procedure (IBXSAVE("BOX24",n,"TEXT") is defined), the data is\nreturned on the upper line and the characters 62-64 of the text are\nreturned on the bottom line. If there is no text, the upper line is\nreturned as null and the data extracted is returned on the second line.\n\n\n"], ["N-HCFA BOX 24I FREE TEXT", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"BOX24\")) B24^IBCEF3(.IBXSAVE,IBXIEN) D TEXT24^IBCEU3(\"I\",.IBXSAVE,.IBXDATA)\n", "", "\nData element relies on the data previously extracted in array\nIBXSAVE("BOX24") from HCFA 1500 SERVICES PRINT. Returns the array of\nemergency indicators for each procedure being billed in IBXDATA(n).\nSince each procedure has 2 lines of data, if there is a text line present\nfor a procedure (IBXSAVE("BOX24",n,"TEXT") is defined), the data is\nreturned on the upper line and the characters 65-67 of the text are\nreturned on the bottom line. If there is no text, the upper line is\nreturned as null and the data extracted is returned on the second line.\n\n\n"], ["N-HCFA BOX 24J FREE TEXT", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"BOX24\")) B24^IBCEF3(.IBXSAVE,IBXIEN) D TEXT24^IBCEU3(\"J\",.IBXSAVE,.IBXDATA)\n", "", "\nData element relies on the data previously extracted in array\nIBXSAVE("BOX24") from HCFA 1500 SERVICES PRINT. Returns the array of\nnull values (as this field is not currently supported) for each procedure\nbeing billed in IBXDATA(n). Since each procedure has 2 lines of data, if\nthere is a text line present for a procedure (IBXSAVE("BOX24",n,"TEXT") is\ndefined), the data is returned on the upper line and the characters 68-70 of\nthe text are returned on the bottom line. If there is no text, the upper\nline is returned as null and the data extracted is returned on the second\nline.\n\n\n"], ["N-HCFA BOX 24K FREE TEXT", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N M,S D:'$D(IBXSAVE(\"BOX24\")) B24^IBCEF3(.IBXSAVE,IBXIEN) S M=$$WNRBILL^IBEFUNC(IBXIEN),S=\"\" S:M S=$$MCRSPEC^IBCEU4(IBXIEN,1),IBXSAVE(\"Q\")=$S(S'=\"\":\"V\"_S_$P($$SITE^VASITE,U,3),1:\"\") D TEXT24^IBCEU3(\"K\",.IBXSAVE,.IBXDATA) K IBXSAVE(\"Q\")\n", "", "\nData element relies on the data previously extracted in array\nIBXSAVE("BOX24") from HCFA 1500 SERVICES PRINT. Returns the array of\nHCFA 1500 Box 24 data for each procedure being billed in IBXDATA(n).\nSince each procedure has 2 lines of data, if there is a text line present\nfor a procedure (IBXSAVE("BOX24",n,"TEXT") is defined), the data is\nreturned on the upper line and the characters 71-80 of the text are\nreturned on the bottom line. If there is no text, the upper line is\nreturned as null and the data extracted is returned on the second line.\n\n\n"], ["N-HCFA 1500 MODIFIERS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0 S IBXDATA=\"\",Z0=$S('$G(^TMP(\"IBTX\",$J,IBXIEN)):\"BOX24\",1:\"OUTPT\") D:'$D(IBXSAVE(Z0)) B24^IBCEF3(.IBXSAVE,IBXIEN) S Z=0 F S Z=$O(IBXSAVE(Z0,Z)) Q:'Z S IBXDATA(Z)=$P(IBXSAVE(Z0,Z),U,10)\n", "", "\nData element relies on the data previously extracted in array\nIBXSAVE("BOX24") from HCFA 1500 SERVICES PRINT. Returns the array of\nmodifiers for each procedure being billed in IBXDATA(n).\nSince each procedure has 2 lines of data, if there is a text line present\nfor a procedure (IBXSAVE("BOX24",n,"TEXT") is defined), the data is\nreturned on the upper line and the characters 7-16 of the text are\nreturned on the bottom line. If there is no text, the upper line is\nreturned as null and the data extracted is returned on the second line.\n\n\n"], ["N-LINES BOX 24 (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBXPARM D BILLPARM^IBCEFG0(IBXIEN,.IBXPARM),PARTEXT^IBCEFG0(1,1,\"43^48\",IBXIEN,2,.IBXPARM,.IBXERR) K:$G(IBXERR)=\"\" IBXERR S IBXDATA=\"\"\n", "", "\nThis data element extracts the box 24 data for the HCFA 1500. It returns\nthe array ^TMP("IBXDISP",$J,PG,LN) that 'looks' like the printed output\nof BOX 24 for the HCFA 1500 form for bill entry IBXIEN.\nWARNING: This data element kills ^TMP("IBXDATA",$J) array.\n\n\n"], ["N-COLUMNS BOX 24 (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBXPARM D BILLPARM^IBCEFG0(IBXIEN,.IBXPARM),PARTEXT^IBCEFG0(0,1,\"43^48\",IBXIEN,2,.IBXPARM,.IBXERR) K:$G(IBXERR)=\"\" IBXERR S IBXDATA=\"\"\n", "", "\nThis data element extracts the box 24 data for the HCFA 1500. It returns\nthe array ^TMP("IBXDISP",$J,PG,LN,COL) that 'looks' like the printed output\nof BOX 24 by pg/line/column for the HCFA 1500 form for bill entry IBXIEN.\nWARNING: This data element kills ^TMP("IBXDATA",$J) array.\n\n\n"], ["N-UB92 SIG REQ REMINDER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0 S Z=$P($G(^DGCR(399,IBXIEN,0)),U,21) S:Z=\"\" Z=\"P\" S Z0=$P($G(^DIC(36,+$G(^DGCR(399,IBXIEN,\"I\"_($F(\"PST\",Z)-1))),0)),U,3),IBXDATA=$S('Z0:\"\",1:\"##SR\")\n", "", "\nThis field is output if the bill's current insurance company indicates a\nmanual signature is required on the bill.\n
\n\n"], ["N-DIAGNOSIS CODE 6 (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"DX\")) F^IBCEF(\"N-DIAGNOSES\") S IBXDATA=$G(IBXSAVE(\"DX\",6))\n", "", "\nData element relies on previously extracted data in array IBXSAVE("DX") \nfrom the HCFA DIAGNOSES. If IBXSAVE(""DX"") does not exist, extract the \nfield that sets it. The second in the sequence of diagnoses for bill \nIBXIEN for the HCFA 1500. This is the internal diagnosis code (ICD9).\n\n\n"], ["N-LOCATION OF CARE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "LOCATION OF CARE\n", "INTERNAL\n", "", "", "", "\nThis data element will be the value of the location of care for the bill\nwhen the bill is created. It cannot be edited. The actual LOCATION OF CARE\nthat is output on the UB92 in FORM LOCATOR 4 is in data element\nN-UB92 LOCATION OF CARE.\nThis field is used throughout the billing system to determine if the bill\nis inpatient or outpatient.\n
\n\n"], ["N-BILL CLASSIFICATION", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "BILL CLASSIFICATION\n", "INTERNAL\n", "", "", "", "\nThis data element will be the value of the bill classification for the bill\nwhen the bill is created. It cannot be edited. The actual BILL\nCLASSIFICATION that is output on the UB92 in FORM LOCATOR 4 is in data\nelement N-UB92 BILL CALSSIFICATION.\n
\n\n"], ["N-TIMEFRAME OF BILL", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "TIMEFRAME OF BILL\n", "INTERNAL\n", "", "", "", "\nThis data element will be the value of the timeframe for the bill when the\nbill is created. It cannot be edited. The actual TIMEFRAME that is output\non the UB92 in FORM LOCATOR 4 is in data element N-UB92 TIMEFRAME OF BILL.\n
\n\n"], ["N-UB92 FORM LOCATOR 11", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "*FORM LOCATOR 11\n", "", "", "", "", "\nThis returns the value of the Fileman field FORM LOCATOR 11 for bill entry\nIBXIEN.\n
\n\n"], ["N-PATIENT SHORT ADDRESS", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "*PATIENT SHORT MAILING ADDRESS\n", "", "", "", "", "\nThe Fileman extracted value of the short mailing address for the patient.\n
\n\n"], ["N-CMS-1500 BOX 24I ID QUAL", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"BOX24\")) B24^IBCEF3(.IBXSAVE,IBXIEN) D TEXT24^IBCEU3(\"I\",.IBXSAVE,.IBXDATA)\n", "", "\nData element returns the IBXDATA array box 24I on the printed 1500 claim \nform. This is the rendering provider ID qualifier. Each claim line \nitem has 2 lines in the IBXDATA array.\n
\n\n"], ["N-CMS-1500 24J REND PROV ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"BOX24\")) B24^IBCEF3(.IBXSAVE,IBXIEN) D TEXT24^IBCEU3(\"J\",.IBXSAVE,.IBXDATA)\n", "", "\nData element returns the IBXDATA array for box 24J on the printed 1500 \nclaim form. This is the Rendering Provider secondary ID and NPI#. Each \nservice line on the claim form has 2 lines in the IBXDATA array.\n
\n\n"], ["N-OCCURRENCE CODES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z K IBXSAVE(\"OCC\"),IBXSAVE(\"OCCS\") S Z=$$OCC^IBCEF1(IBXIEN)\n", "", "\nThe occurrence and occurrence span codes 0-nodes for bill IBXIEN.\nThe arrays IBXSAVE("OCC") and ("OCCS") are returned.\n\n\n"], ["N-UB-04 FORM LOCATOR 64", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "FORM LOCATOR 64A\n", "", "", "", "", "\nThis returns the value for UB-04 FORM LOCATOR 64A in IBXDATA for bill\nentry IBXIEN.\n
\n\n"], ["N-CURR INS CO FULL ADDRESS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=\"\" I $P($G(^DGCR(399,IBXIEN,\"M\")),U,4)'=\"\" N Z,Z0,Q S Z=$G(^(\"M\")),Z0=$G(^(\"M1\")),IBXDATA(1)=$P(Z,U,5),IBXDATA(2)=$P(Z,U,6),IBXDATA(3)=$P(Z0,U) S IBXDATA(7)=$$COID^IBCEF2(IBXIEN) F Q=4:1:6 S IBXDATA(Q)=$P(Z,U,Q+3)\n", "", "\nExtracts the bill mailing address street 1,2,3 into IBXDATA(1),(2),(3), the\nbill mailing address city into IBXDATA(4), the bill mailing address state\ninto IBXDATA(5), the bill mailing address zip code without dashes into\nIBXDATA(6) and the claim office id into IBXDATA(7) for bill entry IBXIEN\nonly if the mailing address name is not null.\n
\n\n"], ["N-UB-04 SERVICE LINE (PRINT)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "K ^TMP($J,\"IBC-RC\"),IBXSAVE(\"DATE\") N IBIFN,IBFL,IBZ S IBIFN=IBXIEN X \"N A,B S A=\"\"\"\",B=6 F S A=$O(^TMP($J,\"\"PROC\"\",A)) Q:'A S B=B+1,IBFL(80,B)=^(A),IBFL(80)=B\" S:'$$INPAT^IBCEF(IBXIEN,1) IBXSAVE(\"DATE\")=$$SERVDT^IBCEF(IBXIEN,6,0) D ^IBCF33\n", "", "\nThe data to be included in form locators 42-49 for bill entry IBXIEN.\nAlso, for outpatient UB-04 claims, it saves the statement from date in\nIBXSAVE("DATE")\nTwo formats of data are returned in ^TMP($J,"IBC-RC"):\n ^TMP($J,"IBC-RC",line #) = column flag=1^revenue code^revenue code std\n abbreviation^CPT code^unit charge^units^total\n charges^non-covered charges^form locator 49\n ^ien of revenue code multiple^modifiers\n OR\n ^TMP($J,"IBC-RC",line #) = column flag=2 or 3^free text (2 prints text in\n column 1, 3 in column 6)\n\n\n"], ["N-ALL INSURANCE COMPANIES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,IBZ D F^IBCEF(\"N-ALL INSURANCE CO 837 ID\",\"IBZ\") F Z=1,2,3 S IBXDATA(Z)=$P($G(^DIC(36,+$$POLICY^IBCEF(IBXIEN,1,$E(\"PST\",Z)),0)),U)_U_$$COID^IBCEF2(IBXIEN)_U_$G(IBZ(Z))\n", "", "\nExtracts the primary, secondary, and tertiary insurance company internal\nentry numbers into the first '^' piece of IBXDATA(1),(2),(3) for bill entry\nIBXIEN. The second '^' piece contains the claim office id number, if known\nand the third '^' piece contains the 837 ENVOY payer ID, if available.\n
\n\n"], ["N-ALL INSURANCE CO PROV NUM", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Q,R S Q=$P($G(^DGCR(399,IBXIEN,\"M1\")),U,2,4),R=$P($G(^IBE(350.9,1,1)),U,5) F Z=1:1:3 I $D(^DGCR(399,IBXIEN,\"I\"_Z)) S IBXDATA(Z)=$P(Q,U,Z)\n", "", "\nExtracts the primary, secondary, and tertiary insurance company provider\nnumbers into the IBXDATA(1),(2),(3) array for bill entry IBXIEN.\n
\n\n"], ["N-ALL INSURED FULL NAMES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z F Z=1:1:3 S:$D(^DGCR(399,IBXIEN,\"I\"_Z)) IBXDATA(Z)=$$POLICY^IBCEF(IBXIEN,17,$E(\"PST\",Z)) I Z=1,'$D(^DGCR(399,IBXIEN,\"I1\")) S IBXDATA(1)=$P($G(^DPT(+$P($G(^DGCR(399,IBXIEN,0)),U,2),0)),U)\n", "", "\nExtracts the primary, secondary, and tertiary insurance insured's full names\ninto the IBXDATA(1),(2),(3) array for bill entry IBXIEN.\n
\n\n"], ["N-ALL INSURED PT RELATION", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Q,T,R,DFN,VAEL S Q=IBXIEN,DFN=$P($G(^DGCR(399,Q,0)),U,2) F Z=1:1:3 K VAEL S (T,IBXDATA(Z))=$$POLICY^IBCEF(Q,16,Z) I +T,\"12\"[+T D ELIG^VADPT S R=$S('VAEL(4):\"\",1:$$POLICY^IBCEF(Q,6,Z)),IBXDATA(Z)=$S(R=\"v\":\"01\",R=\"s\":\"02\",T:T,1:\"09\")\n", "", "\nExtracts the primary, secondary, and tertiary insurance insured's pt\nrelation into the IBXDATA(1),(2),(3) array for bill entry IBXIEN.\n
\n\n"], ["N-ALL INSURANCE NUMBER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z F Z=1:1:3 I $S(Z=1:1,1:$D(^DGCR(399,IBXIEN,\"I\"_Z))) S IBXDATA(Z)=$$POLICY^IBCEF(IBXIEN,2,Z)\n", "", "\nExtracts the primary, secondary, and tertiary subscriber ID number into\nthe IBXDATA(1),(2),(3) array for bill entry IBXIEN. This data is pulled\nfrom the SUBSCRIBER ID field (field#1) in the patient insurance file.\n
\n\n"], ["N-ALL INSURANCE GROUP NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D GRPNAME^IBCEF31(IBXIEN,.IBXDATA)\n", "", "\nPopulates the IBXDATA(z) array with the primary, secondary and tertiary \ninsurance group names for bill IBXIEN, if any. Fields are pulled in this \norder:\nGROUP NAME from ^IBA(355.3,Plan,2);1, where Plan is \n^DGCR(399,IBXIEN,"I"_z);18. If blank, then *GROUP NAME from \n^IBA(355.3,Plan,0);3. If blank, then NAME from ^DIC(36,Ins,0);1, where \nIns is ^DGCR(399,IBXIEN,"I"_z);1.\nMRD;IB*2.0*516.\n
\n\n"], ["N-CURR INSURED FULL NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D F^IBCEF(\"N-ALL INSURED FULL NAMES\",\"IBZ\",,IBXIEN) S IBZ=$G(IBZ(+$$COBN^IBCEF(IBXIEN))) I IBZ'=\"\" S IBXDATA=IBZ\n", "", "\nThe full name of current insured for bill entry IBXIEN.\nFormat is lastname,firstname middle.\n
\n\n"], ["N-CMS-1500 PURCH SVC TOTAL", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBSUB,IBXSAVE,Z S IBSUB=$S('$G(^TMP(\"IBTX\",$J,IBIFN)):\"BOX24\",1:\"OUTPT\") D B24^IBCEF3(.IBXSAVE,IBXIEN) K IBXDATA S (IBXDATA,Z)=0 F S Z=$O(IBXSAVE(IBSUB,Z)) Q:'Z S IBXDATA=IBXDATA+$P(IBXSAVE(IBSUB,Z),U,11)\n", "", "\nData element created for IB patch 371. This data element will work for\n \nThe returned value is not formatted in any way. It is just a number with\nor without a decimal point. For example, 86.33, 17, 176.69, 4, etc.\neither the printed 1500 form or the EDI extract.\n \n EDI usage: SUB-7\nprint usage: CMS-1500, box 20\n \nIt calculates the total purchased service charge amount by totalling up \nall purchased service charges from all line items on the claim. No checks\nare made for outside facility or lab or non-lab or anything else.\n
\n\n"], ["N-ALL INSURANCE GROUP NUMBER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D GRPNUM^IBCEF31(IBXIEN,.IBXDATA)\n", "", "\nPopulates the IBXDATA(z) array with the primary, secondary and tertiary \ninsurance group numbers for bill IBXIEN, if any. Fields are pulled in \nthis order: \nGROUP NUMBER from ^IBA(355.3,Plan,2);2, where Plan is \n^DGCR(399,IBXIEN,"I"_z);18. If blank, then *GROUP NUMBER from \n^IBA(355.3,Plan,0);4.\nMRD;IB*2.0*516.\n
\n\n"], ["N-ALL INSURED EMPLOYER INFO", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z1,Z2 F Z=1:1:3 I $S(Z=1:1,1:$D(^DGCR(399,IBXIEN,\"I\"_Z))) S Z2=$$ESGHPNL^IBCEF21(IBXIEN,Z),Z1=$P(Z2,U,2,999) S:'Z2 Z1=$$INSEMPL^IBCEF(IBXIEN,Z) S IBXDATA(Z)=Z1\n", "", "\nExtracts the primary, secondary, and tertiary insurance company insured's\nemployment info into the IBXDATA(1),(2),(3) array for bill entry IBXIEN.\nFormat is employer name^city^state abbreviation^state ien^street address 1.\nIf the plan is Employer Sponsored (ESGHP) then extracts Employer\nName/Location of the employer that sponsors the plan. Otherwise extracts\nthe insured's current employer name/location (if spouse or veteran only).\n
\n\n"], ["N-ALL INSURED EMPLOY STATUS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z1,Z2,Q F Z=1:1:3 I $S(Z=1:1,1:$D(^DGCR(399,IBXIEN,\"I\"_Z))) S Z2=$$ESGHPST^IBCEF21(IBXIEN,Z),Z1=$P(Z2,U,2),Q=\"\" S:'Z2 Q=$$POLICY^IBCEF(IBXIEN,6,$E(\"PST\",Z)) S:Q'=\"\" Z1=$$EMPSTAT^IBCEF(IBXIEN,Q) S:Q=\"\"&(Z1=\"\") Z1=9 S IBXDATA(Z)=$P(Z1,U)\n", "", "\nExtracts the primary, secondary, and tertiary insurance company insured's\nemployment status into the IBXDATA(1),(2),(3) array for bill entry IBXIEN.\nIf the plan is Employer Sponsored (ESGHP) then extracts Employment Status\nwith the employer who sponsors the plan. Otherwise extracts the insured's\ncurrent employment status, or 9=unknown (if spouse or veteran only).\n
\n\n"], ["N-PROCEDURE CODING METHD", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "PROCEDURE CODING METHOD\n", "INTERNAL\n", "", "", "", "\nThe procedure coding method data from bill IBXIEN.\n
\n\n"], ["N-BILL RATE TYPE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "RATE TYPE\n", "INTERNAL\n", "", "", "", "\nThe rate type data field for bill entry IBXIEN.\n
\n\n"], ["N-CLAIM FORM SIGNER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$P($G(^IBE(350.9,1,1)),U)\n", "", "\nThe claim form signer name defined as an IB system parameter. Does not rely\non bill entry number IBXIEN.\n
\n\n"], ["N-CLAIM FORM SIGNER TITLE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$P($G(^IBE(350.9,1,1)),U,2)\n", "", "\nThe claim form signer title defined as an IB system parameter. Does not\nrely on bill entry number IBXIEN.\n
\n\n"], ["N-FORM REMARKS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$P($G(^IBE(350.9,1,1)),U,4)\n", "", "\nThe form remarks field defined as an IB system parameter. Does not rely on\nbill entry number IBXIEN.\n
\n\n"], ["N-BILL COMMENT", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "BILL COMMENT\n", "INTERNAL\n", "", "", "", "\nReturns the data in the BILL COMMENT field for bill IBXIEN.\n
\n\n"], ["N-DATE FIRST PRINTED", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "DATE FIRST PRINTED\n", "INTERNAL\n", "", "", "", "\nReturns the value in the field for DATE FIRST PRINTED for bill IBXIEN.\n
\n\n"], ["N-INITIAL TREATMENT", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "DATE OF INITIAL TREATMENT\n", "INTERNAL\n", "", "", "", "\nData element used to retrieve date of initial treatment for the claim.\n
\n\n"], ["N-AR BILL NUMBER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$BN1^PRCAFN(IBXIEN)\n", "", "\nThis data element provides the AR bill number for bill entry IBXIEN.\n
\n\n"], ["N-INSURED SERVICE BRANCH", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"IDEM\")) F^IBCEF(\"N-CURR INSURED DEMOGRAPHICS\") S IBXDATA=$P(IBXSAVE(\"IDEM\"),U,4)\n", "", "\nIf the variable IBXSAVE("IDEM") exists, the 4th '^' piece of this data\ncontains the value for this field. If it doesn't exist, extract the\nfield that sets it.\n\n\n"], ["N-INSURED SERVICE RANK", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"IDEM\")) F^IBCEF(\"N-CURR INSURED DEMOGRAPHICS\") S IBXDATA=$P($G(IBXSAVE(\"IDEM\")),U,5)\n", "", "\nIf the variable IBXSAVE("IDEM") exists, the 5th '^' piece of this data\ncontains the value for this field. If it doesn't exist, extract the field\nthat sets it.\n\n\n"], ["N-DIAGNOSIS CODE 7 (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"DX\")) F^IBCEF(\"N-DIAGNOSES\") S IBXDATA=$G(IBXSAVE(\"DX\",7))\n", "", "\nData element relies on previously extracted data in array IBXSAVE("DX") \nfrom the HCFA DIAGNOSES. If IBXSAVE(""DX"") does not exist, extract the \nfield that sets it. The second in the sequence of diagnoses for bill \nIBXIEN for the HCFA 1500. This is the internal diagnosis code (ICD9).\n\n\n"], ["N-CURR INSURED SSN", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"IDEM\")) F^IBCEF(\"N-CURR INSURED DEMOGRAPHICS\") S IBXDATA=$P(IBXSAVE(\"IDEM\"),U,6)\n", "", "\nIf the variable IBXSAVE("IDEM") exists, the 6th '^' piece of this data\ncontains the value for this field. If it doesn't exist, extract the field\nthat sets it.\n\n\n"], ["N-CURR INSURED PHONE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"IDEM\")) F^IBCEF(\"N-CURR INSURED DEMOGRAPHICS\") S IBXDATA=$P(IBXSAVE(\"IDEM\"),U,3)\n", "", "\nIf the variable IBXSAVE("IDEM") exists, the 3rd '^' piece of this data\ncontains the value for this field. If it doesn't exist, extract the field\nthat sets it.\n\n\n"], ["N-PRIOR BILLS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,Z1 S Z0=$P($G(^DGCR(399,IBXIEN,\"M1\")),U,5,7),IBXDATA=$J(\"\",13) F Z=1:1:3 I $D(^DGCR(399,IBXIEN,\"I\"_Z)) S Z1=$E($S($P(Z0,U,Z):$$BN1^PRCAFN($P(Z0,U,Z)),1:\"\")_$J(\"\",14),1,14),IBXDATA=IBXDATA_Z1\n", "", "\nExtracts the Prior Bill Numbers and places them in the proper format for\nprinting in the UB-92 Form Locator 56.\n
\n\n"], ["N-OFFSET AMOUNT", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "OFFSET AMOUNT\n", "INTERNAL\n", "", "", "", "\nThe Offset Amount for the bill, including prior payments. The Total\nCharges minus the Offset Amount is the actual charge for the bill.\n
\n\n"], ["N-COINSURANCE DAYS", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "CO-INSURANCE DAYS\n", "INTERNAL\n", "", "", "", "\nThis is the value of the UB92, form locator 9.\n
\n\n"], ["N-DIAGNOSIS CODE 8 (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"DX\")) F^IBCEF(\"N-DIAGNOSES\") S IBXDATA=$G(IBXSAVE(\"DX\",8))\n", "", "\nData element relies on previously extracted data in array IBXSAVE("DX") \nfrom the HCFA DIAGNOSES. If IBXSAVE(""DX"") does not exist, extract the \nfield that sets it. The second in the sequence of diagnoses for bill \nIBXIEN for the HCFA 1500. This is the internal diagnosis code (ICD9).\n\n\n"], ["N-ACUTE MANIFESTATION", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "DATE OF ACUTE MANIFESTATION\n", "INTERNAL\n", "", "", "", "\nData element used to retrieve date of acute manifestation for the claim.\n
\n\n"], ["N-MEDICARE PROVIDER NUMBER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$P($G(^IBA(350.9,+$O(^IBA(350.9,0)),1)),U,21)\n", "", "\nThis does not rely on the bill entry number. It extracts the data from the\nIB SITE PARAMETER file.\n
\n\n"], ["N-UB-04 TIMEFRAME OF BILL", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "UB-04 TIMEFRAME OF BILL\n", "INTERNAL\n", "", "", "", "\nThis data element will be the third digit in the 3 digit code required for\nform locator 4 on the UB-04 bill form for bill entry IBXIEN.\nThis was expanded from the original field (TIMEFRAME OF BILL - #.06) to\nenable a broader range of bill types to be generated.\n
\n\n"], ["N-UB-04 LOCATION OF CARE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "UB-04 LOCATION OF CARE\n", "INTERNAL\n", "", "", "", "\nThis data element will be the first digit in the 3 digit code required for\nform locator 4 on the UB-04 bill form for bill entry IBXIEN.\nThis was expanded from the original field (LOCATION OF CARE - #.04) to\nenable a broader range of bill types to be generated.\n
\n\n"], ["N-UB-04 BILL CLASSIFICATION", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "UB-04 BILL CLASSIFICATION:CODE\n", "EXTERNAL\n", "", "", "", "\nThis data element will be the second digit in the 3 digit code required for\nform locator 4 on the UB-04 bill form for bill entry IBXIEN.\nThis was expanded from the original field (BILL CLASSIFICATION - #.05) to\nenable a broader range of bill types to be generated.\n
\n\n"], ["N-SET 837 INS CO HDR NODE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(^TMP(\"IBHDR1\",$J)) SETHDR1^IBCE837\n", "", "\nSets the header node for the first time an insurance co appears in a batch,\ndoesn't extract any more ins co header info for remaining bills in batch if\nthis node is set.\n
\n\n"], ["N-COB CLAIM LEVEL AMOUNTS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "K IBXSAVE(\"CCOB\") D CCOB1^IBCEU1(IBXIEN,\"0,1,2,4\",\"\",$G(IBRSBTST))\n", "", "\nThis data element extracts all the claim level COB data from the EOB file\nfor the current and its associated bills.\nThe data is returned in the array IBXDATA(n) and consists of the payer\nsequence (1-3) in the first '^' piece followed by the data on the 0-2 node\nof file 361.1 (1.01...1.99) for each accepted EOB in the COB sequence.\n
\n\n"], ["N-MEDICARE INPT CLAIM COB AMTS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D CCOB1^IBCEU1(IBXIEN,\"4,5\",\"\",$G(IBRSBTST))\n", "", "\nThis data element extracts all the claim level MEDICARE inpatient COB\ndata from the EOB file for the current and its associated bills.\nThe data is returned in the arrays IBXDATA(COB,n,4) and IBXDATA(COB,n,5) \nwhere COB = the COB sequence of the payer, n = the ien of the entry in file\n361.1 and equals the data on the '4' and '5' nodes respectively of file\n361.1 (4.01...5.99) for each accepted EOB in the COB sequence.\n
\n\n"], ["N-MEDICARE OUTPT CLAIM COB AMT", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D CCOB1^IBCEU1(IBXIEN,3,\"\",$G(IBRSBTST))\n", "", "\nThis data element extracts all the claim level MEDICARE outpatient COB\ndata from the EOB file for the current and its associated bills.\nThe data is returned in the array IBXDATA(COB,n,3) where COB = the COB\nsequence of the payer, n = the ien of the entry in file 361.1 and equals\nthe data on the '3' node of file 361.1 (3.01...3.99) for each accepted EOB\nin the COB sequence.\n
\n\n"], ["N-COB CLAIM LEVEL ADJUSTMENTS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D CCAS1^IBCEU1(IBXIEN,\"\",$G(IBRSBTST))\n", "", "\nThis data element extracts all the claim level COB adjustment data from the\nEOB file for the current and its associated bills. The data is returned in\nthe arrays IBXDATA(n,0) and IBXDATA(n,1,m) for each accepted EOB in the COB\nsequence.\nIBXDATA(n,0) consists of the payer sequence (1-3) in the first '^' piece\nfollowed by the data on the '0' node of subfile 361.11 (.01) .\nIBXDATA(n,1,m) is returned where m is a sequential # and consists of the\ndata on the 0-node of each entry in subfile 361.111 (.01-.99)\n
\n\n"], ["N-HCFA EMERGENCY INDICATOR", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"BOX24\")) B24^IBCEF3(.IBXSAVE,IBXIEN) D TEXT24^IBCEU3(\"C\",.IBXSAVE,.IBXDATA)\n", "", "\nData element relies on the data previously extracted in array\nEvery 2 printed lines of this box constitute one service line.\nIBXSAVE("BOX24") from HCFA 1500 SERVICES PRINT. If IBXSAVE("BOX24")\ndoes not exist, extract the field that sets it. Returns the array of \nemergency indicator flags for all lines on the claim as they would \nappear in Box 24C on the 1500 form (08/05 version). If the array \nIBXSAVE("BOX24",n,"TEXT") exists, then this means that the line also \ncontains free text supplemental information which will print in the \nshaded gray area of Box 24 from columns 24A thru 24G. For this data \nelement, the field returns the extract of this text for columns 22-24. \n\n\n"], ["N-ROI INDICATOR", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "IS THIS A SENSITIVE RECORD?\n", "INTERNAL\n", "", "", "", "\nRelease of information indicator based on sensitive record field. Returns\n1 to indicate 'RESTRICTED' or anything else means 'YES' for bill entry\nIBXIEN.\n
\n\n"], ["N-BILLING SITE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0 S Z=$P($G(^DGCR(399,IBXIEN,0)),U,22),Z0=+$$SITE^VASITE(),IBXDATA=$$SITE^VASITE(DT,$S(Z:Z,1:+$$PRIM^VASITE(DT))) S $P(IBXDATA,U,4)=$S(+IBXDATA=Z0:\"\",1:1)\n", "", "\nIf the bill has a division associated with it, retrieve the data associated\nwith the division, otherwise, the facility's data is retrieved.\nThe data format is:\n IBXDATA=institution file ien^name^site number (including suffix)\n ^ 1 if not main facility\n
\n\n"], ["N-FACILITY SITE NUMBER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ S IBZ=$G(^TMP(\"IBXSITE\",$J)) D:'IBZ F^IBCEF(\"N-SITE NUMBER\",\"IBZ\",,IBXIEN) S:IBZ IBXDATA=IBZ\n", "", "\nThe billing site's site number. Only has to be extracted for the first\nbill in the batch.\n
\n\n"], ["N-EVENT DATE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ S IBXDATA=$$EVENT^IBCF22(IBXIEN,.IBXSAVE,,.IBZ) I $D(IBZ) M IBXSAVE(\"DATE\")=IBZ\n", "", "\nFileman formatted date. The data for box 14 on HCFA-1500 for bill entry\nIBXIEN. Check first for occurrence codes for illness date, or for accident\ndate or for last menstrual period, then event date on bill. When one of\nthese is found, use it.\n
\n\n"], ["N-CURRENT INSURANCE CO TYPE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,Z D F^IBCEF(\"N-ALL INSURANCE CO TYPE\",\"IBZ\",,IBXIEN) S IBXDATA=\"\",Z=+$$COBN^IBCEF(IBXIEN) I $P(IBZ,U,Z)'=\"\" S IBXDATA=$P(IBZ,U,Z)\n", "", "\nThis is the electronic type of the current insurance for the bill.\n
\n\n"], ["N-OTHER INSURANCE CO TYPES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0 S Z=$$ALLTYP^IBCEF3(IBXIEN),Z0=$$COBN^IBCEF(IBXIEN) S IBXDATA=$S(Z0=1:$P(Z,U,2,3),Z0=2:$P(Z,U,1)_U_$P(Z,U,3),1:$P(Z,U,1,2))\n", "", "\nThis is the type of all 'other' insurance for the bill. The format of the\n 4: TRICARE\n 5: CHAMPVA\ndata returned in IBXDATA is:\n if primary bill: type of secondary insurance^type of tertiary insurance\n if secondary bill: type of primary insurance^type of tertiary insurance\n if tertiary bill: type of primary insurance^type of secondary insurance\n \n type = 1: COMMERCIAL/BL CROSS\n 2: MEDICARE\n 3: MEDICAID\n
\n\n"], ["N-CURRENT INS POLICY TYPE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$POLTYP^IBCEF3(IBXIEN)\n", "", "\nThis is the current insurance plan type for the bill. The format of the\ndata returned in IBXDATA is the X12 code for insurance plan type.\nAlso referred to as 'Source of pay' code.\n
\n\n"], ["N-OTH INS POL TYPES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0 S Z=$$ALLPTYP^IBCEF3(IBXIEN),Z0=$$COBN^IBCEF(IBXIEN) S IBXDATA=$S(Z0=1:$P(Z,U,2,3),Z0=2:$P(Z,U,1)_U_$P(Z,U,3),1:$P(Z,U,1,2))\n", "", "\nThis is the X12 code for the types of all 'other' insurance\nplans for the bill. The format of the data returned in IBXDATA is:\n if primary bill: type of secondary ins plan^type of tertiary ins plan\n if secondary bill: type of primary ins plan^type of tertiary ins plan\n if tertiary bill: type of primary ins plan^type of secondary ins plan\n
\n\n"], ["N-DIAGNOSIS CODE 9 (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"DX\")) F^IBCEF(\"N-DIAGNOSES\") S IBXDATA=$G(IBXSAVE(\"DX\",9))\n", "", "\nData element relies on previously extracted data in array IBXSAVE("DX") \nfrom the HCFA DIAGNOSES. If IBXSAVE(""DX"") does not exist, extract the \nfield that sets it. The second in the sequence of diagnoses for bill \nIBXIEN for the HCFA 1500. This is the internal diagnosis code (ICD9).\n\n\n"], ["N-EDI SITE CONTACT PHONE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$P($G(^IBE(350.9,1,2)),U,11)\n", "", "\nThe EDI site contact phone # from the site parameter file. Not related to\nbill entry number.\n
\n\n"], ["N-ATTENDING PHYSICIAN ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,IBS S IBS=+$$COBN^IBCEF(IBXIEN) D GETPRV^IBCEU(IBXIEN,4,.IBZ) S IBXDATA=$S($P($G(IBZ(4,1,IBS)),U)'=\"\":$P(IBZ(4,1,IBS),U),1:$P($G(IBZ(4,1,1)),U))\n", "", "\nThe id # for the current insurance company of the attending physician for\nbill entry IBXIEN.\n
\n\n"], ["N-ASSIGN OF BENEFITS INDICATOR", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "ASSIGNMENT OF BENEFITS\n", "INTERNAL\n", "", "", "", "\nAssignment of benefits indicator for bill entry IBXIEN. If field returns\n'N' or 'n' or '0', assignment is (N)o. Anything else, assignment is (Y)es.\n
\n\n"], ["N-REFERRING PROVIDER NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D GETPRV^IBCEU(IBXIEN,1,.IBZ) S IBXDATA=$P($G(IBZ(1,1)),U)\n", "", "\nThe name of the referring provider for bill entry IBXIEN.\n
\n\n"], ["N-REFERRING PROVIDER ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,IBS S IBS=+$$COBN^IBCEF(IBXIEN) D GETPRV^IBCEU(IBXIEN,1,.IBZ) S IBXDATA=$S($P($G(IBZ(1,1,IBS)),U)'=\"\":$P(IBZ(1,1,IBS),U),1:$P($G(IBZ(1,1,1)),U))\n", "", "\nThe id # of the referring provider for bill entry IBXIEN.\n
\n\n"], ["N-OPERATING PHYSICIAN NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D GETPRV^IBCEU(IBXIEN,2,.IBZ) S IBXDATA=$P($G(IBZ(2,1)),U)\n", "", "\nThe name of the operating physician for bill entry IBXIEN.\n
\n\n"], ["N-OPERATING PHYSICIAN ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,IBS S IBS=+$$COBN^IBCEF(IBXIEN) D GETPRV^IBCEU(IBXIEN,2,.IBZ) S IBXDATA=$S($P($G(IBZ(2,1,IBS)),U)'=\"\":$P(IBZ(2,1,IBS),U),1:$P($G(IBZ(2,1,1)),U))\n", "", "\nThe id # of the operating physician for bill entry IBXIEN.\n
\n\n"], ["N-RENDERING PROVIDER NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D GETPRV^IBCEU(IBXIEN,3,.IBZ) S IBXDATA=$P($G(IBZ(3,1)),U)\n", "", "\nThe name of the rendering provider for bill entry IBXIEN.\n
\n\n"], ["N-RENDERING PROVIDER ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,IBS S IBS=+$$COBN^IBCEF(IBXIEN) D GETPRV^IBCEU(IBXIEN,3,.IBZ) S IBXDATA=$S($P($G(IBZ(3,1,IBS)),U)'=\"\":$P(IBZ(3,1,IBS),U),1:$P($G(IBZ(3,1,1)),U))\n", "", "\nThe id # of the rendering provider for bill entry IBXIEN.\n
\n\n"], ["N-UB-04 FORM LOCATOR 64B", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "FORM LOCATOR 64B\n", "", "", "", "", "\nThis returns the value for UB-04 FORM LOCATOR 64B in IBXDATA for bill\nentry IBXIEN.\n
\n\n"], ["N-UB-04 FORM LOCATOR 64C", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "FORM LOCATOR 64C\n", "", "", "", "", "\nThis returns the value for UB-04 FORM LOCATOR 64C in IBXDATA for bill\nentry IBXIEN.\n
\n\n"], ["N-REFERRING PROVIDER SPECIALTY", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D GETPRV^IBCEU(IBXIEN,1,.IBZ) S IBXDATA=$$SPEC^IBCEU($P($G(IBZ(1,1)),U,3),+$G(^DGCR(399,IBXIEN,\"U\")))\n", "", "\nFind the specialty from the VA code of the person class attached to the\nreferring provider for bill IBXIEN, if it can be determined.\n
\n\n"], ["N-ATT/REND PHYSICIAN SPEC", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,IBI S IBI=$S($$FT^IBCEF(IBXIEN)=2!($$FT^IBCEF(IBXIEN)=7):3,1:4) D GETPRV^IBCEU(IBXIEN,IBI,.IBZ) S IBXDATA=$$SPEC^IBCEU($P($G(IBZ(IBI,1)),U,3),+$G(^DGCR(399,IBXIEN,\"U\")))\n", "", "\nFind the specialty from the VA code of the person class attached to the\nattending/rendering provider for bill IBXIEN, if it can be determined.\n
\n\n"], ["N-CURR INSURED PT RELATION", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D F^IBCEF(\"N-ALL INSURED PT RELATION\",\"IBZ\",,IBXIEN) S IBZ=$G(IBZ(+$$COBN^IBCEF(IBXIEN))) I IBZ'=\"\" S IBXDATA=IBZ\n", "", "\nThe current insured's relationship to patient code for bill entry IBXIEN.\n
\n\n"], ["N-OTHER PHYSICIAN SPEC", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "", "", "\nFind the specialty from the VA code of the person class attached to the\nother provider for bill IBXIEN, if it can be determined.\n
\n\n"], ["N-OPERATING PHYSICIAN SPEC", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D GETPRV^IBCEU(IBXIEN,2,.IBZ) S IBXDATA=$$SPEC^IBCEU($P($G(IBZ(2,1)),U,3),+$G(^DGCR(399,IBXIEN,\"U\")))\n", "", "\nFind the specialty from the VA code of the person class attached to the\noperating provider for bill IBXIEN, if it can be determined.\n
\n\n"], ["N-OTHER PROVIDER ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,IBS S IBS=+$$COBN^IBCEF(IBXIEN) D GETPRV^IBCEU(IBXIEN,9,.IBZ) S IBXDATA=$S($P($G(IBZ(9,1,IBS)),U)'=\"\":$P(IBZ(9,1,IBS),U),1:$P($G(IBZ(9,1,1)),U))\n", "", "\nThe id # of the other provider for bill entry IBXIEN.\n
\n\n"], ["N-DIAGNOSIS E-CODE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$G(IBXSAVE(\"DX-E\")) I '$D(IBXSAVE(\"DX-E\")) N IBZ,Z,Z0,Z1 D F^IBCEF(\"N-DIAGNOSES\",\"IBZ\",,IBXIEN) S Z=0 F S Z=$O(IBZ(Z)) Q:'Z S Z0=$$ECODE^IBCEU4(+IBZ(Z),.Z1) I Z0,$G(Z1)'=\"\" S (IBXSAVE(\"DX-E\"),IBXDATA)=Z1 Q\n", "", "\nThis data element finds the first 'E' code diagnosis for bill IBXIEN, if\nany. An 'E' code is a diagnosis that starts with the letter 'E'.\n
\n\n"], ["N-AMBULANCE PU ADDR LINE 1", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "AMBULANCE P/U ADDRESS 1\n", "", "", "", "", ""], ["N-SITE CONTACT PHONE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$P($G(^IBE(350.9,1,2)),U,11)\n", "", "\nThe site contact phone number from the site parameter file. Not related\nto bill entry number.\n
\n\n"], ["N-ALL INSURANCE CO 837 ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D ALLPAYID^IBCEF2(IBXIEN,.IBXDATA)\n", "", "\nExtracts the primary, secondary, and tertiary insurance company's 837 ID\ninto IBXDATA(1), IBXDATA(2) and IBXDATA(3). This is the internal code\nnumber to identify the current insurance company to the ENVOY system.\n
\n\n"], ["N-DRG USED", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,Z1 S Z=$$COBN^IBCEF(IBXIEN) I Z>1 S Z=Z-1 I $D(^IBM(361.1,\"ABS\",IBXIEN,Z)) S Z0=\"\" F S Z0=$O(^IBM(361.1,\"ABS\",IBXIEN,Z,Z0),-1) Q:'Z0 S Z1=$G(^IBM(361.1,Z0,0)) I $P(Z1,U,16)=3,$P(Z1,U,10)'=\"\" S IBXDATA=$P(Z1,U,10) Q\n", "", "\nIf there is a valid processed EOB on file for the previous insurance\ncompany, extract the last DRG code used to calculate payment.\n
\n\n"], ["N-MEDICARE GROUP NUMBER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=\"VA0\"_$P($$SITE^VASITE,U,3)\n", "", "\nThe default group number for MEDICARE to be used in block 33 on the HCFA\n1500.\n
\n\n"], ["N-AMBULANCE PU ADDR LINE 2", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "AMBULANCE P/U ADDRESS 2\n", "EXTERNAL\n", "", "", "", ""], ["N-CURR INSURED GROUP NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D F^IBCEF(\"N-ALL INSURANCE GROUP NAME\",\"IBZ\",,IBXIEN) S IBZ=$G(IBZ(+$$COBN^IBCEF(IBXIEN))) I IBZ'=\"\" S IBXDATA=IBZ\n", "", "\nThe current insured's group name for bill entry IBXIEN.\n
\n\n"], ["N-FIRST TRANSMIT DATE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "", "", "\nThis is the date the bill IBXIEN was first transmitted.\n
\n\n"], ["N-ATT/REND PROVIDER ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,IBI,IBS S IBS=+$$COBN^IBCEF(IBXIEN),IBI=$S($$FT^IBCEF(IBXIEN)=2!($$FT^IBCEF(IBXIEN)=7):3,1:4) D GETPRV^IBCEU(IBXIEN,IBI,.IBZ) S IBXDATA=$S($P($G(IBZ(IBI,1,IBS)),U)'=\"\":$P(IBZ(IBI,1,IBS),U),1:$P($G(IBZ(IBI,1,1)),U))\n", "", "\nThe id # of the attending/rendering physician for the current insurance\ncompany for bill entry IBXIEN.\n
\n\n"], ["N-CURRENT AUTHORIZATION CODE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z S Z=$$COBN^IBCEF(IBXIEN) D F^IBCEF(\"N-\"_$P(\"PRIMARY^SECONDARY^TERTIARY\",U,Z)_\" AUTH CODE\",,,IBXIEN)\n", "", "\nThis data element finds the treatment authorization code for bill IBXIEN\nfor the current insurance company.\n
\n\n"], ["N-SECONDARY AUTH CODE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "SECONDARY AUTHORIZATION CODE\n", "INTERNAL\n", "", "", "", ""], ["N-TERTIARY AUTH CODE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "TERTIARY AUTHORIZATION CODE\n", "INTERNAL\n", "", "", "", ""], ["N-ALL AUTH CODES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,IBZ F Z=1:1:3 I $S(Z=1:1,1:$D(^DGCR(399,IBXIEN,\"I\"_Z))) D F^IBCEF(\"N-\"_$P(\"PRIMARY^SECONDARY^TERTIARY\",U,Z)_\" AUTH CODE\",\"IBZ\",,IBXIEN) S IBXDATA(Z)=IBZ K IBZ\n", "", "\nExtracts the 3 authorization codes for bill IBXIEN into IBXDATA(1),\nIBXDATA(2), IBXDATA(3).\n
\n\n"], ["N-OTHER INSURED AUTH CODES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,Z1,IBZ D F^IBCEF(\"N-ALL AUTH CODES\",\"IBZ\") S Z=$$COBN^IBCEF(IBXIEN) S Z0=0 F Z1=1:1:3 I Z1'=Z,$D(^DGCR(399,IBXIEN,\"I\"_Z1)) S Z0=Z0+1,IBXDATA(Z0)=$G(IBZ(Z1))\n", "", "\nThe ien of all other insurance companies' authorization codes for bill entry\nthe primary and secondary insurance co authorization codes are returned. \nIBXIEN. \n \nData is returned in an array IBXDATA(n). This is a group element and up to\n2 data elements are returned in the IBXDATA(n) array. If the primary\ninsurance is the current responsible, the secondary and tertiary insurance\nco authorization codes are returned. If the secondary insurance is the\ncurrent responsible, the primary and tertiary insurance co authorization\ncodes are returned. If the tertiary insurance is the current responsible,\n
\n\n"], ["N-DATE FIRST PRINTED OR SENT", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "DATE FIRST PRINTED\n", "INTERNAL\n", "", "", "", "\nThis is the date the bill was first printed or sent via EDI to the\nclearinghouse for processing. This date will print on the claim form if\nthis bill is printed locally.\n
\n\n"], ["N-OUTSIDE FACILITY NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D F^IBCEF(\"N-NON VA FACILITY\",\"IBZ\",,IBXIEN) I $G(IBZ) S IBXDATA=$P($G(^IBA(355.93,+IBZ,0)),U)\n", "", "\nFinds the internal entry number of the outside facility for the bill and\nextracts the name from the non-VA provider file.\n
\n\n"], ["N-AMBULANCE PU CITY", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "AMBULANCE P/U CITY\n", "EXTERNAL\n", "", "", "", ""], ["N-CURR INSURED GROUP NUMBER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D F^IBCEF(\"N-ALL INSURANCE GROUP NUMBER\",\"IBZ\",,IBXIEN) S IBZ=$G(IBZ(+$$COBN^IBCEF(IBXIEN))) I IBZ'=\"\" S IBXDATA=IBZ\n", "", "\nThe current insured's group number for bill entry IBXIEN.\n
\n\n"], ["N-LAST MENSTRUAL PERIOD", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"DATE\",\"LMP\")) F^IBCEF(\"N-EVENT DATE\",,,IBXIEN) K IBXDATA S IBXDATA=$G(IBXSAVE(\"DATE\",\"LMP\"))\n", "", "\nExtract the last menstrual period from occurrence codes on bill IBXIEN.\n
\n\n"], ["N-LAB CLIA #", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$P($G(^DGCR(399,IBXIEN,\"U2\")),U,13) I IBXDATA=\"\" S IBXDATA=$$CLIANVA^IBCEP8(IBXIEN)\n", "", "\nExtract the CLIA # from the ids defined for the facility. If an id cannot\nbe found there, but the data exists in fld 235 in file 399, use that data.\n
\n\n"], ["N-NON VA PROVIDER ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0 S Z=$$PSPRV^IBCEF7(IBXIEN),Z0=$P($$NONVAID^IBCEF72(IBXIEN,.IBXDATA,($E(Z,2)=0),1),U)\n", "", "\nThe non-VA id can be either the tax id/SSN for a non-VA provider. If the\nprovider is a non-VA provider and has a tax id # assigned, it will be used.\nOtherwise, the non-VA provider person's SSN is used. In the case of\neither a person or facility, if the id cannot be found as the tax id/SSN,\nthe number is taken from the NON-VA CARE ID # field in the BILL/CLAIMS file.\nIf there is a non-VA provider AND a non-VA facility, this number must be\nassigned to the non-VA provider (person).\n
\n\n"], ["N-PURCHASED SERVICE TYPE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=+$P($G(^DGCR(399,IBXIEN,\"U2\")),U,11)\n", "", "\nIf outside VA care, then this is the flag for the type of care.\n
\n\n"], ["N-NON VA FACILITY", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "NON-VA FACILITY\n", "INTERNAL\n", "", "", "", "\nExtract the ien of the facility if a non-VA entity provided the care\nassociated with bill IBXIEN.\n
\n\n"], ["N-RENDERING INSTITUTION", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,Z S Z=IBXIEN D F^IBCEF(\"N-NON VA FACILITY\",\"IBZ\",,Z) S:$G(IBZ) IBXDATA=+IBZ_U_1 I '$G(IBZ) D F^IBCEF(\"N-BILLING SITE\",,,Z) S IBXDATA=+IBXDATA_U_$S($P(IBXDATA,U,4)'=1:\"\",1:\"0\")_U_$$FAC^IBCEU3(Z)_U_($$WNRBILL^IBEFUNC(Z)&($$FT^IBCEF(Z)=2))\n", "", "\nCheck first for a non-VA provider. If none, use the billing site (can be\nmain VA facility or a remote VA site) for bill entry IBXIEN.\nReturns the ien of the remote site or non-VA provider from the institution\nfile in the first '^' piece of IBXDATA and a 0 or 1 in piece 2 to indicate\nit was a remote site (0) or outside facility (1). The third ^ piece\ncontains a 1 if the bills are generated by another facility other than\nthe rendering one. The fourth ^ piece is 1 if the bill is for MEDICARE\nWNR and the bill form is a HCFA 1500.\n
\n\n"], ["N-NON VA CARE TYPE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "NON-VA CARE TYPE\n", "INTERNAL\n", "", "", "", ""], ["N-ALL ATT/RENDERING PROV ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,IBZ,IBZ0 S IBZ0=$S($$FT^IBCEF(IBXIEN)=3:4,1:3) D GETPRV^IBCEU(IBXIEN,IBZ0,.IBZ) S IBXDATA=IBZ0 F Z=1:1:3 Q:'$D(^DGCR(399,IBXIEN,\"I\"_Z)) S IBXDATA=IBXDATA_U_$S($G(IBZ(IBZ0,1,Z))'=\"\":IBZ(IBZ0,1,Z),1:$P($G(IBZ(IBZ0)),U,2))\n", "", "\nExtracts the id numbers for all insurance companies for the attending\n(UB92) or rendering (HCFA 1500) provider.\n
\n\n"], ["N-ALL REFERRING PROV ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,IBS D GETPRV^IBCEU(IBXIEN,1,.IBZ) F IBS=1:1:3 Q:'$D(^DGCR(399,IBXIEN,\"I\"_IBS)) S IBXDATA(IBS)=$P($G(IBZ(1,1,IBS)),U)\n", "", "\nExtracts the id numbers for all insurance companies for the referring\nprovider.\n
\n\n"], ["N-ALL OPERATING PROV ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,IBS D GETPRV^IBCEU(IBXIEN,2,.IBZ) F IBS=1:1:3 Q:'$D(^DGCR(399,IBXIEN,\"I\"_IBS)) S IBXDATA(IBS)=$S($G(IBZ(2,1,IBS))'=\"\":IBZ(2,1,IBS),$$WNRBILL^IBEFUNC(IBXIEN):$P($G(IBZ(2,1)),U,2),1:\"\")\n", "", "\nExtracts the id numbers for all insurance companies for the operating\nprovider.\n
\n\n"], ["N-OTH INSURED DEMOGRAPHICS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0 S Z=$P($G(^DGCR(399,IBXIEN,0)),U,21) I $D(^(\"I2\"))!$D(^(\"I3\")) F Z0=1,2 S IBXDATA(Z0)=$S($D(^DGCR(399,IBXIEN,\"I\"_(Z0+1))):$$INSDEM^IBCEF(IBXIEN,$S(\"P\"[Z:$P(\"S^T\",U,Z0),Z=\"S\":$P(\"P^T\",U,Z0),1:$P(\"P^S\",U,Z0))),1:\"\")\n", "", "\nAll other insured's birthdate^sex^phone^branch pointer^rank (sex/phone\nonly if insured is patient or spouse) for bill entry IBXIEN. Data is\nreturned in an array IBXDATA(n). This is a group element and up to 2 data\nelements are returned in the IBXDATA(n) array. If the primary insurance\nis the current responsible, the secondary and tertiary insurance insured's\ndemographics are returned. If the secondary insurance is the current\nresponsible, the primary and tertiary insurance insured's demographics are\nreturned. If the tertiary insurance is the current responsible, the\nprimary and secondary insurance insured's demographics are returned.\n
\n\n"], ["N-CURR INSURANCE MAILING NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z S Z=$P($G(^DGCR(399,IBXIEN,\"M\")),U,4) S:Z'=\"\" IBXDATA=Z I Z=\"\" D F^IBCEF(\"N-CURR INSURANCE COMPANY NAME\")\n", "", "\nThe mailing name (or if this is null, the insurance co name) of the current\ninsurance company for bill entry IBXIEN.\n
\n\n"], ["N-EOB ENTRIES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,Z1 S Z=0 F S Z=$O(^IBM(361.1,\"ABS\",IBXIEN,Z)) Q:'Z S (Z1,Z0)=0 F S Z0=$O(^IBM(361.1,\"ABS\",IBXIEN,Z,Z0)) Q:'Z0 S Z1=Z1+1,IBXDATA(Z,Z1)=Z0\n", "", "\nThis element extracts the entry numbers for the bill in the EOB file. Data\nis returned in IBXDATA(COB seq,n).\n
\n\n"], ["N-PURCHASED SERVICE TOTAL", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,T S IBXDATA=\"\" I $$ONLAB^IBCEU3(IBXIEN) D:'$D(IBXSAVE(\"BOX24\")) B24^IBCEF3(.IBXSAVE,IBXIEN) K IBXDATA S IBXDATA=\"\",(Z,T)=0 F S Z=$O(IBXSAVE(\"BOX24\",Z)) Q:'Z S T=T+$P(IBXSAVE(\"BOX24\",Z),U,11),IBXDATA=T\n", "", "\nIf the facility is an outside non-lab facility, this is the total of all\nthe charges that the VA paid for the line items for this bill.\n
\n\n"], ["N-OUTSIDE LAB TOTAL", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Q,L I $$OLAB^IBCEU(IBXIEN) S Q=\"BOX24\",L=\"OLAB\" D:'$D(IBXSAVE(Q)) B24^IBCEF3(.IBXSAVE,IBXIEN) K IBXDATA S IBXDATA=\"\",(Z,IBXSAVE(L))=0 F S Z=$O(IBXSAVE(Q,Z)) Q:'Z S IBXSAVE(L)=IBXSAVE(L)+$P(IBXSAVE(Q,Z),U,11),IBXDATA=IBXSAVE(L)\n", "", "\nIf the facility is an outside lab, this is the total of all the charges\nthat the VA paid for the line items for this bill.\n
\n\n"], ["N-SPECIAL PROGRAM", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "SPECIAL PROGRAM INDICATOR\n", "INTERNAL\n", "", "", "", ""], ["N-DATE LAST SEEN", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "DATE LAST SEEN\n", "INTERNAL\n", "", "", "", ""], ["N-HOMEBOUND", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "HOMEBOUND\n", "INTERNAL\n", "", "", "", ""], ["N-HCFA 1500 BOX 19 RAW DATA", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "FORM LOC 19-UNSPECIFIED DATA\n", "", "", "", "", ""], ["N-PROVIDER INFORMATION", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "", "", ""], ["N-SPECIALTY CODE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$BILLSPEC^IBCEU3(IBXIEN)\n", "", ""], ["N-LAST XRAY", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "LAST XRAY DATE\n", "INTERNAL\n", "", "", "", "\nData element used to retrieve date of last X-ray for the claim.\n
\n\n"], ["N-CURRENT INSURANCE CO EMC ID#", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$GETID^IBCEP2(IBXIEN,1,$$PERFPRV^IBCEP2A(IBXIEN),+$$COBN^IBCEF(IBXIEN))\n", "", "\nExtracts the current insurance company's EMC ID # from the insurance file.\n
\n\n"], ["N-UB92 FL 82 PROVIDER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,IBZ S Z=$$INPAT^IBCEF(IBXIEN,1),Z0=$S(Z:4,1:1) D GETPRV^IBCEU(IBXIEN,Z0,.IBZ) S IBXDATA=$P($G(IBZ(Z0,1)),U,1,2),$P(IBXDATA,U,3)=Z0\n", "", "\nBox 82 on the UB92 holds the attending physician for inpatient claims,\nbut holds the referring or ordering provider for outpatient. This data\nelement determines the correct ien of the correct provider type to use.\nData returned is name of provider ^ ien of provider (file 200) ^ 1 for\nreferring or 4 for attending.\n
\n\n"], ["N-PATIENT DATE OF DEATH", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$P($$PTDEM^IBCEF(IBXIEN,6),U)\n", "", "\nThe fileman format of the patient's date of death for bill entry IBXIEN.\n
\n\n"], ["N-ACCIDENT DATE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"DATE\",\"ACC\")) F^IBCEF(\"N-EVENT DATE\",,,IBXIEN) K IBXDATA S IBXDATA=$G(IBXSAVE(\"DATE\",\"ACC\"))\n", "", "\nFileman formatted date. Gets the date of the first occurrence code for an\naccident.\n
\n\n"], ["N-ALL INSURANCE CO TYPE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$ALLTYP^IBCEF3(IBXIEN)\n", "", "\nThis is the electronic type of all of the insurance for the bill.\nFormat is primary type^secondary type^tertiary type\n
\n\n"], ["N-ALL PROVIDERS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,Z D GETPRV^IBCEU(IBXIEN,\"ALL\",.IBZ) F Z=1:1:$O(IBZ(\"\"),-1) S:'$G(IBZ(Z)) IBZ(Z)=\"\" M IBXDATA(Z)=IBZ(Z)\n", "", "\nExtracts the primary, secondary, and tertiary insurance company provider\nnames and numbers into the IBXDATA array for bill entry IBXIEN.\nArray format is \n IBXDATA(provider type)=PROV NAME^CURRENT INS CO ID^vp ien of PROV \n IBXDATA(provider type,1-3)=the provider id for the COB seq (1-3) \n IBXDATA(provider type,"NOTOPT")=1 if provider type is required for bill\n
\n\n"], ["N-FACILITY NAME FOR BILLING", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$P($G(^IBE(350.9,1,2)),U,10)\n", "", "\nThe facility name for billing from the Site Parameter File.\n
\n\n"], ["N-ALL PROCEDURES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IB,IBPROC,Z D ALLPROC^IBCVA1(IBXIEN,.IBPROC) S (IB,Z)=0 F S IB=$O(IBPROC(IB)) Q:'IB S Z=Z+1,IBXDATA(Z)=IBPROC(IB) D SETMODS^IBCVA1($P(IBPROC(IB),U,15),Z,.IBXSAVE)\n", "", "\nExtracts all procedures on a bill. Returns group data IBXDATA(1-n)=\nprocedure code;ICPT( or ICD0(^procedure date in fileman format.\nModifiers on the procedures are returned in IBXSAVE("PROCMODS",1-n)=\nmodifiers separated by comma. \n\n\n"], ["N-AGENT CASHIER STREET LINE 2", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=\"\"\n", "", "\nThe agent cashier street address form the site parameter file. Not related to bill entry. Note: New feild needing definition in ^IBE(350.9,1,2) piece 13\n
\n\n"], ["N-TYPE INSURANCE CO ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=\"\"\n", "", "\nExtracted from a set of codes. Could be 1A=Blue Cross ID-INst;\n1B=Blue Shiled ID-Prof;1H=Champus ID;X4=CLIA#;\n1A = Blue Cross Number;1B = Blue Shield Number;1C = Medicare Number;\n1D = Medicaid Number;1G = UPIN Number;1H = TRICARE ID Number;\nG2=Provider Commercail ID;24=Facility Fed Tax ID #;1C=Medicare Part A-Inst\n1C=Medicare Part B -Porf;B3=Network ID-HMO;BQ=Network ID-PPO;G5=Provider Site ID\n0B=State License;IG=Provider UPIN;EI=Employer's ID;LU=Location Number;\nX5=State Industrial Accident Provider Number;FH=Clinic Number;1D=Medicaid\n
\n\n"], ["N-CURR INSURED ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,IBZ D F^IBCEF(\"N-ALL INSURANCE NUMBER\",\"IBZ\",,IBXIEN) S Z0=+$$COBN^IBCEF(IBXIEN),Z=$G(IBZ(Z0)) I Z'=\"\" S IBXDATA=Z\n", "", "\nThe id number of the current insured for bill IBXIEN.\n
\n\n"], ["N-OTH INSURED EMPLOYR INFO", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,Z1,IBZ D F^IBCEF(\"N-ALL INSURED EMPLOYER INFO\",\"IBZ\") S Z=$$COBN^IBCEF(IBXIEN) S Z0=0 F Z1=1:1:3 I Z1'=Z,$D(^DGCR(399,IBXIEN,\"I\"_Z1)) S Z0=Z0+1,IBXDATA(Z0)=$G(IBZ(Z1))\n", "", "\nAll other insured's employer name^city^state abbreviation^state ien if the\ncurrent responsible, the primary and tertiary insurance insured employer\ninfo are returned. If the tertiary insurance is the current responsible, the\nprimary and secondary insurance insured employer info are returned.\ninsured is the patient or the patient's spouse for bill entry IBXIEN.\nIf the plan is Employer Sponsored (ESGHP) then extracts Employer\nName/Location of the employer that sponsors the plan. Otherwise extracts\nthe insured's current employer name/location (if spouse or veteran only).\nData is returned in an array IBXDATA(n). This is a group element and\nup to 2 data elements are returned in the IBXDATA(n) array. If the primary\ninsurance is the current responsible, the secondary and tertiary insurance\ninsured employer info are returned. If the secondary insurance is the\n
\n\n"], ["N-SPRVSING PROV FULL NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D GETPRV^IBCEU(IBXIEN,5,.IBZ) S IBXDATA=$P($G(IBZ(5,1)),U)_U_$P($G(IBZ(5,1)),U,3)_U_$P($G(IBZ(5,1)),U,4)\n", "", "\nThe name of the supervising physician for bill entry IBXIEN. The pieces\nreturned are: provider name^vp ien for provider (200/355.93)^credentials\n
\n\n"], ["N-OTHER PAYER FULL ADDRESS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXSAVE(\"ARRAY\")=\"\"\n", "", "\nExtract the address information for the OTHER PAYER to parse it for 837 \ntransmission using File 364.7 .\n
\n\n"], ["N-OUTSIDE LAB TOTAL (EDI)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Q,L I $$OLAB^IBCEU(IBXIEN) S Q=\"OUTPT\",L=\"OLAB\" D:'$D(IBXSAVE(Q)) B24^IBCEF3(.IBXSAVE,IBXIEN) K IBXDATA S IBXDATA=\"\",(Z,IBXSAVE(L))=0 F S Z=$O(IBXSAVE(Q,Z)) Q:'Z S IBXSAVE(L)=IBXSAVE(L)+$P(IBXSAVE(Q,Z),U,11),IBXDATA=IBXSAVE(L)\n", "", "\nSimilar to data element N-OUTSIDE LAB TOTAL.\nThis one uses the proper subscript in the IBXSAVE array for EDI \ntransmissions.\nB24^IBCEF3 creates IBXSAVE("BOX24") for printed 1500 data and\nB24^IBCEF3 creates IBXSAVE("OUTPT") for EDI transmitted data.\n \nIf the facility is an outside lab, this is the total of all the charges\nthat the VA paid for the line items for this bill.\n\n\n"], ["N-OTHER INSURED FULL ADDRESS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXSAVE(\"ARRAY\")=\"8,113-LINE1|8,113-LINE2|8,113-CITY|ST-8,113|8,113-ZIP\"\n", "", "\nExtract the address information for the OTHER INSURED to parse it for 837\ntransmission using File 364.7 .\n
\n\n"], ["N-OTHER INSURED QUALIF/ID ALL", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "K IBXDATA S IBZZ=$$SETSTR^VALM1($P($G(^DPT(+$P($G(^DGCR(399,IBXIEN,0)),U,2),0)),U),\"\",2,39)\n", "", "\nExtracted form a set of codes, could be:\n1W = Member ID Number;23 = Client Number;SY = Social Security Number;\n1G = Insurance Policy Number also known as UPIN Number;\n
\n\n"], ["N-OTH PAYER PATIENT ID QUALIF", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXSAVE=\"EI,MI,Find which one applies and pass value and qualifier\"\n", "", "\nFind which is available, Employee ID or Member ID Number. Pass either\nEI=Employee ID Number or MI=Member ID Number. Extract valeu and qualifier. Parse into seperate elements, 110,4 and 110,5.\n
\n\n"], ["N-OTH PAYER PAT ID QUALIF 1-3", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXSAVE=\"1W|MEMBER ID NUMBER|1G|INSURANCE POLICY NUMBER|SY|SOCIAL SECURITY NUMBER|\"\n", "", ""], ["N-TYPE INSURANCE CO ID-ALL", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXSAVE(\"ID\")=\"1A|1B|1H|G2|1C|\",YES=+$P($G(^DGCR(399,IBXIEN,\"U2\")),U,11)\n", "", "\nCreate an array so data can be parsed into the IBXDATA elements for TYPE \nOF INSURANCE COMPANY ID.\n
\n\n"], ["N-TYPE INSURANCE CO NUMBER-ALL", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S (N,V,Z,I,IBXSAVE(\"D\"))=\"\" F S N=$O(^IBE(355.97,N)) Q:N=\"\"&(I=\"\") S I=$P($G(^(N,0)),U,1,4),Z=$P($G(I),U,1),V=$S(Z[\"CROSS\":1,Z[\"SHIE\":2,Z[\"CHAM\":3,Z[\"COMM\":4,Z[\"ART A\":5,Z[\"ARTB\":6,Z[\"HMO\":7,1:\"0\") S:V $P(IBXSAVE(\"D\"),\"|\",V)=$P(I,U,4)\n", "", "\nExtract using appriate functions, the actual numbers associated with each \ncategory. To be parsed in 16,2 thru 13.\n
\n\n"], ["N-ALL ATT/RENDERING PROV SSN", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$PROVSSN^IBCEF7(IBXIEN)\n", "", "\nExtracts the SSN for all FUNCTION types\nIBXDATA - string with "^" delimiters that contains SSNs (if any)\nin the position that equal to FUNCTION number i.e.\nif RENDERING function # is 3 then SSN will be $P(IBXDATA,"^",3)\n
\n\n"], ["N-OTH INSURED GRP NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,Z1,IBZ D F^IBCEF(\"N-ALL INSURANCE GROUP NAME\",\"IBZ\") S Z=$$COBN^IBCEF(IBXIEN) S Z0=0 F Z1=1:1:3 I Z1'=Z,$D(^DGCR(399,IBXIEN,\"I\"_Z1)) S Z0=Z0+1,IBXDATA(Z0)=$G(IBZ(Z1))\n", "", "\nAll other insured's group names for bill entry IBXIEN. The data is\nprimary and tertiary insurance insured's group names are returned. If the\ntertiary insurance is the current responsible, the primary and secondary\ninsurance insured's group names are returned.\nextracted from the old group name field in the policy record if the old\ngroup number data exists. If the old group number data doesn't exist or\nthe old group name data is missing, the data is taken from the GROUP NAME\nin the GROUP INSURANCE PLAN file. Data is returned in an array\nIBXDATA(n). This is a group data element and up to 2 data elements are\nreturned in the IBXDATA(n) array. If the primary insurance is the current\nresponsible, the secondary and tertiary insurance insured's group names are\nreturned. If the secondary insurance is the current responsible, the\n
\n\n"], ["N-OPERATING PHYSICIAN DATA", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D GETPRV^IBCEU(IBXIEN,2,.IBZ) S IBXDATA=$G(IBZ(2,1)) S:IBXDATA=\"\" IBXDATA=\"^^\"_$$PROVPTR^IBCEF7(IBXIEN,2)\n", "", "\nExtracts the SSN for operating physician\nIBXDATA - string with "^" delimiters\n
\n\n"], ["N-ALL OTH PROV SECONDARY ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "I +$G(IBXSAVE(\"PROV2INF\",IBXIEN))=0 N IBZ D PROVINF^IBCEF7(IBXIEN,2,.IBZ) S IBXSAVE(\"PROV2INF\",IBXIEN)=IBXIEN M IBXSAVE(\"PROV2INF\",IBXIEN)=IBZ\n", "", "\nSecondary ID's first are there Insurance specific secondary id's #355.9 if #399,101 primary insurance carrier =#355.9,.02\nTHEN #355.9,.07 is the provider id's\n
\n\n"], ["N-ALL CUR/OTH PROVIDER INFO", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D ALLPROV^IBCEF7\n", "", "\ncheck if data was already extracted if not then create an array with current and other providers data, save in IBXSAVE("PROVINF",IBXIEN)\n\n\n"], ["N-PURCHASED SERVICE ALL", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S A=$P($G(^DGCR(399,IBXIEN,\"U2\")),U,10,11) S:$P(A,U,2)\\2 I1=$P(A,U,1),N=$P(^IBA(355.93,I1,0),U,9),I4=+$P($Q(^IBA(355.9,\"C\",N)),\",\",4),I5=$P(^IBA(355.9,I4,0),U,6)\n", "", "\nUSED IN 364.7 SEQUENCE 56 PICES 2 AND 3. cAN BE USED FOR THE REST ALSO.\nI5 USED TO EXTRACT THE QUALIFIER FROM ^IBE(355.97) PIECE 3\n
\n\n"], ["N-OTH INSURANCE CO IEN 36", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z F Z=1,2,3 S IBXDATA(Z)=+$$POLICY^IBCEF(IBXIEN,1,$E(\"PST\",Z))\n", "", "\nfinds insurance iens in file #36\n
\n\n"], ["N-OTH INSURANCE ADDRESS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D ELMADDR^IBCEF7(IBXIEN,0,.IBXDATA)\n", "", ""], ["N-OTH INSURED NAMES SUFF", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,Z1,IBZ D F^IBCEF(\"N-ALL INSURED FULL NAMES\",\"IBZ\") S Z=$$COBN^IBCEF(IBXIEN) S Z0=0 F Z1=1:1:3 I Z1'=Z,$D(^DGCR(399,IBXIEN,\"I\"_Z1)) S Z0=Z0+1,IBXDATA(Z0)=$$GETNMEL^IBCEF7($G(IBZ(Z1)),\"SUFFIX\")\n", "", "\nreturns array of suf for "other insured" names\n
\n\n"], ["N-ALL OUTSIDE FAC PROVIDER INF", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D ALLPRFAC^IBCEF71(IBXIEN,.IBXSAVE)\n", "", "\nIf the IBXSAVE array for the bill has not yet been set for all outside\nfacility provider ids, do the extract.\n
\n\n"], ["N-ALL ATT/REND PROV SSN/EI", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$PROVID^IBCEF73(IBXIEN)\n", "", "\nTHIS WILL RETURN SSN OR TAX ID IF NO SSN\n
\n\n"], ["N-STATION NUMBER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$P($$SITE^VASITE,U,3)\n", "", "\nThis is the 3-digit number that identifies the site.\n
\n\n"], ["N-OTH INSURED FULL NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,Z1,IBZ D F^IBCEF(\"N-ALL INSURED FULL NAMES\",\"IBZ\") S Z=$$COBN^IBCEF(IBXIEN) S Z0=0 F Z1=1:1:3 I Z1'=Z,$D(^DGCR(399,IBXIEN,\"I\"_Z1)) S Z0=Z0+1,IBXDATA(Z0)=$G(IBZ(Z1))\n", "", "\nThe full name of all other insured for bill entry IBXIEN.\nFormat is free text as the user entered it into the insured's name field.\nData is returned in an array IBXDATA(n). This is a group element and\nup to 2 data elements are returned in the IBXDATA(n) array. If the primary\ninsurance is the current responsible, the secondary and tertiary insurance\ninsured's name are returned. If the secondary insurance is the\ncurrent responsible, the primary and tertiary insurance insured's name\nare returned. If the tertiary insurance is the current responsible, the\nprimary and secondary insurance insured's name are returned.\n
\n\n"], ["N-PROVIDER TAXONOMIES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S (IBXDATA,IBXSAVE(\"TAX\"))=$$PROVTAX^IBCEF73A(IBXIEN)\n", "", "\nThis will return TAXONOMY codes for all providers\n
\n\n"], ["N-ORGANIZATION NPI CODES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S (IBXDATA,IBXSAVE(\"ORGNPI\"))=$$ORGNPI^IBCEF73A(IBXIEN)\n", "", "\nThis will return NPI for all organizations\n
\n\n"], ["N-ORGANIZATION TAXONOMIES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S (IBXDATA,IBXSAVE(\"ORGTAX\"))=$$ORGTAX^IBCEF73A(IBXIEN)\n", "", "\nThis will return TAXONOMY codes for all organizations\n
\n\n"], ["N-PROVIDER NPI CODES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S (IBXDATA,IBXSAVE(\"NPI\"))=$$PROVNPI^IBCEF73A(IBXIEN)\n", "", "\nThis will return NPI for all providers\n
\n\n"], ["N-AMBULANCE PU STATE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "AMBULANCE P/U STATE\n", "EXTERNAL\n", "", "", "", ""], ["N-AMBULANCE PU ZIP", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "AMBULANCE P/U ZIP\n", "", "", "", "", ""], ["N-AMBULANCE DO ADDR LINE 1", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "AMBULANCE D/O ADDRESS 1\n", "", "", "", "", ""], ["N-AMBULANCE DO ADDR 2", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "AMBULANCE D/O ADDRESS 2\n", "", "", "", "", ""], ["N-AMBULANCE DO CITY", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "AMBULANCE D/O CITY\n", "EXTERNAL\n", "", "", "", ""], ["N-AMBULANCE DO STATE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "AMBULANCE D/O STATE\n", "EXTERNAL\n", "", "", "", ""], ["N-OTH INSURED GRP NUMBER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,Z1,IBZ D F^IBCEF(\"N-ALL INSURANCE GROUP NUMBER\",\"IBZ\") S Z=$$COBN^IBCEF(IBXIEN) S Z0=0 F Z1=1:1:3 I Z1'=Z,$D(^DGCR(399,IBXIEN,\"I\"_Z1)) S Z0=Z0+1,IBXDATA(Z0)=$G(IBZ(Z1))\n", "", "\nAll other insured's group numbers for bill entry IBXIEN. The data is\ncurrent responsible, the primary and secondary insurance insured's group\nnumbers are returned.\nextracted from the old group number field in the policy record or the\nGROUP NUMBER from the GROUP INSURANCE PLAN file if no old group number is\navailable. Data is returned in an array IBXDATA(n). This is a group data\nelement and up to 2 data elements are returned in the IBXDATA(n) array. If\nthe primary insurance is the current responsible, the secondary and\ntertiary insurance insured's group numbers are returned. If the secondary\ninsurance is the current responsible, the primary and tertiary insurance\ninsured's group numbers are returned. If the tertiary insurance is the\n
\n\n"], ["N-AMBULANCE DO ZIP", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "AMBULANCE D/O ZIP\n", "", "", "", "", ""], ["N-AMBULANCE DO LOCATION", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "AMBULANCE D/O LOCATION\n", "EXTERNAL\n", "", "", "", ""], ["N-PROP/CAS DATE OF 1ST CONTACT", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "PROP/CAS DATE OF 1ST CONTACT\n", "INTERNAL\n", "", "", "", ""], ["N-DISABILITY DATE QUALIFIER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$S(IBXSAVE(\"DIS ST DT\")&IBXSAVE(\"DIS END DT\"):314,IBXSAVE(\"DIS END DT\"):361,IBXSAVE(\"DIS ST DT\"):360,1:\"\")\n", "", ""], ["N-DISABILITY START DATE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "DISABILITY START DATE\n", "INTERNAL\n", "", "", "", ""], ["N-DISABILITY END DATE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "DISABILITY END DATE\n", "INTERNAL\n", "", "", "", ""], ["N-ASSUME CARE DATE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "ASSUMED CARE DATE\n", "INTERNAL\n", "", "", "", ""], ["N-RELINQUISH CARE DATE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "RELINQUISHED CARE DATE\n", "INTERNAL\n", "", "", "", ""], ["N-PRIMARY REFERRAL NUMBER", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "PRIMARY REFERRAL NUMBER\n", "INTERNAL\n", "", "", "", ""], ["N-SECONDARY REFERRAL NUMBER", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "SECONDARY REFERRAL NUMBER\n", "", "", "", "", ""], ["N-OTH INSURED ID", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,Z1,IBZ D F^IBCEF(\"N-ALL INSURANCE NUMBER\",\"IBZ\") S Z=$$COBN^IBCEF(IBXIEN) S Z0=0 F Z1=1:1:3 I Z1'=Z,$D(^DGCR(399,IBXIEN,\"I\"_Z1)) S Z0=Z0+1,IBXDATA(Z0)=$G(IBZ(Z1))\n", "", "\nAll id numbers of other insured for bill IBXIEN.\n \nData is returned in an array IBXDATA(n). This is a group data element and\nup to 2 data elements are returned in the IBXDATA(n) array. If the primary\ninsurance is the current responsible, the secondary and tertiary insurance\ninsured's id numbers are returned. If the secondary insurance is the\ncurrent responsible, the primary and tertiary insurance insured's id numbers\nare returned. If the tertiary insurance is the current responsible, the\nprimary and secondary insurance insured's id numbers are returned.\n
\n\n"], ["N-TERTIARY REFERRAL NUMBER", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "TERTIARY REFERRAL NUMBER\n", "", "", "", "", ""], ["N-CURRENT REFERRAL NUMBER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z S Z=$$COBN^IBCEF(IBXIEN) D F^IBCEF(\"N-\"_$P(\"PRIMARY^SECONDARY^TERTIARY\",U,Z)_\" REFERRAL NUMBER\",,,IBXIEN)\n", "", ""], ["N-ATT RPT TYPE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "ATTACHMENT REPORT TYPE\n", "EXTERNAL\n", "", "", "", ""], ["N-ATT RPT TRX CODE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "ATTACHMENT REPORT TRANS CODE\n", "INTERNAL\n", "", "", "", ""], ["N-ATT CONTROL NUM", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "ATTACHMENT CONTROL NUMBER\n", "EXTERNAL\n", "", "", "", ""], ["N-PROP/CAS CLAIM NUMBER", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "PROPERTY/CASUALTY CLAIM NUMBER\n", "EXTERNAL\n", "", "", "", ""], ["N-PROP/CAS CONTACT NAME", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "PROPERTY/CASUALTY CONTACT NAME\n", "EXTERNAL\n", "", "", "", ""], ["N-PROP/CAS CONTACT TELEPHONE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "PROP/CAS COMMUNICATION NUMBER\n", "EXTERNAL\n", "", "", "", ""], ["N-PROP/CAS CONTACT EXTENSION", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "PROP/CAS EXTENSION NUMBER\n", "EXTERNAL\n", "", "", "", ""], ["N-PRI SURG PROC CODE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "PRIMARY SURGICAL PROC CODE\n", "EXTERNAL\n", "", "", "", ""], ["N-OTH INSURED PT RELATION", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,Z1,IBZ D F^IBCEF(\"N-ALL INSURED PT RELATION\",\"IBZ\") S Z=$$COBN^IBCEF(IBXIEN) S Z0=0 F Z1=1:1:3 I Z1'=Z,$D(^DGCR(399,IBXIEN,\"I\"_Z1)) S Z0=Z0+1,IBXDATA(Z0)=$G(IBZ(Z1))\n", "", "\nAll other insured's relationship to patient codes for bill entry IBXIEN.\nData is returned in an array IBXDATA(1-n). This is a group element and\nup to 2 data elements are returned in the IBXDATA(n) array. If the primary\ninsurance is the current responsible, the secondary and tertiary insurance\ninsured relation to pt are returned. If the secondary insurance is the\ncurrent responsible, the primary and tertiary insurance insured relation to\npt are returned. If the tertiary insurance is the current responsible, the\nprimary and secondary insurance insured relation to pt are returned.\n
\n\n"], ["N-SEC SURG PROC CODE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "SECONDARY SURGICAL PROC CODE\n", "EXTERNAL\n", "", "", "", ""], ["N-COB TOTAL NON-COVERED AMOUNT", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "COB TOTAL NON-COVERED AMOUNT\n", "EXTERNAL\n", "", "", "", ""], ["N-RENDERING PHYSICIAN NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D GETPRV^IBCEU(IBXIEN,3,.IBZ) S IBXDATA=$P($G(IBZ(3,1)),U)_U_$P($G(IBZ(3,1)),U,3)_U_$P($G(IBZ(3,1)),U,4)\n", "", "\n1st '^'-piece is name, 2nd is new person file ien, 3rd is credentials\n
\n\n"], ["N-ALL REFERRAL NUMBERS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,Z F Z=1:1:3 D F^IBCEF(\"N-\"_$P(\"PRIMARY^SECONDARY^TERTIARY\",U,Z)_\" REFERRAL NUMBER\",\"IBZ\",,IBXIEN) S IBXDATA(Z)=IBZ\n", "", ""], ["N-OTHER PAYER REF NUM", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,Z1,IBZ D F^IBCEF(\"N-ALL REFERRAL NUMBERS\",\"IBZ\") S Z=$$COBN^IBCEF(IBXIEN) S Z0=0 F Z1=1:1:3 I Z1'=Z,($G(IBZ(Z1))]\"\") S Z0=Z0+1,IBXDATA(Z0)=$G(IBZ(Z1))\n", "", ""], ["N-DIAGNOSIS CODE 10(HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"DX\")) F^IBCEF(\"N-DIAGNOSES\") S IBXDATA=$G(IBXSAVE(\"DX\",10))\n", "", "\nData element relies on previously extracted data in array IBXSAVE("DX") \nfrom the HCFA DIAGNOSES. If IBXSAVE(""DX"") does not exist, extract the \nfield that sets it. The second in the sequence of diagnoses for bill \nIBXIEN for the HCFA 1500. This is the internal diagnosis code (ICD9).\n\n\n"], ["N-DIAGNOSIS CODE 11(HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"DX\")) F^IBCEF(\"N-DIAGNOSES\") S IBXDATA=$G(IBXSAVE(\"DX\",11))\n", "", "\nData element relies on previously extracted data in array IBXSAVE("DX") \nfrom the HCFA DIAGNOSES. If IBXSAVE(""DX"") does not exist, extract the \nfield that sets it. The second in the sequence of diagnoses for bill \nIBXIEN for the HCFA 1500. This is the internal diagnosis code (ICD9).\n\n\n"], ["N-EOB OTHER PAYER INFO", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "EXPLANATION OF BENEFITS\n", "", "", "", "N Z,Z0,Z1,Z2,IBZ D F^IBCEF(\"N-EOB ENTRIES\",\"IBZ\") S Z=$$COBN^IBCEF(IBXIEN) S Z0=0 F Z1=1:1:3 I Z1'=Z S Z2=$O(IBZ(Z1,\"\"),-1) I Z2 S Z0=Z0+1,IBXDATA(Z0)=IBZ(Z1,Z2)\n", "", ""], ["N-CURRENT AUTH/REFERRAL CODE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z S Z=$$COBN^IBCEF(IBXIEN),IBXDATA=$$AUTRF^IBCEF31(IBXIEN,28,Z)\n", "", "\nThis data element finds the treatment authorization code for\nbill IBXIEN for the current insurance company. If there is also\na referral number, it will include that after, separated by a space.\nPossible output is: Auth code Referral # or: Auth code or:\nReferral # or: null\n
\n\n"], ["N-ALL AUTH/REFERRAL CODES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z F Z=1:1:3 I $S(Z=1:1,1:$D(^DGCR(399,IBXIEN,\"I\"_Z))) S IBXDATA(Z)=$$AUTRF^IBCEF31(IBXIEN,30,Z)\n", "", "\nExtracts the 3 authorization codes for bill IBXIEN into IBXDATA(1),\nIBXDATA(2), IBXDATA(3). If there is also a referral number, it will\ninclude that after, separated by a space.\nPossible output is: Auth code Referral # or: Auth code or:\nReferral # or: null\n
\n\n"], ["N-PATIENT CONDITION CODE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "PATIENT CONDITION CODE\n", "INTERNAL\n", "", "", "", "\nData element used to retrieve patient condition code for the claim.\n
\n\n"], ["N-ATTENDING PHYSICIAN NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,IBT S IBT=4 D GETPRV^IBCEU(IBXIEN,IBT,.IBZ) S IBXDATA=$P($G(IBZ(IBT,1)),U)_U_$P($G(IBZ(IBT,1)),U,3)_U_$P($G(IBZ(IBT,1)),U,4)\n", "", ""], ["N-LAB/FAC CONTACT NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "IB NON/OTHER VA BILLING PROVIDER\n", "", "", "", "N Z K IBXDATA S Z=+$P($G(IBXSAVE(\"LAB/FAC\",IBXIEN,\"C\",1)),U,2) S:Z IBXDATA=$P($G(^IBA(355.93,Z,1)),U,1)\n", "", ""], ["N-LAB/FAC CONTACT PHONE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "IB NON/OTHER VA BILLING PROVIDER\n", "", "", "", "N Z K IBXDATA S Z=+$P($G(IBXSAVE(\"LAB/FAC\",IBXIEN,\"C\",1)),U,2) S:Z IBXDATA=$P($G(^IBA(355.93,Z,1)),U,2)\n", "", ""], ["N-LAB/FAC CONTACT EXT", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "IB NON/OTHER VA BILLING PROVIDER\n", "", "", "", "N Z K IBXDATA S Z=+$P($G(IBXSAVE(\"LAB/FAC\",IBXIEN,\"C\",1)),U,2) S:Z IBXDATA=$P($G(^IBA(355.93,Z,1)),U,3)\n", "", ""], ["N-REFERRING PROVIDER NAME BR", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$GETPRV^IBCEF83(IBXIEN,,1,\"A1\")\n", "", "\nThe name of the referring provider for bill entry IBXIEN.\n
\n\n"], ["N-OPERATING PHYSICIAN NAME BR", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$GETPRV^IBCEF83(IBXIEN,,2,\"A1\")\n", "", "\nThe name of the operating physician for bill entry IBXIEN.\n
\n\n"], ["N-SPRVSING PROV FULL NAME BR", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$GETPRV^IBCEF83(IBXIEN,,5,\"A1\")_U_$$GETPRV^IBCEF83(IBXIEN,,5,\"A0\")_U_$$GETPRV^IBCEF83(IBXIEN,,5,\"A6\")\n", "", "\nThe name of the supervising physician for bill entry IBXIEN. The pieces \nreturned are: provider name^vp ien for provider (200/355.93)^credentials\n
\n\n"], ["N-OPERATING PHYSICIAN DATA BR", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$GETPRV^IBCEF83(IBXIEN,,2,\"A1\")_U_$$GETPRV^IBCEF83(IBXIEN,,2,\"A7\")_U_$$GETPRV^IBCEF83(IBXIEN,,2,\"A0\")_U_$$GETPRV^IBCEF83(IBXIEN,,2,\"A6\")\n", "", "\nThe name of the operating physician for bill entry IBXIEN. The pieces \nreturned are: provider name^current cob id^vp ien for provider \n(200/355.93)^credentials.\n
\n\n"], ["N-RENDERING PHYSICIAN NAME BR", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$GETPRV^IBCEF83(IBXIEN,,3,\"A1\")_U_$$GETPRV^IBCEF83(IBXIEN,,3,\"A0\")_U_$$GETPRV^IBCEF83(IBXIEN,,3,\"A6\")\n", "", "\nThe name of the rendering physician for bill entry IBXIEN. The pieces \nreturned are: provider name^vp ien for provider (200/355.93)^credentials.\n
\n\n"], ["N-ATTENDING PHYSICIAN NAME BR", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$GETPRV^IBCEF83(IBXIEN,,4,\"A1\")_U_$$GETPRV^IBCEF83(IBXIEN,,4,\"A0\")_U_$$GETPRV^IBCEF83(IBXIEN,,4,\"A6\")\n", "", "\nThe name of the attending physician for bill entry IBXIEN. The pieces \nreturned are: provider name^vp ien for provider (200/355.93)^credentials.\n
\n\n"], ["N-ATT/REND PHYSICIAN NAME BR", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBT S IBT=$S($$FT^IBCEF(IBXIEN)=2!($$FT^IBCEF(IBXIEN)=7):3,1:4) S IBXDATA=$$GETPRV^IBCEF83(IBXIEN,,IBT,\"A1\")_U_$$GETPRV^IBCEF83(IBXIEN,,IBT,\"A0\")_U_$$GETPRV^IBCEF83(IBXIEN,,IBT,\"A6\")\n", "", "\nThe name of the ATTENDING or RENDERING provider for bill entry IBXIEN. \nThe pieces returned are: provider name^vp ien for provider \n(200/355.93)^credentials.\n
\n\n"], ["N-CMS-1500 BOX 24I ID QUAL BR", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D CMSBOX24^IBCEF83(IBXIEN,\"I\",.IBXDATA)\n", "", "\nData element returns the IBXDATA array box 24I on the printed 1500 claim \nform. This is the rendering provider ID qualifier. Each claim line item \nhas 2 lines in the IBXDATA array.\n
\n\n"], ["N-CMS-1500 24J REND PROV ID BR", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D CMSBOX24^IBCEF83(IBXIEN,\"J\",.IBXDATA)\n", "", "\nData element returns the IBXDATA array for box 24J on the printed 1500 \nclaim form. This is the Rendering Provider secondary ID and NPI#. Each \nservice line on the claim form has 2 lines in the IBXDATA array.\n
\n\n"], ["N-OI4 COB SETUP", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "K IBXSAVE(\"CCOB\") D CCOB1^IBCEU1(IBXIEN,\"0,1,2,4\")\n", "", "\nThis extracts the Other Payer Check and Status info which used to be in \nthe COB1 record.\n
\n\n"], ["N-VALUE CODE GROUP", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "K IBXDATA D VC1^IBCVC(IBXIEN,.IBFL)\n", "", "\nThis will extract the value Codes from ^DGCR(399,IBXIEN,"CV",n). If the \nclaim is institutional (UB-04) the A3, B3, and C3 will be overwritten by \nthe estimated claim value calculated as it is in CL1.12.\n
\n\n"], ["N-ALL PROVIDERS 1", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,Z D GETPRV1^IBCEU(IBXIEN,\"ALL\",.IBZ) F Z=1:1:$O(IBZ(\"\"),-1) S:'$G(IBZ(Z)) IBZ(Z)=\"\" M IBXDATA(Z)=IBZ(Z)\n", "", "\nReturns array in the format:\nIBPRV(level,type,ct)=name^current COB id^vp provider ien^cred\n
\n\n"], ["N-DIAGNOSIS CODE 12(HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D:'$D(IBXSAVE(\"DX\")) F^IBCEF(\"N-DIAGNOSES\") S IBXDATA=$G(IBXSAVE(\"DX\",12))\n", "", "\nData element relies on previously extracted data in array IBXSAVE("DX") \nfrom the HCFA DIAGNOSES. If IBXSAVE(""DX"") does not exist, extract the \nfield that sets it. The second in the sequence of diagnoses for bill \nIBXIEN for the HCFA 1500. This is the internal diagnosis code (ICD9).\n\n\n"], ["N-PROVIDER NAME (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$PROVNM^IBCEF83(IBXIEN)\n", "", "\nThis is either the referring provider or the supervising provider.\n
\n\n"], ["N-ORTHO BANDING QUALIFIER", "NATIONAL,NO EDIT\n", "CONSTANT VALUE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "452\n", "", "", ""], ["N-ORTHO BANDING DATE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "BANDING DATE\n", "INTERNAL\n", "", "", "", ""], ["N-ORTHO TX MTHS COUNT", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "TREATMENT MONTHS COUNT\n", "INTERNAL\n", "", "", "", ""], ["N-ORTHO TX MTHS COUNT TRANSFER", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "TREATMENT MONTHS REMAINING\n", "INTERNAL\n", "", "", "", ""], ["N-ORTHO TX INDICATOR", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "TREATMENT INDICATOR\n", "EXTERNAL\n", "", "", "", ""], ["N-TOOTH NUMBER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=\"\" I $$FT^IBCEF(IBXIEN)=7 D TNUM^IBCEF12(IBXIEN)\n", "", ""], ["N-HCFA J430D SERV LINE (EDI)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=\"\" I $$FT^IBCEF(IBXIEN)=7 D OUTPT^IBCEF11(IBXIEN,0)\n", "", "\nThe elements of the outpatient services line on the HCFA J430D for bill \nentry IBXIEN. Format is begin date^end date^place of service code^type \nof service code^procedure or revenue code^type of code^diagnosis \npointers^unit charge^units^modifier pointer ien(s) separated by \ncommas^purchased charge amount^anesthesia minutes^emergency indicator^lap \ntype of service flag. Data is returned in an array IBXDATA(1-n). Also \nreturns the arrays IBXDATA(n,"AUX")=the 'AUX' node for the procedure \nentry on the claim IBXDATA("ITEM",item type,item pointer)=n^ctr if this \ndata can be gatherd.\n\n\n"], ["N-CMN RECORD ID 'LQ '", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "", "", "", "", "", "", ""], ["N-CURR INSURED FULL ADDRESS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$INSADDR^IBCEF(IBXIEN)\n", "", "\nThe current insured's full street address^city^state^zip^street address 1\nstreet address 2^street address 3 for bill entry IBXIEN.\n
\n\n"], ["N-HCFA SERVICE LINE CALLABLE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=\"\" I $$FT^IBCEF(IBXIEN)=2!($$FT^IBCEF(IBXIEN)=7) D OUTPT^IBCEF11(IBXIEN,0)\n", "", ""], ["N-CMN RECORD ID 'FRM '", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "", "", "", "", "", "", ""], ["N-PRIMARY AUTH CODE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "TREATMENT AUTHORIZATION CODE\n", "INTERNAL\n", "", "", "", "\nThe treatment authorization code for the primary bill holder for bill IBXIEN.\n
\n\n"], ["N-CMN RECORD ID 'CMN '", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "", "", "", "", "", "", ""], ["N-CMN RECORD ID 'MEA '", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "", "", "", "", "", "", ""], ["N-CURR INSURANCE COMPANY NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D F^IBCEF(\"N-ALL INSURANCE COMPANIES\",\"IBZ\",,IBXIEN) S IBZ=$P($G(IBZ(+$$COBN^IBCEF(IBXIEN))),U) I IBZ'=\"\" S IBXDATA=IBZ\n", "", "\nThe mailing name (or if this is null, the insurance co name) of the current\ninsurance company for bill entry IBXIEN.\n
\n\n"], ["N-OTH INSURANCE CO. NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,Z1,IBZ D F^IBCEF(\"N-ALL INSURANCE COMPANIES\",\"IBZ\") S Z=$$COBN^IBCEF(IBXIEN) S Z0=0 F Z1=1:1:3 I Z1'=Z,$D(^DGCR(399,IBXIEN,\"I\"_Z1)) S Z0=Z0+1,IBXDATA(Z0)=$G(IBZ(Z1))\n", "", "\nThe ien of all other insurance companies for bill entry IBXIEN.\nData is returned in an array IBXDATA(n). This is a group element and\nup to 2 data elements are returned in the IBXDATA(n) array. If the primary\ninsurance is the current responsible, the secondary and tertiary insurance\nco ien's are returned. If the secondary insurance is the current\nresponsible, the primary and tertiary insurance co ien's are returned. If\nthe tertiary insurance is the current responsible, the primary and\nsecondary insurance co ien's are returned.\n
\n\n"], ["N-CURR INS EMPLOYMENT STAT", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D F^IBCEF(\"N-ALL INSURED EMPLOY STATUS\",\"IBZ\",,IBXIEN) S IBZ=$G(IBZ(+$$COBN^IBCEF(IBXIEN))) I IBZ'=\"\" S IBXDATA=IBZ\n", "", "\nThe current insured's employment status code for bill entry IBXIEN.\n
\n\n"], ["N-OTHER INSURED EMPLOY STATUS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,Z1,IBZ D F^IBCEF(\"N-ALL INSURED EMPLOY STATUS\",\"IBZ\") S Z=$$COBN^IBCEF(IBXIEN) S Z0=0 F Z1=1:1:3 I Z1'=Z,$D(^DGCR(399,IBXIEN,\"I\"_Z1)) S Z0=Z0+1,IBXDATA(Z0)=$G(IBZ(Z1))\n", "", "\nAll other insured employment status' for bill entry IBXIEN. This is a group\nelement and up to 2 data elements are returned in the IBXDATA(n) array. \nIf the primary insurance is the current responsible, the secondary and\ntertiary insured's employment status are returned. If the\nsecondary insurance is the current responsible, the primary and tertiary\ninsured's employment status are returned. If the tertiary\ninsurance is the current responsible, the primary and secondary\ninsured's employment status are returned.\n
\n\n"], ["N-GET FROM PREVIOUS EXTRACT", "NATIONAL,NO EDIT\n", "CONSTANT VALUE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "", "", "\nField used when a group element has previously been defined that included\nthis data element and a hard-coded extract from the group element output is\nto be done for bill entry IBXIEN.\n
\n\n"], ["N-UB92 FORM LOCATOR 78", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "*FORM LOCATOR 78\n", "", "", "", "", "\nThe UB92 data for FORM LOCATOR 78 for bill IBXIEN.\n
\n\n"], ["N-BILL DESIGNATION", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "CURRENT BILL PAYER SEQUENCE\n", "", "", "", "", "\n'P' for primary, 'S' for secondary, 'T' for Tertiary bill for bill entry\nIBXIEN.\n
\n\n"], ["N-CURR INS FORM LOC 64", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z S Z=$$COBN^IBCEF(IBXIEN) D F^IBCEF(\"N-UB-04 FORM LOCATOR 64\"_$P(\"^B^C\",U,Z))\n", "", "\nThe form locator 64 data for the current insurance company for bill entry\nIBXIEN.\n
\n\n"], ["N-OTH INS FORM LOC 64", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z0,Z1,IBZ I $D(^DGCR(399,IBXIEN,\"I2\")) S Z=$$COBN^IBCEF(IBXIEN) S Z1=$S(Z>1:\"^\"_$E(\" CB\",Z),1:\"B^C\") F Z0=1,2 D F^IBCEF(\"N-UB-04 FORM LOCATOR 64\"_$P(Z1,U,Z0),\"IBZ\",,IBXIEN) S IBXDATA(Z0)=$G(IBZ)\n", "", "\nThe form locator 64 data for all other insurance companies for bill entry\nIBXIEN. Data is returned in array IBXDATA(n). This is a group element and\nup to 2 data elements are returned in the IBXDATA(n) array. If the primary\ninsurance is the current responsible, the secondary and tertiary insurance\nform locator 64 data are returned. If the secondary insurance is the\ncurrent responsible, the primary and tertiary insurance form locator 64 data\nare returned. If the tertiary insurance is the current responsible, the\nprimary and secondary insurance form locator 64 data are returned.\n
\n\n"], ["N-PROVIDER SIGNATURE ON FILE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$P($G(^IBE(350.9,1,1)),U)'=\"\",IBXDATA=$P(\"Y\",U,IBXDATA)\n", "", "\n'Y' if the provider signature is on file in the site parameters file\n(Does not rely on bill entry number).\n
\n\n"], ["N-PATIENT STREET ADDRESS LN 1", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D F^IBCEF(\"N-PATIENT STREET ADDRESS 1-3\",\"IBZ\",,IBXIEN) K IBXDATA S IBXDATA=$G(^UTILITY(\"VAPA\",$J,1))\n", "", "\nThe first line of the patient's street address for bill entry IBXIEN.\n
\n\n"], ["N-CURR INSURED DEMOGRAPHICS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$INSDEM^IBCEF(IBXIEN),IBXSAVE(\"IDEM\")=IBXDATA\n", "", "\nThe current insured's birthdate^sex^phone^branch pointer^rank (sex only if\ninsured is patient or spouse) for bill entry IBXIEN. Save data in IBXSAVE\nfor later use.\n
\n\n"], ["N-PATIENT STREET ADDRESS LN 2", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D F^IBCEF(\"N-PATIENT STREET ADDRESS 1-3\",\"IBZ\",,IBXIEN) K IBXDATA S IBXDATA=$G(^UTILITY(\"VAPA\",$J,2))\n", "", "\nThe second line of the patient's street address for bill entry IBXIEN.\n
\n\n"], ["N-PATIENT CITY", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$PTADDR^IBCEF(IBXIEN,4)\n", "", "\nThe patient's city for bill entry IBXIEN.\n
\n\n"], ["N-PATIENT STATE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$PTADDR^IBCEF(IBXIEN,5)\n", "", "\nThe internal entry number of the patient's state for bill entry IBXIEN.\n
\n\n"], ["N-PATIENT ZIP CODE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$PTADDR^IBCEF(IBXIEN,11)\n", "", "\nThe patient's zip code +4 for bill entry IBXIEN.\n
\n\n"], ["N-PATIENT PHONE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$PTADDR^IBCEF(IBXIEN,8)\n", "", "\nThe phone number for the patient for bill entry IBXIEN.\n
\n\n"], ["N-PATIENT NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$PTDEM^IBCEF(IBXIEN,1)\n", "", "\nThe name of the patient as it exists in patient file for bill entry IBXIEN.\n
\n\n"], ["N-PATIENT BIRTHDATE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$PTDEM^IBCEF(IBXIEN,3)\n", "", "\nThe fileman format of the birth date for the patient for bill entry IBXIEN.\n
\n\n"], ["N-PATIENT SEX", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$PTDEM^IBCEF(IBXIEN,5)\n", "", "\nThe internal code of the sex for the patient for bill entry IBXIEN.\n
\n\n"], ["N-PATIENT MARITAL STATUS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$PTDEM^IBCEF(IBXIEN,10)\n", "", "\nThe internal code of the marital status for the patient for bill entry\nIBXIEN.\n
\n\n"], ["N-BILL NUMBER", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "BILL NUMBER\n", "INTERNAL\n", "", "", "", "\nBill number for the bill entry IBXIEN.\n
\n\n"], ["N-CURR INSURED EMPLOYER INFO", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z,Z1,Z2 S Z=$$COBN^IBCEF(IBXIEN),Z2=$$ESGHPNL^IBCEF21(IBXIEN,Z),Z1=$P(Z2,U,2,99) S:'Z2 Z1=$$INSEMPL^IBCEF(IBXIEN) S IBXDATA=Z1\n", "", "\nExtracts the current insured's employment info into the IBXDATA for bill\nentry IBXIEN.\nFormat is employer name^city^state abbreviation^state ien.\nIf the plan is Employer Sponsored (ESGHP) then extracts Employer\nName/Location of the employer that sponsors the plan. Otherwise extracts\nthe insured's current employer name/location (if spouse or veteran only).\n
\n\n"], ["N-PATIENT EMPLOYER NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$PTEMPL^IBCEF(IBXIEN,9)\n", "", "\nThe name of the patient's employer for bill entry IBXIEN.\n
\n\n"], ["N-STATEMENT COVERS FROM DATE", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "STATEMENT COVERS FROM\n", "INTERNAL\n", "", "", "", "\nThe internal fileman date for statement from date for bill entry IBXIEN.\n
\n\n"], ["N-UB92 FORM LOCATOR 2", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$P($G(^DGCR(399,IBXIEN,\"UF3\")),U) ;Same name on 2 fileman fields in this file - can't extract with FM type field\n", "", "\nThe UB92 data for FORM LOCATOR 2 for bill IBXIEN.\nThere are 2 fields in file 399 with the same name - can't extract with FM\ntype field.\n
\n\n"], ["N-TYPE OF BILL", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$P($G(^DGCR(399,IBXIEN,0)),U,4)_$P($G(^(0)),U,5)\n", "", "\nThe type of bill for bill entry IBXIEN.\n
\n\n"], ["N-BILL FREQUENCY", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "TIMEFRAME OF BILL\n", "", "", "", "", "\nThe internal code for the frequency of the bill entry IBXIEN.\n
\n\n"], ["N-COVERED DAYS", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "COVERED DAYS\n", "INTERNAL\n", "", "", "", "\nThe number of covered days for bill entry IBXIEN.\n
\n\n"], ["N-NON-COVERED DAYS", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "NON-COVERED DAYS\n", "INTERNAL\n", "", "", "", "\nThe number of non-covered days for bill entry IBXIEN.\n
\n\n"], ["N-ADMISSION DATE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D ADMDT^IBCEF2(IBXIEN)\n", "", "\nFOR INPATIENT BILLS: use the admission date if PTF record exists or else\nevent date for bill entry IBXIEN. For non-PTF admissions, also appends the\ntime of admission. Return format is internal Fileman format\nFOR OUTPATIENT BILLS: use event date to check for admission covering that\ndate. If any, use its ADMISSION DATE. Return format is internal Fileman \nformat.\n
\n\n"], ["N-TYPE OF ADMISSION", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=\"\" I (($$INPAT^IBCEF(IBXIEN,1))!($$INSTOUT^IBCEF(IBIFN))) S IBXDATA=$P($G(^DGCR(399,IBXIEN,\"U\")),U,8) S:'IBXDATA IBXDATA=9\n", "", "\nThe type of admission (if an inpatient type bill) for bill entry IBXIEN.\nIf none found on the bill, asssume 9.\n
\n\n"], ["N-UB-04 SERVICE LINE (EDI)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=\"\" I $$FT^IBCEF(IBXIEN)=3 K:$$INSPRF^IBCEF(IBXIEN)=1 IBXSAVE(\"DATE\") S:'$$INPAT^IBCEF(IBXIEN,1) IBXSAVE(\"DATE\")=$$SERVDT^IBCEF(IBXIEN,8,1) D HOS^IBCEF2(IBXIEN)\n", "", "\nThe data to be included in the institutional service claim segment for\nbill entry IBXIEN. Format is revenue code pointer^procedure code pointer^\nunit charge^units^total charge^total uncovered charge^form locator 49^\nien of revenue code multiple^iens of modifiers for the CPT code\nData is returned in an array IBXDATA(n) and IBXSAVE("DATE")=service date\nfor outpatient institution charges\n\n\n"], ["N-SOURCE OF ADMISSION", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=+$P($G(^DGCR(399,IBXIEN,\"U\")),U,9) S:'$$INPAT^IBCEF(IBXIEN,1)&'IBXDATA IBXDATA=2 S:'IBXDATA IBXDATA=9\n", "", "\nThe source of admission for bill entry IBXIEN. Default for outpatient\nis 2 (CLINIC REFERRAL), for inpatient it's 9 (UNKNOWN).\n
\n\n"], ["N-DISCHARGE DATE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D DISDT^IBCEF2(IBXIEN)\n", "", "\nFOR INPATIENT BILLS: the discharge date for bill entry IBXIEN. If no PTF\ndischarge date found on the bill, use NON-VA DISCHARGE DATE on bill.\n \nFOR OUTPATIENT BILLS: use event date to check for admission covering that\ndate. If any, use its DISCHARGE DATE.\n
\n\n"], ["N-BILL REMARKS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "D REMARKS^IBCEF21(IBXIEN)\n", "", "\nIncludes remarks to appear on every form from the IB site parameters file\nfor all bills, the bill comment on the bill entry IBXIEN, and the list of\nProsthetics on the bill. Data is returned in an array IBXDATA(1-n).\n
\n\n"], ["N-ATT/REND PHYSICIAN NAME", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ,IBT S IBT=$S($$FT^IBCEF(IBXIEN)=2:3,$$FT^IBCEF(IBXIEN)=7:3,1:4) D GETPRV^IBCEU(IBXIEN,IBT,.IBZ) S IBXDATA=$P($G(IBZ(IBT,1)),U)_U_$P($G(IBZ(IBT,1)),U,3)_U_$P($G(IBZ(IBT,1)),U,4)\n", "", "\nThe name of the attending (inpatient) or rendering (outpatient) physician\nfor bill entry IBXIEN. inpatient type=4, outpatient=3\n1st '^'-piece is name, 2nd is new person file ien, 3rd is credentials\n
\n\n"], ["N-OTHER PHYSICIAN", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ D GETPRV^IBCEU(IBXIEN,9,.IBZ) S IBXDATA=$P($G(IBZ(9,1)),U) I IBXDATA=\"\" S IBXDATA=$P($G(^DGCR(399,IBXIEN,\"U1\")),U,14)\n", "", "\nThe physician name for the OTHER function provider or if none, the id in\nfield 214 (FORM LOCATOR 93) of the Bill/Claims file for bill entry IBXIEN.\n
\n\n"], ["N-ADMITTING DIAGNOSIS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=+$G(^DGCR(399,IBXIEN,\"U2\")),IBXDATA=$S(IBXDATA:$P($$ICD9^IBACSV(+IBXDATA,$$BDATE^IBACSV(IBXIEN)),U),1:\"\")\n", "", "\nThe admitting diagnosis for bill entry IBXIEN.\n
\n\n"], ["N-DIAGNOSES", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBNDXX,IBDXX D SET^IBCSC4D(IBXIEN,.IBDXX,.IBNDXX) S IBNDXX=0 F S IBNDXX=$O(IBNDXX(IBNDXX)) Q:'IBNDXX S IBXDATA(IBNDXX)=+IBNDXX(IBNDXX)_U_$G(IBDXX(+IBNDXX(IBNDXX))) K ^TMP(\"IBXSAVE\",$J,\"DX\",IBXIEN)\n", "", "\nThe array of diagnoses for bill entry IBXIEN. Principal diagnosis is in\nIBXDATA(1). Data is in internal (pointer value) format.\nArray ^TMP("IBXSAVE",$J,"DX",ib diagnosis file ptr (file 362.3))=ctr is used\nto determine the associated diagnosis positional pointer (box 24E on HCFA\n1500). Data is returned in an array IBXDATA(1-n).\n\n\n"], ["N-CONDITION RELATED TO EMPLOY", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "X \"N Z,Z1 S Z=0 F S Z=$O(^DGCR(399,IBXIEN,\"\"CC\"\",Z)) Q:'Z S Z1=+$G(^(Z,0)),Z1=$P($G(^DGCR(399.1,+Z1,0)),U,2) I Z1=\"\"02\"\" S IBXDATA=1 Q\" I '$G(IBXDATA),$$OCC^IBCEF1(IBXIEN,1) S IBXDATA=1\n", "", "\nIf any condition codes are 02, this field is 1 (yes) for bill entry IBXIEN.\nIf no 02 condition codes, check occurrence codes for OCCUR RELATED TO = 1.\n
\n\n"], ["N-CONDITION RELATED TO AUTO", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "GROUP ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N Z S Z=$$OCC^IBCEF1(IBXIEN,2) I Z S IBXDATA=Z\n", "", "\nCheck occurrence codes for OCCUR RELATED TO = 2 for bill entry IBXIEN. If\nany, field is returned as 1^state code pointer.\n
\n\n"], ["N-CONDITION RELATED TO OTH ACC", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=\"\" I $$OCC^IBCEF1(IBXIEN,3) S IBXDATA=1\n", "", "\nCheck occurrence codes for OCCUR RELATED TO = 3 for bill entry IBXIEN.\nFlag is returned as 1 if this condition is TRUE.\n
\n\n"], ["N-PATIENT STATUS", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "DISCHARGE STATUS:CODE\n", "INTERNAL\n", "", "", "", "\nThe discharge status for the patient for bill entry IBXIEN.\n
\n\n"], ["N-SIMILAR ILLNESS DATE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "N IBZ S IBXDATA=$$EVENT^IBCF22(IBXIEN,.IBXSAVE,,.IBZ) I $D(IBZ) M IBXSAVE(\"DATE\")=IBZ\n", "", "\nFileman formatted date. The data for box 15 on HCFA-1500 for bill entry\nIBXIEN. Check first for occurrence codes for illness date, or for accident\ndate or for last menstrual period, then event date on bill. When one of\nthese is found, use it.\n
\n\n"], ["N-OTH CLAIM QUAL (HCFA 1500)", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$P($G(^DGCR(399,IBXIEN,\"U4\")),U,2) S IBXDATA=$S(IBXDATA]\"\":\"Y4\",1:\"\")\n", "", "\nThis is the Qualifier for the Other Claim ID. It will always be "Y4" if \nthere is a Property Casualty claim number.\n
\n\n"], ["N-DATE OF CURRENT ILLNESS", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "EVENT DATE\n", "INTERNAL\n", "", "", "", "\nFileman formatted date. The data for box 14 on HCFA-1500 for bill entry\nIBXIEN. This data element has been replaced by N-EVENT DATE.\n
\n\n"], ["N-DATE UNABLE TO WORK FROM", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "UNABLE TO WORK FROM\n", "INTERNAL\n", "", "", "", "\nThe internal date for unable to work from for bill entry IBXIEN.\n
\n\n"], ["N-DATE UNABLE TO WORK TO", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "UNABLE TO WORK TO\n", "INTERNAL\n", "", "", "", "\nThe internal date for unable to work to for bill entry IBXIEN.\n
\n\n"], ["N-TOTAL CHARGES", "NATIONAL,NO EDIT\n", "NON-MULTIPLE FILEMAN FIELD\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "TOTAL CHARGES\n", "INTERNAL\n", "", "", "", "\nThe total charges on the bill for bill entry IBXIEN.\n
\n\n"], ["N-BILLING PROVIDER", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$B^IBCEF79(IBXIEN)\n", "", "\nThis data element determines the billing provider and service facility \n "" if the service facility is blank - when there is no service\n facility\n [4] service facility IEN - either an IEN to file 4 or to file 355.93\n or "" if the service facility is blank\ninformation as defined with IB patch 400.\nThis function returns a string in the following format:\n [1] billing provider Institution file pointer (IEN to file 4) or "0"\n if the billing provider cannot be determined\n [2] billing provider name (.01 field in file 4) or Error reason why\n the billing provider cannot be determined - used when piece [1]=0\n [3] 0 if the service facility is a VA institution in file 4\n 1 if the service facility is a non-VA facility in file 355.93\n
\n\n"], ["N-NON-INSTITUTIONAL CLAIM TYPE", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=\"\" I $$FT^IBCEF(IBXIEN)=2!($$FT^IBCEF(IBXIEN)=7) S IBXDATA=$S($O(^IBA(362.4,\"AIFN\"_IBXIEN,0)):\"RX\",1:\"MD\")\n", "", "\nIf an outpatient bill-'MD'; if a prescription bill-'RX' for bill entry\nIBXIEN.\n
\n\n"], ["N-BILL SUBMISSION STATUS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$S('$$NEEDMRA^IBEFUNC(IBXIEN):\"00\",$P($G(^DGCR(399,IBXIEN,\"S\")),U,12)'=\"\":\"00\",1:\"15\")\n", "", "\nIf bill not being submitted for MRA and FIRST PRINTED has a value for bill\nentry IBXIEN, this is a resubmission ('15'), otherwise, it is the original\nbill ('00').\n\n\n"], ["N-PATIENT EMPLOYMENT STATUS", "NATIONAL,NO EDIT\n", "EXTRACTED VIA CODE\n", "INDIVIDUAL ELEMENT\n", "BILL/CLAIMS\n", "", "", "", "S IBXDATA=$$EMPSTAT^IBCEF(IBXIEN,\"v\")\n", "", "\nThe employment status code for the patient for bill entry IBXIEN.\n
\n\n"]]}