Last change
on this file since 1757 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
628 bytes
|
Line | |
---|
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.