source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD21.m@ 1141

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

revised back to 6/30/08 version

File size: 1.2 KB
Line 
1ORD21 ; COMPILED XREF FOR FILE #100 ; 12/25/06
2 ;
3 S DIKZK=2
4 S DIKZ(0)=$G(^OR(100,DA,0))
5 S X=$P(DIKZ(0),U,2)
6 I X'="" D KILALL^ORDD100(DA)
7 S X=$P(DIKZ(0),U,2)
8 I X'="" X ^DD(100,.02,1,5,2)
9 S X=$P(DIKZ(0),U,2)
10 I X'="" X ^DD(100,.02,1,7,2)
11 S X=$P(DIKZ(0),U,2)
12 I X'="" D WK^ORDD100
13 S X=$P(DIKZ(0),U,2)
14 I X'="" D OI2^ORDD100A(DA)
15 S X=$P(DIKZ(0),U,2)
16 I X'="" X ^DD(100,.02,1,11,2)
17 S DIKZ(0)=$G(^OR(100,DA,0))
18 S X=$P(DIKZ(0),U,8)
19 I X'="" D SK^ORDD100
20 S X=$P(DIKZ(0),U,8)
21 I X'="" D WK^ORDD100
22 S X=$P(DIKZ(0),U,8)
23 I X'="" D OI2^ORDD100A(DA)
24 S X=$P(DIKZ(0),U,9)
25 I X'="" D EK^ORDD100A
26 S X=$P(DIKZ(0),U,11)
27 I X'="" D WK^ORDD100
28 S X=$P(DIKZ(0),U,11)
29 I X'="" X ^DD(100,23,1,3,2)
30CR1 S DIXR=187
31 K X
32 S DIKZ(0)=$G(^OR(100,DA,0))
33 S X(1)=$P(DIKZ(0),U,2)
34 S X(2)=$P(DIKZ(0),U,17)
35 S X=$G(X(1))
36 I $G(X(1))]"",$G(X(2))]"" D
37 . K X1,X2 M X1=X,X2=X
38 . S:$D(DIKIL) (X2,X2(1),X2(2))=""
39 . K ^OR(100,"AEVNT",X(1),X(2),DA)
40CR2 S DIXR=210
41 K X
42 S DIKZ(0)=$G(^OR(100,DA,0))
43 S X(1)=$P(DIKZ(0),U,2)
44 S DIKZ(7)=$G(^OR(100,DA,7))
45 S X=$P(DIKZ(7),U,1)
46 I $G(X)]"" S X=9999999-X
47 S:$D(X)#2 X(2)=X
48 S X=$G(X(1))
49 I $G(X(1))]"",$G(X(2))]"" D
50 . K X1,X2 M X1=X,X2=X
51 . S:$D(DIKIL) (X2,X2(1),X2(2))=""
52 . K ^OR(100,"ARS",X(1),X(2),DA)
53CR3 K X
54END G ^ORD22
Note: See TracBrowser for help on using the repository browser.