VAQEXT05 ;ALB/JFP - TIME/OCCURRENCE LIMITS;20-MAY-93
;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
AUTO(TRAN) ;AUTOMATIC PROCESSING OF REQUESTS
;INPUT : TRAN - Pointer to VAQ - TRANSACTION file
;OUTPUT : 1 - Request processed
; -1^Error_Text - Error
;
; Note: The array MAXARR and the variable MAXARR must be kilt
; by the programmer.
;
;CHECK INPUT
S TRAN=+$G(TRAN)
Q:(('TRAN)!('$D(^VAT(394.61,TRAN)))) "-1^Valid transaction not passed"
;DECLARE VARIABLES
N TMP,AUTOPROC,LIMITARR
S LIMITARR="^TMP(""VAQ-AUTOCHK"",""REQLIMITS"","_$J_")"
S MAXARR="^TMP(""VAQ-AUTOCHK"",""OVERLIMITS"","_$J_")"
S AUTOPROC="1^Automatic Process"
K @LIMITARR,@MAXARR
;
S TMP=$$BLDSEGS^VAQADM22(TRAN,LIMITARR)
;CHECK TIME & OCCURRENCE LIMITS OF REQUESTED SEGMENTS
I (TMP) D
.S TMP=$$MAXCHCK^VAQADM23(LIMITARR,MAXARR)
.;ALL LIMITS OK
.Q:('TMP)
.;SOME LIMITS DIDN'T PASS
.S AUTOPROC="-20^Maximum limits exceeded"
K @LIMITARR
Q AUTOPROC
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAQEXT05 996 printed Nov 22, 2024@17:35:46 Page 2
VAQEXT05 ;ALB/JFP - TIME/OCCURRENCE LIMITS;20-MAY-93
+1 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
AUTO(TRAN) ;AUTOMATIC PROCESSING OF REQUESTS
+1 ;INPUT : TRAN - Pointer to VAQ - TRANSACTION file
+2 ;OUTPUT : 1 - Request processed
+3 ; -1^Error_Text - Error
+4 ;
+5 ; Note: The array MAXARR and the variable MAXARR must be kilt
+6 ; by the programmer.
+7 ;
+8 ;CHECK INPUT
+9 SET TRAN=+$GET(TRAN)
+10 if (('TRAN)!('$DATA(^VAT(394.61,TRAN))))
QUIT "-1^Valid transaction not passed"
+11 ;DECLARE VARIABLES
+12 NEW TMP,AUTOPROC,LIMITARR
+13 SET LIMITARR="^TMP(""VAQ-AUTOCHK"",""REQLIMITS"","_$JOB_")"
+14 SET MAXARR="^TMP(""VAQ-AUTOCHK"",""OVERLIMITS"","_$JOB_")"
+15 SET AUTOPROC="1^Automatic Process"
+16 KILL @LIMITARR,@MAXARR
+17 ;
+18 SET TMP=$$BLDSEGS^VAQADM22(TRAN,LIMITARR)
+19 ;CHECK TIME & OCCURRENCE LIMITS OF REQUESTED SEGMENTS
+20 IF (TMP)
Begin DoDot:1
+21 SET TMP=$$MAXCHCK^VAQADM23(LIMITARR,MAXARR)
+22 ;ALL LIMITS OK
+23 if ('TMP)
QUIT
+24 ;SOME LIMITS DIDN'T PASS
+25 SET AUTOPROC="-20^Maximum limits exceeded"
End DoDot:1
+26 KILL @LIMITARR
+27 QUIT AUTOPROC
+28 ;
