BPCBHDSP ; IHS/OIT/MJL - behavioral health display for GUI ; [ 11/14/2007 10:40 AM ]
Source file <BPCBHDSP.m>
| Package | Total | Call Graph | 
|---|---|---|
| IHS VA Utilities | 2 | ^XBKSET GUIR^XBLM | 
| Mental Health Social Services | 2 | EP2^AMHLEFP2 EN^AMHVDSG1 | 
| Text Integration Utility | 2 | $$CANDO^TIULP EXTRACT^TIULQ | 
| Kernel | 1 | ^%ZTLOAD | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| TESTREC | ; | |
| INTAKE(BGUARRAY,BPCIEN) | ;EP called to return an INTAKE form in an array | |
| ENCFORM(AMHARRY,AMHR,AMHEFT) | ;EP called to get encounter form in array | |
| TSK | ; | |
| SUICDSP(BGUARRAY,BPCIEN) | ;EP CALL FROM REMOTE PROC: BPCBH SUICIDE FORM DSP | |
| TIUN(BGUARRAY,BPCIEN) | ;EP called to return TIU notes in an array | |
| S1 | ; | |
| TSKITKF | ; Task Intake Form | |
| RECDISP(AMHARRY,AMHR) | ;EP - called to display one BH record | |
| TESTSUIC | ; | |
| TESTENC | ; | |
| ENSFDSP | ; | |
| S(Y,F,C,T) | ;set up array | |
| KILL | ; | 
| RPC Name | Call Tags | 
|---|---|
| BPCBH RECORD DISPLAY | RECDISP | 
| BPCBH ENCOUNTER FORM | ENCFORM | 
| BPCBH SUICIDE FORM DSP | SUICDSP | 
| BPCBH INTAKE FORM | INTAKE | 
| BPCBH TIU NOTES | TIUN | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AMHREC - [#9002011] | TIUN+1, TIUN+7 | 
| ^TMP("AMHOENPS" | TIUN+10, TIUN+13, TIUN+14! | 
| ^TMP("AMHS" | ENCFORM+7!, ENCFORM+11, ENCFORM+12*!, S1+1*, S1+2* | 
| ^TMP("AMHVDSG" | RECDISP+5!, RECDISP+7*!, RECDISP+8* | 
| ^XTMP("BPCIF" | TSKITKF+4*, INTAKE+4! | 
| ^XTMP("BPCIFRUN" | TSKITKF+2*, TSKITKF+5*, INTAKE+5*, INTAKE+9 | 
| ^XTMP("BPCSF" | ENSFDSP+5!, TSK+4* | 
| ^XTMP("BPCSFRUN" | ENSFDSP+6*, ENSFDSP+12, TSK+2*, TSK+5* | 
| Name | Line Occurrences | 
|---|---|
| ENCFORM | TESTENC+1 | 
| KILL | ENSFDSP+13, INTAKE+10 | 
| RECDISP | TESTREC+1 | 
| S | TIUN+5, TIUN+8, TIUN+15, TIUN+16, TIUN+17, TIUN+18, TIUN+19, TIUN+21, TIUN+22 | 
| S1 | S+5, S+7, S+10 | 
| SUICDSP | TESTSUIC+1 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | S+1~, S+8*, S+9*, S1+1*, S1+2 | 
| AMHAR | TIUN+6! | 
| AMHARRY | ENCFORM~, ENCFORM+6*, RECDISP~, RECDISP+4*, RECDISP+6 | 
| >> AMHDOC | TIUN+7*, TIUN+8, TIUN+12, TIUN+13 | 
| AMHEFT | ENCFORM~, ENCFORM+8*, ENCFORM+9 | 
| AMHERR | TIUN+6!, TIUN+12 | 
| >> AMHGBL | TIUN+10*, TIUN+11, TIUN+12 | 
| >> AMHHLF | TIUN+10* | 
| >> AMHPG | INTAKE+7* | 
| AMHR | ENCFORM~, ENCFORM+10, RECDISP~, RECDISP+6, TIUN+3*, TIUN+7 | 
| AMHSF | ENSFDSP+4*, KILL+1! | 
| AMHTIU | TIUN+6!, TIUN+8!, TIUN+13*, TIUN+24! | 
| AMHTIU( | TIUN+15, TIUN+17 | 
| AMHTIU("TEXT" | TIUN+19 | 
| AMHTIU(1202 | TIUN+16 | 
| AMHTIU(1205 | TIUN+18 | 
| AMHTIU(1501 | TIUN+20, TIUN+22 | 
| AMHTIU(1502 | TIUN+17 | 
| AMHTIU(1503 | TIUN+21 | 
| >> AMHX | TIUN+19* | 
| BGUARRAY | SUICDSP~, ENSFDSP+3*, INTAKE~, INTAKE+3*, TIUN~, TIUN+2*, TIUN+4 | 
| BPCCTR | KILL+1!, ENCFORM+11~*, ENCFORM+12, RECDISP+7~*, RECDISP+8 | 
| BPCGUI | ENSFDSP+1*, KILL+1!, INTAKE+1* | 
| BPCIEN | SUICDSP~, ENSFDSP+4, INTAKE~, INTAKE+7, TIUN~, TIUN+1, TIUN+3 | 
| C | S~, S+7 | 
| >> DFN | INTAKE+7* | 
| DIC | KILL+1! | 
| DUZ | TIUN+8 | 
| F | S~, S+2*, S+5* | 
| >> I | ENSFDSP+12*, INTAKE+9* | 
| IOM | TIUN+10 | 
| JOB | ENSFDSP+1*, ENSFDSP+5, ENSFDSP+6, TSK+2, TSK+4, TSK+5, TSKITKF+2, TSKITKF+4, TSKITKF+5, KILL+1! , INTAKE+1*, INTAKE+4, INTAKE+5 | 
| >> L | S+7* | 
| >> RETVAL | TESTREC+1, TESTENC+1, TESTSUIC+1 | 
| T | S~, S+3*, S+7*, S+8, S+9 | 
| U | TIUN+1, TIUN+7, S1+1 | 
| X | KILL+1!, ENCFORM+11~*, RECDISP+3~, RECDISP+6!, RECDISP+7*, TIUN+5*, TIUN+8*, S+5*, S+6*, S+8* , S+9*, S1+2 | 
| >> XWBWRAP | ENSFDSP+1*, INTAKE+1* | 
| Y | KILL+1!, S~, S+6, S+7, S+9 | 
| ZTDESC | ENSFDSP+11*, KILL+1!, INTAKE+8* | 
| ZTDTH | ENSFDSP+11*, KILL+1!, INTAKE+8* | 
| ZTIO | ENSFDSP+2*, ENSFDSP+11*, KILL+1!, INTAKE+2*, INTAKE+8* | 
| >> ZTQUEUED | ENSFDSP+2*, INTAKE+2* | 
| ZTRTN | ENSFDSP+11*, KILL+1!, INTAKE+8* | 
| ZTSAVE | KILL+1! | 
| ZTSAVE("AMHPG" | INTAKE+8* | 
| ZTSAVE("AMHSF" | ENSFDSP+11* | 
| ZTSAVE("DFN" | INTAKE+8* | 
| ZTSAVE("JOB" | ENSFDSP+11*, INTAKE+8* |