©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
AMHLETP ; IHS/CMI/LAB - DISPLAY/EDIT TREATMENT NOTES ;
Source file <AMHLETP.m>
| Package | Total | Call Graph |
|---|---|---|
| Mental Health Social Services | 4 | EN^AMHEKL PAUSE^AMHLEA ^AMHLEIN ($$ALLOWP,NALLOWP)^AMHUTIL |
| Kernel | 2 | $$FMTE^XLFDT DISP^XQORM1 |
| Registration | 2 | EN^VALM ($$FTIME,CLEAR,FULL)^VALM1 |
| IHS VA Utilities | 1 | $$VAL^XBDIQ1 |
| VA Fileman | 1 | ^DIC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETTXT | ;EP - GENERALIZED TEXT PRINTER
|
|
| ALLOWTP(S,R) | ;EP - CAN THIS USER SEE THIS TREATMENT PLAN?
|
|
| HDR | ;EP -- header code
|
|
| EOJ | ;EOJ CLEANUP
|
|
| GATHER | ;EP - called from AMHUAR
|
|
| GETPAT | ;get patient
|
|
| GETFRAG | ||
| START | ; Write Header
|
|
| INIT | ;EP -- init variables and list array
|
|
| EN | ; EP -- main entry point for AMH UPDATE ACTIVITY RECORDS
|
|
| EXIT | ; -- exit code
|
|
| EP1(DFN) | ;EP CALLED FROM PROTOCOL
|
|
| TEXT | ;
|
|
| GETTXT2 | ||
| EXPND | ; -- expand code
|
|
| HELP | ;EP -- help code
|
| Name | Field # of Occurrence |
|---|---|
| EN^AMHEKL | START+1, EOJ+2 |
| PAUSE^AMHLEA | GETPAT+6 |
| ^AMHLEIN | START+6 |
| $$ALLOWP^AMHUTIL | GETPAT+6 |
| NALLOWP^AMHUTIL | GETPAT+6 |
| ^DIC | GETPAT+3 |
| EN^VALM | EN+2, EN+3 |
| $$FTIME^VALM1 | GATHER+7, GATHER+9, HDR+1 |
| CLEAR^VALM1 | EOJ+1, EN+2, EN+4 |
| FULL^VALM1 | START+9, EP1+6 |
| $$VAL^XBDIQ1 | GATHER+6 |
| $$FMTE^XLFDT | GETPAT+7 |
| DISP^XQORM1 | HELP+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^AUPNPAT - [#9000001] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AMHPTXP - [#9002011.56] | ALLOWTP+4, ALLOWTP+6, ALLOWTP+9, ALLOWTP+10, ALLOWTP+13, ALLOWTP+14, ALLOWTP+15, GATHER+6, GATHER+7, GATHER+9 , GATHER+10, GATHER+11, GATHER+12 |
| ^AMHPTXP("AA" | GATHER+3 |
| ^AMHPTXP("AC" | GATHER+2 |
| ^AMHSITE - [#9002013] | ALLOWTP+8 |
| ^DPT - [#2] | EP1+2, EP1+3, HDR+1 |
| ^VA(200 - [#200] | GATHER+6 |
| Name | Line Occurrences |
|---|---|
| $$ALLOWTP | GATHER+4 |
| EN | START+9, EP1+5 |
| EOJ | START+10 |
| EXIT | START+9 |
| GATHER | INIT+1 |
| GETFRAG | GETTXT2 |
| GETPAT | START+8, GETPAT+6 |
| GETTXT2 | GETTXT+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AMHCOL | EXIT+1! |
| >> AMHD | GATHER+3* |
| >> AMHDISP | EN+2 |
| AMHE | GATHER+3*, GATHER+4, GATHER+5, GATHER+6, GATHER+7, GATHER+9, GATHER+10, GATHER+11, GATHER+12, EXIT+1! |
| AMHGNUM | EXIT+1! |
| >> AMHLEC | GETTXT2*, GETTXT2+1 |
| AMHLEL | EXIT+1! |
| >> AMHLETP("C" | GETTXT+3!, GETFRAG+1*, GETFRAG+2 |
| >> AMHLETP("DLT" | GETTXT+1*, GETTXT+3!, GETTXT2+1* |
| >> AMHLETP("F" | GETTXT+3!, GETTXT2+1, GETFRAG*, GETFRAG+2* |
| >> AMHLETP("ICL" | GETTXT+1, GETTXT2, GETTXT2+1* |
| >> AMHLETP("ILN" | GETTXT+1*, GETTXT+3!, GETTXT2+1*, GETFRAG, GETFRAG+1 |
| >> AMHLETP("LGTH" | GETTXT+1 |
| >> AMHLETP("NRQ" | GETTXT+2* |
| >> AMHLETP("Q" | GETTXT+2* |
| >> AMHLETP("TXT" | GETTXT+2*, GETTXT+3!, GETFRAG*, GETFRAG+1, GETFRAG+2* |
| AMHLETXT | EXIT+1! |
| AMHLETXT( | GETTXT2*, GETTXT2+1* |
| AMHLINE | GATHER+1*, GATHER+5*, GATHER+6, GATHER+7*, GATHER+8, GATHER+9*, GATHER+10*, GATHER+12*, GATHER+14*, INIT+2 , EXIT+1! |
| >> AMHPAT | GETPAT+1*, GETPAT+5*, GETPAT+6 |
| AMHPTP | GATHER+1!, HDR+2!, EXIT+1! |
| AMHPTP( | GATHER+6*, GATHER+8*, GATHER+9*, GATHER+10*, GATHER+12*, GATHER+14* |
| AMHPTP("IDX" | GATHER+5* |
| AMHPTP(1 | GATHER+2*, HDR+2 |
| AMHQUIT | GATHER+1! |
| AMHRCNT | GATHER+1*, GATHER+2*, GATHER+5*, GATHER+6, HDR+2*, EXIT+1! |
| AMHTPN | EXIT+1! |
| >> AMHX | GATHER+6*, GATHER+7*, GATHER+8, GATHER+9*, GATHER+10* |
| APCHSPAT | EP1+4~ |
| APCHSTYP | EP1+4~ |
| >> AUPNDOD | GETPAT+7 |
| >> C | GATHER+11*, GATHER+12 |
| DFN | START+8*, START+9, GETPAT+1*, GETPAT+5*, EP1~, EP1+1, EP1+2, EP1+3, GATHER+2, GATHER+3 , HDR+1 |
| DIC | GETPAT+3*! |
| DIC(0 | GETPAT+3* |
| DUZ | GETPAT+6, GATHER+4 |
| DUZ(2 | ALLOWTP+8 |
| G | ALLOWTP+11~, ALLOWTP+12*, ALLOWTP+13, ALLOWTP+14*, ALLOWTP+15*, ALLOWTP+16 |
| IOF | START+2 |
| J | START+3*, START+4! |
| P | ALLOWTP+5~, ALLOWTP+6*, ALLOWTP+7 |
| R | ALLOWTP~, ALLOWTP+3, ALLOWTP+4, ALLOWTP+6, ALLOWTP+9, ALLOWTP+10, ALLOWTP+13, ALLOWTP+14, ALLOWTP+15 |
| S | ALLOWTP~, ALLOWTP+2, ALLOWTP+8, ALLOWTP+9, ALLOWTP+10, ALLOWTP+14, ALLOWTP+15 |
| U | ALLOWTP+6, ALLOWTP+9, ALLOWTP+10, ALLOWTP+14, ALLOWTP+15, EP1+3, GATHER+6, GATHER+7, GATHER+9, GATHER+12 , HDR+1 |
| VALMCC | EN+1*, EXIT+2! |
| >> VALMCNT | INIT+2* |
| VALMHDR | EP1+7!, EXIT+2! |
| VALMHDR(1 | HDR+1* |
| VALMHDR(2 | HDR+2*, HDR+3* |
| X | START+3*, START+4!, ALLOWTP+11~, ALLOWTP+13*, ALLOWTP+14, ALLOWTP+15, EP1+8!, GATHER+11*, GATHER+12, HELP+1* , GETTXT2* |
| Y | GETPAT+4, GETPAT+5, ALLOWTP+11~, EP1+8! |
| Name | Field # of Occurrence |
|---|---|
| $T(TEXT+J | START+3 |