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

PXRMTUTL.m

Go to the documentation of this file.
  1. PXRMTUTL ;SLC/AGP - Reminder term utility routine. ;04/06/2020
  1. ;;2.0;CLINICAL REMINDERS;**72**;Feb 04, 2005;Build 16
  1. ;
  1. ;=================================
  1. SETTFIND(RESULT,TNAME,FINDING) ;
  1. N FCNT,FDA,FIELD,ICNT,IENS,MSG,SCNT,SIDX,TIEN,VALUE
  1. S TIEN=$O(^PXRMD(811.5,"B",TNAME,""))
  1. I TIEN=0 S RESULT="-1^Reminder term "_TNAME_" not found in Reminder Term file" Q
  1. S FDA(811.5,TIEN_",",.01)=TNAME
  1. S FCNT=TIEN,SCNT=0
  1. S ICNT=0 F S ICNT=$O(FINDING(ICNT)) Q:ICNT'>0 D
  1. .S FIELD="" F S FIELD=$O(FINDING(ICNT,FIELD)) Q:FIELD="" D
  1. ..I FIELD=.01 D
  1. ...I SCNT>0,SCNT>0 S FCNT=SCNT+1 Q
  1. ...S FCNT=FCNT+1
  1. ..I FIELD'="STATUS" D Q
  1. ...S VALUE=FINDING(ICNT,FIELD) I VALUE="" Q
  1. ...S FDA(811.52,"+"_FCNT_","_TIEN_",",FIELD)=VALUE
  1. ..I FIELD="STATUS" D
  1. ...S SCNT=FCNT
  1. ...S SIDX=0 F S SIDX=$O(FINDING(ICNT,FIELD,SIDX)) Q:SIDX'>0 D
  1. ....S VALUE=FINDING(ICNT,FIELD,SIDX) Q:VALUE=""
  1. ....S SCNT=SCNT+1
  1. ....S FDA(811.54,"+"_SCNT_",+"_FCNT_","_TIEN_",",.01)=VALUE
  1. I '$D(FDA) Q
  1. D UPDATE^DIE("E","FDA","","MSG")
  1. I $D(MSG) D Q
  1. .S RESULT=0
  1. .D AWRITE^PXRMUTIL("MSG")
  1. S RESULT=1
  1. Q
  1. ;