|
Last change
on this file since 814 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.
