Routine: ALPBUTL1

Package	Total	Call Graph
VA Fileman	3	FILE^DICN (UPDATE,WP)^DIE ^DIK
Kernel	1	$$NOW^XLFDT
Registration	1	INP^VADPT
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Barcode Medication Administration	11	ALPBELOG ALPBHL1 ALPBHL1U ALPBHL2 ALPBINP ALPBPALL ALPBPPAT ALPBPWRD ALPBSP1 ALPBSPAT ALPBUTL

Entry Points

Name	Comments	DBIA/ICR reference
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:
CM
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
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
DELERR(ERRIEN)	; delete an error log entry from file 53.71... ; ERRIEN = error log entry's internal record number
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.
DC
CNV(A,B,X)	;CONVERT A STRING
ZX
ZZ
ZE
RP
ZU
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
HD
ZS

External References

Name	Field # of Occurrence
FILE^DICN	ERRLOG+32
UPDATE^DIE	ERRLOG+42, ERRLOG+50
WP^DIE	ERRLOG+54
^DIK	CLEAN+17, DELERR+8
INP^VADPT	DIV+5
$$NOW^XLFDT	ERRLOG+23
$$GET^XPAR	DIV+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ALPB(53.71 - [#53.71]	Classic Fileman Calls
53.7135	WP^DIE

Global Variables Directly Accessed

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+9, DIV+10

Label References

Name	Line Occurrences
@(	STAT+2

Local Variables

Legend:

>>	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+10*, DIV+11, DIV+12
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+7, DIV+9, DIV+10
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
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+10, CNV+15, CNV+19
VAIN	DIV+2~
VAIN(4	DIV+6
VAINDT	DIV+2~, DIV+3*
X	ERRLOG+26, CLEAN+7~, DELERR+2~, CNV~, CNV+10, CNV+15, CNV+19, CNV+20
Y	ERRLOG+33, CLEAN+7~, DELERR+2~

Customize PDF page

Package: Barcode Medication Administration

Routine: ALPBUTL1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 11

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items