PXRMMH ; SLC/PKR - Handle mental health findings. ;11/23/2007
Source file <PXRMMH.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
EVALFI(DFN,DEFARR,ENODE,FIEVAL) | ;Evaluate mental health findings.
|
|
EVALPL(FINDPA,ENODE,TERMARR,PLIST) | ;Evaluate mental health term findings
|
|
EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL) | ;Evaluate mental
|
|
GETDATA(DASP,FIEVT) | ;Return the data for a MH Administrations entry.
|
|
MHVOUT(INDENT,IFIEVAL,NLINES,TEXT) | ;Produce the MHV output.
|
|
OUTPUT(INDENT,IFIEVAL,NLINES,TEXT) | ;Produce the clinical
|
|
SCHELP(MHIEN) | ;Xecutable help for MH SCALE
|
|
SCHELPD(DA) | ;Xecutable help for MH SCALE in Result Group file 801.41
|
|
SCHELPF | ;Xecutable help for MH SCALE in 811.9 findings.
|
|
SCHELPT | ;Xecutable help for MH SCALE in 811.5 findings.
|
|
SCNAME(TEST,SCNUM) | ;Given the test ien and scale number return the
|
|
SEVALFI(DFN,ITEM,NGET,SDIR,BDT,EDT,NFOUND,FLIST) | ;
|
|
SEVALPL(ITEM,NOCC,BDT,EDT,PLIST) | ;Use MH API to get patient list. Called
|
|
VSCALE(X,FIND0) | ;Make sure that the mental health scale is valid.
|
|
VSCALED(X,DA) | ;Make sure that the mental health scale is valid for a result
|
|
VSCALEF(X) | ;Make sure that the mental health scale is valid for a finding.
|
|
VSCALET(X) | ;Make sure that the mental health scale is valid for a
|
|
WARN | ;Warn the user that they must select a scale if they intend to use
|
Name | Field # of Occurrence |
---|---|
EN^DDIOL | SCHELP+5, SCHELP+10, SCHELP+19, VSCALE+11 |
$$EDATE^PXRMDATE | MHVOUT+5, OUTPUT+8 |
$$INSCHR^PXRMEXLC | OUTPUT+5, SCHELP+18 |
EVALPL^PXRMINDL | EVALPL+2 |
EVALFI^PXRMINDX | EVALFI+1 |
EVALTERM^PXRMINDX | EVALTERM+2 |
SCHELP^PXRMMH | SCHELPD+3 |
FORMATS^PXRMTEXT | MHVOUT+11, OUTPUT+13 |
OCCUR^YTQPXRM1 | SEVALPL+8 |
PTTEST^YTQPXRM2 | SEVALFI+8 |
SCALES^YTQPXRM5 | SCHELP+7, SCNAME+3, VSCALE+5 |
ENDAS71^YTQPXRM6 | GETDATA+6 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PXD(811.9 - [#811.9] | SCHELPF+2, VSCALEF+7 |
^PXRMD(801.41 - [#801.41] | SCHELPD+2, VSCALED+8 |
^PXRMD(811.5 - [#811.5] | SCHELPT+2, VSCALET+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BDT | SEVALFI~, SEVALFI+3, SEVALPL~, SEVALPL+6 |
DA | SCHELPD~, SCHELPD+2, SCHELPF+2, SCHELPT+2, VSCALED~, VSCALED+8, VSCALEF+7, VSCALET+8 |
DA(1 | SCHELPF+2, SCHELPT+2, VSCALEF+7, VSCALET+8 |
DAS | GETDATA+2~, GETDATA+3*, GETDATA+6 |
DASP | GETDATA~, GETDATA+3, GETDATA+4 |
DATA | GETDATA+2~, GETDATA+6, SCHELP+1~, SCHELP+7, SCNAME+2~, SCNAME+3, SEVALFI+1~, SEVALFI+8, VSCALE+2~, VSCALE+5 |
DATA( | SEVALFI+11 |
DATA("" | VSCALE+12 |
DATA("R" | GETDATA+13 |
DATA("S" | SCHELP+15, SCHELP+18, SCNAME+4, VSCALE+6, VSCALE+9, VSCALE+10 |
DATA("SI" | GETDATA+8, GETDATA+11, GETDATA+14 |
DATA(1 | GETDATA+7, SCHELP+8, SEVALFI+9 |
DATA(2 | GETDATA+9 |
DATE | MHVOUT+1~, MHVOUT+5*, MHVOUT+6 |
DEFARR | EVALFI~, EVALFI+1 |
DFN | EVALFI~, EVALFI+1, EVALTERM~, EVALTERM+2, SEVALFI~, SEVALFI+2 |
>> DIUTIL | VSCALED+4, VSCALEF+3, VSCALET+4 |
EDT | SEVALFI~, SEVALFI+3, SEVALPL~, SEVALPL+6 |
ENODE | EVALFI~, EVALFI+1, EVALPL~, EVALPL+2, EVALTERM~, EVALTERM+2 |
FIEV | SEVALFI+1~ |
FIEVAL | EVALFI~, EVALFI+1 |
FIEVT | GETDATA~ |
FIEVT("MH TES | T" , GETDATA+9* |
FIEVT("R" | GETDATA+13* |
FIEVT("S" | GETDATA+11*, GETDATA+14 |
FIEVT("SCALE | NAME" , GETDATA+14* |
FIEVT("VALUE" | GETDATA+14* |
FIND0 | SCHELPF+1~, SCHELPF+2*, SCHELPF+3, VSCALE~, VSCALE+3, VSCALEF+6~, VSCALEF+7*, VSCALEF+8 |
FINDING | SEVALFI+1~ |
FINDPA | EVALPL~, EVALPL+2, EVALTERM~, EVALTERM+2 |
FLIST | SEVALFI~ |
FLIST( | SEVALFI+11* |
IFIEVAL | MHVOUT~, OUTPUT~ |
IFIEVAL( | MHVOUT+4, MHVOUT+5, MHVOUT+7, MHVOUT+9, OUTPUT+7, OUTPUT+8, OUTPUT+9, OUTPUT+11 |
IFIEVAL("MH T | EST" , MHVOUT+2, OUTPUT+3 |
IND | GETDATA+2~, GETDATA+10*, GETDATA+11*, GETDATA+12*, GETDATA+13*, MHVOUT+1~, MHVOUT+3*, MHVOUT+4*, MHVOUT+5, MHVOUT+7 , MHVOUT+9, OUTPUT+2~, OUTPUT+6*, OUTPUT+7*, OUTPUT+8, OUTPUT+9, OUTPUT+11, SCHELP+1~, SCHELP+14*, SCHELP+15* , SCHELP+17, SCHELP+18, SEVALFI+1~, SEVALFI+11*, VSCALE+2~, VSCALE+8*, VSCALE+9*, VSCALE+10 |
INDENT | MHVOUT~, MHVOUT+11, OUTPUT~, OUTPUT+5, OUTPUT+13 |
ITEM | SEVALFI~, SEVALFI+2, SEVALPL~, SEVALPL+6 |
JND | MHVOUT+1~, MHVOUT+12*, OUTPUT+2~, OUTPUT+14*, SCHELP+1~, SCHELP+14*, SCHELP+16*, SCHELP+18 |
MHIEN | SCHELP~, SCHELP+2, SCHELP+7, SCHELPD+1~, SCHELPD+2*, SCHELPD+3, SCHELPF+1~, SCHELPF+3*, SCHELPF+4*, SCHELPF+5 , SCHELPT+1~, SCHELPT+3*, SCHELPT+4*, SCHELPT+5, VSCALE+2~, VSCALE+4*, VSCALE+5 |
MHTEST | MHVOUT+1~, MHVOUT+2*, MHVOUT+6, OUTPUT+2~, OUTPUT+3*, OUTPUT+5, VSCALE+2~, VSCALE+3*, VSCALE+4, VSCALED+7~ , VSCALED+8*, VSCALED+9 |
NFOUND | SEVALFI~, SEVALFI+9*, SEVALFI+10, SEVALFI+11 |
NGET | SEVALFI~, SEVALFI+5*, SEVALFI+6 |
NLINES | MHVOUT~, MHVOUT+12*, MHVOUT+13*, OUTPUT~, OUTPUT+4*, OUTPUT+5, OUTPUT+14*, OUTPUT+15* |
NOCC | SEVALPL~, SEVALPL+5*, SEVALPL+6 |
NOUT | MHVOUT+1~, MHVOUT+11, MHVOUT+12, OUTPUT+2~, OUTPUT+13, OUTPUT+14 |
NUM | SCHELP+1~, SCHELP+17*, SCHELP+18 |
PLIST | EVALPL~, EVALPL+2, SEVALPL~, SEVALPL+8 |
>> PXRMEXCH | VSCALED+6, VSCALEF+5, VSCALET+6 |
>> PXRMRM | MHVOUT+11, OUTPUT+13 |
SCALE | GETDATA+2~, GETDATA+4*, GETDATA+8*, GETDATA+14, MHVOUT+1~, OUTPUT+2~, SCHELP+1~, SCHELP+5, SCHELP+10, SCHELP+19 , VSCALE+2~ |
SCALE( | SCHELP+18* |
SCALE(1 | SCHELP+3*, SCHELP+9*, SCHELP+11* |
SCALE(2 | SCHELP+4*, SCHELP+12* |
SCALE(3 | SCHELP+13* |
SCNAME | SCNAME+2~ |
SCNUM | SCNAME~, SCNAME+4 |
SCORE | MHVOUT+1~, MHVOUT+9*, MHVOUT+10, OUTPUT+2~, OUTPUT+11*, OUTPUT+12 |
SDIR | SEVALFI~, SEVALFI+6 |
SNAME | MHVOUT+1~, MHVOUT+7*, MHVOUT+8, OUTPUT+2~, OUTPUT+9*, OUTPUT+10 |
SNUM | SCHELP+1~ |
>> TEMP | MHVOUT+6*, MHVOUT+8*, MHVOUT+10*, MHVOUT+11, OUTPUT+8*, OUTPUT+10*, OUTPUT+12*, OUTPUT+13 |
TERMARR | EVALPL~, EVALPL+2, EVALTERM~, EVALTERM+2 |
TEST | SCNAME~, SCNAME+3 |
TEXT | MHVOUT~, OUTPUT~ |
TEXT( | MHVOUT+12*, MHVOUT+13*, OUTPUT+5*, OUTPUT+14*, OUTPUT+15* |
TEXTOUT | MHVOUT+1~, MHVOUT+11, OUTPUT+2~, OUTPUT+13 |
TEXTOUT( | MHVOUT+12, OUTPUT+14 |
TFIEVAL | EVALTERM~, EVALTERM+2 |
TFIND0 | SCHELPT+1~, SCHELPT+2*, SCHELPT+3, VSCALET+7~, VSCALET+8*, VSCALET+9 |
U | GETDATA+9, GETDATA+11, GETDATA+13, GETDATA+14, MHVOUT+10, OUTPUT+12, SCHELP+18, SCHELPD+2, SEVALFI+9, VSCALE+3 , VSCALE+10, VSCALED+8 |
VALID | VSCALE+2~, VSCALE+6*, VSCALE+8*, VSCALE+9, VSCALE+10*, VSCALE+11, VSCALE+13 |
X | VSCALE~, VSCALE+6, VSCALE+10, VSCALE+11, VSCALED~, VSCALED+2, VSCALED+9, VSCALEF~, VSCALEF+1, VSCALEF+8 , VSCALET~, VSCALET+2, VSCALET+9 |
YS | SEVALFI+1~, SEVALFI+8, SEVALPL+2~, SEVALPL+8 |
YS("BEGIN" | SEVALFI+3*, SEVALPL+6* |
YS("CODE" | SEVALFI+2*, SEVALPL+6* |
YS("DFN" | SEVALFI+2* |
YS("END" | SEVALFI+3*, SEVALPL+6* |
YS("LIMIT" | SEVALFI+6*, SEVALPL+6* |