VBECDCU ;hoifo/gjc-data conversion & pre-implementation utilities;Nov 21, 2002
Source file <VBECDCU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GTF(VBECGR,VBECIS,VBECF) | ; save off data stored in a global to a VMS
; or NT/2000 file. ; input: VBECGR=global reference ; VBECIS=Identifies the incrementing subscript level. For ; example, if you pass ^TMP(115,1,1,0) as the global ; reference parameter, and pass 3 as the incr_subsc ; parameter, $$GTF will increment the third subscript, ; ^TMP(115,1,x), but will read nodes at the full global ; reference ^TMP(115,1,x,0). ; VBECF=Name of the file where the data is to reside. ; output: 1=success, 0=failure |
|
| DELETE(VBECY) | ; purge the ^TMP("VBEC*",$J) global
; input: VBECY=$J or process id, or zero to kill along all processes. |
|
| NP200(IEN) | ; gather New Person information in order to populate
; the appropriate SQL Server table on the VBECS side. ; Name, SSN, Termination Date, & Division are the attributes returned. ; Input: IEN the internal entry number of the New Person record. ; We'll be saving New Person (NP) data off in ^TMP("VBEC NP",$J) and ; plan to create our NP VMS file after all other VMS files are closed. |
|
| XTRNL(LRFL,LRFD,LRFLG,LRINT) | ; change data from its internal value
; to its external value. ; LRFL-file or subfile number LRFLD-field number ; LRFLG-Output transform for pointer data. 'F' if the first field ; in a pointer chain has a output transform, apply the transform ; & quit. 'L' if the last field in a pointer chain has a output ; transform, apply the transform & quit. 'U' if the first field ; in a pointer chain has a output transform, apply the transform ; to the last field in the pointer chain & quit. ; function documented @ VA FileMan v22 Programmer Manual pg:2-171 ; LRINT-the internal value being converted. |
|
| DATE(LRDATE) | ; date/time transformed. Initial format created in order to
; handle an individual's date of birth, input in 'LRDATE', formatted ; 'mm/dd/yy<sp>time'. |
|
| ALERT(DUZ,TSK,FLG,ABN) | ;trigger an alert when the pre-implementation or
|
|
| RPT(TSK) | ;report header
; Input: TSK-The task being executed; either the pre-implementation or ; the data conversion. 'DC' implies data conversion, 'PI' ; implies the pre-implementation |
|
| CNT(X,Y) | ; return the value of a subscript
; Input: X=the name of the subscript, i.e., "VBEC63 DEM" ; Y=$J |
|
| SWAP(LRF,LRP) | ; swap the VistA pointer (or free-text blood supplier) data for
; the SQL GUID equivalent. In the case that the entry is not mapped ; (VistA pointer has no corresponding SQL Server GUID), this utility ; returns null. ; input: LRF=file being mapped ; LRP=VistA pointer value (IEN or record 'pointed to') |
|
| BLUT(Y) | ; obtain ABO GROUP (#.05) & RH TYPE (#.06) from Lab Data (#63) file
|
|
| ICN(DFN) | ; obtain the patient's ICN. DFN is input, and either the ICN,
; if it exists, or null will be returned. ; APIs used by this subroutine (in extrinsic function $$ICN) ; #2701-$$GETICN^MPIF001(DFN), this function returns the ICN |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GETS^DIQ |
