©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
BCHHL7F ; IHS/TUCSON/LAB - ADD NEW CHR ACTIVITY RECORDS ; [ 04/28/06 3:21 PM ]
Source file <BCHHL7F.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | ^%DT FILE^DICN (,CHK,FILE)^DIE |
| IHS RPMS CHR System | 2 | PROTOCOL^BCHUADD1 DELETE^BCHUDEL |
| IHS Support HL7 Interfaces | 2 | ^BHLFO ^BHLSETI |
| IHS VA Utilities | 2 | ^XBFMK EN^XBVK |
| Kernel | 2 | $$NOW^XLFDT $$UP^XLFSTR |
| IHS Patient | 1 | KILL^AUPNPAT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MEAS | ;
|
|
| PCCLINK | ;
|
|
| MODIFY | ;
|
|
| FILEMEAS | ; file all tests
|
|
| GETPAT | ;
|
|
| ERRF | ;
|
|
| EDITREC | ;
|
|
| ADD | ;
|
|
| ERRLOG | ;
|
|
| XIT | ;
|
|
| SRVLK | ;
|
|
| POVS | ;
|
|
| PROBLK | ;
|
|
| FILEDMO | ; get patient based on chart number passed, check dob and sex
; if same use IEN, otherwise do not |
|
| MAIN | ;EP - called from GIS interface
|
|
| CHECK | ;
; - in order to file a record into the CHR Module ; - the following field values must be present and valid ; . there must be at least one OBR/OBX combination that is ; not a test and measurement OBR this segment must have a ; health problem code and activity code pair in OBX ; . CHR - provider ID, OBR 32 ; . DATE OF SERVICE - OBR 7 ; . CHR PROGRAM CODE - ZHR 2 ; . ACTIVITY LOCATION - ZHR 3 ; ; check for value and transform into fileable format in separate array ; chr program code in variable BCHPROG, can be 4 slashed |
|
| FILEREC | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | GETPAT+11, ADD+3 |
| KILL^AUPNPAT | XIT+1 |
| PROTOCOL^BCHUADD1 | PCCLINK+3 |
| DELETE^BCHUDEL | MODIFY+3 |
| ^BHLFO | MAIN+2 |
| ^BHLSETI | MAIN+1 |
| FILE^DICN | ADD+3, POVS+6, ERRLOG+5 |
| ^DIE | POVS+13, FILEDMO+11, FILEMEAS+7, ERRLOG+9, ERRLOG+13 |
| CHK^DIE | MEAS+11 |
| FILE^DIE | EDITREC+15 |
| ^XBFMK | ADD+2, POVS+1, POVS+9, POVS+15, FILEDMO+8, FILEMEAS+7, ERRLOG+2, ERRLOG+8, ERRLOG+11 |
| EN^XBVK | MAIN+5, XIT+2 |
| $$NOW^XLFDT | ERRLOG+4 |
| $$UP^XLFSTR | POVS+5 |
| FileNo | Call Tags |
|---|---|
| ^BCHR - [#90002] | Classic Fileman Calls, CHK^DIE |
| ^BCHRPROB - [#90002.01] | Classic Fileman Calls |
| ^BCHHLER - [#90002.32] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPAT("D" | GETPAT+12 |
| ^AUTTCOM("C" | FILEDMO+7 |
| ^AUTTLOC("C" | GETPAT+5, CHECK+23 |
| ^AUTTTRI("C" | FILEDMO+6 |
| ^BCHHLER - [#90002.32] | ERRLOG+19*, ERRLOG+23*, ERRLOG+26* |
| ^BCHR("CUI" | FILEREC+1, MODIFY+1 |
| ^BCHTACTL("D" | CHECK+19 |
| ^BCHTMT - [#90002.58] | FILEMEAS+5, MEAS+8 |
| ^BCHTMT("B" | FILEMEAS+4, MEAS+6 |
| ^BCHTPROB - [#90002.53] | CHECK+50 |
| ^BCHTPROB("C" | PROBLK+2 |
| ^BCHTPROG("C" | CHECK+16 |
| ^BCHTREF("D" | CHECK+57, CHECK+58 |
| ^BCHTSERV - [#90002.54] | CHECK+50 |
| ^BCHTSERV("D" | SRVLK+2 |
| ^DPT - [#2] | GETPAT+15, GETPAT+16 |
| ^VA(200 - [#200] | CHECK+40 |
| Name | Line Occurrences |
|---|---|
| ADD | FILEREC+3, MODIFY+2, MODIFY+4 |
| CHECK | MAIN+7 |
| EDITREC | ADD+6 |
| ERRLOG | MAIN+8, MAIN+10, MAIN+12 |
| FILEDMO | ADD+10 |
| FILEMEAS | ADD+9 |
| FILEREC | MAIN+11 |
| GETPAT | MAIN+9 |
| MEAS | CHECK+37 |
| MODIFY | FILEREC+2 |
| PCCLINK | ADD+11 |
| POVS | ADD+8 |
| PROBLK | CHECK+46 |
| SRVLK | CHECK+47 |
| XIT | MAIN+8, MAIN+10, MAIN+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %DT | GETPAT+11*, ADD+3* |
| APCDOVRR | POVS+3*, POVS+16! |
| >> BCHACT | FILEREC+1*, FILEREC+2, CHECK+61* |
| >> BCHACTL | CHECK+18*, CHECK+21 |
| >> BCHACTLI | EDITREC+6, CHECK+19* |
| >> BCHC | ERRLOG+16*, ERRLOG+17, ERRLOG+18, ERRLOG+19, ERRLOG+20, ERRLOG+21, ERRLOG+22, ERRLOG+23, CHECK+28*, CHECK+31 , CHECK+36, CHECK+39, CHECK+41, CHECK+42, CHECK+48, CHECK+49, CHECK+50, MEAS+3, MEAS+4, MEAS+9 |
| >> BCHCHR | EDITREC+3, CHECK+39*, CHECK+40* |
| >> BCHCHRN | GETPAT+3*, GETPAT+4, GETPAT+6 |
| >> BCHCNTR | ERRLOG+16*, ERRLOG+19*, ERRLOG+23*, ERRLOG+26 |
| >> BCHCOM | FILEDMO+7*, FILEDMO+10 |
| >> BCHCOMP | FILEDMO+7*, FILEDMO+10 |
| >> BCHD | ERRLOG+17*, ERRLOG+18, ERRLOG+19 |
| BCHDAR | MAIN+6! |
| >> BCHDATA | ERRLOG+10*, ERRLOG+12, ERRLOG+13 |
| >> BCHDOB | GETPAT+9*, GETPAT+11*, GETPAT+16, FILEDMO+4, FILEDMO+9 |
| >> BCHDOS | ADD+3, CHECK+31*, CHECK+32* |
| >> BCHE | ERRLOG+20*, ERRLOG+21, ERRLOG+22, ERRLOG+23 |
| >> BCHEIEN | ERRLOG+6*, ERRLOG+7, ERRLOG+9, ERRLOG+13, ERRLOG+19, ERRLOG+23, ERRLOG+26 |
| BCHERR | MAIN+8, MAIN+10, MAIN+12, ADD+4*, ADD+7, EDITREC+14*, EDITREC+16, POVS+14*, FILEMEAS+4*, FILEMEAS+8* , CHECK+13!, CHECK+14*, CHECK+15*, CHECK+16*, CHECK+18*, CHECK+19*, CHECK+21, CHECK+22*, CHECK+23*, CHECK+28 , CHECK+31*, CHECK+39*, CHECK+40*, CHECK+41, CHECK+44*, CHECK+45*, CHECK+46, CHECK+47, CHECK+55, CHECK+57* , CHECK+58*, MEAS+3, MEAS+7*, MEAS+8*, MEAS+12*, PROBLK+3*, SRVLK+3* |
| BCHERR("ERROR" | ADD+4*, EDITREC+16*, POVS+7*, POVS+14*, FILEMEAS+4*, ERRLOG+9, CHECK+15*, CHECK+16*, CHECK+18*, CHECK+19* , CHECK+22*, CHECK+23*, CHECK+31*, CHECK+39*, CHECK+40*, CHECK+44*, CHECK+45*, CHECK+57*, CHECK+58*, MEAS+7* , MEAS+8*, MEAS+12*, PROBLK+3*, SRVLK+3* |
| BCHEV | PCCLINK+4! |
| BCHEV("TYPE" | PCCLINK+2* |
| >> BCHEVAL | EDITREC+9, CHECK+60* |
| >> BCHF | ERRLOG+21*, ERRLOG+22, ERRLOG+23 |
| >> BCHFACH | GETPAT+4*, GETPAT+5 |
| >> BCHFACL | EDITREC+5, CHECK+21*, CHECK+22, CHECK+23* |
| BCHFDA | EDITREC+1!, EDITREC+17! |
| BCHFDA(90002 | EDITREC+2*, EDITREC+3*, EDITREC+4*, EDITREC+5*, EDITREC+6*, EDITREC+7*, EDITREC+8*, EDITREC+9*, EDITREC+10*, EDITREC+11* , EDITREC+12*, EDITREC+13* |
| >> BCHFHRN | GETPAT+5*, GETPAT+7, GETPAT+12, FILEDMO+9 |
| >> BCHFIELD | FILEMEAS+5*, FILEMEAS+7 |
| >> BCHHRN | GETPAT+6*, GETPAT+12, FILEDMO+9 |
| BCHMEAS | FILEMEAS+2, CHECK+26!, MEAS+1!, MEAS+2*, MEAS+13* |
| BCHMEAS( | FILEMEAS+3, MEAS+13* |
| >> BCHMFIEL | MEAS+6*, MEAS+7, MEAS+8*, MEAS+11, MEAS+13 |
| >> BCHMIN | CHECK+30*, CHECK+48*, CHECK+52 |
| >> BCHMRES | MEAS+9*, MEAS+10*, MEAS+11, MEAS+12, MEAS+13 |
| >> BCHMTYP | FILEMEAS+3*, FILEMEAS+4, FILEMEAS+8 |
| >> BCHN | POVS+4*, POVS+5, POVS+11, POVS+12, FILEMEAS+3* |
| >> BCHNAME | GETPAT+2*, FILEDMO+4, FILEDMO+9 |
| >> BCHNARR | CHECK+30*, CHECK+50*, CHECK+52 |
| >> BCHNS | EDITREC+11, CHECK+59* |
| >> BCHPAT | GETPAT+1*, GETPAT+12*, GETPAT+13, GETPAT+15*, GETPAT+16*, EDITREC+4, FILEDMO+3 |
| >> BCHPOV | POVS+8*, POVS+10 |
| >> BCHPOVC | CHECK+27*, CHECK+51*, CHECK+52 |
| BCHPOVS | POVS+2, CHECK+25! |
| BCHPOVS( | POVS+4, POVS+5, POVS+11, POVS+12, CHECK+52* |
| >> BCHPROB | CHECK+30*, CHECK+50, CHECK+52, PROBLK+4* |
| >> BCHPROG | EDITREC+2, CHECK+16* |
| BCHR | ADD+5*, EDITREC+2, EDITREC+3, EDITREC+4, EDITREC+5, EDITREC+6, EDITREC+7, EDITREC+8, EDITREC+9, EDITREC+10 , EDITREC+11, EDITREC+12, EDITREC+13, FILEDMO+9, FILEMEAS+7, PCCLINK+4!, MODIFY+1*, MODIFY+2 |
| >> BCHREFF | EDITREC+8, CHECK+58* |
| >> BCHREFT | EDITREC+7, CHECK+57* |
| >> BCHSEX | GETPAT+8*, GETPAT+15, FILEDMO+4, FILEDMO+9 |
| >> BCHSRV | POVS+11*, POVS+12, CHECK+30*, CHECK+50, CHECK+52, SRVLK+4* |
| >> BCHSSN | FILEDMO+5*, FILEDMO+9 |
| BCHSTOP | MODIFY+3*! |
| >> BCHSUBST | CHECK+30*, CHECK+49*, CHECK+52 |
| >> BCHT | CHECK+36*, CHECK+37, CHECK+43*, CHECK+44, CHECK+45, CHECK+46, CHECK+47, CHECK+50 |
| >> BCHTEMPR | EDITREC+13, CHECK+63* |
| >> BCHTEXT | ERRLOG+10* |
| >> BCHTIEN | FILEMEAS+4*, FILEMEAS+5 |
| >> BCHTRAV | EDITREC+10, CHECK+56* |
| >> BCHTRI | FILEDMO+6*, FILEDMO+10 |
| >> BCHUID | FILEREC+1, EDITREC+12, MODIFY+1, CHECK+62* |
| >> BCHVAL | CHECK+42*, CHECK+43, MEAS+4*, MEAS+5*, MEAS+6, MEAS+7, MEAS+10, MEAS+12, MEAS+13, PROBLK+1 , SRVLK+1 |
| >> BCHVALUE | FILEMEAS+3*, FILEMEAS+7 |
| >> BCHX | ERRLOG+10*, CHECK+41*, CHECK+42, CHECK+50, MEAS+3*, MEAS+4, MEAS+9 |
| BCHZ | MEAS+11!, MEAS+12 |
| BHL | MAIN+4, XIT+3! |
| BHL("OBR" | ERRLOG+16, ERRLOG+17, ERRLOG+18, ERRLOG+19, CHECK+28, CHECK+31, CHECK+36, CHECK+39, CHECK+48, CHECK+49 |
| BHL("OBX" | ERRLOG+20, ERRLOG+21, ERRLOG+22, ERRLOG+23, CHECK+41, CHECK+42, CHECK+50, MEAS+3, MEAS+4, MEAS+9 |
| BHL("PID" | GETPAT+2, GETPAT+3, GETPAT+8, GETPAT+10, FILEDMO+5, CHECK+63 |
| BHL("PV1" | CHECK+21 |
| BHL("ZHR" | FILEDMO+7, CHECK+15, CHECK+18, CHECK+57, CHECK+58, CHECK+59, CHECK+60, CHECK+61, CHECK+62 |
| BHL("ZP2" | FILEDMO+6 |
| BHL("ZV1" | CHECK+56 |
| >> BHLERR | POVS+5*, POVS+7*, FILEDMO+12* |
| >> BHLERR("ERROR" | POVS+5* |
| >> BHLNOST | MAIN+1* |
| D0 | ERRLOG+5! |
| >> DA | POVS+10*, FILEDMO+9*, FILEMEAS+7*, ERRLOG+9*, ERRLOG+13* |
| DD | ADD+3!, POVS+6!, ERRLOG+5! |
| DIADD | POVS+6*!, ERRLOG+2!, ERRLOG+4*, ERRLOG+5! |
| >> DIC | ADD+3*, POVS+6*, ERRLOG+4* |
| >> DIC("DR" | ADD+3*, POVS+6* |
| >> DIC(0 | ADD+3*, POVS+6*, ERRLOG+4* |
| >> DIE | POVS+10*, FILEDMO+9*, FILEMEAS+7*, ERRLOG+9*, ERRLOG+13* |
| DLAYGO | ADD+3*, POVS+6*!, ERRLOG+2!, ERRLOG+4*, ERRLOG+5! |
| DO | ADD+3!, POVS+6!, ERRLOG+5! |
| >> DR | POVS+12*, FILEDMO+9*, FILEDMO+10*, FILEMEAS+7*, ERRLOG+9*, ERRLOG+13* |
| DT | ADD+3, ERRLOG+26 |
| DUZ | ADD+3 |
| U | MAIN+3*, GETPAT+2, POVS+5, POVS+11, POVS+12, FILEMEAS+3, FILEMEAS+5, ERRLOG+3*, CHECK+50, MEAS+8 |
| >> V | ERRLOG+12* |
| >> X | GETPAT+10*, GETPAT+11*, GETPAT+12*, FILEREC+1*, ADD+3*, POVS+5*, ERRLOG+4*, ERRLOG+12*, ERRLOG+13, CHECK+15* , CHECK+16, CHECK+18*, CHECK+19, CHECK+57*, CHECK+58*, PROBLK+1*, PROBLK+2, PROBLK+3, SRVLK+1*, SRVLK+2 , SRVLK+3 |
| >> Y | GETPAT+11, ADD+3, ADD+4, ADD+5, POVS+7, POVS+8, POVS+14, FILEDMO+12, FILEMEAS+8, ERRLOG+6 , PROBLK+2*, PROBLK+3, PROBLK+4, SRVLK+2*, SRVLK+3, SRVLK+4 |
| Name | Field # of Occurrence |
|---|---|
| $T(@BCHTEXT+BCHX | ERRLOG+10 |