| 1 | QAOSCNV2 ;HISC/DAD-RENUMBER SEVERITY LEVELS ;11/2/92 14:18
|
|---|
| 2 | ;;3.0;Occurrence Screen;;09/14/1993
|
|---|
| 3 | S QAOSVR=+$G(^DD(741.8,0,"VR")) G:(QAOSVR'>0)!(QAOSVR'<3) EXIT
|
|---|
| 4 | W !!,"Converting severity level numbers from 1-4 to 0-3"
|
|---|
| 5 | W !,"-------------------------------------------------",!
|
|---|
| 6 | F QAOSSNUM=0:0 S QAOSSNUM=$O(^QA(741.8,"B",QAOSSNUM)) Q:QAOSSNUM'>0 F QAOSD0=0:0 S QAOSD0=$O(^QA(741.8,"B",QAOSSNUM,QAOSD0)) Q:QAOSD0'>0 D
|
|---|
| 7 | . S X=$G(^QA(741.8,QAOSD0,0)),QAOSEVER=$P(X,"^"),QAOSTEXT=$P(X,"^",2)
|
|---|
| 8 | . Q:(QAOSEVER<1)!(QAOSEVER>4)
|
|---|
| 9 | . S QAQADICT=741.8,QAQAFLD=.01,X=QAOSEVER,(DA,D0)=QAOSD0
|
|---|
| 10 | . D ENKILL^QAQAXREF
|
|---|
| 11 | . S QAOSEVER=QAOSEVER-1
|
|---|
| 12 | . S $P(^QA(741.8,QAOSD0,0),"^")=QAOSEVER
|
|---|
| 13 | . S QAQADICT=741.8,QAQAFLD=.01,X=QAOSEVER,(DA,D0)=QAOSD0
|
|---|
| 14 | . D ENSET^QAQAXREF
|
|---|
| 15 | . W !?5,QAOSEVER+1," => ",QAOSEVER," - ",QAOSTEXT
|
|---|
| 16 | . Q
|
|---|
| 17 | EXIT K D0,DA,DIE,DR,QAOSD0,QAOSEVER,QAOSSNUM,QAOSTEXT,QAOSVR,QAQADICT,QAQAFLD,X
|
|---|
| 18 | Q
|
|---|
