SDSCOMP ;ALB/JAM/RBS - ASCD Compile list of encounters for Service Connection Review ; 3/12/07 4:36pm
Source file <SDSCOMP.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
AUTODT | ; Called by option "SDSC NIGHTLY COMPILE"
; - Compile ASCD Encounters on a Nightly Basis ; (Rated Disabilities/ICDs for Prior Day Encounters) |
|
GETDATE | ; Entry point for edit or report - Get START and END dates
|
|
GETDATE1 | ; Entry point for SDSC COMPILE option - Get START and END dates
; Output: ; Set var 'SDSCTDT' (loop start point) to a user selected date. |
|
ELIG | ; Compile list of service connected eligibility codes.
|
|
COMPILE | ; Called by option "SDSC COMPILE"
; - Compile ASCD Encounters by Date Range ; (Rated Disabilities/ICDs for Encounters) |
|
TASK | ; Start compile (one-time compile - remove from queue when complete)
|
|
TASK1 | ; Start compile (scheduled compile - don't remove from queue)
|
|
OPT | ; Loop through all outpatient encounters for the specified dates.
|
|
OPT1 | ; Check the service connected info for one encounter.
|
|
STORE | ; Save the information for the found encounter.
|
|
MMSG | ; Send Mail Message
|
|
END | ; Clear all variables before exiting.
|
FileNo | Call Tags |
---|---|
^AUPNVSIT - [#9000010] | GET1^DIQ |