source: WorldVistAEHR/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQADM5.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: 1.2 KB
Line 
1VAQADM5 ;ALB/JRP - GENERATE PDX TRANSMISSIONS;20-MAY-93
2 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
3GENTASK(TRANARR) ;TASK TRANSMISSION GENERATION
4 ;INPUT : TRANARR - Array of pointers to transactions that
5 ; should be transmit (full global ref)
6 ;OUTPUT : ZTSK - Task number transmission(s) queued as
7 ; -1^Error_Text - Error
8 ;NOTES : TRANARR will have the following format
9 ; TRANARR(X)="" where X is a pointer to the transaction
10 ; : Transmission(s) will be queued for NOW
11 ; : Some over-head may be saved by using VAQTRN as input
12 ;
13 ;CHECK INPUT
14 Q:($G(TRANARR)="") "-1^Did not pass reference to transaction array"
15 Q:($O(@TRANARR@(""))="") "-1^Transaction array did not contain any information"
16 ;DECLARE VARIABLES
17 N ZTSK,ZTRTN,ZTDESC,ZTDTH,ZTSAVE,ZTIO,TMP
18 ;COPY TRANSACTIONS INTO VAQTRN (INPUT FOR GENXMIT^VAQADM50)
19 I (TRANARR'="VAQTRN") N VAQTRN D
20 .S TMP=""
21 .F S TMP=$O(@TRANARR@(TMP)) Q:(TMP="") S VAQTRN(TMP)=""
22 ;SET UP TASK
23 S ZTRTN="GENXMIT^VAQADM50"
24 S ZTDESC="Generation of PDX transmission"
25 S ZTDTH=$H
26 S ZTSAVE("VAQTRN(")=""
27 S ZTIO=""
28 ;TASK
29 D ^%ZTLOAD
30 ;NOT QUEUED
31 Q:($G(ZTSK)="") "-1^Could not queue transmission(s)"
32 Q ZTSK
Note: See TracBrowser for help on using the repository browser.