Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VAQADM5

VAQADM5.m

Go to the documentation of this file.
  1. VAQADM5 ;ALB/JRP - GENERATE PDX TRANSMISSIONS;20-MAY-93
  1. ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
  1. GENTASK(TRANARR) ;TASK TRANSMISSION GENERATION
  1. ;INPUT : TRANARR - Array of pointers to transactions that
  1. ; should be transmit (full global ref)
  1. ;OUTPUT : ZTSK - Task number transmission(s) queued as
  1. ; -1^Error_Text - Error
  1. ;NOTES : TRANARR will have the following format
  1. ; TRANARR(X)="" where X is a pointer to the transaction
  1. ; : Transmission(s) will be queued for NOW
  1. ; : Some over-head may be saved by using VAQTRN as input
  1. ;
  1. ;CHECK INPUT
  1. Q:($G(TRANARR)="") "-1^Did not pass reference to transaction array"
  1. Q:($O(@TRANARR@(""))="") "-1^Transaction array did not contain any information"
  1. ;DECLARE VARIABLES
  1. N ZTSK,ZTRTN,ZTDESC,ZTDTH,ZTSAVE,ZTIO,TMP
  1. ;COPY TRANSACTIONS INTO VAQTRN (INPUT FOR GENXMIT^VAQADM50)
  1. I (TRANARR'="VAQTRN") N VAQTRN D
  1. .S TMP=""
  1. .F S TMP=$O(@TRANARR@(TMP)) Q:(TMP="") S VAQTRN(TMP)=""
  1. ;SET UP TASK
  1. S ZTRTN="GENXMIT^VAQADM50"
  1. S ZTDESC="Generation of PDX transmission"
  1. S ZTDTH=$H
  1. S ZTSAVE("VAQTRN(")=""
  1. S ZTIO=""
  1. ;TASK
  1. D ^%ZTLOAD
  1. ;NOT QUEUED
  1. Q:($G(ZTSK)="") "-1^Could not queue transmission(s)"
  1. Q ZTSK