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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDRPCOL 829 printed Dec 13, 2024@01:44:01 Page 2
MDRPCOL ; HOIFO/DP - Object RPCs (Logfile) ; [02-11-2002 13:41]
+1 ;;1.0;CLINICAL PROCEDURES;;Apr 01, 2004
RPC(RESULTS,OPTION,P1,P2,P3,P4) ; [Procedure] Main RPC Call
+1 ; Input parameters
+2 ; 1. RESULTS [Literal/Required] No description
+3 ; 2. OPTION [Literal/Required] No description
+4 ;
+5 ; RPC: [MD TMDLOGFILE]
+6 SET RESULTS=$NAME(^TMP($JOB))
KILL @RESULTS
+7 if $TEXT(@OPTION)]""
DO @OPTION
+8 if '$DATA(@RESULTS)
DO BADRPC^MDRPCU("MD TMDLOGFILE","MDRPCOL",OPTION)
+9 DO CLEAN^DILF
+10 QUIT
+11 ;
GET40R ; Get next 40 Results from file 703.1
+1 NEW MDCNT,MDSTOP,MDSTRT
+2 SET MDSTOP=+$GET(P1)
SET MDSTRT=+$GET(P2,0)
+3 SET X=MDSTRT
SET Y=0
SET MDCNT=0
+4 FOR
SET X=$ORDER(^MDD(703.1,"ADTP",X))
if 'X!(X>MDSTOP)
QUIT
Begin DoDot:1
+5 FOR Y=0:0
SET Y=$ORDER(^MDD(703.1,"ADTP",X,Y))
if 'Y
QUIT
Begin DoDot:2
+6 SET MDCNT=MDCNT+1
+7 SET @RESULTS@(MDCNT)="703.1;"_Y_"^"_$GET(^MDD(703.1,Y,0))
End DoDot:2
End DoDot:1
if MDCNT>39
QUIT
+8 SET @RESULTS@(0)=MDCNT_U_X
+9 QUIT
+10 ;
