IBDFN16 ;ALB/DHH - ENCOUNTER FORM - (entry points for gaf project) ;3/20/2001
Source file <IBDFN16.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 3 | DD^%DT ^%DTC ^DIC |
Mental Health | 1 | $$RET^YSGAF |
Name | Comments | DBIA/ICR reference |
---|---|---|
GAFPROV | ;Enter GAF Score Provider
|
|
OKPROV(IEN) | ; Screen for provider lookup using person class
; provider for gaf must have the sd gaf score security key |
|
GAFRET | ;Previous GAF information returned from Mental Health
|
|
RULE(GAFDAT) | ;check for greater than 90 days
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^VA(200 - [#200] | GAFRET+9 |
^XUSEC("SD GAF SCORE" | OKPROV+3 |
Name | Line Occurrences |
---|---|
$$RULE | GAFRET+11 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | GAFRET+8! |
>> DFN | GAFRET+5 |
DIC | GAFPROV+4~, GAFPROV+5*, GAFPROV+7! |
DIC("A" | GAFPROV+7* |
DIC("S" | GAFPROV+6* |
DIC(0 | GAFPROV+5* |
DIROUT | GAFPROV+4~, GAFPROV+8 |
DIRUT | GAFPROV+4~, GAFPROV+8 |
DT | RULE+6 |
DTOUT | GAFPROV+4~, GAFPROV+8 |
DUOUT | GAFPROV+4~, GAFPROV+8 |
GAFDAT | GAFRET+4~, GAFRET+7*, GAFRET+8, GAFRET+11, RULE~, RULE+6 |
GAFPROV | GAFRET+4~, GAFRET+9*, GAFRET+10 |
>> IBARY | GAFPROV+10, GAFRET+6, GAFRET+12 |
IBX | GAFRET+4~, GAFRET+5*, GAFRET+6, GAFRET+7, GAFRET+8*, GAFRET+9, GAFRET+10*, GAFRET+11*, GAFRET+12 |
IEN | OKPROV~, OKPROV+3 |
RULE | RULE+4~, RULE+5*, RULE+7*, RULE+8 |
X | GAFRET+4~, RULE+7 |
X1 | GAFRET+4~, RULE+6* |
X2 | GAFRET+4~, RULE+6* |
Y | GAFPROV+4~, GAFPROV+9, GAFPROV+10, GAFRET+4~, GAFRET+8* |