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

PXRMRUTL.m

Go to the documentation of this file.
  1. PXRMRUTL ; SLC/PJH - Reminder utilities. ;03/24/2003
  1. ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
  1. ;
  1. ;
  1. ;Store file details used by findings in array form
  1. ;-------------------------------------------------
  1. DEF(FILENUM,DEF,DEF1,DEF2) ;
  1. N DATA,DESC,FILE,GSUB,LIST,SEQ,TYPE
  1. ;Get variable pointer details from data dictionary
  1. D BLDRLIST^PXRMVPTR(FILENUM,".01",.LIST)
  1. ;
  1. S GSUB="",DEF=0
  1. F S GSUB=$O(LIST(GSUB)) Q:GSUB="" D
  1. .S DATA=$G(LIST(GSUB)) Q:DATA=""
  1. .S FILE=$P(DATA,U),DESC=$P(DATA,U,2),SEQ=$P(DATA,U,3),TYPE=$P(DATA,U,4)
  1. .Q:(FILE="")!(TYPE="")!(SEQ="")!(DESC="")
  1. .;Save number of files (using sequence number)
  1. .I SEQ>DEF S DEF=SEQ
  1. .;Save file type and description in sequence (used in DIR prompt)
  1. .S DEF(SEQ)=TYPE_":"_DESC
  1. .;Build index to file type from global reference
  1. .S DEF1(GSUB)=TYPE
  1. .;Build Index to description from file type
  1. .S DEF2(TYPE)=DESC
  1. .;Build Index to file number from file type
  1. .S DEF2(TYPE,1)=FILE
  1. Q
  1. ;
  1. DUMMY W !!,"This option is not yet available",!!,*7 H 1
  1. Q
  1. ;
  1. DUMMY1 D BMES^XPDUTL("Option is not yet available.") H 2
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. ;
  1. TEST(ARRAY,DIEN) ;Dialog test
  1. D LOAD^PXRMDLL(DIEN) M ARRAY=ORY
  1. ;
  1. N DSEQ,DIEN,DCUR,DSUB,DTTYP,OCNT,SUB,ARRAYN
  1. S OCNT=$O(ARRAY(""),-1)+1,ARRAY(OCNT)=$J("",79)
  1. S OCNT=OCNT+1,ARRAY(OCNT)="Additional prompts"
  1. S OCNT=OCNT+1,ARRAY(OCNT)=$J("",79)
  1. S SUB=""
  1. F S SUB=$O(ORY(SUB)) Q:'SUB D
  1. .I $P(ORY(SUB),U)'=1 Q
  1. .S DIEN=$P(ORY(SUB),U,2),DSEQ=$P(ORY(SUB),U,3)
  1. .S DTTYP=$P(ORY(SUB),U,7),DCUR=$P(ORY(SUB),U,8)
  1. .;Ignore group headers
  1. .Q:DCUR="D"
  1. .K ARRAYN D TESTL(.ARRAYN,DIEN,DCUR,DTTYP)
  1. .S DSUB=""
  1. .F S DSUB=$O(ARRAYN(DSUB)) Q:'DSUB D
  1. ..S OCNT=OCNT+1,ARRAY(OCNT)=ARRAYN(DSUB)
  1. .S OCNT=OCNT+1,ARRAY(OCNT)=$J("",79)
  1. Q
  1. ;
  1. TESTL(ORY,DITEM,DCUR,DTTYP) ;Dialog load
  1. D LOAD^PXRMDLLA(DITEM,DCUR,DTTYP)
  1. Q