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 |