source: WorldVistAEHR/trunk/r/OCCURRENCE_SCREEN-QAO/QAOSCNV2.m@ 623

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

initial load of WorldVistAEHR

File size: 887 bytes
Line 
1QAOSCNV2 ;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
17EXIT K D0,DA,DIE,DR,QAOSD0,QAOSEVER,QAOSSNUM,QAOSTEXT,QAOSVR,QAQADICT,QAQAFLD,X
18 Q
Note: See TracBrowser for help on using the repository browser.