source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMTEDT.m@ 1361

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1PXRMTEDT ; 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
6GETNAME ;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
26END ;
27 Q
28 ;
29 ;===============================================
30EDIT(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"
35NAME 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 ;
41BD S DR=".02"
42 D ^DIE
43 I '$D(DA) Q
44 I $D(Y) G NAME
45 ;
46CLASS ;
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
60RD W !!
61 S DR="102"
62 D ^DIE
63 I $D(Y) G CLASS
64 ;
65PDS W !!
66 S DR="4"
67 D ^DIE
68 I '$D(DA) Q
69 I $D(Y) G RD
70 ;
71UINP S DR="10"
72 D ^DIE
73 I '$D(DA) Q
74 I $D(Y) G PDS
75 ;
76IFL S DR="1.6"
77 D ^DIE
78 I '$D(DA) Q
79 I $D(Y) G UINP
80 ;
81ICD0 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 ;
87ICD9 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 ;
93CPT 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 ;
Note: See TracBrowser for help on using the repository browser.