VAQADM5.m

VAQADM5 ;ALB/JRP - GENERATE PDX TRANSMISSIONS;20-MAY-93

 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993

GENTASK(TRANARR) ;TASK TRANSMISSION GENERATION

 ;INPUT  : TRANARR - Array of pointers to transactions that

 ;                   should be transmit (full global ref)

 ;OUTPUT : ZTSK - Task number transmission(s) queued as

 ;         -1^Error_Text - Error

 ;NOTES  : TRANARR will have the following format

 ;           TRANARR(X)=""  where X is a pointer to the transaction

 ;       : Transmission(s) will be queued for NOW

 ;       : Some over-head may be saved by using VAQTRN as input

 ;

 ;CHECK INPUT

 Q:($G(TRANARR)="") "-1^Did not pass reference to transaction array"

 Q:($O(@TRANARR@(""))="") "-1^Transaction array did not contain any information"

 ;DECLARE VARIABLES

 N ZTSK,ZTRTN,ZTDESC,ZTDTH,ZTSAVE,ZTIO,TMP

 ;COPY TRANSACTIONS INTO VAQTRN (INPUT FOR GENXMIT^VAQADM50)

 I (TRANARR'="VAQTRN") N VAQTRN D

 .S TMP=""

 .F  S TMP=$O(@TRANARR@(TMP)) Q:(TMP="")  S VAQTRN(TMP)=""

 ;SET UP TASK

 S ZTRTN="GENXMIT^VAQADM50"

 S ZTDESC="Generation of PDX transmission"

 S ZTDTH=$H

 S ZTSAVE("VAQTRN(")=""

 S ZTIO=""

 ;TASK

 D ^%ZTLOAD

 ;NOT QUEUED

 Q:($G(ZTSK)="") "-1^Could not queue transmission(s)"

 Q ZTSK

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---VAQADM5   1238     printed  Apr 09, 2024@21:28:21                                                                                                                                                                                                     Page 2

VAQADM5   ;ALB/JRP - GENERATE PDX TRANSMISSIONS;20-MAY-93

 +1       ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993

GENTASK(TRANARR) ;TASK TRANSMISSION GENERATION

 +1       ;INPUT  : TRANARR - Array of pointers to transactions that

 +2       ;                   should be transmit (full global ref)

 +3       ;OUTPUT : ZTSK - Task number transmission(s) queued as

 +4       ;         -1^Error_Text - Error

 +5       ;NOTES  : TRANARR will have the following format

 +6       ;           TRANARR(X)=""  where X is a pointer to the transaction

 +7       ;       : Transmission(s) will be queued for NOW

 +8       ;       : Some over-head may be saved by using VAQTRN as input

 +9       ;

 +10      ;CHECK INPUT

 +11       if ($GET(TRANARR)="")

               QUIT "-1^Did not pass reference to transaction array"

 +12       if ($ORDER(@TRANARR@(""))="")

               QUIT "-1^Transaction array did not contain any information"

 +13      ;DECLARE VARIABLES

 +14       NEW ZTSK,ZTRTN,ZTDESC,ZTDTH,ZTSAVE,ZTIO,TMP

 +15      ;COPY TRANSACTIONS INTO VAQTRN (INPUT FOR GENXMIT^VAQADM50)

 +16       IF (TRANARR'="VAQTRN")

               NEW VAQTRN

               Begin DoDot:1

 +17               SET TMP=""

 +18               FOR 

                       SET TMP=$ORDER(@TRANARR@(TMP))

                       if (TMP="")

                           QUIT 

                       SET VAQTRN(TMP)=""

               End DoDot:1

 +19      ;SET UP TASK

 +20       SET ZTRTN="GENXMIT^VAQADM50"

 +21       SET ZTDESC="Generation of PDX transmission"

 +22       SET ZTDTH=$HOROLOG

 +23       SET ZTSAVE("VAQTRN(")=""

 +24       SET ZTIO=""

 +25      ;TASK

 +26       DO ^%ZTLOAD

 +27      ;NOT QUEUED

 +28       if ($GET(ZTSK)="")

               QUIT "-1^Could not queue transmission(s)"

 +29       QUIT ZTSK