VistA Analysis » VistA Reference » RPCs » ORWPCE MHTESTOK

ORWPCE MHTESTOK

Returns TRUE if all supporing code is in place for Mental Health Tests.

Properties

Property	Value
Label	MHTESTOK
MUMPS Implementation	ORWPCE2
Return Type	SINGLE VALUE

MUMPS Method Description

Property Value

Method MHTESTOK^ORWPCE2

Method Comment Returns True if all supporting MH Test APIs exist

Code

Property	Value
Method	MHTESTOK^ORWPCE2
Method Comment	Returns True if all supporting MH Test APIs exist
Code	D GAFOK(.ORY) I +ORY,+$G(DUZ),$T(SAVEIT^YTAPI1)'="",$T(PREVIEW^YTAPI4)'="",$T(SHOWALL^YTAPI3)'="",$T(LISTONE^YTAPI)'="",$T(MHS^PXRMRPCC)'="",$T(MHR^PXRMRPCC)'="",$T(MH^PXRMRPCC)'="" D . N SRV . S SRV=$P($G(^VA(200,DUZ,5)),U) . S ORY=$$GET^XPAR(DUZ_";VA(200,^SRV.`"_+$G(SRV)_"^DIV^SYS","PXRM MENTAL HEALTH ACTIVE",1,"Q") . I +ORY S ORY=1

 D GAFOK(.ORY)
 I +ORY,+$G(DUZ),$T(SAVEIT^YTAPI1)'="",$T(PREVIEW^YTAPI4)'="",$T(SHOWALL^YTAPI3)'="",$T(LISTONE^YTAPI)'="",$T(MHS^PXRMRPCC)'="",$T(MHR^PXRMRPCC)'="",$T(MH^PXRMRPCC)'="" D
 . N SRV
 . S SRV=$P($G(^VA(200,DUZ,5)),U)
 . S ORY=$$GET^XPAR(DUZ_";VA(200,^SRV.`"_+$G(SRV)_"^DIV^SYS","PXRM MENTAL HEALTH ACTIVE",1,"Q")
 . I +ORY S ORY=1

CPRS

File Type	Description
Pascal File	Encounter/rPCE.pas

Document generated on August 31st 2022, 2:55:43 pm