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

PXRMDLG1.m

Go to the documentation of this file.
  1. PXRMDLG1 ; SLC/PJH - Reminder Dialog Edit/Inquiry (overflow) ;08/20/2012
  1. ;;2.0;CLINICAL REMINDERS;**12,26**;Feb 04, 2005;Build 404
  1. ;
  1. ;Either dialog text or P/N text
  1. ;------------------------------
  1. TSUB(IEN,VIEW) ;
  1. ;Dialog View uses Dialog text
  1. I VIEW=1 Q 25
  1. I VIEW=2,$D(^PXRMD(801.41,IEN,25)) Q 25
  1. ;P/N View uses P/N TEXT if defined
  1. I $D(^PXRMD(801.41,IEN,35)) Q 35
  1. ;Otherwise Dialog Text
  1. Q 25
  1. ;
  1. ;additional prompts in the dialog file
  1. ;-------------------------------------
  1. PROMPT(IEN,TAB,TEXT,DGRP) ;
  1. N DATA,DDIS,DGSEQ,DSUB,DTITLE,DTXT,DTYP,SEQ,SUB
  1. S SEQ=0
  1. F S SEQ=$O(^PXRMD(801.41,IEN,10,"B",SEQ)) Q:'SEQ D
  1. .S SUB=$O(^PXRMD(801.41,IEN,10,"B",SEQ,"")) Q:'SUB
  1. .S DSUB=$P($G(^PXRMD(801.41,IEN,10,SUB,0)),U,2) Q:'DSUB
  1. .S DATA=$G(^PXRMD(801.41,DSUB,0)) Q:DATA=""
  1. .S DNAME=$P(DATA,U),DDIS=$P(DATA,U,3),DTYP=$P(DATA,U,4)
  1. .I VIEW,('DGRP),(DTYP'="P") Q
  1. .I ('VIEW),('DGRP),("FP"'[DTYP) Q
  1. .S:VIEW DDIS=""
  1. .I DTYP="F" S DNAME=DNAME_" (forced value)"
  1. .I DGRP D
  1. ..S DGSEQ=$P($G(^PXRMD(801.41,IEN,10,SUB,0)),U)
  1. ..S DNAME=DGSEQ_$J("",3-$L(DGSEQ))_DNAME
  1. .I TAB=0,DTYP="P" D
  1. ..;Override prompt caption
  1. ..S DTITLE=$P($G(^PXRMD(801.41,IEN,10,SUB,0)),U,6)
  1. ..I DTITLE="" S DTITLE=$P($G(^PXRMD(801.41,DSUB,2)),U,4)
  1. ..S DNAME=$J("",3)_DTITLE
  1. .I TAB=0,DTYP="F" S DNAME=$J("",3)_DNAME
  1. .S DNAME=$J("",15)_$G(TEXT)_DNAME
  1. .;S:DDIS]"" DNAME=DNAME_$J("",72-$L(DNAME))_DDIS
  1. .S:+DDIS>0 DNAME=DNAME_$J("",72-$L(DNAME))_" (Disabled)"
  1. .S VALMCNT=VALMCNT+1
  1. .S ^TMP("PXRMDLG",$J,VALMCNT,0)=DNAME
  1. .S TEXT=$J("",TAB)
  1. Q
  1. ;
  1. FIND(FIEN,SEQ,DIEN,NLINE,NODE) ;
  1. N FNUM,TIEN,HIST,SUB,CODE,CODES,CODESYS,BDATE,EDATE,DATE,DESC,DTEXT
  1. S HIST=0
  1. S TIEN=$P(FIEN,";")
  1. D BLDCODE^PXRMDTAX("ALL",.CODESYS)
  1. D CODES^PXRMDLLB(TIEN,.CODESYS,.CODES)
  1. S TEXT=$J("",15)_"Selectable codes:",TAB=18
  1. S STR=$$LJ^XLFSTR($G(TEXT),60)
  1. S STR=STR_"Activation Periods"
  1. S NLINE=NLINE+1
  1. S ^TMP(NODE,$J,NLINE,0)=STR
  1. S BDATE=""
  1. F S BDATE=$O(CODES(BDATE)) Q:BDATE="" D
  1. .I $G(BDATE)=0 Q
  1. .S EDATE=$P(CODES(BDATE),U),DESC=$P(CODES(BDATE),U,2)
  1. .S BDATE=$$FMTE^XLFDT(BDATE)
  1. .I $G(EDATE)'="" S EDATE=$$FMTE^XLFDT(EDATE)
  1. .S DATE=BDATE I $G(EDATE)'="" S DATE=DATE_"-"_EDATE
  1. .S STR=$$LJ^XLFSTR($G(CODE),8)
  1. .S STR=STR_$$LJ^XLFSTR(DESC,31)
  1. .S DTEXT=STR_DATE
  1. .S NLINE=NLINE+1
  1. .S ^TMP(NODE,$J,NLINE,0)=$J("",15)_DTEXT
  1. S NLINE=NLINE+1
  1. S ^TMP(NODE,$J,NLINE,0)=$J("",79)
  1. Q
  1. ;