GMTSPDX ;SLC/JER,SBW - PDX Health Summary Driver ; 08/27/2002
Source file <GMTSPDX.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GET(TRAN,DFN,SEGPTR,ROOT,GMTSLCNT,GMTSDLM,GMTSNDM) | ; Get HS for PDX
; ; Data retrieved from HS is return in ROOT parameter ; 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 ; ; Determin true DFN |
|
GETX | ; End Getting HS for PDX
|
|
ONECOMP(DFN,SEGPTR,GMTSDLM,GMTSNDM) | ; Print a single HS component to IO
|
|
XFER(SPLDAT,ROOT,INCOMP,GMTSLCNT) | ; Transfer text from SPOOL DOC to ROOT
|
FileNo | Call Tags |
---|---|
^XMB(3.51 - [#3.51] | GET1^DIQ |