Routine: YS129PST

Entry Points

Name	Comments	DBIA/ICR reference
EDTDATE	; date used to update 601.71:18
POST	; Post-init calls for patch 129
GETSG	; Update Scale Group name
UPDSG(SGIEN,SGNM)	; update Scale Group Name
ADDIDX	; add indices for CESD
DROPTST(NAME)	; Change OPERATIONAL to dropped, update LAST EDIT DATE
FLD2DROP(IEN)	; update OPERATIONAL field to be "Dropped", LAST EDIT DATE
PHQ9CT	; update PHQ9 choice type
UPDANY(FILEN,IEN,CHGS)	; update any MH record
TESTS	; Scale Group Names updated

Name	Field # of Occurrence
FILE^DIE	UPDSG+3, FLD2DROP+4, UPDANY+4
CLEAN^DILF	UPDSG+5, ADDIDX+3, ADDIDX+5, FLD2DROP+6, UPDANY+6
BMES^XPDUTL	UPDSG+4, ADDIDX+3, ADDIDX+5, UPDANY+5
MES^XPDUTL	FLD2DROP+5
UPDVER^YTQAPI7	POST+8

Name	Line Occurrences (* Changed, ! Killed)
^TMP("DIERR"	UPDSG+4, ADDIDX+3, ADDIDX+5, FLD2DROP+5, UPDANY+5
^YTT(601.71 - [#601.71]	GETSG+3, ADDIDX+2, DROPTST+2, PHQ9CT+2
^YTT(601.72 - [#601.72]	PHQ9CT+6
^YTT(601.76 - [#601.76]	PHQ9CT+3, PHQ9CT+4, PHQ9CT+5
^YTT(601.86 - [#601.86]	GETSG+4, ADDIDX+4, ADDIDX+6, ADDIDX+7, ADDIDX+8*
^YTT(601.89 - [#601.89]	PHQ9CT+7

Name	Field # of Occurrence
CHG	PHQ9CT+8~, PHQ9CT+9, PHQ9CT+10!, PHQ9CT+11
CHG(1	PHQ9CT+8*
CHG(18	PHQ9CT+10*
CHGS	UPDANY~, UPDANY+3, UPDANY+7!
CID	PHQ9CT+1~, PHQ9CT+7*, PHQ9CT+9
CTNT	PHQ9CT+1~, PHQ9CT+4*, PHQ9CT+5
CTYP	PHQ9CT+1~, PHQ9CT+6*, PHQ9CT+7
DIERR	UPDSG+1~, UPDSG+4, FLD2DROP+1~, FLD2DROP+5, UPDANY+2~, UPDANY+5
FDA	UPDSG+1~, FLD2DROP+1~, UPDANY+2~
FDA(	UPDSG+2, FLD2DROP+2, FLD2DROP+3, UPDANY+3
FILEN	UPDANY~, UPDANY+1, UPDANY+3
IDX	GETSG+1~, GETSG+2*
IEN	DROPTST+1~, DROPTST+2*, DROPTST+3, FLD2DROP~, FLD2DROP+2, FLD2DROP+3, UPDANY~, UPDANY+3
NAME	DROPTST~, DROPTST+2
NM	POST+1~, POST+6, POST+7
QSTN	PHQ9CT+1~, PHQ9CT+5*, PHQ9CT+6
SEQ	PHQ9CT+1~, PHQ9CT+3*, PHQ9CT+4
SGIEN	GETSG+1~, GETSG+4, GETSG+6, UPDSG~, UPDSG+2, ADDIDX+1~, ADDIDX+4, ADDIDX+5, ADDIDX+6, ADDIDX+7 , ADDIDX+8
SGNM	GETSG+1~, GETSG+5*, GETSG+6, UPDSG~, UPDSG+2
TEST	PHQ9CT+1~, PHQ9CT+2*, PHQ9CT+3, PHQ9CT+4, PHQ9CT+11
TSTIEN	GETSG+1~, GETSG+3, GETSG+4, ADDIDX+1~, ADDIDX+2, ADDIDX+3, ADDIDX+4, ADDIDX+7, ADDIDX+8
TSTNM	GETSG+1~, GETSG+2*, GETSG+3
U	PHQ9CT+5, PHQ9CT+6
X0	PHQ9CT+1~, PHQ9CT+5*
X2	PHQ9CT+1~, PHQ9CT+6*

Name	Field # of Occurrence
$T(EDTDATE+1	FLD2DROP+3, PHQ9CT+10
$T(TESTS+IDX	GETSG+2, GETSG+5