26 lines
804 B
Mathematica
26 lines
804 B
Mathematica
MDRPCOL ; HOIFO/DP - Object RPCs (Logfile) ; [02-11-2002 13:41]
|
|
;;1.0;CLINICAL PROCEDURES;;Apr 01, 2004
|
|
RPC(RESULTS,OPTION,P1,P2,P3,P4) ; [Procedure] Main RPC Call
|
|
; Input parameters
|
|
; 1. RESULTS [Literal/Required] No description
|
|
; 2. OPTION [Literal/Required] No description
|
|
;
|
|
; RPC: [MD TMDLOGFILE]
|
|
S RESULTS=$NA(^TMP($J)) K @RESULTS
|
|
D:$T(@OPTION)]"" @OPTION
|
|
D:'$D(@RESULTS) BADRPC^MDRPCU("MD TMDLOGFILE","MDRPCOL",OPTION)
|
|
D CLEAN^DILF
|
|
Q
|
|
;
|
|
GET40R ; Get next 40 Results from file 703.1
|
|
N MDCNT,MDSTOP,MDSTRT
|
|
S MDSTOP=+$G(P1),MDSTRT=+$G(P2,0)
|
|
S X=MDSTRT,Y=0,MDCNT=0
|
|
F S X=$O(^MDD(703.1,"ADTP",X)) Q:'X!(X>MDSTOP) D Q:MDCNT>39
|
|
.F Y=0:0 S Y=$O(^MDD(703.1,"ADTP",X,Y)) Q:'Y D
|
|
..S MDCNT=MDCNT+1
|
|
..S @RESULTS@(MDCNT)="703.1;"_Y_"^"_$G(^MDD(703.1,Y,0))
|
|
S @RESULTS@(0)=MDCNT_U_X
|
|
Q
|
|
;
|