©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
IBDFN ;ALB/CJM - ENCOUNTER FORM - INTERFACE ROUTINES ;NOV 16,1992
Source file <IBDFN.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | $$GETSTAT^DGMSTAPI (DEM,ELIG,OPD,SVC)^VADPT |
| VA Fileman | 2 | DD^%DT $$GET1^DIQ |
| Automated Information Collection System | 1 | $$REQ^IBDFDE0 |
| Scheduling | 1 | ($$AO,$$EC,$$IR,$$MST,$$SC)^SDCO22 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ELIG1 | ;for output of hidden service connected conditions
|
|
| EMPLMNT | ;returns patient's employment status
|
|
| ELIG | ;for output of eligibility information & service connected conditions
|
|
| ELIG2Q | ||
| DATE(Y) | ; Y=date in FM form, this function translates the date to its
|
|
| LABELS | ;returns NOTHING for printing labels only, ie, no data
|
|
| ELIG1MST | ;-- Similar to ELIG1 but adds MST indicator (if applicable) to hidden classification questions array
|
|
| ELIG2 | ; -- for output of hidden classification questions
|
|
| ELIG2MST | ;-- Similar to ELIG2 but adds MST indicator (if applicable) to hidden classification questions array
|
|
| BLANKS | ;returns NOTHING for printing blank lines
|
|
| VADPT | ;returns patient demographic data
|
|
| ELIGSET | ;-- Checks for MST and adds MST question to hidden classification array
|
|
| ELIGMST | ;-- Adds the MST indicator to existing hidden classification questions
; (patch IBD*3*36) |
|
| SETARY(ARY,CNT,TEXT) | ; -- build array
|
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | DATE+2 |
| $$GETSTAT^DGMSTAPI | ELIGMST+7 |
| $$GET1^DIQ | ELIG+9 |
| $$REQ^IBDFDE0 | ELIG2+2 |
| $$AO^SDCO22 | ELIG2+7 |
| $$EC^SDCO22 | ELIG+20, ELIG1+14, ELIG2+9 |
| $$IR^SDCO22 | ELIG2+8 |
| $$MST^SDCO22 | ELIGMST+6, ELIGSET+6 |
| $$SC^SDCO22 | ELIG2+6 |
| DEM^VADPT | VADPT+4 |
| ELIG^VADPT | ELIG+4, ELIG1+3 |
| OPD^VADPT | EMPLMNT+2 |
| SVC^VADPT | ELIG+15, ELIG1+7 |
| FileNo | Call Tags |
|---|---|
| ^DG(391 - [#391] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(31 - [#31] | ELIG+10 |
| ^DPT - [#2] | VADPT+9, ELIG+8, ELIG+9, ELIG+10 |
| ^TMP("IB" | ELIG1MST+2!, ELIG1MST+3!, ELIG2MST+2!, ELIG2MST+3! |
| Name | Line Occurrences |
|---|---|
| ELIG | ELIGMST+4 |
| ELIG1 | ELIG1MST+4 |
| ELIG2 | ELIG2MST+4 |
| ELIGSET | ELIG1MST+5, ELIG2MST+5 |
| SETARY | ELIG2+6, ELIG2+7, ELIG2+8, ELIG2+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARY | VADPT+2~, VADPT+3*, VADPT+5*, VADPT+6, VADPT+7, VADPT+8, VADPT+9, ELIG+1~, ELIG+2*, ELIG+7 , ELIG+8, ELIG+22, ELIG+30, ELIG+36, ELIG1+1~, ELIG1+2*, ELIG1+4, ELIG1+9, ELIG1+10, ELIG1+14 , ELIG2+1~, ELIG2+4*, ELIG2+6, ELIG2+7, ELIG2+8, ELIG2+9, SETARY~, SETARY+2, ELIGMST+3~, ELIGMST+5* , ELIGMST+8, ELIGMST+10, ELIGMST+11, ELIGMST+12, ELIGMST+16, ELIGSET+2~, ELIGSET+3*, ELIGSET+5, ELIGSET+7, ELIGSET+8 |
| CNT | SETARY~, SETARY+1*, SETARY+2 |
| COND | ELIG+1~, ELIG+9*, ELIG+10 |
| COUNT | ELIG+1~, ELIG+9*, ELIG+10*, ELIG+12, ELIG1+1~, ELIG1+2*, ELIG1+4*, ELIG1+9*, ELIG1+10*, ELIG1+14* , ELIG2+1~, ELIG2+4*, ELIG2+6, ELIG2+7, ELIG2+8, ELIG2+9, ELIGSET+2~, ELIGSET+4*, ELIGSET+7*, ELIGSET+8* |
| DATA | ELIG+1~, ELIG+16*, ELIG+17*, ELIG+22, ELIG+27*, ELIG+28*, ELIG+29*, ELIG+30, ELIG+33*, ELIG+35* , ELIG+36, ELIGMST+3~, ELIGMST+12*, ELIGMST+14*, ELIGMST+15*, ELIGMST+16 |
| DESCR | ELIG+1~, ELIG+10*, ELIG+12 |
| >> DFN | VADPT+9, ELIG+8, ELIG+9, ELIG+10, ELIG+20, ELIG1+14, ELIG2+2, ELIG2+6, ELIG2+7, ELIG2+8 , ELIG2+9, ELIGMST+6, ELIGMST+7, ELIGSET+6 |
| EC | ELIG+1~, ELIG+20*, ELIG+22, ELIG+33, ELIG+34, ELIG+35, ELIG1+1~ |
| I | ELIG+1~, ELIG+5*, ELIGSET+2~, ELIGSET+4*, ELIGSET+7* |
| >> IBAPPT | ELIG2+2 |
| >> IBARY | EMPLMNT+3, EMPLMNT+4, BLANKS+1, LABELS+1 |
| >> IBCLINIC | ELIG2+2 |
| MST | ELIGMST+3~, ELIGMST+6*, ELIGMST+13, ELIGMST+15 |
| MSTSTAT | ELIGMST+3~, ELIGMST+7*, ELIGMST+8 |
| NODE0 | ELIG+1~, ELIG+10*, ELIG+11 |
| PERC | ELIG+1~, ELIG+6*, ELIG+7, ELIG+11*, ELIG+12 |
| SARY | ELIG+1~, ELIG+3*, ELIG+12 |
| TEXT | SETARY~, SETARY+2 |
| VA | VADPT+10!, EMPLMNT+5! |
| VA("PID" | VADPT+6 |
| VADM | VADPT+10! |
| VADM(1 | VADPT+6 |
| VADM(10 | VADPT+7 |
| VADM(3 | VADPT+6 |
| VADM(4 | VADPT+6 |
| VADM(5 | VADPT+6 |
| VADM(8 | VADPT+8 |
| VAEL | VADPT+10!, EMPLMNT+5!, ELIG+1~, ELIG1+1~ |
| VAEL( | ELIG+5* |
| VAEL(1 | ELIG+7 |
| VAEL(2 | ELIG+7 |
| VAEL(3 | ELIG+6, ELIG+7, ELIG+8, ELIG+27, ELIG1+4 |
| VAEL(4 | ELIG+7, ELIG+9 |
| VAEL(5 | ELIG+7 |
| VAEL(6 | ELIG+7, ELIG+9 |
| VAERR | VADPT+5, VADPT+10!, EMPLMNT+3, EMPLMNT+5!, ELIG+1~, ELIG+5, ELIG+16, ELIG1+1~, ELIG1+4, ELIG1+8 |
| VAPD | EMPLMNT+5! |
| VAPD(7 | EMPLMNT+4 |
| VASV | ELIG+1~, ELIG1+1~ |
| VASV(1 | ELIG+17 |
| VASV(2 | ELIG+17, ELIG+28, ELIG+34, ELIG+35, ELIG1+9 |
| VASV(3 | ELIG+17, ELIG+29, ELIG+34, ELIG+35, ELIG1+10 |
| VASV(4 | ELIG+17 |
| VASV(5 | ELIG+17 |
| Y | DATE~, DATE+3 |