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:
804 bytes
|
Line | |
---|
1 | MDRPCOL ; HOIFO/DP - Object RPCs (Logfile) ; [02-11-2002 13:41]
|
---|
2 | ;;1.0;CLINICAL PROCEDURES;;Apr 01, 2004
|
---|
3 | RPC(RESULTS,OPTION,P1,P2,P3,P4) ; [Procedure] Main RPC Call
|
---|
4 | ; Input parameters
|
---|
5 | ; 1. RESULTS [Literal/Required] No description
|
---|
6 | ; 2. OPTION [Literal/Required] No description
|
---|
7 | ;
|
---|
8 | ; RPC: [MD TMDLOGFILE]
|
---|
9 | S RESULTS=$NA(^TMP($J)) K @RESULTS
|
---|
10 | D:$T(@OPTION)]"" @OPTION
|
---|
11 | D:'$D(@RESULTS) BADRPC^MDRPCU("MD TMDLOGFILE","MDRPCOL",OPTION)
|
---|
12 | D CLEAN^DILF
|
---|
13 | Q
|
---|
14 | ;
|
---|
15 | GET40R ; Get next 40 Results from file 703.1
|
---|
16 | N MDCNT,MDSTOP,MDSTRT
|
---|
17 | S MDSTOP=+$G(P1),MDSTRT=+$G(P2,0)
|
---|
18 | S X=MDSTRT,Y=0,MDCNT=0
|
---|
19 | F S X=$O(^MDD(703.1,"ADTP",X)) Q:'X!(X>MDSTOP) D Q:MDCNT>39
|
---|
20 | .F Y=0:0 S Y=$O(^MDD(703.1,"ADTP",X,Y)) Q:'Y D
|
---|
21 | ..S MDCNT=MDCNT+1
|
---|
22 | ..S @RESULTS@(MDCNT)="703.1;"_Y_"^"_$G(^MDD(703.1,Y,0))
|
---|
23 | S @RESULTS@(0)=MDCNT_U_X
|
---|
24 | Q
|
---|
25 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.