MBAAMRPC.m

MBAAMRPC ;OIT-PD/VSL - APPOINTMENT RPC ;02/10/2016

 ;;1.0;Scheduling Calendar View;**1**;Aug 27, 2014;Build 85

 ;

 Q

MERGE(RV,RESULT) ; MBAA RPC: MBAA EWL NEW, MBAA PATIENT PENDING APPT, MBAA LIST CANCELLATION REASONS

 N NODE,COUNTER S NODE="RESULT",COUNTER=1

 F  S NODE=$Q(@NODE) Q:NODE=""  D

 . S RV(COUNTER)=NODE_"="_@NODE

 . S COUNTER=$G(COUNTER)+1

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MBAAMRPC   366     printed  Apr 09, 2024@21:16:56                                                                                                                                                                                                     Page 2

MBAAMRPC  ;OIT-PD/VSL - APPOINTMENT RPC ;02/10/2016

 +1       ;;1.0;Scheduling Calendar View;**1**;Aug 27, 2014;Build 85

 +2       ;

 +3        QUIT 

MERGE(RV,RESULT) ; MBAA RPC: MBAA EWL NEW, MBAA PATIENT PENDING APPT, MBAA LIST CANCELLATION REASONS

 +1        NEW NODE,COUNTER

           SET NODE="RESULT"

           SET COUNTER=1

 +2        FOR 

               SET NODE=$QUERY(@NODE)

               if NODE=""

                   QUIT 

               Begin DoDot:1

 +3                SET RV(COUNTER)=NODE_"="_@NODE

 +4                SET COUNTER=$GET(COUNTER)+1

               End DoDot:1

 +5        QUIT