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

SRHLVZQR.m

Go to the documentation of this file.
  1. SRHLVZQR ;B'HAM ISC/PTD,DLR - Surgery Interface Sender of SQR Message ; [ 06/09/98 6:17 AM ]
  1. ;;3.0; Surgery ;**41**;24 Jun 93
  1. ; Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
  1. ;VISTA Surgery system responds to SQM message with SQR message.
  1. ;SQR can contain surgical data for a specified patient/date,
  1. ;or all surgical cases (scheduled, requested,...) for a
  1. ;specified date.
  1. ;Variables defined when this module is called:
  1. ;DFN - IEN in file #2 for a request of patient data.
  1. ; - "" for a request of all cases
  1. ;SRDT - Requested date in FileMan form
  1. ;
  1. ZQR(DFN,SRDT) ;query response message for patient or all cases on a given date
  1. N BDT,CASE,EDT,FIND,HLCOMP,HLREP,HLSUB,SRI
  1. S SRI=1,HLCOMP=$E(HL("ECH"),1),HLREP=$E(HL("ECH"),2),HLSUB=$E(HL("ECH"),4),(HLMTN,HLSDT)="ZQR"
  1. ;Determine if data is available for requested date. If not, set HLERR and SRERR build error message and quit."
  1. ;specified patient cases ONLY
  1. S FIND=0 I $G(DFN)'="" D I FIND=0 S HLERR="No cases for the requested patient.",SRERR="QRD"_HLCOMP_"8"_HLCOMP_HLCOMP_HLERR,SRAC="AE" D ERR(SRAC,SRERR) Q
  1. .S CASE=0 F S CASE=$O(^SRF("B",DFN,CASE)) Q:'CASE I $P($P(^SRF(CASE,0),"^",9),".")=SRDT S FIND=1 Q
  1. ;all cases
  1. I $G(DFN)="" D I FIND=0 S HLERR="No cases scheduled for date requested.",SRERR="QRF"_HLCOMP_"2"_HLCOMP_HLCOMP_HLERR,SRAC="AE" D ERR(SRAC,SRERR) Q
  1. .S BDT=SRDT-.0001,EDT=SRDT+.9999 F S BDT=$O(^SRF("AC",BDT)) Q:'BDT!(BDT>EDT)!($G(FIND)=1) S CASE=0 F S CASE=$O(^SRF("AC",BDT,CASE)) Q:'CASE!($G(FIND)=1) S:$P($G(^SRF(CASE,31)),U,4) FIND=1
  1. PROCESS ;Data exists for the requested date.
  1. S SRAC="AA" D MSA^SRHLVUO(.SRI,SRAC)
  1. S BDT=SRDT-.0001,EDT=SRDT+.9999 F S BDT=$O(^SRF("AC",BDT)) Q:'BDT!(BDT>EDT) S CASE=0 F S CASE=$O(^SRF("AC",BDT,CASE)) Q:'CASE D
  1. .;all patient cases for a requested date
  1. .I $G(DFN)'="" Q:DFN'=+$P(^SRF("AC",BDT,CASE),"^") D MSG
  1. .;all cases for a requested date
  1. .I $G(DFN)="" S DFN=$P(^SRF(CASE,0),"^") D MSG S DFN=""
  1. Q
  1. ;
  1. MSG ;Send ZQR message.
  1. N SREVENT,SRSTATUS,SROERR
  1. S (SREVENT,SRSTATUS)=""
  1. S SROERR=CASE D STATUS^SROERR0
  1. D ZCH^SRHLVUO1(.SRI,.SREVENT,.SRSTATUS,"HLA")
  1. D PID^SRHLVUO(.SRI,"HLA")
  1. D DG1^SRHLVUO(.SRI,"HLA")
  1. D AL1^SRHLVUO(.SRI,"HLA")
  1. D OBX^SRHLVUO(.SRI,"HLA")
  1. D ZIS^SRHLVUO2(.SRI,"HLA")
  1. D ZIG^SRHLVUO1(.SRI,"HLA")
  1. D ZIP^SRHLVUO1(.SRI,"HLA")
  1. D ZIL^SRHLVUO1(.SRI,"HLA")
  1. Q
  1. ;
  1. ERR(SRAC,SRERR) ;Error found, transmit error message.
  1. N SRI
  1. K ^TMP("HLA",$J)
  1. S SRI=1
  1. D MSA^SRHLVUO(.SRI,SRAC)
  1. D ERR^SRHLVUO(.SRI,SRERR)
  1. Q