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

PXRMLIST.m

Go to the documentation of this file.
  1. PXRMLIST ; SLC/PKR/PJH - Clinical Reminders list functions. ;01/18/2013
  1. ;;2.0;CLINICAL REMINDERS;**6,26**;Feb 04, 2005;Build 404
  1. ;Used in the reminder exchange utility for building lists of
  1. ;reminders, Exchange File entries, etc.
  1. ;=======================================================
  1. FRDEF(NAME,PNAME) ;Format the reminder name and print name.
  1. N IND,TEMP
  1. S TEMP=$$LJ^XLFSTR(NAME,40," ")
  1. S TEMP=TEMP_PNAME
  1. Q TEMP
  1. ;
  1. ;=======================================================
  1. FMT(NUMBER,NAME,SOURCE,DATE,FMTSTR,NL,OUTPUT) ;Format entry number, name,
  1. ;source, and date packed for LM display.
  1. N TEMP,TSOURCE
  1. S TEMP=NUMBER_U_NAME
  1. S TSOURCE=$E($P(SOURCE,",",1),1,12)_"@"_$E($P(SOURCE," at ",2),1,12)
  1. S TEMP=TEMP_U_TSOURCE
  1. S DATE=$$FMTE^XLFDT(DATE,"5Z")
  1. S TEMP=TEMP_U_DATE
  1. D COLFMT^PXRMTEXT(FMTSTR,TEMP," ",.NL,.OUTPUT)
  1. Q
  1. ;
  1. ;=======================================================
  1. LIST ;Print a list of location lists.
  1. N BY,DIC,FLDS,FR,L,PXRMEDOK
  1. S PXRMEDOK=1
  1. S BY=".01"
  1. S DIC="^PXRMD(810.9,"
  1. S FLDS="[PXRM LOCATION LIST LIST]"
  1. S FR=""
  1. S L=0
  1. D EN1^DIP
  1. Q
  1. ;
  1. ;=======================================================
  1. MRKINACT(TEXT) ;Append the inactive mark to TEXT in column 77.
  1. N IC,NSPA
  1. S NSPA=77-$L(TEXT)
  1. F IC=1:1:NSPA S TEXT=TEXT_" "
  1. S TEXT=TEXT_"X"
  1. Q TEXT
  1. ;
  1. ;=======================================================
  1. QUERYAO() ;See if the user wants only active reminders listed.
  1. N DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
  1. S DIR(0)="YA"
  1. S DIR("A")="List active reminders only? "
  1. S DIR("B")="Y"
  1. W !
  1. D ^DIR
  1. Q Y
  1. ;
  1. ;=======================================================
  1. RDEF(DEFLIST,ARO) ;Build a list of the name and print name of all
  1. ;reminder definitions.
  1. N INACTIVE,IEN,NAME,PNAME,REMINDER
  1. S INACTIVE=""
  1. ;Build the list of reminders in alphabetical order.
  1. S VALMCNT=0
  1. S NAME=""
  1. F S NAME=$O(^PXD(811.9,"B",NAME)) Q:NAME="" D
  1. . S IEN=$O(^PXD(811.9,"B",NAME,""))
  1. . S REMINDER=^PXD(811.9,IEN,0)
  1. . S INACTIVE=$P(REMINDER,U,6)
  1. . I (ARO)&(INACTIVE) Q
  1. . S VALMCNT=VALMCNT+1
  1. . S PNAME=$P(REMINDER,U,3)
  1. . S DEFLIST(VALMCNT,0)=$$FRDEF(NAME,PNAME)
  1. . I INACTIVE D
  1. .. S DEFLIST(VALMCNT,0)=$$MRKINACT(DEFLIST(VALMCNT,0))
  1. S DEFLIST("VALMCNT")=VALMCNT
  1. Q
  1. ;
  1. ;=======================================================
  1. REXL(RLIST) ;Build a list of exchange repository entries.
  1. N DATE,EXIEN,FMTSTR,IND,NAME,NL,NUM,OUTPUT,SOURCE,STR
  1. ;Build the list in alphabetical order.
  1. S FMTSTR=$$LMFMTSTR^PXRMTEXT(.VALMDDF,"RLLL")
  1. S (NUM,VALMCNT)=0
  1. S NAME=""
  1. F S NAME=$O(^PXD(811.8,"B",NAME)) Q:NAME="" D
  1. . S DATE=""
  1. . F S DATE=$O(^PXD(811.8,"B",NAME,DATE)) Q:DATE="" D
  1. .. S EXIEN=$O(^PXD(811.8,"B",NAME,DATE,""))
  1. .. S SOURCE=$P(^PXD(811.8,EXIEN,0),U,2)
  1. .. S NUM=NUM+1
  1. .. S ^TMP(RLIST,$J,"SEL",NUM)=EXIEN
  1. .. D FMT(NUM,NAME,SOURCE,DATE,FMTSTR,.NL,.OUTPUT)
  1. .. F IND=1:1:NL D
  1. ... S VALMCNT=VALMCNT+1,^TMP(RLIST,$J,VALMCNT,0)=OUTPUT(IND)
  1. ... S ^TMP(RLIST,$J,"IDX",VALMCNT,NUM)=""
  1. S ^TMP(RLIST,$J,"VALMCNT")=VALMCNT
  1. S ^TMP(RLIST,$J,"NEXCHE")=NUM
  1. Q
  1. ;
  1. ;=======================================================
  1. N BY,DIC,FLDS,FR,L,PXRMEDOK
  1. S PXRMEDOK=1
  1. S BY=".01"
  1. S DIC="^PXRMD(811.6,"
  1. S FLDS="[PXRM SPONSOR LIST]"
  1. S FR=""
  1. S L=0
  1. D EN1^DIP
  1. Q
  1. ;