YTQPXRM8 ;ALB/ASF - PSYCH TEST API FOR CLINICAL REMINDERS ;Jan 19, 2024@12:23:12
Source file <YTQPXRM8.m>
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) | ;
|
RPC Name | Call Tags |
---|---|
YTQ SET SCRATCH | SETSCR |
YTQ GET SCRATCH | GETSCR |
YTQ KILL SCRATCH | KILLSCR |
YTQ GET SCRATCH SCORES | GETTSC |
FileNo | Call Tags |
---|---|
^YTT(601.71 - [#601.71] | GET1^DIQ |
^YTT(601.72 - [#601.72] | GET1^DIQ |
^YTT(601.94 - [#601.94] | Classic Fileman Calls |