VAQPSE01 ;ALB/JRP,JFP - EXPORTED PDX ROUTINE;9-FEB-94
Source file <VAQPSE01.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GMTSPDX | ; SLC/JER,SBW - PDX Health Summary Driver ;12/29/93 16:41
|
|
| GET(TRAN,DFN,SEGPTR,ROOT,GMTSLCNT,GMTSDLM,GMTSNDM) | ; Get HS for PDX
; Data retrieved from HS is return in ROOT parmeter reference passing. ; Function returns 2 piece variable delimited with "^". ; Piece 1 = tot line cnt of data extract to ROOT. ; Piece 2 = contains entry line cnt (GMTSLCNT) + Piece 1 ; Note: Currently Data begins with GMTSLCNT + 1 and ; Piece 2 is last node # of ROOT ; : If TRAN is passed ; The patient pointer of the transaction will be used ; Encryption will be based on the transaction ; If DFN is passed ; Encryption will be based on the site parameter ; : Pointer to transaction takes precedence over DFN ... if ; TRAN>0 the DFN will be based on the transaction |
|
| GETX | ||
| ONECOMP(DFN,SEGPTR,GMTSDLM,GMTSNDM) | ; Print a single HS component to IO
|
|
| XFER(SPLDAT,ROOT,GMTSDOC,GMTSLCNT) | ; Transfer text from SPOOL DOC to ROOT
|
