Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
804 bytes
|
Rev | Line | |
---|
[628] | 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.