AMHLEA ; IHS/CMI/LAB - ADD NEW CHR ACTIVITY RECORDS ;
Source file <AMHLEA.m>
Package | Total | Call Graph |
---|---|---|
Mental Health Social Services | 21 | START^AMHBPL ($$ESIG,ESIG,ESIGGFI)^AMHESIG EP^AMHLCD HDR^AMHLE (PCCLINK,RECCHECK)^AMHLE2 PHX^AMHLE3 PAUSE^AMHLEA ($$IINTAKE,EN)^AMHLEDEL ^AMHLEFP ($$GETAWI,$$GETCLN,$$GETCOMM,$$GETLOC,$$GETTOC,CALLDIE)^AMHLEIN EP1^AMHLEIV GATHER^AMHLEL ADDR^AMHLENS REGULAR^AMHLEP2 ^AMHLEPOV EN^AMHLESF EP1^AMHLETP ^AMHPEDIT ($$ALLOWP,$$PPINT,NALLOWP)^AMHUTIL $$HL^AMHUTIL2 APPT^AMHVRL2 |
VA Fileman | 6 | ^DDS ^DIC (FILE,YN)^DICN ^DIE ^DIK ^DIR |
IHS VA Utilities | 3 | $$VALI^XBDIQ1 ^XBFMK EN^XBNEW |
Registration | 2 | TERM^VALM0 ($$FTIME,CLEAR,FULL)^VALM1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
ADD1 | ;
|
|
CDST | ;EP
|
|
DEL | ;EP
|
|
GETPAT1 | ||
SUIC | ;EP - is this a suicide visit? IF so, pop into suicide form
|
|
PCCLINK | ;EP -PCC LINK
|
|
RMENU | ;EP - called form AMHLEA
|
|
CDST1 | ||
3 | ;
|
|
1 | ;EP
|
|
GETVTYP | ;
|
|
PRIMPROB(R) | ;EP
|
|
5 | ;treatment Plan
|
|
OTHER1 | ;
|
|
7 | ;intake
|
|
6 | ;print encounter form
|
|
9 | ;problem list
|
|
8 | ;suicide forms
|
|
ADDSCR | ;screenman mode
|
|
4 | ;scheduling system
|
|
PAUSE | ;EP
|
|
INDS(R) | ;is this a initial or a discharge
|
|
OTHERN | ;
|
|
OTHERO | ;
|
|
GETPAT | ;EP
|
|
HEADER | ;EP
|
|
OTHER | ;EP - collect other data if patient related
|
|
2 | ;
|
|
ADDNS | ;EP
|
|
ADDR | ;EP
|
|
GETPROV | ;get providers
|
|
CHECK | ;EP
|
|
EXIT | ;CLEAN UP AND EXIT
|
|
CDSTDEL | ;
|
Name | Field # of Occurrence |
---|---|
START^AMHBPL | 9+1 |
$$ESIG^AMHESIG | OTHERN+4 |
ESIG^AMHESIG | ADDR+30 |
ESIGGFI^AMHESIG | OTHERN+12 |
EP^AMHLCD | 2+1 |
HDR^AMHLE | EXIT+5 |
PCCLINK^AMHLE2 | PCCLINK+1 |
RECCHECK^AMHLE2 | ADDR+25, CHECK+2 |
PHX^AMHLE3 | 3+1 |
PAUSE^AMHLEA | 7+1, 7+3, 8+1, 8+3 |
$$IINTAKE^AMHLEDEL | DEL+1 |
EN^AMHLEDEL | DEL+4 |
^AMHLEFP | 6+3 |
$$GETAWI^AMHLEIN | ADDSCR+21 |
$$GETCLN^AMHLEIN | ADDSCR+20 |
$$GETCOMM^AMHLEIN | ADDSCR+19 |
$$GETLOC^AMHLEIN | ADDSCR+19 |
$$GETTOC^AMHLEIN | ADDSCR+21 |
CALLDIE^AMHLEIN | ADDR+19, ADDR+23, ADDR+26, ADDSCR+17 |
EP1^AMHLEIV | 7+4 |
GATHER^AMHLEL | EXIT+3 |
ADDR^AMHLENS | ADDNS+5 |
REGULAR^AMHLEP2 | ADDR+27, ADD1+13 |
^AMHLEPOV | ADDR+21 |
EN^AMHLESF | SUIC+11, 8+4 |
EP1^AMHLETP | 5+1 |
^AMHPEDIT | GETPAT1+5 |
$$ALLOWP^AMHUTIL | GETPAT1+7 |
$$PPINT^AMHUTIL | ADDSCR+24 |
NALLOWP^AMHUTIL | GETPAT1+7 |
$$HL^AMHUTIL2 | ADDSCR+19, ADD1+7 |
APPT^AMHVRL2 | 4+1 |
^DDS | ADD1+1, CDST1+3, 1+4 |
^DIC | GETPAT1+2, 1+3 |
FILE^DICN | ADDR+16, ADDSCR+12, CDST+6, GETPROV+6 |
YN^DICN | GETPAT1+6 |
^DIE | ADDR+18, ADDSCR+16, ADDSCR+22, ADD1+7, CDST1+1, OTHERN+11 |
^DIK | CDSTDEL+5 |
^DIR | GETVTYP+4, CDSTDEL+2, SUIC+6, OTHERN+8, OTHERO+3, GETPROV+3, PAUSE+1, CHECK+4 |
TERM^VALM0 | EXIT+1 |
$$FTIME^VALM1 | HEADER+3 |
CLEAR^VALM1 | 1+1 |
FULL^VALM1 | ADDR+1, ADDNS+1, ADDSCR+3, OTHER+2, 1+2, 2+2 |
$$VALI^XBDIQ1 | ADD1+7 |
^XBFMK | CDST+6, CDST1, CDST1+2, CDST1+5, GETPAT+1, 1+3 |
EN^XBNEW | 6+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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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 |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^AUPNPAT - [#9000001] | Classic Fileman Calls |
^AMHREC - [#9002011] | Classic Fileman Calls |
^AMHRPROV - [#9002011.02] | Classic Fileman Calls |
^AMHRCDST - [#9002011.06] | Classic Fileman Calls |
^AMHPATR - [#9002011.55] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AMHPATR - [#9002011.55] | 1+3 |
^AMHPROB - [#9002012.2] | SUIC+2 |
^AMHRCDST("B" | CDST+4, CDSTDEL+5 |
^AMHREC - [#9002011] | ADDR+29, ADDR+30, INDS+2, CDST+3, CDST1+1, DEL+2, 7+1, 7+3, 8+1, 8+3 , 8+4 |
^AMHRPRO - [#9002011.01] | PRIMPROB+4, SUIC+2 |
^AMHRPRO("AD" | ADDR+22, PRIMPROB+2, SUIC+2 |
^AMHRPROV("AD" | ADDR+20, ADDR+22 |
^VA(200 - [#200] | GETPROV+3 |
Name | Line Occurrences |
---|---|
$$PRIMPROB | CDST1+1 |
@( | OTHER1+3 |
ADD1 | ADD1+11 |
ADDSCR | ADDR+5 |
CDST1 | CDST+4 |
CHECK | ADD1+9 |
DEL | ADDR+20, ADDR+22, ADDR+24, ADDR+25, ADDSCR+17, ADDSCR+24, CHECK+7 |
EXIT | ADDR+20, ADDR+22, ADDR+24, ADDR+25, ADDR+32, ADDNS+6, ADDSCR+17, ADDSCR+24, ADD1+10, ADD1+20 |
GETPAT | ADDSCR+17, OTHER1+1, GETPAT1+7 |
GETPAT1 | GETPAT1+5 |
GETPROV | ADDSCR+24 |
HEADER | ADDR+13 |
OTHER | ADDR+29, ADD1+17, OTHERN+5 |
OTHER1 | OTHERO+6 |
OTHERN | OTHERO+7 |
OTHERO | OTHERN+1 |
PAUSE | ADDR+17, ADDSCR+13, CDST+7, CDST1+2, OTHERN+7, GETPAT1+7, DEL+1, DEL+5 |
PCCLINK | ADDR+31, ADD1+18 |
RMENU | OTHERO+2 |
SUIC | ADDR+29, ADD1+17 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | GETPAT1+6*, 6+1* |
>> %1 | 6+1* |
>> AMHACTN | ADDR+3*, ADDNS+3*, ADDSCR+5*, RMENU+1, CHECK+6 |
>> AMHADPTV | ADDR+4, ADDR+19, ADDR+27, ADDSCR+17, ADD1+1, ADD1+13, ADD1+17, ADD1+18, GETPROV+1 |
>> AMHANS | OTHERN+3*, OTHERN+5, OTHERN+10* |
AMHC | GETPAT+2*, GETPAT1, GETPAT1+3!, GETPAT1+5*, GETPAT1+6!, GETPAT1+8! |
>> AMHCDR | CDST+4*, CDST+8*, CDST1+1, CDST1+3 |
>> AMHDASH | HEADER+2, HEADER+3 |
>> AMHDATE | ADDR+2, ADDR+16, ADDNS+2, ADDSCR+4, ADDSCR+11, HEADER+3 |
>> AMHDET | ADDR+5, GETVTYP+1, GETVTYP+2, GETPAT1 |
AMHDR | EXIT+6! |
AMHERROR | ADD1+15, EXIT+6! |
AMHF | EXIT+6! |
>> AMHFIRST | OTHER+1*, OTHERN+1, OTHERN+13* |
>> AMHLEAP | SUIC+9*, SUIC+12, SUIC+13 |
AMHNAME | EXIT+6! |
AMHNOLOG | 6+2*, 6+4! |
AMHNONE | EXIT+6! |
AMHOKAY | ADDR+25*, EXIT+6!, CHECK+2* |
AMHOTH | EXIT+6! |
AMHPAT | ADDR+4!, ADDR+15!, ADDSCR+2!, ADDSCR+17, CDST1+1, SUIC+1, SUIC+9, SUIC+12*, OTHER1+1*, GETPROV+6 , GETPAT1+1*, GETPAT1+4*, GETPAT1+5, GETPAT1+6*, GETPAT1+7, 1+3, 1+4, 6+1, 4+1, 5+1 , 7+4 |
>> AMHPATCE | ADDR+15, ADDSCR+2, ADDSCR+17 |
AMHPTSV | EXIT+6! |
>> AMHPTYPE | ADDSCR+11, ADDSCR+19, ADDSCR+20 |
AMHQUIT | ADDR+3*, ADDNS+3*, ADDSCR+5*, ADD1+6*, CDST1+4*, EXIT+6!, 1+5* |
AMHR | ADDR+18*, ADDR+19, ADDR+20, ADDR+22, ADDR+23, ADDR+26, ADDR+29, ADDR+30, ADDSCR+15*, ADDSCR+16 , ADDSCR+17, ADDSCR+18, ADDSCR+24, ADD1+1, ADD1+7, CDST+3, CDST+4, CDST+6, CDST1+1, CDSTDEL+5 , SUIC+2, OTHERN+4, OTHERN+11, OTHERN+12, GETPROV+6, DEL+1, DEL+2, DEL+3, EXIT+6!, 6+1 , 7+1, 7+2, 7+3, 7+4, 8+1, 8+2, 8+3, 8+4, 9+1 |
AMHR0 | EXIT+6! |
>> AMHRCNT | EXIT+4 |
AMHRDEL | DEL+3*, EXIT+6! |
>> AMHSELE | OTHERO+6*, OTHER1+1, OTHER1+3 |
AMHSHIGH | EXIT+6! |
AMHV | EXIT+6! |
AMHVDLT | DEL+2*, EXIT+6! |
>> AMHVT | GETVTYP+6* |
>> AMHVTYPE | ADDR+8*, ADDR+19, ADDR+23, ADDR+27, ADDSCR+10*, ADDSCR+11, ADD1+1, ADD1+13, GETVTYP+5*, GETVTYP+6* |
AMHX | EXIT+6! |
AMHXX | OTHERN+2!, OTHERN+4*, OTHERN+5, OTHERN+6, OTHERN+7, OTHERN+12 |
>> AMHZDEL | ADD1+10, CHECK+1*, CHECK+8* |
>> AMHZED | ADD1+11, CHECK+1*, CHECK+5* |
>> APCDOVRR | ADDR+14*, ADDNS+4*, ADDSCR+1* |
APCDPKG | EXIT+6! |
APCDV | EXIT+6! |
D0 | ADDR+16!, ADDSCR+12!, CDST+6!, GETPROV+6! |
DA | ADDR+16!, ADDR+18*!, ADDR+19*, ADDR+23*, ADDR+26*, ADDSCR+16*!, ADDSCR+17*, ADDSCR+18*, ADDSCR+23!, ADD1+1* , ADD1+7*!, GETVTYP+3!, CDST1+1*, CDST1+3*, CDSTDEL+2!, CDSTDEL+5*, SUIC+6!, OTHERN+8!, OTHERN+11*!, GETPROV+3! , GETPROV+6!, GETPAT1+2!, 1+4*, CHECK+4! |
DD | ADDR+16!, ADDSCR+12!, CDST+6!, GETPROV+6! |
>> DDSFILE | ADD1+1*, CDST1+3*, 1+4* |
>> DFN | SUIC+9*, SUIC+13*, 8+4* |
DG | GETPROV+6! |
DH | GETPROV+6! |
DI | GETPROV+6! |
DIADD | ADDR+16*!, ADDSCR+11*, ADDSCR+12!, CDST+6*!, CDST1!, GETPROV+6*!, GETPAT1+2! |
DIC | ADDR+16!*, ADDSCR+11!*, ADDSCR+12!, CDST+6*!, GETPROV+3!, GETPROV+6*!, GETPAT1+2*!, 1+3* |
DIC("A" | GETPAT1* |
DIC("DR" | ADDR+16*, ADDSCR+11*, GETPROV+6* |
DIC(0 | ADDR+16*, ADDSCR+11*, CDST+6*, GETPROV+6*, GETPAT1+2*, 1+3* |
DIE | ADDR+16!, ADDR+18*!, ADDR+19*, ADDR+23*, ADDR+26*, ADDSCR+12!, ADDSCR+16*!, ADDSCR+17*, ADDSCR+18*, ADDSCR+23! , ADD1+7*!, CDST1+1*, OTHERN+11*!, GETPROV+6! |
>> DIK | CDSTDEL+5* |
DIMSG | ADD1+6!, CDST1+4!, 1+5! |
DINUM | ADDR+16! |
DIR | GETVTYP+4!, CDSTDEL+2!, SUIC+6!, OTHERN+8!, OTHERO+3!, GETPROV+3!, PAUSE+1!, CHECK+4! |
DIR("A" | GETVTYP+3*, CDSTDEL+2*, SUIC+6*, OTHERN+8*, OTHERO+3*, GETPROV+3*, PAUSE+1*, CHECK+4* |
DIR("B" | GETVTYP+3*, CDSTDEL+2*, SUIC+6*, OTHERN+8*, OTHERO+3*, GETPROV+3*, CHECK+4* |
DIR(0 | GETVTYP+1*, GETVTYP+2*, CDSTDEL+2*, SUIC+6*, OTHERN+8*, OTHERO+3*, GETPROV+3*, PAUSE+1*, CHECK+4* |
DIRUT | GETVTYP+5, CDSTDEL+3, SUIC+7, OTHERN+9, OTHERO+4, GETPROV+3!*, GETPROV+4, PAUSE+1* |
DIU | GETPROV+6! |
DIW | GETPROV+6! |
DLAYGO | ADDR+16*!, ADDSCR+11*, ADDSCR+12!, CDST+6*!, CDST1!, GETPROV+6*!, GETPAT1+2!, 1+3* |
DO | ADDR+16!, ADDSCR+12!, CDST+6!, GETPROV+6! |
DQ | GETPROV+6! |
DR | ADDR+16!, ADDR+18*!, ADDR+19*, ADDR+23*, ADDR+26*, ADDSCR+12!, ADDSCR+16*!, ADDSCR+17*, ADDSCR+19*, ADDSCR+20* , ADDSCR+21*, ADDSCR+23!, ADD1+1*, ADD1+7*!, CDST1+1*, CDST1+3*, OTHERN+11*!, GETPAT1+2!, 1+4* |
DR(2 | ADDR+18*, ADDSCR+16* |
DT | CDST1+1 |
DTOUT | GETPROV+3! |
DUOUT | GETPROV+3!, PAUSE+1 |
DUZ | ADDSCR+11, CDST1+1, GETPROV+3, GETPAT1+7 |
DUZ(2 | ADDSCR+19, ADDSCR+20, ADDSCR+21 |
G | SUIC+2~*, SUIC+3 |
I | EXIT+7! |
IOF | OTHERO+1, GETPROV+1, GETPAT1, HEADER+1 |
R | INDS~, INDS+1, INDS+2, PRIMPROB~, PRIMPROB+1, PRIMPROB+2 |
U | ADDR+29, ADDR+30, INDS+2, PRIMPROB+4, CDST+3, CDST1+1, SUIC+2, OTHERN+5, OTHERN+6, OTHERN+7 , GETPROV+3, DEL+2, 7+1, 7+3, 8+1, 8+3, 8+4 |
>> VALMBCK | EXIT+2* |
>> VALMCNT | EXIT+4* |
X | ADDR+16*!, ADDSCR+11*, ADDSCR+12!, PRIMPROB+2~*, PRIMPROB+3, PRIMPROB+4, CDST+6*, SUIC+2~*, GETPROV+3!, GETPROV+6* , GETPAT1+5*, EXIT+7!, 1+3* |
Y | ADDR+17, ADDR+18, ADDR+20, ADDR+24, ADDSCR+13, ADDSCR+15, ADDSCR+22, GETVTYP+6, CDST+7, CDST+8 , CDST1+2, CDSTDEL+4, SUIC+2~*, SUIC+8, OTHERN+10, OTHERO+5, OTHERO+6, GETPROV+3!, GETPROV+5, GETPROV+6 , GETPROV+7, GETPAT1+3, GETPAT1+4, EXIT+7!, 1+3, CHECK+5 |
Y(0 | GETVTYP+6 |
Z | EXIT+7! |