©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
LA7VORM1 ;VA/DALOI/DLR - LAB ORM (Order) message builder ; 13-Aug-2013 09:09 ; MKK
Source file <LA7VORM1.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Lab Instruments | 7 | ($$CHKTST,SEUP)^LA7SMU ($$BLG,BUILDSEG,FILE6249,FILESEG,GEN,STARTMSG)^LA7VHLU ($$FNDOLOC,$$NVAF)^LA7VHLU2 ($$ORC1,$$ORC12,$$ORC17,$$ORC2,$$ORC4,$$ORC7,$$ORC9)^LA7VORC OBR^LA7VORM3 (PID,PV1)^LA7VPID ($$ACCT,DG1,GAR,INS,OBX)^LA7VQINS |
| VA Fileman | 3 | FILE^DIE CLEAN^DILF $$GET1^DIQ |
| Kernel | 2 | $$NOW^XLFDT $$ID^XUAF4 |
| Lab Service | 1 | (DEM,KVAR)^LRX |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Lab Instruments | 5 | LA7CHDR LA7HDR LA7HDR1 LA7POC LA7SMP0 |
| IHS Changes To Lab | 1 | BLRAG09E |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PV1 | ; Location information
; DoD/CHCS facilities do not use PV1 segment |
|
| GETORD(DF) | ;-- get the order number
|
|
| UPDT6249 | ; update entry in 62.49
|
|
| GT1(ORD) | ;-- handle the guarantor
|
|
| BUILD(LA7628) | ;
; Call with LA7628 = ien of entry in file #62.8 Shipping Manifest |
|
| PID | ; Patient identification
|
|
| STARTMSG | ; Create/initialize HL message
|
|
| DG1(ORD) | ;-- handle the diagnosis
|
|
| EXIT | ;
|
|
| GETORDA(UID) | ;-- get the order number
|
|
| BLG | ; Billing segment
|
|
| OBX(ORD,UID) | ;-- build the obx ask at order questions
|
|
| IN1(ORD) | ;-- handle insurance
|
|
| ORC | ;Order Control
|
|
| SENDMSG | ; File HL7 message with HL and LAB packages.
|
| Name | Field # of Occurrence |
|---|---|
| FILE^DIE | SENDMSG+11, UPDT6249+20 |
| CLEAN^DILF | SENDMSG+12, UPDT6249+21 |
| $$GET1^DIQ | BUILD+21, BUILD+27, BUILD+29, BUILD+32, BUILD+34, ORC+27 |
| $$CHKTST^LA7SMU | BUILD+95 |
| SEUP^LA7SMU | SENDMSG+17 |
| $$BLG^LA7VHLU | BLG+6 |
| BUILDSEG^LA7VHLU | ORC+43 |
| FILE6249^LA7VHLU | PID+9, PV1+6, ORC+45, BLG+8 |
| FILESEG^LA7VHLU | PID+8, PV1+5, ORC+44, BLG+7 |
| GEN^LA7VHLU | SENDMSG+15 |
| STARTMSG^LA7VHLU | STARTMSG+4 |
| $$FNDOLOC^LA7VHLU2 | ORC+37 |
| $$NVAF^LA7VHLU2 | BUILD+20, BUILD+26, BUILD+31 |
| $$ORC1^LA7VORC | ORC+5 |
| $$ORC12^LA7VORC | ORC+38 |
| $$ORC17^LA7VORC | ORC+41 |
| $$ORC2^LA7VORC | ORC+9 |
| $$ORC4^LA7VORC | ORC+12 |
| $$ORC7^LA7VORC | ORC+30 |
| $$ORC9^LA7VORC | ORC+33, ORC+34 |
| OBR^LA7VORM3 | BUILD+96 |
| PID^LA7VPID | PID+3 |
| PV1^LA7VPID | PV1+4 |
| $$ACCT^LA7VQINS | DG1+1, GT1+1 |
| DG1^LA7VQINS | DG1+2 |
| GAR^LA7VQINS | GT1+2 |
| INS^LA7VQINS | IN1+4 |
| OBX^LA7VQINS | OBX+1 |
| DEM^LRX | PID+2 |
| KVAR^LRX | EXIT+7 |
| $$NOW^XLFDT | SENDMSG+16 |
| $$ID^XUAF4 | BUILD+22, BUILD+28, BUILD+33 |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| 68.04 | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAHM(62.48 - [#62.48] | BUILD+14 |
| ^LAHM(62.49 - [#62.49] | SENDMSG+13, SENDMSG+20, UPDT6249+6 |
| ^LAHM(62.8 - [#62.8] | BUILD+5, BUILD+10, BUILD+47, BUILD+48, BUILD+94, ORC+21 |
| ^LAHM(62.9 - [#62.9] | BUILD+12 |
| ^LR - [#63] | PID+1 |
| ^LRO(68 - [#68] | BUILD+82, BUILD+85, BUILD+87, BUILD+88, GETORDA+2, GETORDA+5 |
| ^LRO(69 - [#69] | BUILD+70, BUILD+74 |
| ^TMP("HLS" | SENDMSG+5 |
| ^TMP("LA7628" | BUILD+45!, BUILD+51*, BUILD+53*, BUILD+58, BUILD+67, BUILD+80, BUILD+92, EXIT+1!, ORC+18, GETORD+2 |
| Name | Line Occurrences |
|---|---|
| $$GETORDA | BUILD+53 |
| BLG | BUILD+97, BUILD+98, BUILD+100 |
| DG1 | BUILD+96 |
| EXIT | BUILD+7, BUILD+15, BUILD+58, BUILD+63 |
| GT1 | BUILD+76, BUILD+77, BUILD+89 |
| IN1 | BUILD+76, BUILD+77, BUILD+89 |
| OBX | BUILD+96 |
| ORC | BUILD+96 |
| PID | BUILD+76, BUILD+77, BUILD+89 |
| PV1 | BUILD+76, BUILD+77, BUILD+89 |
| SENDMSG | BUILD+97, BUILD+98, BUILD+101, BUILD+103 |
| STARTMSG | BUILD+62, BUILD+69, BUILD+77, BUILD+89 |
| UPDT6249 | SENDMSG+18 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | PID+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> CNT | IN1+3* |
| DF | GETORD~, GETORD+2 |
| DFN | EXIT+2!, PID+1*, GT1+2 |
| DIC | EXIT+2! |
| ECNT | BUILD+3~, BUILD+9* |
| EID | EXIT+2! |
| FDA | SENDMSG+6~, UPDT6249+2~ |
| FDA(1 | SENDMSG+7*, SENDMSG+8*, SENDMSG+9*, SENDMSG+10*, UPDT6249+4*, UPDT6249+5*, UPDT6249+7*, UPDT6249+8*, UPDT6249+9*, UPDT6249+10* , UPDT6249+11*, UPDT6249+12*, UPDT6249+13*, UPDT6249+14*, UPDT6249+15*, UPDT6249+16*, UPDT6249+18*, UPDT6249+19* |
| GBL | BUILD+3~, BUILD+9*, EXIT+1, STARTMSG+2, PID+8, PV1+5, ORC+44, BLG+7 |
| HL | BUILD+61, BUILD+63, BUILD+67, BUILD+69, BUILD+77, BUILD+89, EXIT+2!, PID+3 |
| HL("APAT" | UPDT6249+7 |
| HL("MTN" | UPDT6249+13 |
| HL("PID" | UPDT6249+14 |
| HL("SAF" | UPDT6249+12 |
| HL("SAN" | UPDT6249+11 |
| HL("VER" | UPDT6249+15 |
| HLCOMP | EXIT+2! |
| HLFS | EXIT+2! |
| HLQ | EXIT+2! |
| HLSUB | EXIT+2! |
| I | BUILD+85*, BUILD+87*, BUILD+88, BUILD+93~, BUILD+94*, ORC+19~, ORC+21*, GETORDA+5* |
| IN1 | IN1+2! |
| INT | EXIT+2! |
| LA | EXIT+6! |
| LA7101 | BUILD+3~ |
| LA760 | EXIT+3!, ORC+19~, ORC+26*, ORC+27 |
| LA76205 | ORC+2~, ORC+15*, ORC+28*, ORC+29*, ORC+30 |
| >> LA76248 | BUILD+13*, BUILD+14, SENDMSG+7, UPDT6249+4 |
| >> LA76248(0 | BUILD+14*, BUILD+15, BUILD+41 |
| >> LA76249 | STARTMSG+3*, STARTMSG+4, SENDMSG+7, SENDMSG+8, SENDMSG+9, SENDMSG+10, SENDMSG+13, SENDMSG+20, UPDT6249+4, UPDT6249+5 , UPDT6249+6, UPDT6249+7, UPDT6249+8, UPDT6249+9, UPDT6249+10, UPDT6249+11, UPDT6249+12, UPDT6249+13, UPDT6249+14, UPDT6249+15 , UPDT6249+16, UPDT6249+18, UPDT6249+19, PID+9, PV1+6, ORC+45, BLG+8 |
| LA7628 | BUILD~, BUILD+5, BUILD+10, BUILD+47, BUILD+48, BUILD+94, BUILD+95, EXIT+3!, ORC+21 |
| LA7628(0 | BUILD+10*, BUILD+11, SENDMSG+3, SENDMSG+17, ORC+12 |
| LA762801 | BUILD+3~, BUILD+46*, BUILD+47*, BUILD+48, BUILD+51, BUILD+53, BUILD+55!, BUILD+90*, BUILD+92*, BUILD+94 , BUILD+95, EXIT+3!, ORC+2~, ORC+16*, ORC+18*, ORC+21 |
| LA762801( | BUILD+94*, ORC+21* |
| LA762801(0 | ORC+26 |
| LA762801(2 | ORC+22, ORC+23, ORC+24 |
| LA7629 | BUILD+3~, BUILD+11*, BUILD+12, EXIT+3! |
| LA7629(0 | BUILD+12*, BUILD+13, BUILD+17, BUILD+18, BUILD+21, BUILD+22, BUILD+23, BUILD+26, BUILD+27, BUILD+28 , BUILD+29, BUILD+31, BUILD+32, BUILD+33, BUILD+34, ORC+41, BLG+5, BLG+6 |
| LA76802 | BUILD+81~ |
| LA76802( | BUILD+85*, ORC+9, GETORDA+5*, GETORDA+6 |
| LA76802(0 | ORC+33, ORC+34, ORC+38 |
| LA76802(3 | ORC+34 |
| LA76802(5 | BUILD+88* |
| LA7BLG | BLG+3~, BLG+7, BLG+8 |
| LA7BLG(0 | BLG+6* |
| LA7DATA | SENDMSG+2~, SENDMSG+16*, SENDMSG+17, ORC+2~, ORC+43, ORC+44, ORC+45 |
| >> LA7DGQ | BUILD+79*, BUILD+99* |
| LA7DUR | ORC+2~, ORC+15*, ORC+23*, ORC+30 |
| LA7DURU | ORC+2~, ORC+15*, ORC+24*, ORC+30 |
| LA7ECH | EXIT+4!, PID+6, PV1+4, ORC+9, ORC+12, ORC+30, ORC+38, ORC+41, BLG+6 |
| LA7ER | SENDMSG+6~, UPDT6249+2~ |
| >> LA7ERR | UPDT6249+9 |
| LA7FS | EXIT+4!, PID+6, PID+7, PV1+4, ORC+9, ORC+12, ORC+30, ORC+38, ORC+41, ORC+43 , BLG+6 |
| >> LA7GUAR | BUILD+79*, BUILD+99* |
| LA7HDR | EXIT+4! |
| LA7ID | SENDMSG+2~, SENDMSG+3*, SENDMSG+10, UPDT6249+10 |
| LA7MID | EXIT+4!, UPDT6249+16, UPDT6249+17, UPDT6249+18, UPDT6249+19 |
| LA7NVAF | BUILD+3~, BUILD+20*, BUILD+21, BUILD+22, PID+5, PV1+2 |
| LA7OBR | BUILD+93~ |
| LA7OBRSN | BUILD+66*, BUILD+90*, EXIT+4! |
| LA7OBXSN | EXIT+4! |
| LA7ORC | BUILD+81~ |
| >> LA7ORD | BUILD+66*, BUILD+67*, BUILD+70, BUILD+71, BUILD+76, BUILD+77, BUILD+80, BUILD+89, BUILD+92, BUILD+96 , ORC+18 |
| LA7ORDD | BUILD+68~, BUILD+72*, BUILD+74 |
| LA7ORDI | BUILD+68~, BUILD+70*, BUILD+71, BUILD+72, BUILD+73 |
| LA7ORI | BUILD+68~, BUILD+73*, BUILD+74 |
| LA7PID | BUILD+68~, PID+3, PID+8, PID+9 |
| LA7PID(0 | PID+6, PID+7* |
| LA7PIDSN | BUILD+3~, BUILD+66*, STARTMSG+3*, PID+3 |
| LA7PV1 | BUILD+68~, PV1+4, PV1+5, PV1+6 |
| LA7QUID | GETORD+1~, GETORD+2*, GETORD+3, GETORD+4 |
| >> LA7SMSG | BUILD+41*, BUILD+50, BUILD+52, BUILD+61, BUILD+69, BUILD+76, BUILD+77, BUILD+89, BUILD+97, BUILD+98 , BUILD+100, BUILD+101, BUILD+103 |
| >> LA7UID | BUILD+78*, BUILD+80*, BUILD+82, BUILD+83, BUILD+92, BUILD+96, ORC+18, ORC+37 |
| LA7V | EXIT+4! |
| LA7V("CLNT" | BUILD+27*, BUILD+28*, BUILD+29* |
| LA7V("HOST" | BUILD+32*, BUILD+33*, BUILD+34* |
| LA7V("INST" | BUILD+17*, BUILD+18, BUILD+20 |
| LA7V("NON" | BUILD+23*, BUILD+24 |
| LA7VIEN | EXIT+4! |
| LA7X | BUILD+3~, BUILD+26*, BUILD+27, BUILD+28, BUILD+31*, BUILD+32, BUILD+33, ORC+2~, ORC+37*, ORC+38 |
| LAEVNT | EXIT+4! |
| LRAA | BUILD+84*, BUILD+85, BUILD+87, BUILD+88, EXIT+5!, ORC+27, GETORDA+4*, GETORDA+5 |
| LRACC | EXIT+5! |
| LRAD | BUILD+84*, BUILD+85, BUILD+87, BUILD+88, EXIT+5!, ORC+27, GETORDA+4*, GETORDA+5 |
| LRAN | BUILD+84*, BUILD+85, BUILD+87, BUILD+88, EXIT+5!, ORC+27, GETORDA+4*, GETORDA+5 |
| LRDFN | BUILD+66*, BUILD+74*, EXIT+5!, PID+1, PID+3, PV1+4 |
| >> LRDPF | PID+1* |
| LRI | BUILD+66*, EXIT+5! |
| LTST | EXIT+6! |
| NLT | EXIT+6! |
| NLTIEN | EXIT+6! |
| NTST | BUILD+3~ |
| ORC | ORC+2~, ORC+43 |
| ORC(0 | ORC+4* |
| ORC(1 | ORC+5* |
| ORC(12 | ORC+38* |
| ORC(17 | ORC+41* |
| ORC(2 | ORC+9* |
| ORC(4 | ORC+12* |
| ORC(7 | ORC+30* |
| ORC(9 | ORC+33*, ORC+34* |
| ORD | DG1~, DG1+1, DG1+2, GT1~, GT1+1, IN1~, IN1+4, OBX~, OBX+1 |
| ORUID | BUILD+3~ |
| PCNT | EXIT+6! |
| RUID | EXIT+6! |
| SHP | BUILD+3~ |
| SHPC | BUILD+3~ |
| SITE | BUILD+3~, BUILD+20*, BUILD+21*, BUILD+22*, BUILD+24*, STARTMSG+4, SENDMSG+3 |
| SNIEN | EXIT+6! |
| TIEN | EXIT+6! |
| U | BUILD+11, BUILD+17, BUILD+18, BUILD+21, BUILD+22, BUILD+23, BUILD+26, BUILD+27, BUILD+28, BUILD+29 , BUILD+31, BUILD+32, BUILD+33, BUILD+34, ORC+41, DG1+1, GT1+1, BLG+5 |
| UID | GETORDA~, GETORDA+2, GETORDA+3, OBX~, OBX+1 |
| X | BUILD+81~, BUILD+82*, BUILD+83, BUILD+84, EXIT+6!, PID+6*, PID+7, ORC+27*, ORC+28, ORC+29 , GETORDA+1~, GETORDA+2*, GETORDA+3, GETORDA+4 |
| X(0 | BUILD+48*, BUILD+49, BUILD+51, BUILD+53 |
| Y | EXIT+6! |
| >> ZTQUEUED | EXIT+8 |
| >> ZTREQ | EXIT+8* |