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 |