ALPBUTL1 ;OIFO-DALLAS MW,SED,KC-BCBU BACKUP REPORT FUNCTIONS AND UTILITIES ;01/01/03
Source file <ALPBUTL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ERRBLD(SEG,MSG,ERR) | ; build an error array for non-FileMan-related errors...
; SEG = HL7 segment name ; MSG = a message that will be used in the error text portion of the array (optional -- if not passed, the ; default will be used) ; ERR = array passed by reference in which error will be returned ; note: code 999 is a code indicating a non-FileMan error for filing the error message in file 53.71 |
|
| ERRLOG(IEN,OIEN,MSGREC,SEGNAME,SEGDATA,ERRTEXT) | ; log filing errors...
; this module logs error data in the BCMA BACKUP PARAMETERS file (53.71). These ; errors usually occur as the result of missing or bad data passed to one of the ; File Manager DBS calls used by this package. ; ; IEN = the patient's record number in file 53.7 ; OIEN = the order number's sub-file record number in file 53.7 ; MSGREC = the HL7 message's record number in file 772 ; SEGNAME = the HL7 segment associated with the error (optional) ; SEGDATA = the HL7 segment's data (optional) ; ERRTEXT = an array passed by reference which contains the error ; code (numeric) and the error text to be filed. It is ; expected that this is usually the error array returned ; from a FileMan DBS call, so the format is specific: |
|
| CLEAN(IEN) | ; check error log records to see if the patients' whose records
; are noted still exist in file 53.7. if not, delete the error log ; record(s) in file 53.71... ; IEN = patient record number in file 53.7 ; Note: this function is also called from DELPT^ALPBUTL when a patient's ; record is deleted (as a result of a discharge action) from 53.7. |
|
| DELERR(ERRIEN) | ; delete an error log entry from file 53.71...
; ERRIEN = error log entry's internal record number |
|
| PTLIST(LTYPE,RESULTS) | ; get list of patients in file 53.7...
; LTYPE = passed = "ALL" to list all patients or ; = <wardname> to list patients on a selected ward ; RESULTS = an array passed by reference in which data will be returned |
|
| STAT(ST) | ;This will return the value of a status code for pharmacy
|
|
| IP | ||
| CM | ||
| DC | ||
| RP | ||
| HD | ||
| ZE | ||
| ZS | ||
| ZU | ||
| ZX | ||
| ZZ | ||
| STAT2(CODE) | ; convert order status code for output...
; this function is used primarily by the workstation software ; CODE = an order status code ; returns printable status code |
|
| DIV(DFN,ALPBMDT) | ;get the Division for a patient
|
|
| CNV(A,B,X) | ;CONVERT A STRING
|
| FileNo | Call Tags |
|---|---|
| ^ALPB(53.71 - [#53.71] | Classic Fileman Calls |
| 53.7135 | WP^DIE |
