VistA Analysis » VistA Reference » RPCs » ORWPCE GET HEALTH FACTORS TY

ORWPCE GET HEALTH FACTORS TY

Returns a list of active health factor types.

Properties

Property Value
Label HFTYPE
MUMPS Implementation ORWPCE2
Return Type ARRAY

MUMPS Method Description

Property Value
Method HFTYPE^ORWPCE2
Method Comment get the list of active health factors
Input Parameters ADDCATS
Code 
 N IEN,CNT,BINDEX,REC
 S (IEN,CNT,BINDEX)=0,ADDCATS=+$G(ADDCATS)
 F  S BINDEX=$O(^AUTTHF("B",BINDEX)) Q:BINDEX']""  D
 .F  S IEN=$O(^AUTTHF("B",BINDEX,IEN)) Q:'+IEN  D
 ..S REC=$G(^AUTTHF(IEN,0))
 ..I +$P(REC,U,11) S REC=""
 ..I 'ADDCATS,$P(REC,U,10)="C" S REC=""
 ..I REC'="" D
 ...S CNT=CNT+1,ORWLST(CNT)=IEN_U_$P(REC,U)
 ...I ADDCATS S ORWLST(CNT)=ORWLST(CNT)_U_$P(REC,U,10)_U_$P(REC,U,3)

CPRS

File Type Description
Pascal File Encounter/rPCE.pas


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