AMHBPL ; IHS/CMI/LAB - PROBLEM LIST UPDATE ;
Source file <AMHBPL.m>
| Package | Total | Call Graph | 
|---|---|---|
| Mental Health Social Services | 3 | ($$LASTNAP,$$LASTPLR,$$LASTPLU)^AMHAPI6 $$ALLOWV^AMHUTIL $$DATE^AMHVRL | 
| Kernel | 2 | $$FMTE^XLFDT DISP^XQORM1 | 
| Registration | 2 | EN^VALM ($$FTIME,CLEAR,FULL)^VALM1 | 
| IHS Patient | 1 | ^AUPNPAT | 
| IHS VA Utilities | 1 | ($$VAL,$$VALI)^XBDIQ1 | 
| Package | Total | Caller Graph | 
|---|---|---|
| Mental Health Social Services | 4 | AMHBPL1 AMHLEA AMHLEER AMHLEP2 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| START(AMHR) | ;EP | |
| EN | ;PEP  main entry point for AMH BHPL PROBLEM LIST | |
| HDR | ;EP -- header code | |
| GATHER1 | ; | |
| EOJ | ;End of job cleanup | |
| GATHER | ;EP | |
| EXPND | ; -- expand code | |
| NOTE | ||
| EN1 | ;PEP - requires DFN to be set to patient | |
| INIT | ; -- init variables and list array | |
| EXIT | ; -- exit code | |
| ANYNONUU(P,R) | ;EP - any problem that is allowed to be seen? | |
| TEXT | ; | |
| HELP | ; -- help code | 
| Name | Field # of Occurrence | 
|---|---|
| $$LASTNAP^AMHAPI6 | GATHER+12 | 
| $$LASTPLR^AMHAPI6 | GATHER+8 | 
| $$LASTPLU^AMHAPI6 | GATHER+10 | 
| $$ALLOWV^AMHUTIL | ANYNONUU+8 | 
| $$DATE^AMHVRL | GATHER1+8, GATHER1+17 | 
| ^AUPNPAT | START+9 | 
| EN^VALM | EN+2 | 
| $$FTIME^VALM1 | HDR+2 | 
| CLEAR^VALM1 | EOJ+1, EN+3 | 
| FULL^VALM1 | START+11, EN1+11 | 
| $$VAL^XBDIQ1 | GATHER1+8, GATHER1+11, GATHER1+14, GATHER1+17 | 
| $$VALI^XBDIQ1 | NOTE+8 | 
| $$FMTE^XLFDT | GATHER+9, GATHER+11, GATHER+14, NOTE+9 | 
| DISP^XQORM1 | HELP+1 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AMHPPROB - [#9002011.51] | GATHER1+3, GATHER1+4, ANYNONUU+6, ANYNONUU+7 | 
| ^AMHPPROB("AA" | GATHER1+1, GATHER1+2 | 
| ^AMHPPROB("AC" | GATHER+7, ANYNONUU+5 | 
| ^AMHPTP - [#9002011.53] | NOTE+9, NOTE+11 | 
| ^AMHPTP("AE" | NOTE+1, NOTE+5, NOTE+6 | 
| ^AMHREC - [#9002011] | START+2, START+4, START+5, START+6 | 
| ^AUPNPAT - [#9000001] | EN1+5, HDR+2 | 
| ^DPT - [#2] | EN1+6, HDR+2 | 
| ^TMP($J | EOJ+2!, EN1+1! | 
| ^VA(200 - [#200] | GATHER+9, GATHER+11, GATHER+14 | 
| Name | Line Occurrences | 
|---|---|
| EN | EN1+9 | 
| EN1 | START+10 | 
| EXIT | START+12, EN1+12 | 
| GATHER | INIT+1 | 
| GATHER1 | GATHER+17 | 
| Name | Field # of Occurrence | 
|---|---|
| ^(0 | NOTE+9 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| A | ANYNONUU+1~, ANYNONUU+5*, ANYNONUU+6, ANYNONUU+7 | 
| AMHAF | EOJ+4!, GATHER+5~, GATHER+17*, GATHER1+4, EXIT+2! | 
| AMHBHPL | START+3~, GATHER+4!, EXIT+1! | 
| AMHBHPL( | GATHER+9*, GATHER+11*, GATHER+14*, GATHER+15*, GATHER1+9*, GATHER1+12*, GATHER1+15*, GATHER1+18*, NOTE+4*, NOTE+7* , NOTE+10*, NOTE+12*, NOTE+13* | 
| AMHBHPL("IDX" | GATHER+7*, GATHER1+7*, GATHER1+9*, GATHER1+12*, GATHER1+15*, GATHER1+18*, NOTE+4*, NOTE+7*, NOTE+10*, NOTE+12* , NOTE+13* | 
| AMHBHPL(1 | GATHER+7* | 
| AMHBPL | GATHER+6!, EXIT+2! | 
| AMHBPLPT | EOJ+4!, EN1+3*, EN1+4, EN1+5, EN1+6, EN1+10!, HDR+2, GATHER+7, GATHER+8, GATHER+10 , GATHER+12, GATHER1+1, GATHER1+2 | 
| AMHC | GATHER+5~, NOTE+5*, NOTE+7*, NOTE+9, EXIT+2! | 
| AMHDATE | START+3~, START+5*, EOJ+4!, EXIT+2! | 
| AMHF | GATHER+5~, GATHER1+1*, GATHER1+2, NOTE+18! | 
| AMHL | NOTE+18!, EXIT+2! | 
| AMHLINE | START+3~, INIT+2, GATHER+6*, GATHER+7*, GATHER+9*, GATHER+11*, GATHER+14*, GATHER+15*, GATHER1+7*, GATHER1+9 , GATHER1+10*, GATHER1+12, GATHER1+13*, GATHER1+15, GATHER1+16*, GATHER1+18, NOTE+2*, NOTE+4, NOTE+7*, NOTE+10* , NOTE+12*, NOTE+13*, EXIT+2! | 
| AMHLOC | START+3~, START+6*, EOJ+4!, EXIT+2! | 
| AMHLOOK | EOJ+4!, EXIT+2! | 
| AMHLR | GATHER+5~, NOTE+8*, NOTE+9, NOTE+18!, EXIT+2! | 
| >> AMHNIEN | NOTE+6*, NOTE+8, NOTE+9, NOTE+11 | 
| AMHOVRR | START+7*, EN1+8*, INIT+3*, EXIT+2! | 
| AMHP0 | GATHER+5~, GATHER1+3*, GATHER1+8, GATHER1+11, GATHER1+17, EXIT+2! | 
| AMHPAT | START+3~, START+4*, EOJ+4! | 
| AMHPDFN | EOJ+4!, EXIT+2! | 
| AMHPIEN | EOJ+4!, GATHER+5~, GATHER1+3*, GATHER1+4, GATHER1+7, GATHER1+8, GATHER1+9, GATHER1+12, GATHER1+14, GATHER1+15 , GATHER1+17, GATHER1+18, NOTE+1, NOTE+4, NOTE+5, NOTE+6, NOTE+7, NOTE+10, NOTE+12, NOTE+13 , EXIT+2! | 
| AMHPRB | EOJ+4!, GATHER+5~, GATHER1+2*, GATHER1+3, EXIT+2! | 
| AMHPRCNT | START+3~, GATHER+6*, GATHER+16*, GATHER1+7*, GATHER1+8, GATHER1+9, GATHER1+12, GATHER1+15, GATHER1+18, NOTE+4 , NOTE+7, NOTE+10, NOTE+12, NOTE+13, EXIT+2! | 
| AMHQUIT | GATHER+6! | 
| AMHR | START~, START+1, START+2, START+4, START+5, START+6 | 
| AMHSX | GATHER+5~, GATHER+8*, GATHER+9, GATHER+10*, GATHER+11, GATHER+12*, GATHER+14 | 
| >> AMHTNDF | NOTE+5*, NOTE+6 | 
| AMHX | GATHER+5~, GATHER1+7*, GATHER1+8*, GATHER1+9*, GATHER1+11*, GATHER1+12*, GATHER1+14*, GATHER1+15*, GATHER1+17*, GATHER1+18* , NOTE+3*, NOTE+4*, NOTE+18!, EXIT+2! | 
| >> APCDOVRR | START+8* | 
| >> AUPNDOB | START+9, HDR+2 | 
| B | ANYNONUU+1~, ANYNONUU+7*, ANYNONUU+8 | 
| C | ANYNONUU+1~ | 
| DFN | START+3~, START+4*, START+9, EN1+2, EN1+3 | 
| DT | GATHER+8, GATHER+10, GATHER+12 | 
| DUZ(2 | HDR+2 | 
| G | ANYNONUU+1~, ANYNONUU+4*, ANYNONUU+5, ANYNONUU+9*, ANYNONUU+10 | 
| >> IOINORM | HDR+2, NOTE+7, NOTE+13 | 
| >> IORVOFF | NOTE+7 | 
| >> IORVON | HDR+2, NOTE+7 | 
| >> IOUOFF | GATHER1+8 | 
| >> IOUON | GATHER1+8 | 
| P | ANYNONUU~, ANYNONUU+2, ANYNONUU+5 | 
| R | ANYNONUU~, ANYNONUU+3, ANYNONUU+8 | 
| U | START+4, START+5, START+6, HDR+2, GATHER+9, GATHER+11, GATHER+14, GATHER1+4, GATHER1+8, GATHER1+11 , GATHER1+17, NOTE+9, NOTE+11, ANYNONUU+6, ANYNONUU+7 | 
| VALM | EOJ+3! | 
| VALMAR | EOJ+3! | 
| VALMBCK | EOJ+3! | 
| VALMBG | EOJ+3! | 
| VALMCAP | EOJ+3! | 
| >> VALMCC | EN+1* | 
| VALMCNT | EOJ+3!, INIT+2* | 
| VALMDN | EOJ+3! | 
| VALMEVL | EOJ+3! | 
| VALMHDR | EXIT+4! | 
| VALMHDR(1 | HDR+1* | 
| VALMHDR(2 | HDR+2* | 
| VALMHDR(3 | HDR+3* | 
| VALMIOXY | EOJ+3! | 
| VALMKEY | EOJ+3! | 
| VALMLFT | EOJ+3! | 
| VALMLST | EOJ+3! | 
| VALMMCON | EOJ+3! | 
| VALMMENU | EOJ+3! | 
| VALMOFF | EOJ+3! | 
| VALMSGR | EOJ+3! | 
| VALMUP | EOJ+3! | 
| VALMWD | EOJ+1, EOJ+3! | 
| VALMY | EOJ+3! | 
| X | NOTE+7*, NOTE+9*, NOTE+10, NOTE+11*, NOTE+12, HELP+1*, EXIT+3! | 
| XQORNEST | EOJ+3! | 
| XQORS | EOJ+3! | 
| XQORSPEW | EOJ+3! | 
| Y | START+9*, EXIT+3! |