VistA Analysis » VistA Reference » RPCs » ORQQPL PROBLEM LIST

ORQQPL PROBLEM LIST

Problem list for CPRS GUI client

Properties

Property Value
Label PROBL
MUMPS Implementation ORQQPL3
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
DFN LITERAL     DFN

MUMPS Method Description

Property Value
Method PROBL^ORQQPL3
Method Comment GET LIST OF PATIENT PROBLEMS
Input Parameters DFN, CONTEXT, ORIDT
Code 
 N DIWL,DIWR,DIWF
 N ST,ORI,ORX
 S ORIDT=$G(ORIDT,DT)
 S (LCNT,NUM)=0
 S DIWL=1,DIWR=48,DIWF="C48"
 S CONTEXT=";;"_$G(CONTEXT)
 I CONTEXT=";;" S CONTEXT=";;A"
 S ST=$P(CONTEXT,";",3)
 I ST="R" D DELLIST(.ROOT,+DFN,ORIDT) ; show deleted only
 I ST'="R"  D LIST(.ROOT,+DFN,ST,ORIDT) ; show others - don't trust ELSE here
 I ROOT(0)<1 D
 . S LCNT=1
 . S ROOT(1)="     "_$$PAD^ORCHTAB("No data available.",49)_"/"

CPRS

File Type Description
Pascal File rProbs.pas


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