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

PXRMPCPY.m

Go to the documentation of this file.
  1. PXRMPCPY ; SLC/PJH - Copy Patient Lists. ;03/17/2003
  1. ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
  1. ;
  1. COPY ;Copy patient list - protocol PXRM PATIENT LIST COPY
  1. ;
  1. W IORESET
  1. ;
  1. ;Select Patient List to copy
  1. N DIC,DUOUT,DTOUT,DIROUT,DIRUT,IENN,IENO,PLNAM,ROOT,SIEN,X,Y
  1. S ROOT="^PXRM(810.4",DIC=ROOT,DIC(0)="AEQ"
  1. S DIC("A")="Select the Patient List to Copy: "
  1. ;
  1. W ! D ^DIC I $D(DUOUT)!$D(DTOUT) Q
  1. S IENO=$P(Y,U,1) I IENO=-1 Q
  1. ;
  1. ;Select list to copy to
  1. D PLIST^PXRMLCR(.IENN) Q:'IENN
  1. ;Load list into ^TMP
  1. D LOAD^PXRMRULE("PXRMPCPY",IENN)
  1. ;Update new patient list
  1. D UPDLST^PXRMRULE("PXRMPCPY",IENN,"","")
  1. ;
  1. W !!,"Completed copy of '"_ORGNAME_"'"
  1. W !,"into '"_NAME_"'",! H 2
  1. Q