VistA Analysis » VistA Reference » RPCs » ORQQPL USER PROB CATS

ORQQPL USER PROB CATS

rETURNS ARRAY OF CATEGORIES FOR USER TO SELECT FROM

Properties

Property Value
Label CAT
MUMPS Implementation ORQQPL3
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
DUZ LITERAL     USER ID
CLINIC LITERAL     IFN OF CLINIC

MUMPS Method Description

Property Value
Method CAT^ORQQPL3
Method Comment Get user category list
Input Parameters ORDUZ, CLIN
Code
 N GSEQ,GCNT,GROUP,HDR,IFN,LCNT,ITEM,TG,GMPLSLST
S TG=$NAME(TMP) ; put list in local
K @TG
S (GSEQ,GCNT,LCNT)=0
S GMPLSLST=$$GETUSLST(DUZ,CLIN) ; get approp list for user
F S GSEQ=$O(^GMPL(125.1,"C",+GMPLSLST,GSEQ)) Q:GSEQ'>0 D
. S IFN=$O(^GMPL(125.1,"C",+GMPLSLST,GSEQ,0)) Q:IFN'>0
. S ITEM=$G(^GMPL(125.1,IFN,0))
. S GROUP=+$P(ITEM,U,3)
. S HDR=GROUP_U_$P(ITEM,U,4,5)
. S GCNT=GCNT+1
. S @TG@(GCNT)=HDR ; put category into temp global

CPRS

File Type Description
Pascal File rProbs.pas


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