MAGTP007.m

MAGTP007 ;WOIFO/FG - TELEPATHOLOGY TAGS ; 25 Jul 2013 5:38 PM

 ;;3.0;IMAGING;**138**;Mar 19, 2002;Build 5380;Sep 03, 2013

 ;; Per VHA Directive 2004-038, this routine should not be modified.

 ;; +---------------------------------------------------------------+

 ;; | Property of the US Government.                                |

 ;; | No permission to copy or redistribute this software is given. |

 ;; | Use of unreleased versions of this software requires the user |

 ;; | to execute a written test agreement with the VistA Imaging    |

 ;; | Development Office of the Department of Veterans Affairs,     |

 ;; | telephone (301) 734-0100.                                     |

 ;; | The Food and Drug Administration classifies this software as  |

 ;; | a medical device.  As such, it may not be changed in any way. |

 ;; | Modifications to this software may result in an adulterated   |

 ;; | medical device under 21CFR820, the use of which is considered |

 ;; | to be a violation of US Federal Statutes.                     |

 ;; +---------------------------------------------------------------+

 ;;

 Q  ;

 ;

 ;***** GET LAB INFO FOR A CASE AS SHOWN IN CPRS

 ; RPC: MAGTP GET CPRS REPORT

 ;

 ; .MAGRY        Reference to a local variable where the results

 ;               are returned to.

 ;

 ; LRSS          AP Section

 ;

 ; YEAR          Accession Year (Two figures)

 ;

 ; LRAN          Accession Number

 ;

 ; Return Values

 ; =============

 ; 

 ; If MAGRY(0) 1st '^'-piece is 0, then an error

 ; occurred during execution of the procedure: 0^0^ ERROR explanation

 ;

 ; Otherwise, the output array reproduces the structure

 ; of global ^TMP("ORDATA",$J), containing the CPRS report:

 ;

 ; MAGRY(0)     Description

 ;                ^01: 1

 ;                ^02: Number of Lines 

 ;

 ; MAGRY(i)     Description

 ;                ^01: Text from CPRS Report

 ;

 ; Notes

 ; =====

 ;

 ; The ^TMP("ORDATA",$J) global node is used by this procedure

 ;

