YS119PST ;SLC/KCM - Patch 119 post-init - PCL-5 ; 9/15/2015
Source file <YS119PST.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ; Post-init calls for patch 119
|
|
| PCL5 | ; Update the PCL-5 definitions
|
|
| UPDPCLQ | ; Update the PCL-5 questions
|
|
| UPDCPLX | ; Update complex (DLL-scored) test entries
|
|
| FLD2DLL(TSTIEN) | ; update record to contain DLL^YTSCORE
|
|
| DROPPCL | ; Disable the other PCL tests
|
|
| FLD2DROP(TSTIEN) | ; update OPERATIONAL field to be "Dropped"
|
|
| ADDSCLS | ; add scales for PCL-5
|
|
| ADDSCALE(SCALE,ID,GRP,SEQ,NM) | ; add a new scale
|
|
| ADDKEYS(SCALE,FIRST,LAST) | ; Add a set of scoring keys for PCL-5
; from: ADDSLCS expects: PCL5,KEYID |
|
| ADDKEY(ID,SCALE,QUESTION,TARGET,VALUE) | ; add a new scoring key
; quit if key already there |
|
| UPDPCLR | ; update the PCL-5 report to include cluster information
|
|
| DLLTEST | ; tests scored by DLL
|
|
| Q10 | ;;Blaming yourself or someone else for the stressful experience or what happened after it?
|
|
| Q14 | ;;Trouble experiencing positive feelings (for example, being unable to feel happiness or have loving feelings for people close to you)?
|
|
| Q15 | ;;Irritable behavior, angry outbursts, or acting aggressively?
|
|
| Q16 | ;;Taking too many risks or doing things that could cause you harm?
|
|
| RPTFMT | ; PCL-5 report text
|
| Name | Field # of Occurrence |
|---|---|
| FILE^DIE | FLD2DLL+4, FLD2DROP+3 |
| UPDATE^DIE | ADDSCALE+13, ADDKEY+17 |
| WP^DIE | UPDPCLQ+18, UPDPCLR+5 |
| CLEAN^DILF | UPDPCLQ+20, FLD2DLL+6, FLD2DROP+5, ADDSCALE+16, ADDKEY+19, UPDPCLR+7 |
| BMES^XPDUTL | UPDPCLQ+19, FLD2DLL+5 |
| MES^XPDUTL | FLD2DROP+4, ADDSCALE+14, ADDKEY+18, UPDPCLR+6 |
| $$FINDTEST^YS119PS0 | PCL5+8 |
| FIXTESTS^YS119PS0 | POST+2 |
| UPDDT^YS119PS0 | PCL5+9, DROPPCL+5 |
| FIXDATE^YS119PS3 | PCL5+1 |
| FileNo | Call Tags |
|---|---|
| ^YTT(601.72 - [#601.72] | WP^DIE |
| ^YTT(601.93 - [#601.93] | WP^DIE |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("DIERR" | UPDPCLQ+19, FLD2DLL+5, FLD2DROP+4, ADDSCALE+14, ADDKEY+18, UPDPCLR+6 |
| ^YTT(601.71 - [#601.71] | UPDPCLQ+8, UPDCPLX+3, DROPPCL+3, ADDSCLS+3, UPDPCLR+2 |
| ^YTT(601.76 - [#601.76] | UPDPCLQ+10, UPDPCLQ+11, ADDKEYS+11, ADDKEYS+12 |
| ^YTT(601.86 - [#601.86] | ADDSCLS+4 |
| ^YTT(601.87 - [#601.87] | ADDSCALE+1, ADDSCALE+2, ADDSCALE+4 |
| ^YTT(601.91 - [#601.91] | ADDKEY+4, ADDKEY+5, ADDKEY+8 |
| ^YTT(601.93 - [#601.93] | UPDPCLR+3 |
| Name | Line Occurrences |
|---|---|
| ADDKEY | ADDKEYS+15 |
| ADDKEYS | ADDSCLS+5, ADDSCLS+6, ADDSCLS+7, ADDSCLS+8 |
| ADDSCALE | ADDSCLS+5, ADDSCLS+6, ADDSCLS+7, ADDSCLS+8 |
| ADDSCLS | PCL5+5 |
| DROPPCL | PCL5+4 |
| FLD2DLL | UPDCPLX+4 |
| FLD2DROP | DROPPCL+4 |
| PCL5 | POST+1 |
| Q10 | UPDPCLQ+3 |
| Q14 | UPDPCLQ+4 |
| Q15 | UPDPCLQ+5 |
| Q16 | UPDPCLQ+6 |
| UPDCPLX | PCL5+3 |
| UPDPCLQ | PCL5+2 |
| UPDPCLR | PCL5+6 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | ADDKEY+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CIEN | ADDKEYS+2~, ADDKEYS+11*, ADDKEYS+12 |
| CONTENT | UPDPCLQ+1~, UPDPCLQ+10*, UPDPCLQ+11 |
| DESIG | UPDPCLQ+1~, UPDPCLQ+11*, UPDPCLQ+12, UPDPCLQ+13, UPDPCLQ+17, ADDKEYS+2~, ADDKEYS+12*, ADDKEYS+13 |
| DIERR | UPDPCLQ+16~, UPDPCLQ+19, FLD2DLL+1~, FLD2DLL+5, FLD2DROP+1~, FLD2DROP+4, ADDSCALE+6~, ADDSCALE+14, ADDSCALE+15, ADDKEY+10~ , ADDKEY+18, UPDPCLR+1~, UPDPCLR+6 |
| EXISTS | ADDKEY+2~, ADDKEY+3*, ADDKEY+4, ADDKEY+5*, ADDKEY+6 |
| FDA | FLD2DLL+1~, FLD2DROP+1~, ADDSCALE+6~, ADDKEY+10~ |
| FDA( | FLD2DLL+2*, FLD2DLL+3*, FLD2DROP+2*, ADDSCALE+8*, ADDSCALE+9*, ADDSCALE+10*, ADDSCALE+11*, ADDSCALE+12*, ADDKEY+12*, ADDKEY+13* , ADDKEY+14*, ADDKEY+15*, ADDKEY+16* |
| FDAIEN | ADDSCALE+6~, ADDKEY+10~ |
| FDAIEN(1 | ADDSCALE+7*, ADDSCALE+15, ADDKEY+11* |
| FIRST | ADDKEYS~, ADDKEYS+8 |
| GRP | ADDSCLS+1~, ADDSCLS+4*, ADDSCLS+5, ADDSCLS+6, ADDSCLS+7, ADDSCLS+8, ADDSCALE~, ADDSCALE+1, ADDSCALE+2, ADDSCALE+9 |
| I | ADDKEY+2~, ADDKEY+4*, ADDKEY+5, UPDPCLR+1~, UPDPCLR+4* |
| ID | ADDSCALE~, ADDSCALE+4*, ADDSCALE+7, ADDSCALE+8, ADDKEY~, ADDKEY+8*, ADDKEY+11, ADDKEY+12 |
| IDX | UPDCPLX+1~, UPDCPLX+2* |
| KEYID | ADDSCLS+1~, ADDSCLS+2*, ADDKEYS+15* |
| LAST | ADDKEYS~, ADDKEYS+8 |
| NM | ADDSCALE~, ADDSCALE+11, ADDSCALE+12 |
| PCL5 | UPDPCLQ+1~, UPDPCLQ+8*, UPDPCLQ+10, ADDSCLS+1~, ADDSCLS+3*, ADDSCLS+4, ADDKEYS+11, UPDPCLR+1~, UPDPCLR+2*, UPDPCLR+3 |
| QIEN | UPDPCLQ+1~, UPDPCLQ+14*, UPDPCLQ+18, ADDKEYS+2~, ADDKEYS+10*, ADDKEYS+11, ADDKEYS+13*, ADDKEYS+15 |
| QNUM | ADDKEYS+2~, ADDKEYS+8*, ADDKEYS+13 |
| QUES | UPDPCLQ+1~ |
| QUES( | UPDPCLQ+13, UPDPCLQ+17 |
| QUES("10." | UPDPCLQ+3* |
| QUES("14." | UPDPCLQ+4* |
| QUES("15." | UPDPCLQ+5* |
| QUES("16." | UPDPCLQ+6* |
| QUESTION | ADDKEY~, ADDKEY+5, ADDKEY+14 |
| RPT | UPDPCLR+1~, UPDPCLR+3*, UPDPCLR+5 |
| SCALE | ADDSCLS+1~, ADDSCLS+5, ADDSCLS+6, ADDSCLS+7, ADDSCLS+8, ADDSCALE~, ADDSCALE+2*, ADDSCALE+15*, ADDKEYS~, ADDKEYS+15 , ADDKEY~, ADDKEY+4, ADDKEY+13 |
| SEQ | ADDSCALE~, ADDSCALE+1, ADDSCALE+2, ADDSCALE+10 |
| TARGET | ADDKEY~, ADDKEY+5, ADDKEY+15 |
| TSTIEN | PCL5+7~, PCL5+8*, PCL5+9, UPDCPLX+1~, UPDCPLX+3*, UPDCPLX+4, FLD2DLL~, FLD2DLL+2, FLD2DLL+3, DROPPCL+1~ , DROPPCL+3*, DROPPCL+4, DROPPCL+5, FLD2DROP~, FLD2DROP+2 |
| TSTNM | UPDCPLX+1~, UPDCPLX+2*, UPDCPLX+3, DROPPCL+1~, DROPPCL+2*, DROPPCL+3 |
| U | UPDPCLQ+11, UPDPCLQ+14, ADDKEYS+12, ADDKEYS+13, ADDKEY+5 |
| VALUE | ADDKEYS+2~, ADDKEYS+15*, ADDKEY~, ADDKEY+16 |
| VALUES | ADDKEYS+2~ |
| VALUES( | ADDKEYS+15 |
| VALUES(0 | ADDKEYS+3* |
| VALUES(1 | ADDKEYS+4* |
| VALUES(2 | ADDKEYS+5* |
| VALUES(3 | ADDKEYS+6* |
| VALUES(4 | ADDKEYS+7* |
| WP | UPDPCLQ+16~, UPDPCLR+1~ |
| WP( | UPDPCLR+4* |
| WP(1 | UPDPCLQ+17* |
| X | UPDPCLR+1~, UPDPCLR+4* |
| X0 | UPDPCLQ+1~, UPDPCLQ+11*, UPDPCLQ+14, ADDKEYS+2~, ADDKEYS+12*, ADDKEYS+13 |
