©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
BDPAPI ; IHS/CMI/TMJ - ADD A NEW DESIGNATED PROVIDER ;
Source file <BDPAPI.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Designated Provider | 3 | ALLDP^BDPAPI EN^BDPDPEE FILE^BDPFMC |
| VA Fileman | 3 | ^DIE IX^DIK $$GET1^DIQ |
| IHS VA Utilities | 1 | ($$VAL,$$VALI)^XBDIQ1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EDIT(BDPRIEN,BDPTYPE,BDPPROV) | ;EP - edit/add to multiple
|
|
| MA(P) | ;PEP - called to get message agent for a patient
|
|
| AEDAP(BDPPAT,BDPIEN,BDPTYPE,BDPRET) | ;PEP - called to add, edit or delete any designated provider by category
|
|
| ALLDPVG(BDPPAT,BDPTYPE,BDPRET) | ;PEP - return array of designated providers in all categories or 1 category
; input: BDPPAT - DFN of patient ; BDPTYPE - null if want all designated providers, or NAME of category, (e.g. RENAL DISEASE) ; if just want 1 provider category ; BDPRET - return array ; return array BDPRET: ; BDPRET(category IEN)=name of category^name of provider^ien of provider^provider class of provider^date updated^user last update ; example: ; BDPRET(12)=name of category^name of provider^ien of provider^provider class of provider^date updated ; |
|
| ALLDP(BDPPAT,BDPTYPE,BDPRET) | ;PEP - return array of designated providers in all categories or 1 category
; input: BDPPAT - DFN of patient ; BDPTYPE - null if want all designated providers, or NAME of category, (e.g. RENAL DISEASE) ; if just want 1 provider category ; BDPRET - return array ; return array BDPRET: ; BDPRET(category name)=name of provider^ien of provider^provider class of provider^date updated ; example: ; BDPRET("WOMEN'S HEALTH CASE MANAGER")=name of provider^ien of provider^provider class of provider^date updated ; BDPRET("DESIGNATED PRIMARY PROVIDER")=name of provider^ien of provider^provider class of provider^date updated ; |
|
| AEDWH(BDPPAT,BDPIEN,BDPRET) | ;PEP - called to add, edit or delete a WOMEN's HEALTH CASE MANAGER
|
|
| WHPCP(BDPPAT,BDPRET) | ;PEP - return WH case managers and DPCP
; input: BDPPAT - DFN of patient ; BDPRET - return array ; return array BDPRET: ; BDPRET(category name)=name of provider^ien of provider^provider class of provider^date updated ; BDPRET("WOMEN'S HEALTH CASE MANAGER")=name of provider^ien of provider^provider class of provider^date updated ; BDPRET("DESIGNATED PRIMARY PROVIDER")=name of provider^ien of provider^provider class of provider^date updated ; BDPRET("WOMEN'S HEALTH ALTERNATE")=name of provider^ien of provider^provider class of provider^date updated ; ; If the patient does not have a provider in any of the above categories the array will not ; contain that category so if there is no dpcp then '$D(BDPRET("DESIGNATED PRIMARY CARE PROVIDER") ; will be true |
|
| PROVPANL(BDPPIEN) | ;PEP - entry point to view/update one provider's panel
|
|
| SETV | ;
|
|
| SETV1 | ;
|
|
| DEL1(BDPPAT,BDPTYPE) | ;
|
|
| ADD1(BDPDFN,BDPTYPE) | ;EP - add to top level of file for this category
|
| FileNo | Call Tags |
|---|---|
| ^BDPRECN - [#90360.1] | Classic Fileman Calls |
| ^BDPMSGA - [#90360.5] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPAT - [#9000001] | AEDWH+14, AEDAP+14 |
| ^BDPRECN - [#90360.1] | AEDWH+24, AEDAP+24, EDIT+5, EDIT+7, EDIT+10*, EDIT+11*, EDIT+15, EDIT+17*, DEL1+8, DEL1+9 , WHPCP+18, WHPCP+22, ALLDP+19, ALLDPVG+18 |
| ^BDPRECN("AA" | AEDWH+22, AEDAP+22, ADD1+1, DEL1+2, WHPCP+17, WHPCP+20, ALLDP+15, ALLDP+17, ALLDPVG+14, ALLDPVG+16 |
| ^BDPTCAT - [#90360.3] | WHPCP+19, WHPCP+23, ALLDP+16, ALLDP+20, ALLDPVG+15, SETV1+3 |
| ^BDPTCAT("B" | AEDWH+16, AEDAP+16, WHPCP+16 |
| ^DPT - [#2] | MA+5 |
| ^VA(200 - [#200] | AEDWH+19, AEDAP+19 |
| Name | Line Occurrences |
|---|---|
| $$ADD1 | AEDWH+23, AEDAP+23 |
| $$DEL1 | AEDWH+21, AEDAP+21 |
| $$EDIT | AEDWH+26, AEDAP+26 |
| SETV | WHPCP+18, WHPCP+23, ALLDP+20 |
| SETV1 | ALLDPVG+19 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | EDIT+5* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BDPCIEN | AEDWH+15~, AEDWH+16*, AEDWH+17, AEDWH+21, AEDWH+22, AEDWH+23, AEDWH+26, AEDAP+15~, AEDAP+16*, AEDAP+17 , AEDAP+21, AEDAP+22, AEDAP+23, AEDAP+26, WHPCP+15~, WHPCP+16*, WHPCP+17, WHPCP+19*, WHPCP+20, WHPCP+23 , ALLDP+14~, ALLDP+15*, ALLDP+16, ALLDP+17, ALLDP+20, ALLDPVG+13~, ALLDPVG+14*, ALLDPVG+15, ALLDPVG+16, ALLDPVG+19 , SETV1+3 |
| BDPDFN | ADD1~, ADD1+1, ADD1+3 |
| BDPI | SETV+1~, SETV+2*, SETV+3, SETV1+1~, SETV1+2*, SETV1+3 |
| BDPIEN | AEDWH~, AEDWH+18, AEDWH+19, AEDWH+21, AEDWH+24, AEDWH+26, AEDAP~, AEDAP+18, AEDAP+19, AEDAP+21 , AEDAP+24, AEDAP+26 |
| BDPLIEN | EDIT+4~, EDIT+6*, EDIT+7*, EDIT+8, EDIT+15 |
| >> BDPLINKI | EDIT+13* |
| BDPLNUM | EDIT+4~, EDIT+6*, EDIT+7*, EDIT+9*, EDIT+11 |
| BDPNIEN | EDIT+4~, EDIT+8*, EDIT+10, EDIT+15, EDIT+17, EDIT+23 |
| BDPPAT | AEDWH~, AEDWH+13, AEDWH+14, AEDWH+21, AEDWH+22, AEDWH+23, AEDAP~, AEDAP+13, AEDAP+14, AEDAP+21 , AEDAP+22, AEDAP+23, DEL1~, DEL1+2, WHPCP~, WHPCP+14, WHPCP+17, WHPCP+20, ALLDP~, ALLDP+12 , ALLDP+15, ALLDP+17, ALLDPVG~, ALLDPVG+11, ALLDPVG+14, ALLDPVG+16 |
| BDPPIEN | PROVPANL~, PROVPANL+1 |
| BDPPROV | EDIT~, EDIT+3, EDIT+17 |
| BDPRET | AEDWH~, AEDWH+13*, AEDWH+14*, AEDWH+17*, AEDWH+18*, AEDWH+19*, AEDWH+21*, AEDWH+23*, AEDWH+24*, AEDWH+26* , AEDAP~, AEDAP+13*, AEDAP+14*, AEDAP+17*, AEDAP+18*, AEDAP+19*, AEDAP+21*, AEDAP+23*, AEDAP+24*, AEDAP+26* , WHPCP~, WHPCP+13!, ALLDP~, ALLDP+11!, ALLDPVG~, ALLDPVG+10! |
| BDPRET( | SETV+3*, SETV1+3* |
| BDPRIEN | AEDWH+15~, AEDWH+22*, AEDWH+23*, AEDWH+24, AEDWH+26, AEDAP+15~, AEDAP+22*, AEDAP+23*, AEDAP+24, AEDAP+26 , EDIT~, EDIT+1, EDIT+5, EDIT+7, EDIT+10, EDIT+11, EDIT+15, EDIT+17, EDIT+23 |
| BDPTYPE | AEDAP~, AEDAP+16, ADD1~, ADD1+1, ADD1+3, EDIT~, EDIT+2, DEL1~, DEL1+2, ALLDP~ , ALLDP+13*, ALLDP+16, ALLDPVG~, ALLDPVG+12*, ALLDPVG+15 |
| BDPX | DEL1+1~, DEL1+2*, DEL1+3, DEL1+5, DEL1+8, DEL1+9, WHPCP+15~, WHPCP+17*, WHPCP+18, WHPCP+20* , WHPCP+21, WHPCP+22, SETV+2, SETV+3, ALLDP+14~, ALLDP+17*, ALLDP+18, ALLDP+19, ALLDPVG+13~, ALLDPVG+16* , ALLDPVG+17, ALLDPVG+18, SETV1+2, SETV1+3 |
| BDPY | WHPCP+15~, WHPCP+18*, WHPCP+23*, SETV+3, ALLDP+14~, ALLDP+20*, ALLDPVG+13~, ALLDPVG+19*, SETV1+3 |
| BDPZ | WHPCP+15~, ALLDP+14~, ALLDPVG+13~ |
| C | EDIT+4~ |
| DA | EDIT+14!, EDIT+15*!, EDIT+23*!, DEL1+4~, DEL1+5*, DEL1+9*! |
| DA(1 | EDIT+15*, EDIT+23*, DEL1+9* |
| DIC | ADD1+2!, ADD1+3*, EDIT+23! |
| DIC("DR" | ADD1+3* |
| DIC(0 | ADD1+3* |
| DIE | EDIT+14!, EDIT+15*!, DEL1+4~, DEL1+5*, DEL1+9*! |
| DIK | EDIT+22~, EDIT+23* |
| DINUM | EDIT+15!, DEL1+4~, DEL1+9! |
| >> DLAYGO | ADD1+3* |
| DR | EDIT+14!, EDIT+15*!, DEL1+4~, DEL1+5*, DEL1+9*! |
| DT | EDIT+15, EDIT+17, DEL1+5, DEL1+9 |
| DUZ | EDIT+15, EDIT+17, DEL1+5, DEL1+9 |
| E | MA+6~, MA+11*, MA+12 |
| I | MA+6~, MA+10*, MA+11, MA+12 |
| N | MA+6~, MA+9*, MA+12 |
| P | MA~, MA+4, MA+5, MA+7 |
| R | MA+6~, MA+7 |
| R("MESSAGE AG | ENT" , MA+8, MA+9, MA+10 |
| U | AEDWH+24, AEDAP+24, EDIT+5, EDIT+10, EDIT+11, EDIT+15, EDIT+17, DEL1+9, WHPCP+18, WHPCP+19 , WHPCP+22, WHPCP+23, ALLDP+16, ALLDP+19, ALLDP+20, ALLDPVG+15, ALLDPVG+18, SETV1+3, MA+9, MA+10 |
| X | AEDWH+15~, AEDAP+15~, ADD1+1~*, ADD1+3*, EDIT+4~, EDIT+6*, EDIT+7*, DEL1+4~, DEL1+8* |
| Y | ADD1+5, ADD1+6, DEL1+4~, DEL1+8*, DEL1+9 |