©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
LA7VQINS ;VA/DALOI/DLR - LAB ORM (Order) message builder ; 17-Oct-2014 09:22 ; MKK
Source file <LA7VQINS.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Lab Instruments | 3 | (BUILDSEG,FILE6249,FILESEG)^LA7VHLU $$OBX1^LA7VOBX $$ACCT^LA7VQINS |
| DRG Grouper | 1 | $$ICDDX^ICDEX |
| Health Level Seven | 1 | $$HLNAME^HLFNC |
| IHS Changes To Lab | 1 | $$DIAGICD^BLRICDU0 |
| IHS Patient Registration | 1 | ($$GETMCR,$$GETRRE)^AGUTL |
| VA Fileman | 1 | ($$GET1,GETS)^DIQ |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Lab Instruments | 4 | LA7SMP LA7VORM1 LA7VPID LA7VQINS |
| IHS Changes To Lab | 2 | BLRAG09D BLRAG09F |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| WC(INS,IEN,ST) | ;-- workmans comp
|
|
| ACCT(OR) | ;-- get the account number and billing type string
|
|
| MCD(IEN,ST) | ;medicaid
|
|
| RR(IEN,PE,ST) | ;-- get railroad insurance
|
|
| DGP(ORI) | ;
|
|
| IN1(IN1) | ;
|
|
| OBX(ORD,UI) | ;-- build the OBX segment for ask at order questions
|
|
| PI(IEN,PE,ST) | ;private insurance
|
|
| INS(STORE,OR) | ;Handle insurance
|
|
| MCR(IEN,PE,ST) | ;medicare.
|
|
| AO(UID) | ;-- print ask at order questions/responses
|
|
| GT1(GT1) | ;
|
|
| ADD(FILE) | ;
|
|
| SFMAP(MNE) | ;-- get sliding fee scale if mnemonic is Labcorp sliding scale
|
|
| PRT(UID) | ;EP -- print out insurance information on manifest
|
|
| GAR(DFN,REL,PAT,ST) | ;SELF AS GUARANTOR
|
|
| DG1(UID) | ;
|
|
| GEN | ;-- generate the OBX segment
|
|
| WR(CAP,VAL,TAB,NL) | ;-- write out the line
|
| Name | Field # of Occurrence |
|---|---|
| $$GETMCR^AGUTL | MCR+15 |
| $$GETRRE^AGUTL | RR+15 |
| $$DIAGICD^BLRICDU0 | DGP+8 |
| $$GET1^DIQ | PRT+7, PRT+10, PRT+13 |
| GETS^DIQ | MCR+3, MCR+4, MCR+6, MCD+4, MCD+6, PI+4, PI+6, WC+6, WC+7, WC+10 , WC+11, RR+3, RR+4, RR+6, GAR+8 |
| $$HLNAME^HLFNC | MCR+12, MCR+13, MCD+12, PI+15, WC+20, RR+12, RR+13, GAR+9 |
| $$ICDDX^ICDEX | DG1+10 |
| BUILDSEG^LA7VHLU | GEN+10 |
| FILE6249^LA7VHLU | IN1+7, GT1+6, DG1+13, GEN+12 |
| FILESEG^LA7VHLU | IN1+6, GT1+5, DG1+12, GEN+11 |
| $$OBX1^LA7VOBX | GEN+5 |
| $$ACCT^LA7VQINS | MCR+22, MCD+21, PI+19, WC+24, RR+22 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GETS^DIQ |
| ^AUPNMCR - [#9000003] | GETS^DIQ |
| ^AUPN3PPH - [#9000003.1] | GETS^DIQ |
| 9000003.11 | GETS^DIQ |
| ^AUPNMCD - [#9000004] | GETS^DIQ |
| ^AUPNRRE - [#9000005] | GETS^DIQ |
| 9000005.11 | GETS^DIQ |
| ^AUPNWC - [#9000042] | GETS^DIQ |
| 9000042.11 | GETS^DIQ |
| ^BLRRLO - [#9009026.3] | GET1^DIQ |
| ^AUTNINS - [#9999999.18] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNGUAR - [#9000043] | GAR+6 |
| ^AUPNPRVT - [#9000006] | PI+20 |
| ^AUTNEGRP - [#9999999.77] | MCR+18, MCD+20, PI+12, WC+17, RR+18 |
| ^AUTTRLSH - [#9999999.36] | MCD+15, MCD+16, PI+20 |
| ^BLRRLO - [#9009026.3] | INS+5, INS+7, INS+9, INS+10, DG1+5, DG1+7, ACCT+4, PRT+15, PRT+20, PRT+22 , DGP+3, DGP+5, AO+5, AO+6, OBX+5, OBX+6 |
| ^BLRRLO("ACC" | INS+3, PRT+5, AO+2 |
| ^BLRRLO("B" | INS+2, DG1+3, ACCT+2, OBX+2 |
| ^BLRSITE - [#9009029] | PRT+3 |
| ^DIC(5 - [#5] | ADD+8 |
| ^ICD9 - [#80] | DG1+8, DGP+6 |
| ^ICDS(0 | DG1+10 |
| ^TMP($J | PRT+8, PRT+9* |
| Name | Line Occurrences |
|---|---|
| $$ADD | MCR+20, MCR+21, MCD+9, MCD+22, PI+9, PI+17, WC+14, WC+22, RR+20, RR+21 , GAR+10 |
| DGP | PRT+54 |
| GAR | PRT+11 |
| GEN | OBX+16 |
| GT1 | GAR+16 |
| IN1 | INS+8, MCR+24, MCD+24, PI+24, WC+30, RR+24 |
| MCD | INS+14, PRT+26 |
| MCR | INS+17, INS+20, PRT+29, PRT+32 |
| PI | INS+27, PRT+39 |
| RR | INS+23, PRT+35 |
| WR | PRT+13, PRT+14, PRT+16, PRT+17, PRT+18, PRT+40, PRT+42, PRT+43, PRT+44, PRT+45 , PRT+46, PRT+47, PRT+48, PRT+49, PRT+50, PRT+51, PRT+52, DGP+9, DGP+10, AO+15 , AO+17 |
| Name | Field # of Occurrence |
|---|---|
| ^( | GAR+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACC | AO+4~, AO+7*, AO+8, OBX+4~, OBX+7*, OBX+8 |
| ACCT | ACCT+1~, ACCT+5*, ACCT+7 |
| ANS | AO+4~, AO+13*, AO+17, OBX+4~, OBX+10*, OBX+15 |
| BDA | INS+1~, INS+9*, INS+10, DG1+1~, DG1+5*, DG1+7, PRT+20*, PRT+22, DGP+1~, DGP+3* , DGP+5 |
| BTP | ACCT+1~, ACCT+6*, ACCT+7, PRT+1~, PRT+10*, PRT+14 |
| CAP | WR~, WR+2 |
| CNT | INS+6*, MCR+1*, MCD+1*, PI+1*, WC+2*, RR+1*, IN1+3, DG1+1~, DG1+2*, DG1+6* , DG1+11, PRT+1~, PRT+19*, PRT+21, PRT+55*, DGP+1~, DGP+2*, DGP+4* |
| DATA | ACCT+1~, ACCT+4*, ACCT+5, ACCT+6, AO+4~, AO+6*, AO+7, AO+12, AO+13, AO+14 , OBX+4~, OBX+6*, OBX+7, OBX+9, OBX+10, OBX+11 |
| DFN | PI+20, WC+9, GAR~, GAR+3, GAR+4, GAR+6*, GAR+7, PRT+11 |
| DFN1 | GAR+3~*, GAR+6 |
| DFNS | WC+1!, WC+9*, WC+11, WC+28!, PRT+2! |
| DT | MCR+15, RR+15, DG1+10 |
| DUZ(2 | PRT+3 |
| DX | DG1+1~, DG1+7*, DG1+8, DG1+10, DGP+1~, DGP+5*, DGP+6, DGP+8 |
| DXE | DG1+1~, DG1+8*, DG1+11, DGP+1~, DGP+6*, DGP+9 |
| DXEE | DGP+1~, DGP+8*, DGP+10 |
| >> EINS | MCR+4*, RR+4* |
| FILE | ADD~, ADD+2*, ADD+4, ADD+5, ADD+7, ADD+8 |
| >> GBL | IN1+6, GT1+5, DG1+12, GEN+11 |
| GT1 | GAR+5!, GAR+16, GT1~ |
| GT1( | GT1+4 |
| GT1(12 | GAR+12* |
| GT1(13 | GAR+13* |
| GT1(17 | GAR+14* |
| GT1(4 | GAR+9*, PRT+16, PRT+49 |
| GT1(6 | GAR+10*, PRT+18, PRT+51 |
| GT1(7 | GAR+11*, GT1+3*, PRT+17, PRT+50 |
| HEAD | AO+1~, AO+9, AO+10*, AO+18! |
| I | ADD+6~, ADD+7*, IN1+5*, GAR+6*, GT1+4* |
| ICDT | DG1+9~, DG1+10*, DG1+11 |
| IEIEN | INS+1~, INS+13*, INS+16*, INS+17, INS+19*, INS+20, INS+22*, INS+23, INS+26*, INS+27 , PRT+1~, PRT+25*, PRT+28*, PRT+29, PRT+31*, PRT+32, PRT+34*, PRT+35, PRT+38*, PRT+39 |
| IEN | MCR~, MCR+2, MCR+15, MCD~, MCD+3, PI~, PI+3, WC~, WC+4, WC+5 , RR~, RR+2, RR+15 |
| IENS | MCR+2~*, MCR+3, MCR+4, MCR+5, MCR+12, MCR+13, MCR+17, MCR+19, MCD+2~, MCD+3* , MCD+4, MCD+5, MCD+12, MCD+14, MCD+18, MCD+19, PI+2~, PI+3*, PI+4, PI+5 , PI+11, PI+13, PI+15, PI+18, WC+3~, WC+4*, WC+7, WC+16, WC+18, WC+23 , RR+2~*, RR+3, RR+4, RR+5, RR+12, RR+13, RR+17, RR+19, ADD+7, ADD+8 |
| IIEN | INS+1~, INS+11*, INS+14, INS+17, INS+20, INS+23, PRT+1~, PRT+23*, PRT+26, PRT+29 , PRT+32, PRT+35 |
| >> IN | WC+5*, WC+6, WC+20 |
| >> IN( | MCR+7, MCR+8, MCR+9, MCR+16, MCR+17, MCD+7, MCD+8, MCD+10, PI+5, PI+7 , PI+8, PI+10, PI+11, PI+13, PI+14, PI+15, PI+18, WC+12, WC+13, WC+15 , WC+16, WC+18, WC+19, WC+23, RR+7, RR+8, RR+9, RR+16, RR+17, ADD+7 , ADD+8 |
| >> IN(2 | GAR+9, GAR+11, GAR+13, GAR+14 |
| >> IN(9000003 | MCR+5, MCR+12, MCR+13, MCR+19 |
| >> IN(9000004 | MCD+5, MCD+12, MCD+14, MCD+18, MCD+19 |
| >> IN(9000005 | RR+5, RR+12, RR+13, RR+19 |
| >> IN(9000042 | WC+20 |
| IN1 | INS+8, MCR+24, MCD+24, PI+24, WC+30, RR+24, IN1~ |
| IN1( | IN1+5 |
| IN1("18E" | MCD+16*, PI+22*, WC+27*, PRT+47 |
| IN1(10 | MCR+19*, PI+13*, WC+18*, RR+19* |
| IN1(16 | MCR+10*, MCD+11*, PI+14*, WC+19*, RR+10* |
| IN1(17 | MCR+12*, MCR+13*, MCD+12*, PI+15*, WC+20*, RR+12*, RR+13*, PRT+46 |
| IN1(18 | MCR+11*, MCD+13*, MCD+15*, MCD+17*, PI+20*, PI+21*, PI+22, WC+26*, WC+27, RR+11* |
| IN1(20 | MCR+21*, MCD+22*, PI+17*, WC+22*, RR+21*, PRT+48 |
| IN1(37 | MCR+15*, MCD+18*, PI+18*, WC+23*, RR+15*, PRT+52 |
| IN1(4 | MCR+7*, MCR+16*, MCD+7*, PI+7*, WC+12*, RR+7*, RR+16*, PRT+40 |
| IN1(48 | INS+7*, MCR+22*, MCD+21*, PI+19*, WC+24*, RR+22* |
| IN1(5 | MCR+8*, MCD+8*, PI+8*, WC+13*, RR+8*, PRT+43 |
| IN1(6 | MCR+20*, MCD+9*, PI+9*, WC+14*, RR+20*, PRT+45 |
| IN1(7 | MCR+9*, MCD+10*, PI+10*, WC+15*, RR+9*, PRT+44 |
| IN1(9 | MCR+17*, MCR+18*, MCD+19*, MCD+20*, PI+11*, PI+12*, WC+16*, WC+17*, RR+17*, RR+18* , PRT+42 |
| INS | MCR+5*, MCR+6, MCR+7, MCR+8, MCR+9, MCR+16, MCD+5*, MCD+6, MCD+7, MCD+8 , MCD+10, PI+5*, PI+6, PI+7, PI+8, PI+10, PI+14, WC~, WC+8*, WC+10 , WC+12, WC+13, WC+15, WC+19, RR+5*, RR+6, RR+7, RR+8, RR+9, RR+16 , ADD+7, ADD+8, GAR+1!, GAR+7*, GAR+8, GAR+9, GAR+11, GAR+13, GAR+14, PRT+2! |
| IPIEN | INS+1~, INS+25*, INS+27, PRT+1~, PRT+37*, PRT+39 |
| >> LA76249 | IN1+7, GT1+6, DG1+13, GEN+12 |
| >> LA7BLG | IN1+6, IN1+7, GT1+5, GT1+6, DG1+12, DG1+13 |
| >> LA7BLG(0 | IN1+2!, IN1+3*, IN1+5*, GT1+2*, GT1+4*, DG1+11* |
| LA7DATA | GEN+1~, GEN+10, GEN+11, GEN+12 |
| >> LA7DGQ | DG1+14* |
| >> LA7ECH | MCR+12, MCR+13, MCD+12, PI+15, WC+20, RR+12, RR+13, ADD+7, ADD+8, GAR+9 , PRT+4* |
| >> LA7FS | IN1+3, IN1+5, GT1+2, GT1+4, DG1+11, GEN+10 |
| >> LA7GUAR | GAR+2, GAR+17*, GT1+1 |
| >> LA7LINE | PRT+12, PRT+53 |
| LA7OBX | AO+4~, OBX+4~, GEN+10 |
| LA7OBX(0 | GEN+3* |
| LA7OBX(1 | GEN+5* |
| LA7OBX(2 | OBX+12* |
| LA7OBX(3 | OBX+14* |
| LA7OBX(5 | OBX+15* |
| >> LA7OBXSN | GEN+5 |
| LINE | ADD+3~*, ADD+4*, ADD+5*, ADD+7, ADD+8 |
| MNE | SFMAP~, SFMAP+1, SFMAP+2, SFMAP+3, SFMAP+4, SFMAP+5, SFMAP+6, SFMAP+7, SFMAP+8, SFMAP+9 , SFMAP+10, SFMAP+11, SFMAP+12, SFMAP+13, SFMAP+14, SFMAP+15, SFMAP+16, SFMAP+17, SFMAP+18, SFMAP+19 , SFMAP+20, SFMAP+21, SFMAP+22 |
| NINS | PRT+1~, PRT+3*, PRT+21 |
| NL | WR~, WR+1 |
| ODA | AO+4~, AO+5*, AO+6, OBX+4~, OBX+5*, OBX+6 |
| OR | INS~, INS+2, INS+3, ACCT~, ACCT+2, OBX+1~, OBX+2*, OBX+3, OBX+5, OBX+6 |
| ORD | MCR+22, MCD+21, PI+19, WC+24, RR+22, PRT+1~, PRT+7*, PRT+8, PRT+9, OBX~ , OBX+2 |
| ORI | INS+1~, INS+2*, INS+3*, INS+4, INS+5, INS+7, INS+9, INS+10, DG1+1~, DG1+3* , DG1+4, DG1+5, DG1+7, ACCT+1~, ACCT+2*, ACCT+3, ACCT+4, PRT+1~, PRT+5*, PRT+6 , PRT+7, PRT+10, PRT+13, PRT+15, PRT+20, PRT+22, PRT+54, DGP~, DGP+3, DGP+5 , AO+1~, AO+2*, AO+3, AO+5, AO+6 |
| PAT | GAR~, GAR+4*, GAR+6 |
| PE | MCR~, MCR+4, MCD+14*, MCD+15, MCD+16, PI~, PI+20, RR~, RR+4 |
| QUES | AO+4~, AO+12*, AO+15, AO+16, OBX+4~, OBX+9*, OBX+14 |
| REL | GAR~, GAR+6!, GAR+12 |
| RSC | AO+4~, AO+14*, OBX+4~, OBX+11*, OBX+14 |
| ST | MCR~, MCR+23, MCD~, MCD+23, PI~, PI+23, WC~, WC+29, RR~, RR+23 , GAR~, GAR+15 |
| STORE | INS~, INS+14, INS+17, INS+20, INS+23, INS+27 |
| STR | INS+1~, INS+10*, INS+11, INS+12, INS+13, INS+15, INS+16, INS+18, INS+19, INS+21 , INS+22, INS+24, INS+25, INS+26, PRT+1~, PRT+22*, PRT+23, PRT+24, PRT+25, PRT+27 , PRT+28, PRT+30, PRT+31, PRT+33, PRT+34, PRT+36, PRT+37, PRT+38, PRT+41 |
| TAB | WR~, WR+2 |
| TB | AO+1~, AO+16*, AO+17 |
| U | INS+5, INS+7, MCR+18, MCR+22, MCD+15, MCD+16, MCD+20, MCD+21, PI+12, PI+19 , PI+20, WC+17, WC+24, RR+18, RR+22, ADD+7, ADD+8, DG1+7, DG1+8, DG1+10 , ACCT+5, ACCT+6, ACCT+7, PRT+3, PRT+15, DGP+5, DGP+6, AO+7, AO+12, AO+13 , AO+14, OBX+7, OBX+9, OBX+10, OBX+11, OBX+14 |
| UI | OBX~, OBX+8 |
| UID | DG1~, DG1+3, PRT~, PRT+5, PRT+9, AO~, AO+2, AO+8 |
| VAL | WR~, WR+2 |
| X | ADD+6~*, ADD+7*, ADD+8*, ADD+9 |