VistA Analysis » VistA Reference » RPCs » ORQQPL PROB COMMENTS

ORQQPL PROB COMMENTS

Returns a list of comments associated with a problem IEN.

Properties

Property Value
Label GETCOMM
MUMPS Implementation ORQQPL2
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
Problem IEN LITERAL 16 true  

MUMPS Method Description

Property Value
Method GETCOMM^ORQQPL2
Method Comment Return comments for a problem - MULTI-DIVISIONAL
Input Parameters PIFN
Code
 N FAC,NIFN,NOTE,NOTECNT
S NOTECNT=0,FAC=0
F S FAC=$O(^AUPNPROB(PIFN,11,FAC)) Q:+FAC'>0 D
. S NIFN=0
. F S NIFN=$O(^AUPNPROB(PIFN,11,FAC,11,NIFN)) Q:NIFN'>0 D
. . Q:$P($G(^AUPNPROB(PIFN,11,FAC,11,NIFN,0)),U,4)'="A"
. . S NOTE=$P($G(^AUPNPROB(PIFN,11,FAC,11,NIFN,0)),U,3)
. . S NOTECNT=NOTECNT+1,ORY(NOTECNT)=NOTE

CPRS

File Type Description
Pascal File rProbs.pas


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