Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXRMAPI0

PXRMAPI0.m

Go to the documentation of this file.
  1. PXRMAPI0 ; SLC/PJH - Reminder Package API's;08/28/2001
  1. ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
  1. ;
  1. ;
  1. ;Store CATEGORY reminders in ARRAY ; DBIA #3333
  1. ;---------------------------------
  1. CATREM(CIEN,ARRAY) ;
  1. D STORE(CIEN,.ARRAY,0)
  1. Q
  1. ;
  1. STORE(CIEN,ARRAY,NREM) ;Add to output array
  1. N DATA,NAME,RIEN,PNAME,SEQ,SUB,TEMP
  1. ;Sort Reminders from this category into display sequence
  1. S SUB=0 K TEMP
  1. F S SUB=$O(^PXRMD(811.7,CIEN,2,SUB)) Q:SUB="" D
  1. .S DATA=$G(^PXRMD(811.7,CIEN,2,SUB,0)) Q:DATA=""
  1. .S RIEN=$P(DATA,U) Q:RIEN=""
  1. .S SEQ=$P(DATA,U,2)_0
  1. .S DATA=$G(^PXD(811.9,RIEN,0))
  1. .S NAME=$P(DATA,U),PNAME=$P(DATA,U,3)
  1. .S TEMP(SEQ)=RIEN
  1. ;
  1. ;Re-save reminders in output array for display
  1. ;type^reminder ien^name
  1. ;
  1. S SEQ=""
  1. F S SEQ=$O(TEMP(SEQ)) Q:SEQ="" D
  1. .S NREM=NREM+1,ARRAY(NREM)=TEMP(SEQ)
  1. ;
  1. ;Sort Sub-Categories for this category into display order
  1. S SUB=0 K TEMP
  1. F S SUB=$O(^PXRMD(811.7,CIEN,10,SUB)) Q:SUB="" D
  1. .S DATA=$G(^PXRMD(811.7,CIEN,10,SUB,0)) Q:DATA=""
  1. .S SEQ=$P(DATA,U,2),TEMP(SEQ)=SUB
  1. ;
  1. ;Process sub-sub categories in the same manner
  1. S SEQ=""
  1. F S SEQ=$O(TEMP(SEQ)) Q:SEQ="" D
  1. .N IEN
  1. .S SUB=TEMP(SEQ),IEN=$P($G(^PXRMD(811.7,CIEN,10,SUB,0)),U) Q:'IEN
  1. .D STORE(IEN,.ARRAY,.NREM)
  1. Q
  1. ;
  1. OK(DIEN) ;Replaces DBA 3410 for TIU TEMPLATE REMINDER DIALOGS
  1. ;Must be a reminder dialog type
  1. I $P($G(^PXRMD(801.41,DIEN,0)),U,4)'="R" Q 0
  1. ;And not disabled
  1. I $P($G(^PXRMD(801.41,DIEN,0)),U,3)'="" Q 0
  1. ;Otherwise its OK
  1. Q 1