©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
BCHABCH ; IHS/CMI/LAB - CHR TO PCC LINK ROUTINE 27 Apr 2006 11:53 AM ;
Source file <BCHABCH.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS RPMS CHR System | 3 | VFILES^BCHABC1 (D,E)^BCHABC2 (COMPLETE,LBULL)^BCHALD |
| Patient Care Component | 2 | ^APCDALV (,GETVISIT)^APCDAPI4 |
| IHS Changes To Scheduling | 1 | ^BSDAPI4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VE21 | ;;No activity location passed. No Location determined.
|
|
| VE23 | ;;No IHS Location for OTHER in CHR SITE PARAMETER File.
|
|
| VE22 | ;;No IHS Location for HOME in CHR SITE PARAMETER File.
|
|
| VE24 | ;;No Location of Encounter when Activity location is Hospital/Clinic.
|
|
| VE27 | ;;No Location of Encounter for OFFICE in CHR SITE PARAMETER file.
|
|
| GETLOC | ;get location of encounter
|
|
| EOJ | ;
|
|
| VSERROR | ;EP
|
|
| BSDADD1 | ;
|
|
| VE2 | ;;inability to create visit
|
|
| VE3 | ;;invalid visit parameters (date, location etc.)
|
|
| VE29 | ;;Error attempting to modify visit
|
|
| VE28 | ;;No Location of Encounter for SCHOOL in CHR SITE PARAMETER file.
|
|
| BSD | ;
|
|
| CHECK | ;EP
|
|
| A | ;EP - added a record
|
|
| E | ;edited a chr record
|
|
| D | ;
|
|
| GETTYPE | ;get type of visit
|
|
| VISIT | ;EP
|
|
| CLINIC | ;get clinic - if act. loc is home use 11 otherwise 01
|
|
| EP | ;EP - call from BCHALD DRIVER
|
|
| SERVCAT | ;get service category - if radio/telephone act loc use T
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^APCCCTRL - [#9001000] | GETTYPE+10 |
| ^AUTTLOC - [#9999999.06] | GETTYPE+1, GETTYPE+9 |
| ^BCHTACTL - [#90002.56] | GETTYPE+4 |
| ^DIC(19 - [#19] | BSD+14 |
| ^DIC(40.7 - [#40.7] | CLINIC+1 |
| Name | Line Occurrences |
|---|---|
| @( | EP+5 |
| BSD | A+5 |
| CHECK | A+2 |
| EOJ | EP+6, A+3, A+4, A+12, A+20 |
| GETLOC | VISIT+4 |
| GETTYPE | VISIT+6 |
| VISIT | A+11, BSD+5 |
| VSERROR | A+6, A+14, VISIT+5, VISIT+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APCDALVR | EP+2!, A+1!, BSD+2!, BSDADD1+1!, BSDADD1+5!, EOJ+1! |
| APCDALVR("APCDADD" | VISIT+1* |
| APCDALVR("APCDAFLG" | A+14 |
| APCDALVR("APCDAPPT" | CLINIC+2* |
| APCDALVR("APCDAUTO" | VISIT+1* |
| APCDALVR("APCDCAF" | CLINIC+3* |
| APCDALVR("APCDCAT" | SERVCAT+3*, BSD+11 |
| APCDALVR("APCDCLN" | CLINIC+1*, BSD+12 |
| APCDALVR("APCDDATE" | VISIT+3*, BSD+7 |
| APCDALVR("APCDLOC" | GETLOC+4*, GETLOC+11*, GETTYPE+1, GETTYPE+9, BSD+10 |
| APCDALVR("APCDPAT" | VISIT+2*, BSD+9 |
| APCDALVR("APCDTYPE" | GETTYPE+3*, GETTYPE+4*, GETTYPE+5*, GETTYPE+6*, GETTYPE+8*, GETTYPE+9*, GETTYPE+10*, GETTYPE+11*, BSD+8 |
| APCDALVR("APCDVSIT" | A+15 |
| BCHACTL | SERVCAT+3, CLINIC+1, GETLOC+2*, GETLOC+5, GETLOC+7, GETLOC+8, GETLOC+9, EOJ+1! |
| BCHDATK | VISIT+3*, EOJ+1! |
| BCHERR | BSDADD1+4*, BSDADD1+6, EOJ+1!, VSERROR+3* |
| BCHEV | EP+3, EOJ+2! |
| BCHEV("ACTLOC" | GETLOC+1, GETLOC+2 |
| BCHEV("CHR IE | N" , VSERROR+2 |
| BCHEV("DATA0" | CHECK+1, CHECK+2, CHECK+3, VISIT+2, VISIT+3, GETLOC+3, GETTYPE+2, VSERROR+4 |
| BCHEV("POV" | CHECK+4, CHECK+5, CHECK+10, CHECK+11 |
| BCHEV("SITE" | GETLOC+7, GETLOC+8, GETLOC+9, GETLOC+10, GETTYPE+3, GETTYPE+4, GETTYPE+5, GETTYPE+8 |
| BCHEV("TYPE" | EP+4, EP+5, VISIT+1 |
| BCHFILE | EOJ+1!, VSERROR+1* |
| BCHGOT | CHECK+4*, CHECK+6*, CHECK+8, CHECK+10*, CHECK+12*, CHECK+14, EOJ+1! |
| BCHIEN | EOJ+1!, VSERROR+2* |
| BCHIN | BSDADD1+3, BSDADD1+5! |
| BCHIN("APCDAPPT" | BSD+13* |
| BCHIN("APCDCAF" | BSD+15* |
| BCHIN("APCDOPT" | BSD+14* |
| BCHIN("CLINIC | CODE" , BSD+12* |
| BCHIN("FORCE | ADD" , BSD+4* |
| BCHIN("PAT" | BSD+9* |
| BCHIN("SITE" | BSD+10* |
| BCHIN("SRV CA | T" , BSD+11* |
| BCHIN("TIME R | ANGE" , BSD+17* |
| BCHIN("USR" | BSD+16* |
| BCHIN("VISIT | DATE" , BSD+7*, TYPE" , BSD+8* |
| BCHLINK | EOJ+1! |
| BCHLOC | GETLOC+3*, GETLOC+4, GETLOC+7*, GETLOC+8*, GETLOC+9*, GETLOC+10*, GETLOC+11, GETTYPE+1*, EOJ+1! |
| BCHQUIT | EP+2!, CHECK+1*, CHECK+2*, CHECK+3*, CHECK+8*, CHECK+14*, A+1!, A+3, A+6*, A+12 , A+14*, VISIT+5, VISIT+7, GETLOC+1*, GETLOC+5*, GETLOC+7*, GETLOC+8*, GETLOC+9*, GETLOC+10*, BSD+6 , BSDADD1+6*, EOJ+1!, VSERROR+3 |
| BCHTYPE | EOJ+1! |
| >> BCHV | BSDADD1+3 |
| >> BCHV( | BSDADD1+7 |
| >> BCHV("9000010" | A+8*, A+18* |
| >> BCHV(0 | BSDADD1+4, BSDADD1+7 |
| BCHVSIT | A+6, A+8, A+15*, A+18, BSD+3*, BSDADD1+2*, BSDADD1+7*, EOJ+1! |
| BCHX | CHECK+4*, CHECK+5, CHECK+10*, CHECK+11, EOJ+1! |
| DFN | VSERROR+4*, VSERROR+6! |
| DUZ | BSD+16 |
| DUZ(2 | GETTYPE+10 |
| U | CHECK+2, CHECK+3, CHECK+5, VISIT+2, VISIT+3, GETLOC+2, GETLOC+3, GETLOC+7, GETLOC+8, GETLOC+9 , GETLOC+10, GETTYPE+1, GETTYPE+2, GETTYPE+3, GETTYPE+4, GETTYPE+5, GETTYPE+8, GETTYPE+9, GETTYPE+10, BSD+14 , BSDADD1+4, BSDADD1+7, VSERROR+4 |
| >> V | BSDADD1+7* |
| >> X | CHECK+5*, CHECK+11*, GETTYPE+2*, GETTYPE+3, GETTYPE+4, GETTYPE+9*, GETTYPE+10* |
| >> XQY0 | BSD+14 |
| >> ZTQUEUED | EP+1 |
| Name | Field # of Occurrence |
|---|---|
| $T(@BCHERR | VSERROR+3 |
| $T(^APCDAPI4 | A+4 |
| $T(^BSDAPI4 | A+4 |