source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD29.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

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