AMHLEP2 ; IHS/CMI/LAB - ADD NEW BH ACTIVITY RECORDS 06 Nov 2009 9:21 AM ;
Source file <AMHLEP2.m>
Package | Total | Call Graph |
---|---|---|
Mental Health Social Services | 19 | START^AMHBPL ($$ESIG,ESIGGFI)^AMHESIG EP^AMHLCD GETDATE^AMHLE PCCLINK^AMHLE2 PHX^AMHLE3 (CHECK,SUIC)^AMHLEA ($$IINTAKE,EN)^AMHLEDEL ^AMHLEFP EP2^AMHLEFP2 (,$$GETAWI,$$GETCLN,$$GETCOMM,$$GETLOC,$$GETTOC)^AMHLEIN EP1^AMHLEIV EN^AMHLESF EP1^AMHLETP ^AMHPEDIT EN^AMHRLKUP $$PPINT^AMHUTIL $$HL^AMHUTIL2 APPT^AMHVRL2 |
VA Fileman | 6 | ^DDS ^DIC (FILE,YN)^DICN ^DIE ^DIK ^DIR |
IHS VA Utilities | 3 | ($$VAL,$$VALI)^XBDIQ1 ^XBFMK EN^XBNEW |
MailMan | 2 | XMZ^XMA2 (ENL,ENT1)^XMD |
IHS Patient | 1 | $$HRN^AUPNPAT |
Kernel | 1 | $$FMTE^XLFDT |
Registration | 1 | ($$FTIME,FULL)^VALM1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
6 | ;print encounter form
|
|
FS | ;
|
|
ADD1 | ;
|
|
CDST | ;EP
|
|
DEL | ;EP
|
|
GETPAT1 | ||
PCCLINK | ;EP -PCC LINK
|
|
RMENU | ;EP
|
|
CDST1 | ||
1 | ;
|
|
3 | ;
|
|
PRIMPROB(R) | ;
|
|
5 | ;treatment Plan
|
|
OTHER1 | ;
|
|
7 | ;intake
|
|
MAILMSG | ;
|
|
9 | ;
|
|
8 | ;suicide forms
|
|
PL | ;EP - called from PDE Problem list protocol
|
|
4 | ;scheduling system
|
|
PAUSE | ;EP
|
|
CHK | ; S AMHOKAY=0 D RECCHECK^AMHLE2 I AMHOKAY W !!,"Incomplete record!! Deleting record!!" D DEL,EXIT Q
|
|
GETPAT | ;EP
|
|
HEADER | ;
|
|
ADD | ;EP
|
|
OTHER | ;EP - collect other data if patient related
|
|
CASE(P,R,T) | ;return 1 if case already opened
|
|
2 | ;
|
|
OTHERX | ||
GETPROV | ;EP - get providers
|
|
GETLIST | ;
|
|
REGULAR | ;EP
|
|
EXIT | ;CLEAN UP AND EXIT
|
|
CDSTDEL | ;
|
|
GETLIST1 | ;
|
Name | Field # of Occurrence |
---|---|
START^AMHBPL | 9+2, PL+14 |
$$ESIG^AMHESIG | OTHER+2 |
ESIGGFI^AMHESIG | OTHER+10 |
EP^AMHLCD | 2+1 |
GETDATE^AMHLE | PL+9 |
PCCLINK^AMHLE2 | PCCLINK+1 |
PHX^AMHLE3 | 3+1 |
CHECK^AMHLEA | CHK+1 |
SUIC^AMHLEA | CHK+13 |
$$IINTAKE^AMHLEDEL | DEL+1 |
EN^AMHLEDEL | DEL+4 |
^AMHLEFP | 6+2 |
EP2^AMHLEFP2 | MAILMSG+5 |
^AMHLEIN | PL+7 |
$$GETAWI^AMHLEIN | ADD+18 |
$$GETCLN^AMHLEIN | ADD+17 |
$$GETCOMM^AMHLEIN | ADD+15 |
$$GETLOC^AMHLEIN | ADD+15 |
$$GETTOC^AMHLEIN | ADD+18 |
EP1^AMHLEIV | 7+1 |
EN^AMHLESF | 8+1 |
EP1^AMHLETP | 5+1 |
^AMHPEDIT | GETPAT1+5 |
EN^AMHRLKUP | PL+12 |
$$PPINT^AMHUTIL | ADD+21, CASE+5 |
$$HL^AMHUTIL2 | ADD+15, ADD1+8 |
APPT^AMHVRL2 | 4+1 |
$$HRN^AUPNPAT | MAILMSG+12, MAILMSG+14 |
^DDS | ADD1+1, CDST1+3, 1+2 |
^DIC | GETLIST1+1, GETPAT1+2, 1+1 |
FILE^DICN | ADD+9, CDST+5, GETPROV+4 |
YN^DICN | GETPAT1+7 |
^DIE | ADD+13, ADD+19, ADD1+8, REGULAR+13, MAILMSG+4, MAILMSG+28, CDST1+1, OTHER+9 |
^DIK | CDSTDEL+5 |
^DIR | REGULAR+3, REGULAR+9, REGULAR+14, FS+2, CDSTDEL+2, OTHER+6, OTHERX+3, GETPROV+1, PAUSE+1 |
$$FTIME^VALM1 | HEADER+3 |
FULL^VALM1 | ADD+2, OTHERX, 2+2, PL+1 |
$$VAL^XBDIQ1 | MAILMSG+16 |
$$VALI^XBDIQ1 | ADD1+8 |
^XBFMK | REGULAR+12, MAILMSG+2, MAILMSG+4, CDST+5, CDST1, GETPAT+1, 1+1 |
EN^XBNEW | 6+1 |
$$FMTE^XLFDT | GETPAT1+6 |
XMZ^XMA2 | MAILMSG+21 |
ENL^XMD | MAILMSG+26 |
ENT1^XMD | MAILMSG+29 |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls |
^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+1 |
^AMHPCASE - [#9002011.58] | CASE+5 |
^AMHPCASE("AA" | CASE+5 |
^AMHRCDST("B" | CDST+3, CDSTDEL+5 |
^AMHREC - [#9002011] | REGULAR+13, CASE+5, MAILMSG+4, MAILMSG+17, CDST+2, CDST1+1, DEL+2 |
^AMHRPRO - [#9002011.01] | PRIMPROB+4 |
^AMHRPRO("AD" | PRIMPROB+2 |
^AMHSITE - [#9002013] | REGULAR+2 |
^AUPNPAT - [#9000001] | MAILMSG+14 |
^DPT - [#2] | MAILMSG+15 |
^TMP("AMHMSG" | MAILMSG+1!, MAILMSG+15*, MAILMSG+16*, MAILMSG+17*, MAILMSG+18* |
^TMP("AMHS" | MAILMSG+1!, MAILMSG+6, MAILMSG+7*, MAILMSG+8*, MAILMSG+9*, MAILMSG+10*, MAILMSG+18, MAILMSG+30! |
^VA(200 - [#200] | REGULAR+8, MAILMSG+20, MAILMSG+23, GETPROV+1 |
Name | Line Occurrences |
---|---|
$$PRIMPROB | CDST1+1 |
@( | OTHER1+3 |
ADD1 | CHK+3 |
CDST1 | CDST+3 |
DEL | ADD+21 |
EXIT | ADD+21, CHK+2, CHK+15, PL+10, PL+13, PL+15 |
GETLIST | REGULAR+6 |
GETLIST1 | GETLIST1+4 |
GETPAT | OTHER1+1 |
GETPAT1 | GETPAT1+5 |
GETPROV | ADD+21 |
MAILMSG | FS+5 |
OTHER | CHK+13, OTHER+3, OTHERX+7 |
OTHER1 | OTHERX+6 |
OTHERX | OTHER+1 |
PAUSE | ADD+10, MAILMSG+35, CDST+6, CDST1+2, OTHER+5, DEL+1, DEL+5, PL+13 |
PCCLINK | CHK+14 |
REGULAR | CHK+6, REGULAR+7, REGULAR+10, REGULAR+16 |
RMENU | OTHERX+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | MAILMSG+14*, GETPAT1+7*, 6+1* |
>> %1 | 6+1* |
>> AMHACTN | ADD+6*, RMENU+1 |
>> AMHADPTV | ADD+5* |
>> AMHANS | OTHER+3, OTHER+8* |
AMHC | MAILMSG+11*, MAILMSG+15*, MAILMSG+16*, MAILMSG+17*, MAILMSG+18*, GETPAT+2*, GETPAT1, GETPAT1+3!, GETPAT1+5*, GETPAT1+7! , GETPAT1+8! |
>> AMHCDR | CDST+3*, CDST+7*, CDST1+1, CDST1+3 |
>> AMHDASH | HEADER+2, HEADER+3 |
>> AMHDATE | ADD+3, ADD+8, HEADER+3, PL+10 |
>> AMHDET | GETPAT1 |
AMHDR | EXIT+6! |
AMHEFT | REGULAR+15!, FS+1*, FS+3!, FS+4*, MAILMSG+33! |
AMHERROR | EXIT+6! |
AMHF | EXIT+6! |
>> AMHLOC | PL+11* |
AMHNAME | EXIT+6! |
>> AMHNAVR | CHK+11 |
AMHNONE | EXIT+6! |
AMHOKAY | EXIT+6! |
AMHOTH | EXIT+6! |
>> AMHPAT | ADD+4, MAILMSG+12, MAILMSG+14, MAILMSG+15, MAILMSG+16, CDST1+1, OTHER1+1*, GETPROV+4, GETPAT1+1*, GETPAT1+4* , GETPAT1+5, GETPAT1+7*, 1+1, 1+2, 6+1, 4+1, 5+1, 7+1, PL+11* |
>> AMHPATCE | PL+8* |
AMHPTSV | EXIT+6! |
>> AMHPTYPE | ADD+8, ADD+15, ADD+17 |
AMHQUIT | ADD+6*, ADD1+6*, CDST1+4*, EXIT+6!, 1+3* |
AMHR | ADD+12*, ADD+13, ADD+14, ADD+21, ADD1+1, ADD1+8, REGULAR+13, MAILMSG+4, MAILMSG+5, MAILMSG+17 , CDST+2, CDST+3, CDST+5, CDST1+1, CDSTDEL+5, OTHER+2, OTHER+9, OTHER+10, GETPROV+4, DEL+1 , DEL+2, DEL+3, EXIT+6!, 6+1, 7+1, 8+1, 9+1, 9+2, PL+13, PL+14 |
AMHR0 | EXIT+6! |
AMHRDEL | DEL+3*, EXIT+6! |
>> AMHSELE | OTHERX+6*, OTHER1+3 |
AMHSHIGH | EXIT+6! |
AMHV | EXIT+6! |
AMHVDLT | DEL+2*, EXIT+6! |
>> AMHVTYPE | ADD+8, ADD1+1, CHK+6 |
AMHX | MAILMSG+3*, MAILMSG+4, MAILMSG+33!, EXIT+6! |
AMHXMZ | MAILMSG+22*, MAILMSG+27, MAILMSG+33! |
>> AMHXX | OTHER+2*, OTHER+3, OTHER+4, OTHER+5, OTHER+10 |
>> AMHZDEL | CHK+2 |
>> AMHZDO | OTHER+1 |
>> AMHZED | CHK+3 |
>> APCDOVRR | ADD+1* |
APCDPKG | EXIT+6! |
APCDV | EXIT+6! |
>> AUPNDOD | GETPAT1+6 |
>> C | MAILMSG+6*, MAILMSG+7*, MAILMSG+8*, MAILMSG+9*, MAILMSG+10*, MAILMSG+14* |
D0 | ADD+7!, ADD+9!, GETLIST1+1!, GETPROV+4! |
DA | ADD+7!, ADD+13*!, ADD+14*, ADD+20!, ADD1+1*, ADD1+8*!, REGULAR+3!, REGULAR+9!, REGULAR+13*, REGULAR+14! , FS+2!, MAILMSG+4*, MAILMSG+28*!, MAILMSG+33!, CDST1+1*, CDST1+3*, CDSTDEL+2!, CDSTDEL+5*, OTHER+6!, OTHER+9*! , GETPROV+1!, GETPROV+4!, GETPAT1+2!, 1+2* |
DD | ADD+7!, GETLIST1+1!, CDST+5!, GETPROV+4! |
>> DDSFILE | ADD1+1*, CDST1+3*, 1+2* |
>> DFN | PL+11 |
DG | GETPROV+4! |
DH | GETPROV+4! |
DI | GETPROV+4! |
DIADD | ADD+8*, ADD+9!, CDST+5*!, CDST1!, GETPROV+4*!, GETPAT1+2! |
DIC | ADD+7!, ADD+8*, ADD+9!, GETLIST1+1!*, CDST+5*!, GETPROV+1!, GETPROV+4*!, GETPAT1+2*!, 1+1* |
DIC("A" | GETLIST1+1*, GETPAT1* |
DIC("DR" | ADD+8*, GETPROV+4* |
DIC(0 | ADD+8*, GETLIST1+1*, CDST+5*, GETPROV+4*, GETPAT1+2*, 1+1* |
DIE | ADD+9!, ADD+13*!, ADD+14*, ADD+20!, ADD1+8*!, REGULAR+13*, MAILMSG+4*, MAILMSG+28*!, MAILMSG+33!, CDST1+1* , OTHER+9*!, GETPROV+4! |
>> DIK | CDSTDEL+5* |
DIMSG | ADD1+6!, CDST1+4!, 1+3! |
DINUM | ADD+7! |
DIR | REGULAR+3!, REGULAR+9!, REGULAR+14!, FS+2!, CDSTDEL+2!, OTHER+6!, OTHERX+3!, GETPROV+1!, PAUSE+1! |
DIR("A" | REGULAR+3*, REGULAR+9*, REGULAR+14*, FS+2*, CDSTDEL+2*, OTHER+6*, OTHERX+3*, GETPROV+1*, PAUSE+1* |
DIR("B" | REGULAR+3*, REGULAR+9*, REGULAR+14*, FS+2*, CDSTDEL+2*, OTHER+6*, OTHERX+3*, GETPROV+1* |
DIR(0 | REGULAR+3*, REGULAR+9*, REGULAR+14*, FS+2*, CDSTDEL+2*, OTHER+6*, OTHERX+3*, GETPROV+1*, PAUSE+1* |
DIRUT | REGULAR+4, REGULAR+10, REGULAR+15, FS+3, CDSTDEL+3, OTHER+7, OTHERX+3*, OTHERX+4, GETPROV+1!*, GETPROV+2 , PAUSE+1* |
DIU | GETPROV+4! |
DIW | GETPROV+4! |
DLAYGO | ADD+8*, ADD+9!, CDST+5*!, CDST1!, GETPROV+4*!, GETPAT1+2!, 1+1* |
DO | ADD+7!, GETLIST1+1!, CDST+5!, GETPROV+4! |
DQ | GETPROV+4! |
DR | ADD+7!, ADD+9!, ADD+13*!, ADD+15*, ADD+17*, ADD+18*, ADD+20!, ADD1+1*, ADD1+8*!, REGULAR+13* , GETLIST1+1!, MAILMSG+4*, MAILMSG+28*!, MAILMSG+33!, CDST1+1*, CDST1+3*, OTHER+9*!, GETPAT1+2!, 1+2* |
DR(2 | ADD+13* |
DT | CDST1+1 |
DTOUT | GETPROV+1! |
DUOUT | OTHERX+3, GETPROV+1!, PAUSE+1 |
DUZ | ADD+8, REGULAR+2, MAILMSG+20, MAILMSG+23, CDST1+1, GETPROV+1 |
DUZ(2 | ADD+15, ADD+17, ADD+18, REGULAR+2, MAILMSG+12, MAILMSG+14 |
H | CASE+5~*, CASE+6, MAILMSG+12*, MAILMSG+13*, MAILMSG+14*, MAILMSG+15 |
I | EXIT+7! |
IOF | OTHERX+1, GETPAT1, HEADER+1 |
P | CASE~, CASE+2, CASE+5 |
R | CASE~, CASE+3, CASE+5, PRIMPROB~, PRIMPROB+1, PRIMPROB+2 |
T | CASE~, CASE+4, CASE+5 |
U | REGULAR+8, CASE+1*, CASE+5, MAILMSG+15, MAILMSG+20, MAILMSG+23, PRIMPROB+4, CDST+2, CDST1+1, OTHER+3 , OTHER+4, OTHER+5, GETPROV+1, DEL+2 |
>> VALMBCK | EXIT+2* |
X | ADD+8*, ADD+9!, REGULAR+8*, CASE+5~*, MAILMSG+6*, MAILMSG+17*, MAILMSG+18*, PRIMPROB+2~*, PRIMPROB+3, PRIMPROB+4 , CDST+5*, GETPROV+1!, GETPROV+4*, GETPAT1+5*, EXIT+7!, 1+1* |
XMDUZ | REGULAR+15!, REGULAR+16!, FS+3!, MAILMSG+20*, MAILMSG+23*, MAILMSG+33! |
XMSUB | REGULAR+15!, REGULAR+16!, FS+3!, MAILMSG+19*, MAILMSG+33! |
XMTEXT | REGULAR+15!, REGULAR+16!, FS+3!, MAILMSG+24* |
XMY | REGULAR+6!, REGULAR+7, REGULAR+15!, REGULAR+16!, FS+3!, GETLIST+1!, MAILMSG+33! |
XMY( | REGULAR+8, GETLIST1+3*, MAILMSG+3 |
XMZ | REGULAR+15!, REGULAR+16!, FS+3!, MAILMSG+22, MAILMSG+27*, MAILMSG+28, MAILMSG+33! |
Y | ADD+10, ADD+12, ADD+19, REGULAR+5, REGULAR+12, REGULAR+16, FS+4, GETLIST1+2, GETLIST1+3, CDST+6 , CDST+7, CDST1+2, CDSTDEL+4, OTHER+8, OTHERX+5, OTHERX+6, GETPROV+1!, GETPROV+3, GETPROV+4, GETPROV+5 , GETPAT1+3, GETPAT1+4, EXIT+7!, 1+1 |
Z | EXIT+7! |