YTQPXRM6    ICR (5043)

ENDAS71(YSDATA,DAS) ;single administration output
;Input
;DAS from ^PXRMINDX(
;Output:
;Array(1)=[DATA]
;Array(2)= Patient Name^Test Code^Test Title^Internal Admin
date^External Admin Date ^Ordered by
;Array("R",running number)=MH Administration IEN^MH Answer
IEN^MH Question IEN^MH Choice IEN [if avail]^MH Legacy answer
[single character answer is available^text of answer [first 200
chars]
;Array("SI",601.87 IEN)=S_running number1^Scale Name^Raw
Score^Transformed Score

CONVERT(YSDATA,YS) ;convet 601 ien into 601.71 iens
;input YS601 AS 601 IEN
;output 601.71 ien

****************************************************
HMP's subscription to this ICR expired on 10/27/17 with the shutdown of HMP.
HMP*2.0*12 released on 10/17/17 is an informational patch outlining the steps
for the sites to shut down the application.

If HMP is reactivated in the future, the HMP project team should review the
access provided by this ICR with the custodial application before reactivating
HMP's subscription to this ICR. See VistA Document Library for list of retired
HMP ICRs.
****************************************************

Added 9/19/23, to use the ENDAS71^YTQPXRM6 call to get
the details about an individual test administration for a patient.