- 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 Feb 18, 2025@23:10:26 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 ;