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 |
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 |
Package | Total | Caller Graph |
---|---|---|
Barcode Medication Administration | 4 | ALPBELOG ALPBHL1 ALPBSP1 ALPBUTL |
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 |
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, GETZZZ~ |
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, GETZZZ~, GETZZZ+7, GETZZZ+8 |
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, GETZZZ~, GETZZZ+7, GETZZZ+8 |
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~, GETZZZ~ |
RESULTS(0 | GETORC+7* |
RESULTS(1 | GETPID+8*, GETORC+9*, GETORC+15, GETZZZ+7* |
RESULTS(2 | GETPID+10*, GETORC+11*, GETZZZ+8* |
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 |