©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
APCDAACD ; IHS/CMI/LAB - CDMIS TO PCC LINK ;
Source file <APCDAACD.m>
| Package | Total | Call Graph |
|---|---|---|
| Patient Care Component | 4 | VFILES^APCDAAC1 (D,E)^APCDAAC2 (COMPLETE,LBULL)^APCDALD ^APCDALV |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VE21 | ;;No activity location passed. No Location determined.
|
|
| VE23 | ;;No IHS Location for OTHER in CDMIS SITE PARAMETER File.
|
|
| VE22 | ;;No IHS Location for HOME in CDMIS SITE PARAMETER File.
|
|
| VE24 | ;;No Location of Encounter when Activity location is Hospital/Clinic.
|
|
| VE27 | ;;No Location of Encounter for OFFICE in CDMIS SITE PARAMETER file.
|
|
| GETLOC | ;get location of encounter
|
|
| EOJ | ;
|
|
| VSERROR | ;EP
|
|
| VE6 | ;;Required variable is null
|
|
| VE7 | ;;No appropriate type (i.e., A,E,D)
|
|
| VE4 | ;;ACDEV array not passed
|
|
| VE5 | ;;Required variable not passed
|
|
| VE2 | ;;inability to create visit
|
|
| VE3 | ;;invalid visit parameters (date, location etc.)
|
|
| VE28 | ;;Error attempting to modify visit
|
|
| CHECK | ; SEE IF PCC WANTS VISIT
|
|
| A | ;EP-added a record
|
|
| ECHK | ;ERROR CHECK
|
|
| E | ;edited a cdmis record
|
|
| D | ;deleted a cdmis record
|
|
| GETTYPE | ;get type of visit
|
|
| VISIT | ;EP
|
|
| DEBUG | ;ZW APCDALVR D PAUSE^ACDDEU
|
|
| EP | ;EP - call from APCDALD DRIVER
|
|
| MAIN | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^APCCCTRL - [#9001000] | GETTYPE+7 |
| ^AUTTLOC - [#9999999.06] | GETTYPE+4, GETTYPE+6 |
| Name | Line Occurrences |
|---|---|
| @( | MAIN+5 |
| CHECK | A+2 |
| ECHK | MAIN+3 |
| EOJ | EP+2 |
| GETLOC | VISIT+5 |
| GETTYPE | VISIT+7 |
| MAIN | EP+1 |
| VISIT | A+4 |
| VSERROR | MAIN+4, A+7, VISIT+6, VISIT+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACDEV | ECHK+1, EOJ+2! |
| ACDEV("ACTLOC" | GETLOC+4, GETLOC+5 |
| ACDEV("CLINIC" | VISIT+10 |
| ACDEV("DATA0" | GETLOC+6 |
| ACDEV("LOCATION" | GETLOC+1 |
| ACDEV("PAT" | VISIT+3 |
| ACDEV("SITE T | YPE" , GETTYPE+1 |
| ACDEV("SITE" | GETLOC+10, GETLOC+11, GETLOC+12, GETTYPE+5 |
| ACDEV("SVC CA | T" , VISIT+9 |
| ACDEV("TYPE" | MAIN+5, ECHK+9, VISIT+2 |
| ACDEV("V DATE | " , VISIT+4 |
| ACDEV("VISIT" | VSERROR+2 |
| APCDACTL | GETLOC+5*, GETLOC+8, GETLOC+10, GETLOC+11, EOJ+1! |
| APCDALVR | MAIN+2!, EOJ+1! |
| APCDALVR("APCDADD" | VISIT+2* |
| APCDALVR("APCDAFLG" | A+7 |
| APCDALVR("APCDAPPT" | VISIT+11* |
| APCDALVR("APCDAUTO" | VISIT+2* |
| APCDALVR("APCDCAT" | VISIT+9* |
| APCDALVR("APCDCLN" | VISIT+10* |
| APCDALVR("APCDDATE" | VISIT+4* |
| APCDALVR("APCDLOC" | GETLOC+1*, GETLOC+7*, GETLOC+13*, GETTYPE+4, GETTYPE+6 |
| APCDALVR("APCDPAT" | VISIT+3* |
| APCDALVR("APCDTYPE" | GETTYPE+1*, GETTYPE+4*, GETTYPE+5*, GETTYPE+6*, GETTYPE+7*, GETTYPE+8* |
| APCDALVR("APCDVSIT" | A+8 |
| APCDDATK | VISIT+4*, EOJ+1! |
| APCDERR | EOJ+1!, VSERROR+3* |
| APCDFILE | EOJ+1!, VSERROR+1* |
| APCDGOT | EOJ+1! |
| APCDIEN | EOJ+1!, VSERROR+2* |
| APCDLINK | EOJ+1! |
| APCDLOC | GETLOC+6*, GETLOC+7, GETLOC+10*, GETLOC+11*, GETLOC+12*, GETLOC+13, GETTYPE+4*, EOJ+1! |
| APCDQUIT | MAIN+2!, MAIN+4, ECHK+1*, ECHK+2, ECHK+5*, ECHK+6*, ECHK+8, ECHK+9*, A+3, A+5 , A+7*, VISIT+6, VISIT+8, GETLOC+4*, GETLOC+8*, GETLOC+10*, GETLOC+11*, GETLOC+12*, EOJ+1!, VSERROR+3 |
| APCDTYPE | EOJ+1! |
| >> APCDV("9000010" | A+11* |
| APCDVSIT | A+8*, A+11, EOJ+1! |
| APCDX | EOJ+1! |
| DUZ(2 | GETTYPE+7 |
| U | GETLOC+5, GETLOC+6, GETLOC+10, GETLOC+11, GETLOC+12, GETTYPE+4, GETTYPE+5, GETTYPE+6, GETTYPE+7 |
| >> X | ECHK+2*, ECHK+3*, ECHK+4*, ECHK+5, ECHK+6, GETTYPE+6*, GETTYPE+7* |
| >> ZTQUEUED | MAIN+1 |
| Name | Field # of Occurrence |
|---|---|
| $T(@APCDERR | VSERROR+3 |