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

IVMCQ1.m

Go to the documentation of this file. 
  1. IVMCQ1 ;ALB/KCL - API FOR FINANCIAL QUERIES (continued) ; 7/6/01 1:10pm
  1.  ;;2.0;INCOME VERIFICATION MATCH;**17,23,34,63**;21-OCT-94
  1.  ;
  1. QUERY(DFN,USER,NOTIFY,OPTION,ERROR,RECENT) ; Build/send HL7 financial query for a patient.
  1.  ;
  1.  ;  Input:
  1.  ;      DFN - ien of patient record in PATIENT file (required)
  1.  ;     USER - user initiating the query.  Pointer to NEW USER
  1.  ;            file. (optional)
  1.  ;   NOTIFY - flag to determine if user should be notified when a
  1.  ;            query reply is received. (optional)
  1.  ;   OPTION - option query is initiated from. Ien of record in
  1.  ;            OPTION file. (optional) 
  1.  ;   RECENT - a flag, if set to 1, a check will be done to determine
  1.  ;            if a query is currently open OR recently sent(optional)
  1.  ;
  1.  ; Output:
  1.  ;  Function Value: 1 on success, 0 on failure
  1.  ;   ERROR - if failure, returns error msg (pass by reference)
  1.  ;
  1.  N DATA,DG,DGENDA
  1.  N HLDA,HLDAN,HLDAP,HLDT,HLDT1,HLECH,HLERR,HLEVN,HLFS,HLMID,HLMTN,HLNDAP,HLNDAP0,HLPID,HLQ,HLSDT,HLVER
  1.  N IVMCID,IVMIEN,IVMPAT,IVMQRY,SUCCESS,XMTEXT
  1.  N HL,HLEID
  1.  ;
  1.  S SUCCESS=0
  1.  ;
  1.  ; check if DCD messaging is active
  1.  I '$$DCDON^IVMUPAR1() S ERROR="MESSAGING IS DISABLED." G Q2
  1.  I $G(IVMZ10)="UPLOAD IN PROGRESS" S ERROR="FINANCIAL UPLOAD IS IN PROGRESS" G Q2
  1.  ;
  1.  ; for synchronization and to avoid multiple queries on the same day
  1.  ; for the same patient, LOCK the IVM FINANCIAL QUERY LOG file before
  1.  ; doing two query checks...
  1.  L +^IVM(301.62,"ADT1",DFN):15
  1.  I '$T S ERROR="UNABLE TO SEND A QUERY AT THIS TIME" G Q2
  1.  ;
  1.  ; if RECENT flag, quit if query is currently open OR just sent
  1.  I $G(RECENT)=1,$$RECENT(DFN) S ERROR="A FINANCIAL QUERY IS CURRENTLY OPEN OR JUST SENT" G Q2
  1.  ;
  1.  ; regardless of RECENT flag, check to see if a query has already been
  1.  ; sent out for this patient today...
  1.  I $$SENT^IVMCQ2(DFN) S ERROR="A FINANCIAL QUERY HAS ALREADY BEEN SENT FOR THIS PATIENT TODAY" G Q2
  1.  ;
  1.  ; no query RECENT or SENT today.  set a stub record in 301.62 and
  1.  ; release the lock.  the stub will contain the patient DFN and
  1.  ; today's date so that the "ADT1" x-ref is set and subsequent checks
  1.  ; both in DG and IVM processes will find a query sent today...
  1.  S DATA(.01)=DFN
  1.  S DATA(.02)=$$NOW^XLFDT
  1.  S IVMIEN=$$ADD^DGENDBS(301.62,,.DATA)
  1.  L -^IVM(301.62,"ADT1",DFN)
  1.  K DATA
  1.  K ^TMP("HLS",$J)                                        ;IVM*2*63
  1.  ;
  1.  ; init HL7 variables
  1.  S HLMTN="QRY"
  1.  S HLDAP="IVM"
  1.  S HLEID="VAMC "_$P($$SITE^VASITE,"^",3)_" QRY-Z10 SERVER"
  1.  S HLEID=$O(^ORD(101,"B",HLEID,0))
  1.  D INIT^HLFNC2(HLEID,.HL)
  1.  I $G(HL)]"" S HLERR=$P(HL,"^",2)
  1.  S HLEVN=0 ; init msg event counter
  1.  S HLSDT=$$NOW^XLFDT
  1.  I $D(HLERR) S ERROR="HL7 INITIALIZATION ERROR - "_HLERR G QUERYQ
  1.  ;
  1.  ; get patient identifiers
  1.  I '$$GETPAT^IVMUFNC(DFN,.IVMPAT) S ERROR="PATIENT NOT FOUND" G QUERYQ
  1.  I (IVMPAT("DOB")="") S ERROR="PATIENT DATE OF BIRTH IS REQUIRED" G QUERYQ
  1.  I (IVMPAT("SSN")="") S ERROR="PATIENT SSN IS REQUIRED" G QUERYQ
  1.  I (IVMPAT("SEX")="") S ERROR="PATIENT SEX IS REQUIRED" G QUERYQ
  1.  I "MF"'[IVMPAT("SEX") S ERROR="PATIENT SEX IS NOT VALID" G QUERYQ
  1.  ;
  1.  ; build HL7 financial query (QRY) message components...
  1.  D QRD
  1.  D QRF
  1.  ;
  1.  ; send the message...
  1.  S HLARYTYP="GM"
  1.  S HLFORMAT=1
  1.  D GENERATE^HLMA(HLEID,HLARYTYP,HLFORMAT,.HLRESLT)
  1.  I $P($G(HLRESLT),"^",2)]"" S HLERR=$P(HLRESLT,"^",3)
  1.  I $D(HLERR) S ERROR="HL7 TRANSMISSION ERROR - "_HLERR G QUERYQ
  1.  ;
  1.  ;S IVMCID=$G(MID)
  1.  S IVMCID=+HLRESLT
  1.  ;
  1.  ; update our record in the LOG file...
  1.  S DATA(.03)=0
  1.  S DATA(.04)=$G(USER)
  1.  S DATA(.05)=IVMCID
  1.  S DATA(.06)=""
  1.  S DATA(.07)=$G(OPTION)
  1.  S DATA(.08)=$S($G(NOTIFY):1,1:0)
  1.  S DGENDA=IVMIEN
  1.  I '$$UPD^DGENDBS(301.62,.DGENDA,.DATA) S ERROR="UPDATE OF RECORD "_IVMIEN_" IN 301.62 FAILED!" G QUERYQ
  1.  ;
  1.  S SUCCESS=1
  1.  ;
  1. QUERYQ ; exit and clean-up
  1.  D KILL^HLTRANS
  1.  K ^TMP("HLS",$J)       ;IVM*2*63 - K ^TMP("HLS",$J,HLSDT)
  1. Q2 ;
  1.  L -^IVM(301.62,"ADT1",DFN)
  1.  Q SUCCESS
  1.  ;
  1. QUERY2(DFN,USER,NOTIFY,OPTION,ERROR,RECENT) ; Build/send HL7 financial query for a patient.
  1.  ;
  1.  ; Same input/output parameters as described in module QUERY above.
  1.  ;
  1.  I $$QUERY($G(DFN),$G(USER),$G(NOTIFY),$G(OPTION),.ERROR,$G(RECENT))
  1.  Q
  1.  ;
  1. QRD ; Build (HL7) QRD segment for patient
  1.  ;
  1.  N IVMQRD
  1.  ; date/time query generated...
  1.  S $P(IVMQRD,HLFS,1)=$$HLDATE^HLFNC(HLSDT)
  1.  ; query format code (record-oriented format)...
  1.  S $P(IVMQRD,HLFS,2)="R"
  1.  ; query priority (immediate)...
  1.  S $P(IVMQRD,HLFS,3)="I"
  1.  ; query ID (patient's DFN)...
  1.  S $P(IVMQRD,HLFS,4)=DFN
  1.  ; quantity-limited request (1 record)...
  1.  S $P(IVMQRD,HLFS,7)="1~RD"
  1.  ; "who" subject filter (=SSN)...
  1.  S $P(IVMQRD,HLFS,8)=IVMPAT("SSN")
  1.  ; "what" subject filter (=financial)...
  1.  S $P(IVMQRD,HLFS,9)="FIN"
  1.  ; what department data code (=income year)...
  1.  S $P(IVMQRD,HLFS,10)=$$HLDATE^HLFNC($$LYR^DGMTSCU1(DT))
  1.  ; query results level (full results)...
  1.  S $P(IVMQRD,HLFS,12)="T"
  1.  S ^TMP("HLS",$J,1)="QRD"_HLFS_IVMQRD
  1.  Q
  1.  ;
  1.  ;
  1. QRF ; Build HL7 (QRF) segment for patient
  1.  ;
  1.  N IVMQRF
  1.  ; "where" subject filter (=IVM)...
  1.  S $P(IVMQRF,HLFS,1)="IVM"
  1.  ; what user qualifier (DOB)...
  1.  S $P(IVMQRF,HLFS,4)=$$HLDATE^HLFNC(IVMPAT("DOB"))
  1.  ; other subject query filter (SEX)...
  1.  S $P(IVMQRF,HLFS,5)=IVMPAT("SEX")
  1.  S ^TMP("HLS",$J,2)="QRF"_HLFS_IVMQRF
  1.  Q
  1.  ;
  1. RECENT(DFN) ; Determine if a patient has a financial query that is open OR recently responded to (last 2 minutes)
  1.  ;
  1.  ;  Input: DFN - ien of patient record in PATIENT file
  1.  ; Output: returns 1 if open query, otherwise returns 0.
  1.  ;
  1.  N IVMQRY,IVMIEN,RECENT
  1.  S RECENT=0
  1.  S IVMIEN=$$LASTQRY^IVMCQ2($G(DFN))
  1.  I IVMIEN,$$GET^IVMCQ2(IVMIEN,.IVMQRY) D
  1.  .I 'IVMQRY("STATUS") S RECENT=1 Q
  1.  .I (($$NOW^XLFDT-IVMQRY("RESPONSE"))<.0003) S RECENT=1
  1.  Q RECENT