source: WorldVistAEHR/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQEXT05.m@ 1000

Last change on this file since 1000 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 965 bytes
Line 
1VAQEXT05 ;ALB/JFP - TIME/OCCURRENCE LIMITS;20-MAY-93
2 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
3AUTO(TRAN) ;AUTOMATIC PROCESSING OF REQUESTS
4 ;INPUT : TRAN - Pointer to VAQ - TRANSACTION file
5 ;OUTPUT : 1 - Request processed
6 ; -1^Error_Text - Error
7 ;
8 ; Note: The array MAXARR and the variable MAXARR must be kilt
9 ; by the programmer.
10 ;
11 ;CHECK INPUT
12 S TRAN=+$G(TRAN)
13 Q:(('TRAN)!('$D(^VAT(394.61,TRAN)))) "-1^Valid transaction not passed"
14 ;DECLARE VARIABLES
15 N TMP,AUTOPROC,LIMITARR
16 S LIMITARR="^TMP(""VAQ-AUTOCHK"",""REQLIMITS"","_$J_")"
17 S MAXARR="^TMP(""VAQ-AUTOCHK"",""OVERLIMITS"","_$J_")"
18 S AUTOPROC="1^Automatic Process"
19 K @LIMITARR,@MAXARR
20 ;
21 S TMP=$$BLDSEGS^VAQADM22(TRAN,LIMITARR)
22 ;CHECK TIME & OCCURRENCE LIMITS OF REQUESTED SEGMENTS
23 I (TMP) D
24 .S TMP=$$MAXCHCK^VAQADM23(LIMITARR,MAXARR)
25 .;ALL LIMITS OK
26 .Q:('TMP)
27 .;SOME LIMITS DIDN'T PASS
28 .S AUTOPROC="-20^Maximum limits exceeded"
29 K @LIMITARR
30 Q AUTOPROC
31 ;
Note: See TracBrowser for help on using the repository browser.