source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCESCON3.m@ 861

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

initial load of WorldVistAEHR

File size: 628 bytes
RevLine 
[613]1MCESCON3 ;WISC/DCB-CONVERT RELEASE CODES TO NEW CODES ;3/9/93
2 ;;2.3;Medicine;;09/13/1996
3START ; 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
8LOOP ; 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
14CHANGE(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.