GETREP(MAGRY,LRSS,YEAR,LRAN)                   ; RPC [MAGTP GET CPRS REPORT]

 K MAGRY

 N $ETRAP,$ESTACK S $ETRAP="D ERRA^MAGGTERR"

 I $G(LRSS)=""!($G(YEAR)="")!($G(LRAN)="") D  Q

 . S MAGRY(0)="0^0^One or more input parameters are missing"

 N INPUT

 S INPUT=$$CONTEXT^MAGTP006(.MAGRY,LRSS,YEAR,LRAN) Q:'MAGRY(0)

 N LRI,LRDFN,DFN,FIELD,LABEL,RPTID,ROOT,TEMP,CT,I,J

 S LRI=$P(INPUT,",",2),LRDFN=$P(INPUT,",",3)

 S DFN=$$GET1^DIQ(63,LRDFN_",",".03","I")      ; Internal Patient ID

 S FIELD=$S(LRSS="CY":9,LRSS="EM":2,1:8)

 S LABEL=$$GET1^DID(63,FIELD,"","LABEL")       ; Name (label) of AP Section

 S RPTID="OR_"_LRSS_":"_LABEL_"~"_LRSS_";ORDV02A;0;1000"

 D RPT^ORWRP(.ROOT,DFN,RPTID)                  ; Get all reports for a patient

 M TEMP=@($P(ROOT,")")_","""_LRI_LRSS_""",""WP"")")  ; Select only one case report

 ; Strip line numbers, set MAGRY

 S (CT,I)=0

 F  S I=$O(TEMP(I)) Q:I=""  D

 . S J=""

 . F  S J=$O(TEMP(I,J)) Q:J=""  D

 . . S CT=CT+1

 . . S MAGRY(CT)=$P(TEMP(I,J),U,2)

 . . Q

 . Q

 S MAGRY(0)="1^"_CT

 K ^TMP("ORDATA",$J),^TMP("LRC",$J)            ; Clean up temporary globals

 Q  ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MAGTP007   3129     printed  Feb 18, 2025@23:35:10                                                                                                                                                                                                    Page 2

MAGTP007  ;WOIFO/FG - TELEPATHOLOGY TAGS ; 25 Jul 2013 5:38 PM

 +1       ;;3.0;IMAGING;**138**;Mar 19, 2002;Build 5380;Sep 03, 2013

 +2       ;; Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;; +---------------------------------------------------------------+

 +4       ;; | Property of the US Government.                                |

 +5       ;; | No permission to copy or redistribute this software is given. |

 +6       ;; | Use of unreleased versions of this software requires the user |

 +7       ;; | to execute a written test agreement with the VistA Imaging    |

 +8       ;; | Development Office of the Department of Veterans Affairs,     |

 +9       ;; | telephone (301) 734-0100.                                     |

 +10      ;; | The Food and Drug Administration classifies this software as  |

 +11      ;; | a medical device.  As such, it may not be changed in any way. |

 +12      ;; | Modifications to this software may result in an adulterated   |

 +13      ;; | medical device under 21CFR820, the use of which is considered |

 +14      ;; | to be a violation of US Federal Statutes.                     |

 +15      ;; +---------------------------------------------------------------+

 +16      ;;

 +17      ;

           QUIT 

 +18      ;

 +19      ;***** GET LAB INFO FOR A CASE AS SHOWN IN CPRS

 +20      ; RPC: MAGTP GET CPRS REPORT

 +21      ;

 +22      ; .MAGRY        Reference to a local variable where the results

 +23      ;               are returned to.

 +24      ;

 +25      ; LRSS          AP Section

 +26      ;

 +27      ; YEAR          Accession Year (Two figures)

 +28      ;

 +29      ; LRAN          Accession Number

 +30      ;

 +31      ; Return Values

 +32      ; =============

 +33      ; 

 +34      ; If MAGRY(0) 1st '^'-piece is 0, then an error

 +35      ; occurred during execution of the procedure: 0^0^ ERROR explanation

 +36      ;

 +37      ; Otherwise, the output array reproduces the structure

 +38      ; of global ^TMP("ORDATA",$J), containing the CPRS report:

 +39      ;

 +40      ; MAGRY(0)     Description

 +41      ;                ^01: 1

 +42      ;                ^02: Number of Lines 

 +43      ;

 +44      ; MAGRY(i)     Description

 +45      ;                ^01: Text from CPRS Report

 +46      ;

 +47      ; Notes

 +48      ; =====

 +49      ;

 +50      ; The ^TMP("ORDATA",$J) global node is used by this procedure

 +51      ;

GETREP(MAGRY,LRSS,YEAR,LRAN) ; RPC [MAGTP GET CPRS REPORT]

 +1        KILL MAGRY

 +2        NEW $ETRAP,$ESTACK

           SET $ETRAP="D ERRA^MAGGTERR"

 +3        IF $GET(LRSS)=""!($GET(YEAR)="")!($GET(LRAN)="")

               Begin DoDot:1

 +4                SET MAGRY(0)="0^0^One or more input parameters are missing"

               End DoDot:1

               QUIT 

 +5        NEW INPUT

 +6        SET INPUT=$$CONTEXT^MAGTP006(.MAGRY,LRSS,YEAR,LRAN)

           if 'MAGRY(0)

               QUIT 

 +7        NEW LRI,LRDFN,DFN,FIELD,LABEL,RPTID,ROOT,TEMP,CT,I,J

 +8        SET LRI=$PIECE(INPUT,",",2)

           SET LRDFN=$PIECE(INPUT,",",3)

 +9       ; Internal Patient ID

           SET DFN=$$GET1^DIQ(63,LRDFN_",",".03","I")

 +10       SET FIELD=$SELECT(LRSS="CY":9,LRSS="EM":2,1:8)

 +11      ; Name (label) of AP Section

           SET LABEL=$$GET1^DID(63,FIELD,"","LABEL")

 +12       SET RPTID="OR_"_LRSS_":"_LABEL_"~"_LRSS_";ORDV02A;0;1000"

 +13      ; Get all reports for a patient

           DO RPT^ORWRP(.ROOT,DFN,RPTID)

 +14      ; Select only one case report

           MERGE TEMP=@($PIECE(ROOT,")")_","""_LRI_LRSS_""",""WP"")")

 +15      ; Strip line numbers, set MAGRY

 +16       SET (CT,I)=0

 +17       FOR 

               SET I=$ORDER(TEMP(I))

               if I=""

                   QUIT 

               Begin DoDot:1

 +18               SET J=""

 +19               FOR 

                       SET J=$ORDER(TEMP(I,J))

                       if J=""

                           QUIT 

                       Begin DoDot:2

 +20                       SET CT=CT+1

 +21                       SET MAGRY(CT)=$PIECE(TEMP(I,J),U,2)

 +22                       QUIT 

                       End DoDot:2

 +23               QUIT 

               End DoDot:1

 +24       SET MAGRY(0)="1^"_CT

 +25      ; Clean up temporary globals

           KILL ^TMP("ORDATA",$JOB),^TMP("LRC",$JOB)

 +26      ;

           QUIT