IBDFN ;ALB/CJM - ENCOUNTER FORM - INTERFACE ROUTINES ;NOV 16,1992
Source file <IBDFN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VADPT | ;returns patient demographic data
|
|
| EMPLMNT | ;returns patient's employment status
|
|
| DATE(Y) | ; Y=date in FM form, this function translates the date to its
|
|
| ELIG | ;for output of eligibility information & service connected conditions
|
|
| BLANKS | ;returns NOTHING for printing blank lines
|
|
| LABELS | ;returns NOTHING for printing labels only, ie, no data
|
|
| ELIG1 | ;for output of hidden service connected conditions
|
|
| ELIG2 | ; -- for output of hidden classification questions
|
|
| ELIG2Q | ||
| SETARY(ARY,CNT,TEXT) | ; -- build array
|
|
| ELIGMST | ;-- Adds the MST indicator to existing hidden classification questions
; (patch IBD*3*36) |
|
| ELIG1MST | ;-- Similar to ELIG1 but adds MST indicator (if applicable) to hidden classification questions array
|
|
| ELIG2MST | ;-- Similar to ELIG2 but adds MST indicator (if applicable) to hidden classification questions array
|
|
| ELIGSET | ;-- Checks for MST and adds MST question to hidden classification array
|
| FileNo | Call Tags |
|---|---|
| ^DG(391 - [#391] | GET1^DIQ |