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 |