Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MAGDHOW5

MAGDHOW5.m

Go to the documentation of this file. 
  1. MAGDHOW5 ;WOIFO/PMK - Capture Consult/GMRC data ; 12 Mar 2013 7:09 PM
  1.  ;;3.0;IMAGING;**138**;Mar 19, 2002;Build 5380;Sep 03, 2013
  1.  ;; Per VHA Directive 2004-038, this routine should not be modified.
  1.  ;; +---------------------------------------------------------------+
  1.  ;; | Property of the US Government.                                |
  1.  ;; | No permission to copy or redistribute this software is given. |
  1.  ;; | Use of unreleased versions of this software requires the user |
  1.  ;; | to execute a written test agreement with the VistA Imaging    |
  1.  ;; | Development Office of the Department of Veterans Affairs,     |
  1.  ;; | telephone (301) 734-0100.                                     |
  1.  ;; | The Food and Drug Administration classifies this software as  |
  1.  ;; | a medical device.  As such, it may not be changed in any way. |
  1.  ;; | Modifications to this software may result in an adulterated   |
  1.  ;; | medical device under 21CFR820, the use of which is considered |
  1.  ;; | to be a violation of US Federal Statutes.                     |
  1.  ;; +---------------------------------------------------------------+
  1.  ;;
  1.  ;
  1.  ;
  1. ZDS(HLMSTATE,GMRCIEN) ; build the ZDS segment
  1.  N STUDYUID,SUCCESS,ZDSSEG
  1.  S STUDYUID=^MAGD(2006.15,1,"UID ROOT")_".1.4."_$$STATNUMB^MAGDFCNV()_".1."_GMRCIEN
  1.  D SET^HLOAPI(.ZDSSEG,"ZDS",0)
  1.  D SET^HLOAPI(.ZDSSEG,STUDYUID,1,1)
  1.  D SET^HLOAPI(.ZDSSEG,"VISTA",1,2)
  1.  D SET^HLOAPI(.ZDSSEG,"Application",1,3)
  1.  D SET^HLOAPI(.ZDSSEG,"DICOM",1,4)
  1.  S SUCCESS=$$ADDSEG^HLOAPI(.HLMSTATE,.ZDSSEG,.ERROR)
  1.  I 'SUCCESS D
  1.  . N MSG,SUBJECT,VARIABLES
  1.  . S SUBJECT="VistA Imaging Clinical Specialty (CPRS) HL7 Generation"
  1.  . S MSG(1)="An error occurred in "_$T(+0)_" where the ADDSEG^HLOAPI invocation"
  1.  . S MSG(2)="for the ZDS segment failed.  The error message is as follows:"
  1.  . S MSG(3)=""""_SUCCESS_""""
  1.  . S VARIABLES("HLMSTATE")=""
  1.  . S VARIABLES("ZDSSEG")=""
  1.  . S VARIABLES("ERROR")=""
  1.  . D ERROR^MAGDHOWA(SUBJECT,.MSG,.VARIABLES)
  1.  . Q
  1.  Q
  1.  ;
  1. OBX(HLMSTATE,GMRCIEN) ; build one or more OBX segments (see OBX^GMRCHL72)
  1.  N CODE,I,MEANING,OBXSEG,OBXSEGNO,VALUE,VALUETYPE
  1.  S OBXSEGNO=0
  1.  ;
  1.  ; output reason for request
  1.  S I=0 F  S I=$O(^GMR(123,GMRCIEN,20,I)) Q:'I  S VALUE=$G(^(I,0)) D
  1.  . D OUTPUT("TX","RFR","REASON FOR REQUEST",VALUE,"F",.ERROR)
  1.  . Q
  1.  ;
  1.  ; output provisional diagnosis
  1.  S VALUE=$$GET1^DIQ(123,GMRCIEN,30)
  1.  S CODE=$$GET1^DIQ(123,GMRCIEN,30.1)
  1.  I VALUE'="" D
  1.  . I CODE'="" D  ; send using the coded element format
  1.  . . S VALUETYPE="CE"
  1.  . . S VALUE("Identifier")=CODE
  1.  . . S VALUE("Text")=$P(VALUE,(" ("_CODE))
  1.  . . S VALUE("Name of Coding System")="I9" ; ICD-9
  1.  . . Q
  1.  . E  S VALUETYPE="TX" ; send using the free text format
  1.  . D OUTPUT(VALUETYPE,"PDX","PROVISIONAL DIAGNOSIS",.VALUE,"F",.ERROR)
  1.  . K VALUE
  1.  . Q
  1.  ;
  1.  ; output tech comment - ORCOM is defined by CPRS Consult Request Tracking
  1.  S I=0 F  S I=$O(ORCOM(I)) Q:'I  S VALUE=ORCOM(I) D
  1.  . D OUTPUT("TX","TCM","TECH COMMENT",VALUE,"F",.ERROR)
  1.  . Q
  1.  ;
  1.  ; output significant finding flag
  1.  S VALUE=$$GET1^DIQ(123,GMRCIEN,15)
  1.  I VALUE'="" D
  1.  . D OUTPUT("TX","SF","SIGNIFICANT FINDINGS",VALUE,"F",.ERROR)
  1.  . Q
  1.  ;
  1.  ; output allergies, if any
  1.  D ALLERGY
  1.  ; 
  1.  ; output posting, if any
  1.  D POSTINGS
  1.  ;
  1.  ; output results
  1.  I MSGTYPE="ORU" D RESULTS
  1.  ;
  1.  Q
  1.  ;
  1. RESULTS ; output results
  1.  N DASH,I,J,VALUE,STATUS,TITLE,TIUIEN,TIUTEXT,X,Y
  1.  S $E(DASH,80)=" ",DASH=$TR(DASH," ","-") ; 80 dashes
  1.  S STATUS=$S(ORSTATUS="CM":"F",1:"R")
  1.  S I=0 F  S I=$O(@TIUDOC@(I))  Q:'I  S X=@TIUDOC@(I) D
  1.  . N I
  1.  . S TIUIEN=$P(X,"^",1),TITLE=$P(X,"^",2)
  1.  . I TITLE?1"Addendum".E Q
  1.  . D RESULT1(DASH,STATUS)
  1.  . D TGET^TIUSRVR1(.TIUTEXT,TIUIEN)
  1.  . S J=0 F  S J=$O(@TIUTEXT@(J))  Q:'J  D
  1.  . . S VALUE=@TIUTEXT@(J)
  1.  . . D RESULT1(VALUE,STATUS)
  1.  . . Q
  1.  . Q
  1.  D RESULT1(DASH,STATUS)
  1.  Q
  1.  ;
  1. RESULT1(VALUE,STATUS) ; output one line of text
  1.  D OUTPUT("TX","R","REPORT",VALUE,STATUS,.ERROR)
  1.  Q
  1.  ;
  1. ALLERGY ; check to see if patient has any allergies
  1.  N GMRAL,I,VALUE
  1.  D EN1^GMRADPT
  1.  S I=0 F  S I=$O(GMRAL(I)) Q:'I  D  ; include each allergy string as an HL7 OBX segment
  1.  . S VALUE=$P(GMRAL(I),"^",2)
  1.  . D OUTPUT("TX","A","ALLERGIES",VALUE,"F",.ERROR)
  1.  . Q
  1.  Q
  1.  ;
  1. POSTINGS ; check if the patient has any other postings
  1.  N I,HIT,MSG
  1.  D ENCOVER^TIUPP3(DFN) I MSG Q  ; MSG="0^Patient posting found"
  1.  S (I,HIT)=0
  1.  F  S I=$O(^TMP("TIUPPCV",$J,I)) Q:'I  I $P(^(I),"^",2)'="A" S HIT=1 Q
  1.  I HIT D
  1.  . S VALUE="Please see CPRS for additional information about Postings."
  1.  . D OUTPUT("TX","PO","POSTINGS",VALUE,"F",.ERROR)
  1.  . Q
  1.  Q
  1.  ;
  1.  ;
  1.  ;
  1. OUTPUT(VALUETYPE,ID,MEANING,VALUE,STATUS,ERROR) ; output an OBX segment with one line of text
  1.  N SUCCESS
  1.  S OBXSEGNO=OBXSEGNO+1
  1.  D SET^HLOAPI(.OBXSEG,"OBX",0)
  1.  D SET^HLOAPI(.OBXSEG,OBXSEGNO,1)
  1.  D SET^HLOAPI(.OBXSEG,VALUETYPE,2)
  1.  D SET^HLOAPI(.OBXSEG,ID,3,1)
  1.  D SET^HLOAPI(.OBXSEG,MEANING,3,2)
  1.  D SET^HLOAPI(.OBXSEG,"L",3,3)
  1.  I VALUETYPE="CE",$D(VALUE)>=10 D  ; coded element
  1.  . D SET^HLOAPI(.OBXSEG,VALUE("Identifier"),5,1)
  1.  . D SET^HLOAPI(.OBXSEG,VALUE("Text"),5,2)
  1.  . D SET^HLOAPI(.OBXSEG,VALUE("Name of Coding System"),5,3)
  1.  . Q
  1.  E  D SET^HLOAPI(.OBXSEG,VALUE,5)
  1.  D SET^HLOAPI(.OBXSEG,STATUS,11)
  1.  S SUCCESS=$$ADDSEG^HLOAPI(.HLMSTATE,.OBXSEG,.ERROR)
  1.  I 'SUCCESS D
  1.  . N MSG,SUBJECT,VARIABLES
  1.  . S SUBJECT="VistA Imaging Clinical Specialty (CPRS) HL7 Generation"
  1.  . S MSG(1)="An error occurred in OUTPUT^"_$T(+0)_" where the ADDSEG^HLOAPI invocation"
  1.  . S MSG(2)="for the OBX segment for "_MEANING_" failed."
  1.  . S MSG(3)="The error message is as follows:"
  1.  . S MSG(4)=""""_SUCCESS_""""
  1.  . S VARIABLES("VALUETYPE")=""
  1.  . S VARIABLES("ID")=""
  1.  . S VARIABLES("MEANING")=""
  1.  . S VARIABLES("VALUE")=""
  1.  . S VARIABLES("STATUS")=""
  1.  . S VARIABLES("HLMSTATE")=""
  1.  . S VARIABLES("OBXSEG")=""
  1.  . S VARIABLES("ERROR")=""
  1.  . D ERROR^MAGDHOWA(SUBJECT,.MSG,.VARIABLES)
  1.  . Q
  1.  Q