Routine: YTQPXRM8

Information

YTQPXRM8 ;ALB/ASF - PSYCH TEST API FOR CLINICAL REMINDERS ;Jan 19, 2024@12:23:12

Name	Comments	DBIA/ICR reference
SETSCR(YSDATA,YS)	;save scratch CR
NEW(YSFILEN)	;Adding New Entries - return an internal number - EXTRINSIC FUNCTION
GETSCR(YSDATA,YS)	;get CR scratch -for a user,patient and instrument ; input: DFN as Patient Ien ; input: CODE as Instrument name- 601.71 ; input: HANDLE= identifer for cprs GIU ; output: SCRATCH list in format ; QuestionID^AnswerValue^AnswerLegacyValue^IsMultipleChoice^Response Date
KILLSCR(YSDATA,YS)	;delete scratch data
MULTT	;multiple test remover
KILLS(YSDFN,YSTN,YSIEN)	;
OLDKILL	;clean up scratch file
GETTSC(YSCRA,YS)	;patch 123, calculate Scale scores from Scratch Global ; input: DFN as Patient Ien ; input: CODE as Instrument name- 601.71 ; input: HANDLE= identifer for cprs GIU ; output: Temp SCALE SCORES in format: '*' + Scale IEN + '~' + Scale Score
MAPSCR	;
CMPLX	;
SETARR(SCARR,NODE)	;
ANSWER(YSQN)	;