ASDHS ; IHS/ADC/PDW/ENM - HS BY CLINIC ; [ 03/25/1999 11:48 AM ]
Source file <ASDHS.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 3 | ROUT^SDDIV END^SDROUT1 (DIV,DT)^SDUTL |
IHS Changes To Scheduling | 2 | (GO,GOT)^ASDHS1 $$DIV^ASDUT |
Registration | 2 | ZIS^DGUTQ CLINIC^VAUTOMA |
VA Fileman | 2 | ^%DT ^DIR |
IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
Package | Total | Caller Graph |
---|---|---|
IHS Changes To Scheduling | 1 | ASDAIU1 |
Scheduling | 1 | SD IHS HS BY CLINIC |
Name | Comments | DBIA/ICR reference |
---|---|---|
SORT | ; -- ask user for sort option
|
|
END | ; -- eoj
|
|
START | ;EP; loop thru clinics and appts to get patients
|
|
A5 | ;
|
|
CLIN | ; -- sorts by clinic
|
|
CHECK2 | ; -- checks if clinic belongs to prin clinic chosen
|
|
CHECK | ; -- checks out clinic (active?, in division?, etc.)
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SC - [#44] | START+7, START+10, START+11, START+12, CLIN+5, CLIN+6, CLIN+7, CHECK+1, CHECK2+2, CHECK2+3 |
^UTILITY("SDHS" | START+2! |
Name | Line Occurrences |
---|---|
CHECK | START+7, CLIN+3 |
CHECK2 | START+8 |
CLIN | START+4 |
END | ASDHS+3, SORT+7, SORT+10, SORT+13, SORT+22 |
START | A5+6 |
Name | Field # of Occurrence |
---|---|
^("I" | CHECK+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %DT | SORT+12* |
>> %DT("A" | SORT+12*, SORT+13! |
%I | END+2! |
ADGDEV | A5+3*, A5+4! |
ALL | END+1! |
ASDT | START+1~, START+9*, START+10*, START+11, START+12, CLIN+4*, CLIN+5*, CLIN+6, CLIN+7 |
ASDX | START+1~, START+6*, START+7*, START+10, START+11, START+12, CLIN+3*, CLIN+5, CLIN+6, CLIN+7 , CHECK+1, CHECK2+2 |
ASDY | START+1~, START+11*, START+12, CLIN+6*, CLIN+7 |
>> ASDZ | CLIN+1*, CLIN+2*, CLIN+3 |
C | END+2! |
>> DGPGM | A5+2* |
DIR | SORT+2!, SORT+7!, SORT+15! |
DIR("?" | SORT+4*, SORT+5*, SORT+6*, SORT+17*, SORT+18*, SORT+19*, SORT+20*, SORT+21*, SORT+22* |
DIR("A" | SORT+3*, SORT+16* |
DIR("B" | SORT+2*, SORT+15* |
DIR(0 | SORT+2*, SORT+15* |
>> DIRUT | SORT+7, SORT+22 |
DIV | ASDHS+3*, SORT+9, END+1!, CHECK+1 |
DT | SORT+11 |
I | END+2! |
IO | START+2 |
IO("Q" | A5+6 |
ORD | END+1! |
ORDER | SORT+1*, SORT+7*, END+1!, START+4 |
>> POP | A5+5 |
RMSEL | END+1! |
>> SDATE | SORT+13*, START+9, START+10, CLIN+4, CLIN+5, CHECK+1 |
SDEF | END+2! |
SDIQ | ASDHS+4*, END+1! |
SDREP | ASDHS+4*, END+1! |
SDSP | END+1! |
SDSTART | ASDHS+4*, END+1! |
SDX | ASDHS+4*, END+2! |
SDZAI | SORT+23*, START+13!, CLIN+8! |
SDZEF | SORT+23*, START+13!, CLIN+8! |
SDZMP | SORT+23*, START+13!, CLIN+8! |
U | START+12, CLIN+7, CHECK+1, CHECK2+2, CHECK2+3 |
V | END+2! |
>> VAR | A5+1* |
VAUTC | START+4, START+8, START+13!, CLIN+8! |
VAUTC( | CLIN+2, CLIN+3, CHECK2+3 |
VAUTD | SORT+9*, START+13!, CLIN+8! |
>> VAUTNI | SORT+10* |
X | END+2!, CHECK2+1~, CHECK2+2*, CHECK2+3 |
Y | ASDHS+3, SORT+7, SORT+10, SORT+13, SORT+23, END+2! |