ALPBUTL2 ;OIFO-DALLAS MW,SED,KC-BCBU BACKUP REPORT FUNCTIONS AND UTILITIES ;01/01/03
Source file <ALPBUTL2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DELALG(IEN) | ; delete allergies...
; IEN = the patient's record number in file 53.7 ; deletes any allergies in the patient's record -- returns nothing |
|
GETPID(DATA,FS,CS,ECH,RESULTS) | ; retrieve specific patient ID data from
; PID segment... ; DATA = HL7 data string ; FS = HL7 field separator character ; CS = HL7 component separator character ; ECH = HL7 separators string ; RESULTS = an array passed by reference into which retrieved data ; is returned patient's DFN |
|
GETORC(DATA,FS,CS,RESULTS) | ; retrieve order number, date, type, and
; CPRS order number from ORC segment... ; DATA = HL7 data string ; FS = HL7 field separator character ; CS = HL7 component separator character ; RESULTS = an array passed by reference into which retrieved data ; is returned order action |
|
GETZZZ(DATA,FS,CS,RESULTS) | ; retrieve HAZ flags *108
; HAZARDOUS FLAGS segment... ; DATA = HL7 data string ; FS = HL7 field separator character ; CS = HL7 component separator character ; RESULTS = an array passed by reference into which retrieved data ; is returned order action |
|
DELERR(IEN) | ; delete an entry from the Error Log...
; IEN = the Error Log record number |
|
ERRCT() | ; fetch and return count of errors in the log in BCMA BACKUP PARAMETERS
; file... ; returns count of errors |
|
REPL(X,Y) | ; replace non-alpha and non-numeric characters...
; X = a string to examine ; Y = a character to use as the replacment ; returns a string with any non-alpha and non-numeric characters ; converted to the character passed in Y |
|
CLORD(IEN,OIEN) | ; delete drug(s), additive(s) and/or solution(s) entries
; for a specified order... ; IEN = patient's record number in file 53.7 ; OIEN = order's sub-record number in file 53.7 ; returns nothing |