©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ALPBUTL2 ;OIFO-DALLAS MW,SED,KC-BCBU BACKUP REPORT FUNCTIONS AND UTILITIES ;01/01/03
Source file <ALPBUTL2.m>
| Package | Total | Call Graph |
|---|---|---|
| Health Level Seven | 1 | ($$FMDATE,$$FMNAME)^HLFNC |
| Kernel | 1 | $$STRIP^XLFSTR |
| VA Fileman | 1 | ^DIK |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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 |
|
| ERRCT() | ; fetch and return count of errors in the log in BCMA BACKUP PARAMETERS
; file... ; returns count of errors |
|
| 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 |
|
| DELERR(IEN) | ; delete an entry from the Error Log...
; IEN = the Error Log record number |
|
| DELALG(IEN) | ; delete allergies...
; IEN = the patient's record number in file 53.7 ; deletes any allergies in the patient's record -- returns nothing |
|
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ALPB(53.7 - [#53.7] | DELALG+4, DELALG+7, CLORD+9 |
| ^ALPB(53.71 - [#53.71] | DELERR+3, ERRCT+4, ERRCT+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ALPBCNT | ERRCT+3~, ERRCT+6*, ERRCT+7*, ERRCT+8 |
| ALPBPARM | DELERR+2~, DELERR+3*, DELERR+4, DELERR+6, ERRCT+3~, ERRCT+4*, ERRCT+5, ERRCT+7 |
| ALPBX | DELALG+5~, DELALG+6*, DELALG+7*, DELALG+8, ERRCT+3~, ERRCT+6*, ERRCT+7* |
| CS | GETPID~, GETPID+8, GETPID+12, GETORC~, GETORC+9 |
| DA | DELALG+5~, DELALG+8*, DELALG+12!, DELERR+2~, DELERR+5*, CLORD+6~, CLORD+10*, CLORD+15! |
| DA(1 | DELALG+9*, DELALG+10, DELERR+6*, DELERR+7, CLORD+11*, CLORD+13 |
| DA(2 | CLORD+12*, CLORD+13 |
| DATA | GETPID~, GETPID+8, GETPID+10, GETPID+12, GETPID+14, GETPID+16, GETORC~, GETORC+7, GETORC+9, GETORC+11 , GETORC+13 |
| DIK | DELALG+5~, DELALG+10*, DELALG+12!, DELERR+2~, DELERR+7*, CLORD+6~, CLORD+13*, CLORD+15! |
| ECH | GETPID~, GETPID+10 |
| FS | GETPID~, GETPID+8, GETPID+10, GETPID+12, GETPID+14, GETPID+16, GETORC~, GETORC+7, GETORC+9, GETORC+11 , GETORC+13 |
| I | REPL+6~, REPL+8*, REPL+9 |
| IEN | DELALG~, DELALG+3, DELALG+4, DELALG+7, DELALG+9, DELERR~, DELERR+5, CLORD~, CLORD+5, CLORD+9 , CLORD+12 |
| NEWSTR | REPL+6~, REPL+7*, REPL+14*, REPL+15 |
| NEWX | REPL+6~, REPL+9*, REPL+10*, REPL+11*, REPL+12*, REPL+13*, REPL+14 |
| OIEN | CLORD~, CLORD+5, CLORD+9, CLORD+11 |
| RESULTS | GETPID~, GETORC~ |
| RESULTS(0 | GETORC+7* |
| RESULTS(1 | GETPID+8*, GETORC+9*, GETORC+15 |
| RESULTS(2 | GETPID+10*, GETORC+11* |
| RESULTS(3 | GETPID+12*, GETORC+13* |
| RESULTS(4 | GETPID+14*, GETORC+15* |
| RESULTS(5 | GETPID+16* |
| SUB | CLORD+6~, CLORD+7*, CLORD+9, CLORD+13 |
| X | DELALG+5~, DELERR+2~, REPL~, REPL+5, REPL+8, REPL+9, CLORD+6~ |
| XIEN | CLORD+6~, CLORD+8*, CLORD+9*, CLORD+10, CLORD+16! |
| Y | DELALG+5~, DELERR+2~, REPL~, REPL+5, REPL+10, REPL+11, REPL+12, REPL+13, CLORD+6~ |
| Z | REPL+6~, REPL+9*, REPL+10, REPL+11, REPL+12, REPL+13 |