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

PXRMCFED.m

Go to the documentation of this file.
  1. PXRMCFED ; SLC/PKR - Edit a reminder computed finding. ;06/19/2001
  1. ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
  1. ;
  1. ;======================================================
  1. N CS1,CS2,DA,DIC,DLAYGO,DTOUT,DUOUT,Y
  1. GETNAME ;Get the name of the computed finding to edit.
  1. ;Make sure the user has programmer access.
  1. I DUZ(0)'="@" D Q
  1. . W !!,"Only those with programmer's access can perform this function."
  1. K DA,DIC,DLAYGO,DTOUT,DUOUT,Y
  1. S DIC="^PXRMD(811.4,"
  1. S DIC(0)="AEMQL"
  1. S DIC("A")="Select Reminder Computed Finding: "
  1. S DIC("S")="I $P(^(0),U,1)'[""VA-"""
  1. S DLAYGO=811.4
  1. ;Set the starting place for additions.
  1. D SETSTART^PXRMCOPY(DIC)
  1. W !
  1. D ^DIC
  1. I ($D(DTOUT))!($D(DUOUT)) Q
  1. I Y=-1 G END
  1. S DA=$P(Y,U,1)
  1. S CS1=$$FILE^PXRMEXCS(811.4,DA)
  1. D EDIT(DIC,DA)
  1. S CS2=$$FILE^PXRMEXCS(811.4,DA)
  1. I CS2=0 Q
  1. I CS2'=CS1 D SEHIST^PXRMUTIL(811.4,DIC,DA)
  1. G GETNAME
  1. END ;
  1. Q
  1. ;
  1. ;======================================================
  1. EDIT(ROOT,DA) ;
  1. N DIE,DR,DIDEL
  1. S DIE=ROOT,DIDEL=811.4
  1. S DR="[PXRM EDIT REMINDER CF]"
  1. D ^DIE
  1. Q
  1. ;