Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
628 bytes
|
Rev | Line | |
---|
[613] | 1 | MCESCON3 ;WISC/DCB-CONVERT RELEASE CODES TO NEW CODES ;3/9/93
|
---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
---|
| 3 | START ; This looks like a good place to start
|
---|
| 4 | S MCARGDA=.9,MCFILE=691.5
|
---|
| 5 | F D LOOP Q:MCARGDA=0
|
---|
| 6 | K MCARGDA,TEMP,CODE,NEWCOE
|
---|
| 7 | Q
|
---|
| 8 | LOOP ; loop at the ES node and check to see if its vailite
|
---|
| 9 | S MCARGDA=+$O(^MCAR(MCFILE,MCARGDA)) Q:MCARGDA=0
|
---|
| 10 | S TEMP=$G(^MCAR(MCFILE,MCARGDA,"ES")) Q:TEMP=""
|
---|
| 11 | S CODE=+$P(TEMP,U,7) ; get the code
|
---|
| 12 | D:CODE'=0 CHANGE(CODE,MCARGDA)
|
---|
| 13 | Q
|
---|
| 14 | CHANGE(CODE,DA) ;
|
---|
| 15 | N NEWCODE,DIE,DR
|
---|
| 16 | S NEWCODE=$S(CODE=2:"PD",CODE=3:"RV",CODE=4:"ROV",CODE=5:"RNV",CODE=6:"S",1:"D")
|
---|
| 17 | S DIE="^MCAR("_MCFILE_",",DR="1506////^S X=NEWCODE" D ^DIE
|
---|
| 18 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.