Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MDRPCOL

MDRPCOL.m

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