source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY240.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 801 bytes
Line 
1ORY240 ;SLC/JMH - Post Install for OR*3*240 ; [9/2/05 1:25pm]
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**240**;Dec 17, 1997
3POST ;
4 N RADA ;Procedure IEN
5 S RADA=0 F S RADA=$O(^RAMIS(71,RADA)) Q:'RADA D
6 .N CM,OIDA
7 .S OIDA=$O(^ORD(101.43,"ID",RADA_";99RAP",0))
8 .Q:'$G(OIDA)
9 .S CM=$$GETCM(RADA)
10 .I $D(^RAMIS(71,RADA,4)) D
11 ..N CHDA ;child IEN
12 ..S CHDA=0 F S CHDA=$O(^RAMIS(71,RADA,4,"B",CHDA)) Q:'$G(CHDA) S CM=$$MERGECM($G(CM),$$GETCM(CHDA))
13 .I $L($G(CM)) S $P(^ORD(101.43,OIDA,"RA"),U)=CM
14 Q
15GETCM(RADA) ;
16 N I,CM
17 S CM=""
18 S I=0 F S I=$O(^RAMIS(71,RADA,"CM",I)) Q:'I S CM=$G(CM)_$G(^RAMIS(71,RADA,"CM",I,0))
19 Q CM
20MERGECM(X,Y) ;
21 N I,RET,ARRY
22 S RET=""
23 I $L(X) F I=1:1:$L(X) S ARRY($E(X,I))=""
24 I $L(Y) F I=1:1:$L(Y) S ARRY($E(Y,I))=""
25 S I="" F S I=$O(ARRY(I)) Q:I="" S RET=RET_I
26 Q RET
Note: See TracBrowser for help on using the repository browser.