VAQEXT05.m

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 ---VAQEXT05   996     printed  Jun 11, 2024@22:10:37                                                                                                                                                                                                     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      ;