VistA Analysis » VistA Reference » RPCs » ORWMHV MHV

ORWMHV MHV

Properties

Property Value
Label MHV
MUMPS Implementation ORWMHV
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
DFN     true  

MUMPS Method Description

Property Value
Method MHV^ORWMHV
Method Comment Returns "MHV" if patient has My HealtheVet data
Input Parameters ORDFN
First Comment 
Ouput Variable
 ORY = 0      if patient does not have My HealtheVet (MHV) data
     = "MHV"  if patient does have My HealtheVet data
Code 
 N I,ORX
 S ORY=0
 D TFL^VAFCTFU1(.ORX,ORDFN)       ; DBIA #2990
 S I=0 F  S I=$O(ORX(I)) Q:'I  D
 .;pt has MHV treat fac (200MH) and event reason wasn't "discharge" (3):
 .I $P(ORX(I),U)="200MH",$P(ORX(I),U,4)'=3 D
 ..S $P(ORY,U)="MHV",$P(ORY,U,2)="Patient has data in My HealtheVet"

CPRS

File Type Description
Pascal File fCover.pas


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