| [613] | 1 | PXRMTEDT ; SLC/PKR - Edit a taxonomy item. ;12/23/2005
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
|
|---|
| 3 | ;
|
|---|
| 4 | ;===============================================
|
|---|
| 5 | N CS1,CS2,DA,DIC,DLAYGO,DTOUT,DUOUT,Y
|
|---|
| 6 | GETNAME ;Get the name of the reminder taxonomy to edit.
|
|---|
| 7 | K DA,DIC,DLAYGO,DTOUT,DUOUT,Y
|
|---|
| 8 | S DIC="^PXD(811.2,"
|
|---|
| 9 | S DIC(0)="AEMQL"
|
|---|
| 10 | S DIC("A")="Select Reminder Taxonomy: "
|
|---|
| 11 | S DIC("S")="I $$VEDIT^PXRMUTIL(DIC,Y)"
|
|---|
| 12 | S DLAYGO=811.2
|
|---|
| 13 | ;Set the starting place for additions.
|
|---|
| 14 | D SETSTART^PXRMCOPY(DIC)
|
|---|
| 15 | W !
|
|---|
| 16 | D ^DIC
|
|---|
| 17 | I ($D(DTOUT))!($D(DUOUT)) Q
|
|---|
| 18 | I Y=-1 G END
|
|---|
| 19 | S DA=$P(Y,U,1)
|
|---|
| 20 | S CS1=$$FILE^PXRMEXCS(811.2,DA)
|
|---|
| 21 | D EDIT(DIC,DA)
|
|---|
| 22 | ;See if any changes have been made, if so do the edit history.
|
|---|
| 23 | S CS2=$$FILE^PXRMEXCS(811.2,DA)
|
|---|
| 24 | I CS2'=0,CS2'=CS1 D SEHIST^PXRMUTIL(811.2,DIC,DA)
|
|---|
| 25 | G GETNAME
|
|---|
| 26 | END ;
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | ;===============================================
|
|---|
| 30 | EDIT(ROOT,DA) ;
|
|---|
| 31 | N DIE,DR,DIDEL,RESULT,X
|
|---|
| 32 | S DIE=ROOT,DIDEL=811.2
|
|---|
| 33 | S DIE("NO^")="OUTOK"
|
|---|
| 34 | W !!,"General Taxonomy Data"
|
|---|
| 35 | NAME S DR=".01"
|
|---|
| 36 | D ^DIE
|
|---|
| 37 | ;If DA is undefined then the entry was deleted.
|
|---|
| 38 | I '$D(DA) Q
|
|---|
| 39 | I $D(Y) Q
|
|---|
| 40 | ;
|
|---|
| 41 | BD S DR=".02"
|
|---|
| 42 | D ^DIE
|
|---|
| 43 | I '$D(DA) Q
|
|---|
| 44 | I $D(Y) G NAME
|
|---|
| 45 | ;
|
|---|
| 46 | CLASS ;
|
|---|
| 47 | ;Class
|
|---|
| 48 | W !!
|
|---|
| 49 | S DR="100"
|
|---|
| 50 | D ^DIE
|
|---|
| 51 | I $D(Y) G BD
|
|---|
| 52 | ;Sponsor
|
|---|
| 53 | S DR="101"
|
|---|
| 54 | D ^DIE
|
|---|
| 55 | I $D(Y) G CLASS
|
|---|
| 56 | ;Make sure Class and Sponsor Class are in synch.
|
|---|
| 57 | S RESULT=$$VSPONSOR^PXRMINTR(X)
|
|---|
| 58 | I RESULT=0 G CLASS
|
|---|
| 59 | ;Review date
|
|---|
| 60 | RD W !!
|
|---|
| 61 | S DR="102"
|
|---|
| 62 | D ^DIE
|
|---|
| 63 | I $D(Y) G CLASS
|
|---|
| 64 | ;
|
|---|
| 65 | PDS W !!
|
|---|
| 66 | S DR="4"
|
|---|
| 67 | D ^DIE
|
|---|
| 68 | I '$D(DA) Q
|
|---|
| 69 | I $D(Y) G RD
|
|---|
| 70 | ;
|
|---|
| 71 | UINP S DR="10"
|
|---|
| 72 | D ^DIE
|
|---|
| 73 | I '$D(DA) Q
|
|---|
| 74 | I $D(Y) G PDS
|
|---|
| 75 | ;
|
|---|
| 76 | IFL S DR="1.6"
|
|---|
| 77 | D ^DIE
|
|---|
| 78 | I '$D(DA) Q
|
|---|
| 79 | I $D(Y) G UINP
|
|---|
| 80 | ;
|
|---|
| 81 | ICD0 W !!,"ICD0 Range of Coded Values"
|
|---|
| 82 | S DR="2103"
|
|---|
| 83 | S DR(2,811.22103)=".01;1"
|
|---|
| 84 | D ^DIE
|
|---|
| 85 | I $D(Y) Q
|
|---|
| 86 | ;
|
|---|
| 87 | ICD9 W !!,"ICD9 Range of Coded Values"
|
|---|
| 88 | S DR="2102"
|
|---|
| 89 | S DR(2,811.22102)=".01;1"
|
|---|
| 90 | D ^DIE
|
|---|
| 91 | I $D(Y) G ICD0
|
|---|
| 92 | ;
|
|---|
| 93 | CPT W !!,"CPT Range of Coded Values"
|
|---|
| 94 | S DR="2104"
|
|---|
| 95 | S DR(2,811.22104)=".01;1"
|
|---|
| 96 | D ^DIE
|
|---|
| 97 | I $D(Y) G ICD9
|
|---|
| 98 | Q
|
|---|
| 99 | ;
|
|---|
