source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRC5B7A.m@ 623

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1PRC5B7A ;WISC/PLT-PRC5B7 CONTINUE ;7/30/94 03:07
2V ;;5.0;IFCAP;;4/21/95
3 QUIT ;invalid entry
4EN ;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)
25EN1 ;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 ;
Note: See TracBrowser for help on using the repository browser.