Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.2 KB
|
Rev | Line | |
---|
[613] | 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.