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

MDRPCOTA.m

Go to the documentation of this file.
  1. MDRPCOTA ; HOIFO/NCA - Object RPCs (TMDTransaction) Continued 2;10/29/04 12:20 ;3/12/08 09:18
  1. ;;1.0;CLINICAL PROCEDURES;**20**;Apr 01, 2004;Build 9
  1. ; Integration Agreements:
  1. ; IA# 3468 [Subscription] GMRCCP API.
  1. ;
  1. GETCS(MDNP1) ; [Function] Return the next procedure request.
  1. N MDNLL,MDNFG,MDNNOD,MDNR,MDNX K ^TMP("MDNREQ",$J) S (MDNFG,MDNR)=0
  1. S MDNNOD=$G(^MDD(702,+MDNP1,0)) Q:MDNNOD="" 0
  1. D CPLIST^GMRCCP(+MDNNOD,+$P(MDNNOD,"^",4),$NA(^TMP("MDNREQ",$J)))
  1. S MDNLL="" F S MDNLL=$O(^TMP("MDNREQ",$J,MDNLL),-1) Q:MDNLL<1!(+MDNFG) S MDNX=$G(^(MDNLL)) D
  1. .I "saprc"[$P(MDNX,U,4) S MDNFG=1,MDNR=$P(MDNX,U,5) Q
  1. .Q
  1. Q MDNR