AMHLE ; IHS/CMI/LAB - MENTAL HLTH ROUTINE 16-AUG-1994 ;
Source file <AMHLE.m>
Package | Total | Call Graph |
---|---|---|
Mental Health Social Services | 5 | EN^AMHEKL $$ESIGREQ^AMHESIG PAUSE^AMHLEA (,$$CTR)^AMHLEIN GATHER^AMHLEL |
Registration | 3 | EN^VALM TERM^VALM0 ($$FTIME,CLEAR,FULL)^VALM1 |
Kernel | 2 | ($$DOW,$$FMTE)^XLFDT DISP^XQORM1 |
IHS Patient | 1 | ($$DOB,$$HRN)^AUPNPAT |
VA Fileman | 1 | ^DIR |
Name | Comments | DBIA/ICR reference |
---|---|---|
HELP | ;EP -- help code
|
|
EN | ; EP -- main entry point for AMH UPDATE ACTIVITY RECORDS
|
|
HDR | ;EP -- header code
|
|
EOJ | ;EOJ CLEANUP
|
|
GETTYPE | ;EP
|
|
EXPND | ; -- expand code
|
|
START | ; Write Header
|
|
INIT | ;EP -- init variables and list array
|
|
EXIT | ; -- exit code
|
|
TEXT | ;
|
|
DISPDG | ;EP
|
|
GETDATE | ;EP - GET DATE OF ENCOUNTER
|
Name | Field # of Occurrence |
---|---|
EN^AMHEKL | START+6, EOJ+2 |
$$ESIGREQ^AMHESIG | HDR+2 |
PAUSE^AMHLEA | START+5 |
^AMHLEIN | START+11 |
$$CTR^AMHLEIN | DISPDG+3 |
GATHER^AMHLEL | INIT+3 |
$$DOB^AUPNPAT | DISPDG+2 |
$$HRN^AUPNPAT | DISPDG+2 |
^DIR | GETTYPE+4, GETDATE+2 |
EN^VALM | EN+3 |
TERM^VALM0 | START+1 |
$$FTIME^VALM1 | HDR+2 |
CLEAR^VALM1 | EOJ+1, EN+4 |
FULL^VALM1 | START+13, GETTYPE+1 |
$$DOW^XLFDT | HDR+2 |
$$FMTE^XLFDT | DISPDG+2 |
DISP^XQORM1 | HELP+1 |
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 |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | DISPDG+2 |
^TMP("AMHVRECS" | HDR+4!, EXIT+1! |
Name | Line Occurrences |
---|---|
EN | START+13 |
EOJ | START+14 |
EXIT | START+13 |
GETDATE | START+13 |
GETTYPE | START+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> AMHDASH | HDR+1, HDR+3 |
>> AMHDATE | START+13*, GETDATE+2*, GETDATE+4*, HDR+2 |
>> AMHDET | START+2 |
AMHKDTIM | EN+6! |
>> AMHPAT | DISPDG+2 |
>> AMHPATCE | GETTYPE+1 |
>> AMHPTYPE | START+13*, GETTYPE+2*, GETTYPE+6* |
AMHRCNT | HDR+4*, INIT+4, EXIT+1! |
>> AMHRESU( | DISPDG+3 |
DA | GETTYPE+4! |
DIR | GETTYPE+4!, GETDATE+2! |
DIR("A" | GETTYPE+4*, GETDATE+2* |
DIR(0 | GETTYPE+4*, GETDATE+2* |
>> DIRUT | GETTYPE+5, GETDATE+2*, GETDATE+3 |
DT | GETDATE+2 |
>> DUOUT | GETDATE+2 |
DUZ(2 | DISPDG+2 |
IOF | START+7, GETTYPE+1 |
>> IORVOFF | START+4 |
>> IORVON | START+3 |
J | START+8*, START+9! |
U | DISPDG+2 |
VALMCC | EN+2*, EXIT+2! |
>> VALMCNT | INIT+4*, INIT+5 |
VALMHDR | EXIT+2! |
VALMHDR(1 | HDR+1* |
VALMHDR(2 | HDR+2* |
VALMHDR(3 | HDR+3* |
VALMHDR(4 | HDR+4*, HDR+5* |
>> VALMSG | INIT+2*, INIT+5* |
X | START+8*, START+9!, HELP+1*, DISPDG+3* |
>> Y | START+2, GETTYPE+6, GETDATE+4 |
Name | Field # of Occurrence |
---|---|
$T(TEXT+J | START+8 |