VASITE ;ALB/AAS - TIME SENSITIVE VA STATION NUMBER UTILITY ; 4/22/92
Source file <VASITE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SITE(DATE,DIV) | ;
; -Output= Institution file pointer^Institution name^station number with suffix |
|
| ALL(DATE) | ; -returns all possible station numbers
; -input date, if date is undefined, then date will be today ; - output VASITE= 1 or -1 if stations exist ; VASITE(station number)=station number |
|
| IVDATE(DATE) | ; -- inverse date reference start
|
|
| CHK | ; -input transform for IS PRIMARY STATION? field
; -only 1 primary station number allowed per effective date |
|
| CHKQ | ||
| YN | ; -input transform for is primary facility
|
|
| PRIM(DATE) | ; -returns medical center division of primary medical center division
; - input date, if date is null then date will be today |
|
| NAME(DATE) | ; -returns the new name of medical centers that have integrated
|
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | SITE+12 |
| ^DIC(4 - [#4] | SITE+12 |
| ^VA(389.9 - [#389.9] | SITE+10, ALL+8, CHK+3, CHK+4, CHK+5, YN+1, YN+2, YN+4, YN+5, PRIM+5 , NAME+4 |
| Name | Field # of Occurrence |
|---|---|
| ^( | SITE+10, ALL+8, PRIM+5, NAME+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DA | CHK+3, CHK+4, YN+1, YN+2, YN+4, YN+5 |
| DATE | SITE~, SITE+7*, SITE+8, SITE+9, SITE+10, ALL~, ALL+6*, ALL+8, IVDATE~, IVDATE+1 , PRIM~, PRIM+4*, PRIM+5, NAME~, NAME+3*, NAME+4 |
| DIV | SITE~, SITE+8*, SITE+9, SITE+10, SITE+12, ALL+5~, ALL+8* |
| DT | SITE+7, ALL+6, PRIM+4, NAME+3 |
| PRIM | SITE+6~, SITE+10*, SITE+11, ALL+5~, ALL+8*, PRIM+3~, PRIM+5*, PRIM+6 |
| SITE | SITE+6~, SITE+11*, SITE+12*, SITE+13 |
| >> VASITE | ALL+7*, ALL+8*, ALL+9 |
| >> VASITE( | ALL+8* |
| X | CHK+3!, CHK+4!, CHK+5!, YN+1!, YN+2!, YN+4!, YN+5!, YN+6*, YN+7! |
