Last change
on this file since 794 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.2 KB
|
Line | |
---|
1 | VAQADM5 ;ALB/JRP - GENERATE PDX TRANSMISSIONS;20-MAY-93
|
---|
2 | ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
|
---|
3 | GENTASK(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.