ALPBUTL1 ;OIFO-DALLAS MW,SED,KC-BCBU BACKUP REPORT FUNCTIONS AND UTILITIES ;01/01/03
Source file <ALPBUTL1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ALPB(53.7 - [#53.7] | CLEAN+9, PTLIST+9, PTLIST+11, PTLIST+12, PTLIST+21, PTLIST+23, PTLIST+24 |
| ^ALPB(53.71 - [#53.71] | ERRLOG+24, ERRLOG+35, ERRLOG+48, CLEAN+11, CLEAN+13, DELERR+3 |
| ^DIC(42 - [#42] | DIV+12, DIV+13 |
| Name | Line Occurrences |
|---|---|
| @( | STAT+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | CNV~, CNV+10, CNV+11 |
| A( | CNV+11*, CNV+14, CNV+15*, CNV+17, CNV+18, CNV+19 |
| ALPBCODE | ERRLOG+22~, ERRLOG+46*, ERRLOG+49, ERRLOG+57! |
| ALPBDATA | PTLIST+4~, PTLIST+12*, PTLIST+13!, PTLIST+15, PTLIST+16!, PTLIST+24*, PTLIST+25!, PTLIST+27, PTLIST+28! |
| ALPBDIV | DIV+2~, DIV+13*, DIV+14, DIV+15 |
| ALPBFERR | ERRLOG+22~, ERRLOG+43!, ERRLOG+51!, ERRLOG+57! |
| ALPBFILE | ERRLOG+22~, ERRLOG+43!, ERRLOG+51!, ERRLOG+57! |
| ALPBFILE( | ERRLOG+36*, ERRLOG+37*, ERRLOG+38*, ERRLOG+39*, ERRLOG+40*, ERRLOG+41*, ERRLOG+49* |
| ALPBIEN | PTLIST+4~, PTLIST+10*, PTLIST+11*, PTLIST+12, PTLIST+17!, PTLIST+22*, PTLIST+23*, PTLIST+24, PTLIST+29! |
| ALPBLOGD | ERRLOG+22~, ERRLOG+23*, ERRLOG+36 |
| ALPBMDT | DIV~, DIV+3, DIV+4! |
| ALPBN1 | ERRLOG+22~, ERRLOG+35*, ERRLOG+36, ERRLOG+37, ERRLOG+38, ERRLOG+39, ERRLOG+40, ERRLOG+41, ERRLOG+48, ERRLOG+49 , ERRLOG+54 |
| ALPBN2 | ERRLOG+22~, ERRLOG+48*, ERRLOG+49, ERRLOG+54, ERRLOG+57! |
| ALPBPARM | DELERR+2~, DELERR+3*, DELERR+4, DELERR+6 |
| ALPBPIEN | ERRLOG+22~, ERRLOG+24*, ERRLOG+25, ERRLOG+33*, ERRLOG+34, ERRLOG+35, ERRLOG+36, ERRLOG+37, ERRLOG+38, ERRLOG+39 , ERRLOG+40, ERRLOG+41, ERRLOG+48, ERRLOG+49, ERRLOG+54 |
| ALPBPTN | PTLIST+4~, PTLIST+8*, PTLIST+9*, PTLIST+11, PTLIST+15, PTLIST+18!, PTLIST+20*, PTLIST+21*, PTLIST+23, PTLIST+27 , PTLIST+30! |
| ALPBTEXT | ERRLOG+22~, ERRLOG+53*, ERRLOG+57! |
| ALPBX | ERRLOG+22~, ERRLOG+44*, ERRLOG+45*, ERRLOG+46, ERRLOG+53, CLEAN+7~, CLEAN+10*, CLEAN+11*, CLEAN+13, CLEAN+15 , CLEAN+20!, PTLIST+4~, PTLIST+6*, PTLIST+14*, PTLIST+15, PTLIST+26*, PTLIST+27 |
| ALPBY | CLEAN+7~, CLEAN+12*, CLEAN+13*, CLEAN+14, CLEAN+19! |
| ALPWRD | DIV+2~, DIV+6*, DIV+8, DIV+9*, DIV+10, DIV+12, DIV+13 |
| B | CNV~, CNV+10, CNV+12 |
| B( | CNV+12*, CNV+18, CNV+19 |
| >> C | CNV+19* |
| CODE | STAT2~, STAT2+4, STAT2+5, STAT2+6, STAT2+7, STAT2+8 |
| DA | CLEAN+7~, CLEAN+14*, CLEAN+18!, DELERR+2~, DELERR+5* |
| DA(1 | CLEAN+15*, CLEAN+16, DELERR+6*, DELERR+7 |
| DFN | DIV~, DIV+1 |
| DIC | ERRLOG+27*, ERRLOG+32! |
| DIC("DR" | ERRLOG+29* |
| DIC(0 | ERRLOG+28* |
| DIK | CLEAN+7~, CLEAN+16*, CLEAN+18!, DELERR+2~, DELERR+7* |
| >> DINUM | ERRLOG+30* |
| >> DLAYGO | ERRLOG+31* |
| ERR | ERRBLD~ |
| ERR("DIERR" | ERRBLD+6*, ERRBLD+7*, ERRBLD+8* |
| ERRIEN | DELERR~, DELERR+5 |
| ERRTEXT | ERRLOG~ |
| ERRTEXT("DIERR" | ERRLOG+45, ERRLOG+46, ERRLOG+53 |
| >> I | CNV+11*, CNV+12*, CNV+15*, CNV+19* |
| IEN | ERRLOG~, ERRLOG+37, CLEAN~, CLEAN+9, CLEAN+11, CLEAN+13 |
| >> J | CNV+13*, CNV+14*, CNV+15, CNV+16*, CNV+17*, CNV+18, CNV+19 |
| LTYPE | PTLIST~, PTLIST+5*, PTLIST+7, PTLIST+19, PTLIST+21, PTLIST+23 |
| MSG | ERRBLD~, ERRBLD+8 |
| MSGREC | ERRLOG~, ERRLOG+39 |
| OIEN | ERRLOG~, ERRLOG+38 |
| >> PSJDCA | DIV+8 |
| RESULTS | PTLIST~ |
| RESULTS( | PTLIST+15*, PTLIST+27* |
| SEG | ERRBLD~, ERRBLD+8 |
| SEGDATA | ERRLOG~, ERRLOG+41 |
| SEGNAME | ERRLOG~, ERRLOG+40 |
| ST | STAT~, STAT+1, STAT+2 |
| U | DIV+6, DIV+9, DIV+12, DIV+13, CNV+15, CNV+19 |
| VAIN | DIV+2~ |
| VAIN(4 | DIV+6 |
| VAINDT | DIV+2~, DIV+3* |
| VAIP | DIV+2~ |
| VAIP("D" | DIV+9* |
| VAIP(5 | DIV+9 |
| X | ERRLOG+26*, CLEAN+7~, DELERR+2~, CNV~, CNV+10, CNV+15, CNV+19*, CNV+20 |
| Y | ERRLOG+33, CLEAN+7~, DELERR+2~ |
| Name | Field # of Occurrence |
|---|---|
| $T(@ST | STAT+2 |
