source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMCFED.m@ 1005

Last change on this file since 1005 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1PXRMCFED ; SLC/PKR - Edit a reminder computed finding. ;06/19/2001
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;
4 ;======================================================
5 N CS1,CS2,DA,DIC,DLAYGO,DTOUT,DUOUT,Y
6GETNAME ;Get the name of the computed finding to edit.
7 ;Make sure the user has programmer access.
8 I DUZ(0)'="@" D Q
9 . W !!,"Only those with programmer's access can perform this function."
10 K DA,DIC,DLAYGO,DTOUT,DUOUT,Y
11 S DIC="^PXRMD(811.4,"
12 S DIC(0)="AEMQL"
13 S DIC("A")="Select Reminder Computed Finding: "
14 S DIC("S")="I $P(^(0),U,1)'[""VA-"""
15 S DLAYGO=811.4
16 ;Set the starting place for additions.
17 D SETSTART^PXRMCOPY(DIC)
18 W !
19 D ^DIC
20 I ($D(DTOUT))!($D(DUOUT)) Q
21 I Y=-1 G END
22 S DA=$P(Y,U,1)
23 S CS1=$$FILE^PXRMEXCS(811.4,DA)
24 D EDIT(DIC,DA)
25 S CS2=$$FILE^PXRMEXCS(811.4,DA)
26 I CS2=0 Q
27 I CS2'=CS1 D SEHIST^PXRMUTIL(811.4,DIC,DA)
28 G GETNAME
29END ;
30 Q
31 ;
32 ;======================================================
33EDIT(ROOT,DA) ;
34 N DIE,DR,DIDEL
35 S DIE=ROOT,DIDEL=811.4
36 S DR="[PXRM EDIT REMINDER CF]"
37 D ^DIE
38 Q
39 ;
Note: See TracBrowser for help on using the repository browser.