| 1 | PXRMCFED ; 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
|
|---|
| 6 | GETNAME ;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
|
|---|
| 29 | END ;
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | ;======================================================
|
|---|
| 33 | EDIT(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 | ;
|
|---|
