VistA Analysis » VistA Reference » RPCs » PXRM REMINDERS AND CATEGORIES

PXRM REMINDERS AND CATEGORIES

Returns list of reminders and categories.

Properties

Property	Value
Label	SEL
MUMPS Implementation	PXRMRPCD
Return Type	ARRAY

MUMPS Method Description

Property Value

Method SEL^PXRMRPCD

Method Comment Selectable reminders and categories

Code

Property	Value
Method	SEL^PXRMRPCD
Method Comment	Selectable reminders and categories
Code	N CIEN,CNAM,CNT,DATA,RCLASS,RNAM,RPNAM,RIEN,TYPE,USAGE S TYPE="R",RPNAM="",CNT=0 F S RPNAM=$O(^PXD(811.9,"D",RPNAM)) Q:RPNAM="" D .S RIEN=0 .F S RIEN=$O(^PXD(811.9,"D",RPNAM,RIEN)) Q:'RIEN D ..;Include only CPRS reminders ..S USAGE=$P($G(^PXD(811.9,RIEN,100)),U,4) I USAGE'["C",USAGE'["*" Q ..I USAGE["L"!(USAGE["O") Q ..;Skip inactive reminders ..S DATA=$G(^PXD(811.9,RIEN,0)) Q:DATA="" Q:$P(DATA,U,6) ..S RNAM=$P(DATA,U),RCLASS=$P($G(^PXD(811.9,RIEN,100)),U) ..S CNT=CNT+1,ORY(CNT)=TYPE_U_RIEN_U_RPNAM_U_RNAM_U_RCLASS S TYPE="C",CNAM="" F S CNAM=$O(^PXRMD(811.7,"B",CNAM)) Q:CNAM="" D .S CIEN=$O(^PXRMD(811.7,"B",CNAM,"")) Q:'CIEN .S CNT=CNT+1,ORY(CNT)=TYPE_U_CIEN_U_CNAM

 N CIEN,CNAM,CNT,DATA,RCLASS,RNAM,RPNAM,RIEN,TYPE,USAGE
 S TYPE="R",RPNAM="",CNT=0
 F  S RPNAM=$O(^PXD(811.9,"D",RPNAM)) Q:RPNAM=""  D
 .S RIEN=0
 .F  S RIEN=$O(^PXD(811.9,"D",RPNAM,RIEN)) Q:'RIEN  D
 ..;Include only CPRS reminders
 ..S USAGE=$P($G(^PXD(811.9,RIEN,100)),U,4) I USAGE'["C",USAGE'["*" Q
 ..I USAGE["L"!(USAGE["O") Q
 ..;Skip inactive reminders
 ..S DATA=$G(^PXD(811.9,RIEN,0)) Q:DATA=""  Q:$P(DATA,U,6)
 ..S RNAM=$P(DATA,U),RCLASS=$P($G(^PXD(811.9,RIEN,100)),U)
 ..S CNT=CNT+1,ORY(CNT)=TYPE_U_RIEN_U_RPNAM_U_RNAM_U_RCLASS
 S TYPE="C",CNAM=""
 F  S CNAM=$O(^PXRMD(811.7,"B",CNAM)) Q:CNAM=""  D
 .S CIEN=$O(^PXRMD(811.7,"B",CNAM,"")) Q:'CIEN
 .S CNT=CNT+1,ORY(CNT)=TYPE_U_CIEN_U_CNAM

CPRS

File Type	Description
Pascal File	rReminders.pas

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