©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
ABSPOSB3 ; IHS/FCS/DRS - FSI/ILC A/R interface ;
Source file <ABSPOSB3.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | FILE^DICN ^DIE |
| Pharmacy Point of Sale | 1 | $$IMPOSS^ABSPOSUE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| P1 | ||
| ISV681(VPOVDFN) | ||
| A681A | ||
| HASCLIN() | ; does VSTDFN already have a clinic? return true or false
|
|
| PHARMCLI() | ||
| ADDV681() | ; given VSTDFN ; add a V68.1 diagnosis to the visit
; if you $$, it gives you back the IEN |
|
| CLINIC | ;EP - given VSTDFN - if it doesn't have one, give it one: pharmacy
|
|
| V681IEN() | ||
| HASV681() | ; does VSTDFN already have a V68.1 among its diagnoses? ret true/false
|
|
| V681A | ;
|
|
| V681 | ;EP - given VSTDFN
; - add a V68.1 diagnosis if it doesn't already have one |
|
| PROVIDER() | ;EP - given VSTDFN - and ^TMP($J,"VCPT",*)
; if it doesn't have a provider, give it one ; and make this the primary provider - he is the prescribing physician ; on the first prescription |
| FileNo | Call Tags |
|---|---|
| ^AUPNVSIT - [#9000010] | Classic Fileman Calls |
| ^AUPNVPRV - [#9000010.06] | Classic Fileman Calls |
| ^AUPNVPOV - [#9000010.07] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSVCPT(9002301 | P1+3 |
| ^AUPNVPOV - [#9000010.07] | A681A, A681A+11, ISV681+2 |
| ^AUPNVPOV("AD" | HASV681+3 |
| ^AUPNVPRV - [#9000010.06] | P1, P1+21 |
| ^AUPNVPRV("AD" | P1+1 |
| ^AUPNVSIT - [#9000010] | A681A+6, HASCLIN+1, P1+14 |
| ^DIC(16 - [#16] | P1+9 |
| ^DIC(40.7 - [#40.7] | PHARMCLI+1 |
| ^ICD9("B" | V681IEN |
| ^PSRX - [#52] | P1+7 |
| ^TMP($J | P1+2 |
| ^VA(200 - [#200] | P1+8 |
| Name | Line Occurrences |
|---|---|
| $$ADDV681 | V681A+3 |
| $$HASCLIN | CLINIC+1 |
| $$HASV681 | V681A+2 |
| $$ISV681 | HASV681+3 |
| $$PHARMCLI | CLINIC+3 |
| $$V681IEN | V681A+1, ISV681+1, A681A+4 |
| A681A | A681A |
| P1 | P1 |
| V681A | V681A+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | HASV681+2~*, HASV681+3* |
| DA | A681A+1~, CLINIC+2~, CLINIC+3*, P1+10~ |
| DATA | A681A+5~, P1+10~ |
| DATA( | A681A+5*, A681A+6*, A681A+8, P1+14*, P1+15*, P1+16*, P1+18 |
| DD | A681A+1~, A681A+10!, P1+10~, P1+20! |
| DIC | A681A+1~, A681A+3*, P1+10~, P1+12* |
| DIC("DR" | A681A+7*, A681A+8*, A681A+9*, P1+17*, P1+18*, P1+19* |
| DIC(0 | A681A+3*, P1+12* |
| DIDEL | CLINIC+2~ |
| DIE | CLINIC+2~, CLINIC+3* |
| DINUM | A681A+1~, P1+10~ |
| DLAYGO | A681A+1~ |
| DO | A681A+1~, A681A+10!, P1+10~, P1+20! |
| DR | CLINIC+2~, CLINIC+3* |
| DTOUT | A681A+1~, CLINIC+2~, P1+10~ |
| DUOUT | A681A+1~, P1+10~ |
| I | A681A+7~*, A681A+8, P1+17~*, P1+18, P1+19 |
| IEN | V681+2~, V681A+3*, V681A+5 |
| PROV16 | P1+8~*, P1+9 |
| PROV200 | P1+7~*, P1+8 |
| PROV6 | P1+9~*, P1+13 |
| RET | HASV681+1~*, HASV681+3*, HASV681+4 |
| RXI | P1+3~*, P1+7 |
| U | ISV681+2, A681A+6, HASCLIN+1, P1+3, P1+7, P1+8, P1+9, P1+14 |
| VCPT | P1+2~*, P1+3 |
| VPOVDFN | ISV681~, ISV681+2 |
| >> VSTDFN | HASV681+3, A681A+5, A681A+6, CLINIC+3, HASCLIN+1, P1+1, P1+14, P1+15 |
| X | ISV681+1~*, ISV681+2, A681A+1~, A681A+4*, P1+10~, P1+13* |
| Y | A681A+1~, A681A+12, P1+10~, P1+22 |
| Name | Field # of Occurrence |
|---|---|
| $T( | V681A+5, A681A, P1 |