PSXDODB ;BIR/HTW-HL7 Message Conversion ;25 Jul 2002 10:02 PM
Source file <PSXDODB.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(PATH,FNAME) | ; needs directory & file name
; force an error in the next line |
|
EN1 | ;
|
|
EN2 | ;entry for processing file into Vista Messages
|
|
XMZ | ||
PIECE(REC,DLM,XX) | ;
; Set variable V = piece P of REC using delimiter DLM |
|
PUT(REC,DLM,XX) | ;
; Set Variable V into piece P of REC using delimiter DLM |
|
GETELM(STR,PIECES,SEPS) | ;
; uses STRing and ; returns value of the element located by path of pieces and separators ; ex: 1st address line = $$getelm(ORC,"22,1","|,^") ; or = $$getelm(XMIT,"4,2,1","|,\F\,\S|") |
|
ERRMSG | ;
|
|
MSGSEQER | ;send error message to folks & DOD
|
|
EXIT | ;
|
|
LOADTMP | ; load data into ^TMP
|
|
CLEARFLS(XX,EXT) | ;
|
|
LOOP |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PSX(554 - [#554] | GET1^DIQ |