- RORRP041 ;HCIOFO/SG - RPC: REGISTRY-SPECIFIC LAB RESULTS ; 8/25/05 12:24pm
- ;;1.5;CLINICAL CASE REGISTRIES;;Feb 17, 2006
- ;
- Q
- ;
- ;***** LOADS AND PROCESSES CD4 AND VIRAL LOAD RESULTS
- ;
- ; .ROR8DST( Reference to the Lab search descriptor.
- ; See the $$LTSEARCH^RORUTL10 for details
- ;
- ; "RORPTR") Index of the last node in the destination buffer
- ;
- ; "RORSTATS",
- ; Group,
- ; "LAST") Latest
- ; ^01: Result Value
- ; ^02: Date
- ; "MAX") Highest
- ; ^01: Result Value
- ; ^02: Date
- ; "MIN") Lowest
- ; ^01: Result Value
- ; ^02: Date
- ;
- ; INVDT IEN of the Lab test (inverted date)
- ;
- ; .RESULT Reference to a local variable, which contains the
- ; result in the same format as it is stored into
- ; the destination array by default.
- ;
- ; Return Values:
- ; <0 Error code (the search will be aborted)
- ; 0 Ok
- ; 1 Skip this result
- ; 2 Skip this and all remaining results
- ;
- LOADLT(ROR8DST,INVDT,RESULT) ;
- N BUF,GROUP,LTDT,LTVAL,TMP
- S LTDT=$P($G(RESULT(1)),U,2) Q:LTDT'>0 1 ; Date of the test
- S LTVAL=$$TRIM^XLFSTR($P(RESULT(1),U,3)) ; Result value
- S GROUP=+$P($G(RESULT(2)),U,3) Q:GROUP'>0 1 ; Code of the group
- ;
- ;=== Create and store the segment
- S BUF="LTR"_U_$P(RESULT(1),U)
- S $P(BUF,U,3,4)=LTDT_U_LTVAL
- S $P(BUF,U,5,8)=$P(RESULT(2),U,1,4)
- S ROR8DST("RORPTR")=$G(ROR8DST("RORPTR"))+1
- S @ROR8DST@(ROR8DST("RORPTR"))=BUF
- ;
- ;=== Most recent result of the group
- D:LTDT>$P($G(ROR8DST("RORSTATS",GROUP,"LAST")),U,2)
- . S ROR8DST("RORSTATS",GROUP,"LAST")=LTVAL_U_LTDT
- ;
- ;=== Numeric results
- D:$$NUMERIC^RORUTL05(LTVAL)
- . ;--- Lowest result value of the group
- . S TMP=+$G(ROR8DST("RORSTATS",GROUP,"MIN"))
- . S:'TMP!(LTVAL<TMP) ROR8DST("RORSTATS",GROUP,"MIN")=LTVAL_U_LTDT
- . ;--- Highest result value of the group
- . S TMP=+$G(ROR8DST("RORSTATS",GROUP,"MAX"))
- . S:LTVAL>TMP ROR8DST("RORSTATS",GROUP,"MAX")=LTVAL_U_LTDT
- ;
- ;=== Success
- Q 0
- ;
- ;***** LOADS THE PATIENT'S REGISTRY-SPECIFIC LAB RESULTS
- ; RPC: [ROR PATIENT REGISTRY LABS]
- ;
- ; .RESULTS Reference to a local variable where the results
- ; are returned to.
- ;
- ; REGIEN Registry IEN
- ;
- ; PATIEN IEN of the registry patient (DFN)
- ;
- ; Return Values:
- ;
- ; A negative value of the first "^"-piece of the RESULTS(0)
- ; indicates an error (see the RPCSTK^RORERR procedure for more
- ; details).
- ;
- ; Otherwise, zero is returned in the @RESULTS@(0) and the
- ; subsequent nodes of the global array contain the data.
- ;
- ; @RESULTS@(0) 0
- ;
- ; @RESULTS@(i) Registry-specific Lab Result
- ; ^01: "LTR"
- ; ^02: Result IEN (inverted date/time)
- ; ^03: Date/time of the test (FileMan)
- ; ^04: Result
- ; ^05: Test IEN (in file #60)
- ; ^06: Test name
- ; ^07: Code of the group
- ; ^08: Group name
- ;
- ; @RESULTS@(i) Lab Group Statistics
- ; ^01: "LTG"
- ; ^02: Code of the group
- ; ^03: Group name
- ; ^04: Latest result value
- ; ^05: Date of the latest result (FileMan)
- ; ^06: Lowest result value
- ; ^07: Date of the lowest value (FileMan)
- ;
- LOADPRL(RESULTS,REGIEN,PATIEN) ;
- N BUF,GRP,NAME,PTR,RC,RORBUF,RORERRDL,TMP
- D CLEAR^RORERR("LOAD^RORRP041",1)
- K RESULTS S RESULTS=$$ALLOC^RORTMP() S @RESULTS@(0)=0
- ;
- ;=== Check the parameters
- S RC=0 D I RC<0 D RPCSTK^RORERR(.RESULTS,RC) Q
- . ;--- Registry IEN
- . I $G(REGIEN)'>0 D Q
- . . S RC=$$ERROR^RORERR(-88,,,,"REGIEN",$G(REGIEN))
- . S REGIEN=+REGIEN
- . ;--- Patient IEN
- . I $G(PATIEN)'>0 D Q
- . . S RC=$$ERROR^RORERR(-88,,,,"PATIEN",$G(PATIEN))
- . S PATIEN=+PATIEN
- ;
- ;=== Search for registry-specific lab results
- S RORBUF=RESULTS
- S RORBUF("RORCB")="$$LOADLT^RORRP041"
- S RC=$$LTSEARCH^RORUTL10(PATIEN,+REGIEN,.RORBUF)
- I RC<0 D RPCSTK^RORERR(.RESULTS,RC) Q
- ;
- ;=== Store the group statistics
- S PTR=+$O(@RESULTS@(""),-1)
- S GRP=0
- F S GRP=$O(RORBUF("RORSTATS",GRP)) Q:GRP'>0 D
- . S TMP=$$ITEMIEN^RORUTL09(3,REGIEN,GRP,.NAME)
- . S BUF="LTG"_U_GRP_U_NAME
- . S $P(BUF,U,4,5)=$G(RORBUF("RORSTATS",GRP,"LAST"))
- . S $P(BUF,U,6,7)=$G(RORBUF("RORSTATS",GRP,"MIN"))
- . S PTR=PTR+1,@RESULTS@(PTR)=BUF
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRORRP041 4720 printed Feb 18, 2025@23:09:44 Page 2
- RORRP041 ;HCIOFO/SG - RPC: REGISTRY-SPECIFIC LAB RESULTS ; 8/25/05 12:24pm
- +1 ;;1.5;CLINICAL CASE REGISTRIES;;Feb 17, 2006
- +2 ;
- +3 QUIT
- +4 ;
- +5 ;***** LOADS AND PROCESSES CD4 AND VIRAL LOAD RESULTS
- +6 ;
- +7 ; .ROR8DST( Reference to the Lab search descriptor.
- +8 ; See the $$LTSEARCH^RORUTL10 for details
- +9 ;
- +10 ; "RORPTR") Index of the last node in the destination buffer
- +11 ;
- +12 ; "RORSTATS",
- +13 ; Group,
- +14 ; "LAST") Latest
- +15 ; ^01: Result Value
- +16 ; ^02: Date
- +17 ; "MAX") Highest
- +18 ; ^01: Result Value
- +19 ; ^02: Date
- +20 ; "MIN") Lowest
- +21 ; ^01: Result Value
- +22 ; ^02: Date
- +23 ;
- +24 ; INVDT IEN of the Lab test (inverted date)
- +25 ;
- +26 ; .RESULT Reference to a local variable, which contains the
- +27 ; result in the same format as it is stored into
- +28 ; the destination array by default.
- +29 ;
- +30 ; Return Values:
- +31 ; <0 Error code (the search will be aborted)
- +32 ; 0 Ok
- +33 ; 1 Skip this result
- +34 ; 2 Skip this and all remaining results
- +35 ;
- LOADLT(ROR8DST,INVDT,RESULT) ;
- +1 NEW BUF,GROUP,LTDT,LTVAL,TMP
- +2 ; Date of the test
- SET LTDT=$PIECE($GET(RESULT(1)),U,2)
- if LTDT'>0
- QUIT 1
- +3 ; Result value
- SET LTVAL=$$TRIM^XLFSTR($PIECE(RESULT(1),U,3))
- +4 ; Code of the group
- SET GROUP=+$PIECE($GET(RESULT(2)),U,3)
- if GROUP'>0
- QUIT 1
- +5 ;
- +6 ;=== Create and store the segment
- +7 SET BUF="LTR"_U_$PIECE(RESULT(1),U)
- +8 SET $PIECE(BUF,U,3,4)=LTDT_U_LTVAL
- +9 SET $PIECE(BUF,U,5,8)=$PIECE(RESULT(2),U,1,4)
- +10 SET ROR8DST("RORPTR")=$GET(ROR8DST("RORPTR"))+1
- +11 SET @ROR8DST@(ROR8DST("RORPTR"))=BUF
- +12 ;
- +13 ;=== Most recent result of the group
- +14 if LTDT>$PIECE($GET(ROR8DST("RORSTATS",GROUP,"LAST")),U,2)
- Begin DoDot:1
- +15 SET ROR8DST("RORSTATS",GROUP,"LAST")=LTVAL_U_LTDT
- End DoDot:1
- +16 ;
- +17 ;=== Numeric results
- +18 if $$NUMERIC^RORUTL05(LTVAL)
- Begin DoDot:1
- +19 ;--- Lowest result value of the group
- +20 SET TMP=+$GET(ROR8DST("RORSTATS",GROUP,"MIN"))
- +21 if 'TMP!(LTVAL<TMP)
- SET ROR8DST("RORSTATS",GROUP,"MIN")=LTVAL_U_LTDT
- +22 ;--- Highest result value of the group
- +23 SET TMP=+$GET(ROR8DST("RORSTATS",GROUP,"MAX"))
- +24 if LTVAL>TMP
- SET ROR8DST("RORSTATS",GROUP,"MAX")=LTVAL_U_LTDT
- End DoDot:1
- +25 ;
- +26 ;=== Success
- +27 QUIT 0
- +28 ;
- +29 ;***** LOADS THE PATIENT'S REGISTRY-SPECIFIC LAB RESULTS
- +30 ; RPC: [ROR PATIENT REGISTRY LABS]
- +31 ;
- +32 ; .RESULTS Reference to a local variable where the results
- +33 ; are returned to.
- +34 ;
- +35 ; REGIEN Registry IEN
- +36 ;
- +37 ; PATIEN IEN of the registry patient (DFN)
- +38 ;
- +39 ; Return Values:
- +40 ;
- +41 ; A negative value of the first "^"-piece of the RESULTS(0)
- +42 ; indicates an error (see the RPCSTK^RORERR procedure for more
- +43 ; details).
- +44 ;
- +45 ; Otherwise, zero is returned in the @RESULTS@(0) and the
- +46 ; subsequent nodes of the global array contain the data.
- +47 ;
- +48 ; @RESULTS@(0) 0
- +49 ;
- +50 ; @RESULTS@(i) Registry-specific Lab Result
- +51 ; ^01: "LTR"
- +52 ; ^02: Result IEN (inverted date/time)
- +53 ; ^03: Date/time of the test (FileMan)
- +54 ; ^04: Result
- +55 ; ^05: Test IEN (in file #60)
- +56 ; ^06: Test name
- +57 ; ^07: Code of the group
- +58 ; ^08: Group name
- +59 ;
- +60 ; @RESULTS@(i) Lab Group Statistics
- +61 ; ^01: "LTG"
- +62 ; ^02: Code of the group
- +63 ; ^03: Group name
- +64 ; ^04: Latest result value
- +65 ; ^05: Date of the latest result (FileMan)
- +66 ; ^06: Lowest result value
- +67 ; ^07: Date of the lowest value (FileMan)
- +68 ;
- LOADPRL(RESULTS,REGIEN,PATIEN) ;
- +1 NEW BUF,GRP,NAME,PTR,RC,RORBUF,RORERRDL,TMP
- +2 DO CLEAR^RORERR("LOAD^RORRP041",1)
- +3 KILL RESULTS
- SET RESULTS=$$ALLOC^RORTMP()
- SET @RESULTS@(0)=0
- +4 ;
- +5 ;=== Check the parameters
- +6 SET RC=0
- Begin DoDot:1
- +7 ;--- Registry IEN
- +8 IF $GET(REGIEN)'>0
- Begin DoDot:2
- +9 SET RC=$$ERROR^RORERR(-88,,,,"REGIEN",$GET(REGIEN))
- End DoDot:2
- QUIT
- +10 SET REGIEN=+REGIEN
- +11 ;--- Patient IEN
- +12 IF $GET(PATIEN)'>0
- Begin DoDot:2
- +13 SET RC=$$ERROR^RORERR(-88,,,,"PATIEN",$GET(PATIEN))
- End DoDot:2
- QUIT
- +14 SET PATIEN=+PATIEN
- End DoDot:1
- IF RC<0
- DO RPCSTK^RORERR(.RESULTS,RC)
- QUIT
- +15 ;
- +16 ;=== Search for registry-specific lab results
- +17 SET RORBUF=RESULTS
- +18 SET RORBUF("RORCB")="$$LOADLT^RORRP041"
- +19 SET RC=$$LTSEARCH^RORUTL10(PATIEN,+REGIEN,.RORBUF)
- +20 IF RC<0
- DO RPCSTK^RORERR(.RESULTS,RC)
- QUIT
- +21 ;
- +22 ;=== Store the group statistics
- +23 SET PTR=+$ORDER(@RESULTS@(""),-1)
- +24 SET GRP=0
- +25 FOR
- SET GRP=$ORDER(RORBUF("RORSTATS",GRP))
- if GRP'>0
- QUIT
- Begin DoDot:1
- +26 SET TMP=$$ITEMIEN^RORUTL09(3,REGIEN,GRP,.NAME)
- +27 SET BUF="LTG"_U_GRP_U_NAME
- +28 SET $PIECE(BUF,U,4,5)=$GET(RORBUF("RORSTATS",GRP,"LAST"))
- +29 SET $PIECE(BUF,U,6,7)=$GET(RORBUF("RORSTATS",GRP,"MIN"))
- +30 SET PTR=PTR+1
- SET @RESULTS@(PTR)=BUF
- End DoDot:1
- +31 QUIT