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 |