| 1 | PRC5B7A ;WISC/PLT-PRC5B7 CONTINUE ;7/30/94 03:07
|
|---|
| 2 | V ;;5.0;IFCAP;;4/21/95
|
|---|
| 3 | QUIT ;invalid entry
|
|---|
| 4 | EN ;clean MO/SO ifcap v5 conversion doc first
|
|---|
| 5 | ;
|
|---|
| 6 | ;DELETE CONVERSION MO/SO RRECORD
|
|---|
| 7 | N PRCRI,PRCA,PRCB,PRCC,PRCD,PRCE,PRCF,A,B,C
|
|---|
| 8 | G:$O(^GECS(2100.1,"B",""))="" EN1
|
|---|
| 9 | D EN^DDIOL("DELETE CONVERSION MO/SO RECORD STARTS"_" at "_$$NOW^PRC5A)
|
|---|
| 10 | S PRCRI(2100.1)=0
|
|---|
| 11 | F S PRCRI(2100.1)=$O(^GECS(2100.1,PRCRI(2100.1))) Q:'PRCRI(2100.1) D
|
|---|
| 12 | . S PRCA=$G(^GECS(2100.1,PRCRI(2100.1),1))
|
|---|
| 13 | . I PRCA'["Conversion Original Entry",PRCA'["Conversion Modification Entry" QUIT
|
|---|
| 14 | . S PRCB=$P(^GECS(2100.1,PRCRI(2100.1),0)," ",1)
|
|---|
| 15 | . S PRCC=$E(PRCB,4,6)_"-"_$E(PRCB,7,999),PRCRI(442)=$O(^PRC(442,"B",PRCC,""))
|
|---|
| 16 | . QUIT:'PRCRI(442)
|
|---|
| 17 | . W !!,PRCRI(2100.1)," ",PRCA,!,PRCB," ",PRCC," ",PRCRI(442)
|
|---|
| 18 | . ;CLEAN 422 NODE 10 MO/SO DATA
|
|---|
| 19 | . S PRCE=$G(^PRC(442,PRCRI(442),10,0)),PRCE=$P(PRCE,"^",3)
|
|---|
| 20 | . F PRCF=PRCE:-1:1 S A=$G(^PRC(442,PRCRI(442),10,PRCF,0)) D:A?1"MO".E!(A?1"SO".E) QUIT
|
|---|
| 21 | .. D DELETE^PRC0B1(.X,"442;^PRC(442,;"_PRCRI(442)_"~442.09;^PRC(442,"_PRCRI(442)_",10,;"_PRCF) W " ",PRCF
|
|---|
| 22 | . D DELETE^PRC0B1(.X,"2100.1;^GECS(2100.1,;"_PRCRI(2100.1))
|
|---|
| 23 | . QUIT
|
|---|
| 24 | D EN^DDIOL("DELETE CONVERSION MO/SO RECORD IN FILE 2100.1 DONE! AT "_$$NOW^PRC5A)
|
|---|
| 25 | EN1 ;dlelte file 411.3 for conversion entry
|
|---|
| 26 | F S PRCA=$O(^PRC(411.3,"AD",0)) QUIT:'PRCA D:PRCA
|
|---|
| 27 | . D DELETE^PRC0B1(.X,"411.3;^PRC(411.3,;"_PRCA)
|
|---|
| 28 | . K ^PRC(411.3,"AD",PRCA)
|
|---|
| 29 | . QUIT
|
|---|
| 30 | K ^PRC(411.3,"AD")
|
|---|
| 31 | QUIT
|
|---|
| 32 | ;
|
|---|
