MDRPCOL.m

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 ---MDRPCOL   829     printed  Apr 09, 2024@20:47:48                                                                                                                                                                                                      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      ;