Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ALPBUTL1

Package: Barcode Medication Administration

Routine: ALPBUTL1


Information

ALPBUTL1 ;OIFO-DALLAS MW,SED,KC-BCBU BACKUP REPORT FUNCTIONS AND UTILITIES ;01/01/03

Source Information

Source file <ALPBUTL1.m>

Call Graph

Call Graph

Call Graph Total: 6

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Barcode Medication Administration 12 ALPBCBU  ALPBELOG  ALPBHL1  ALPBHL1U  ALPBINP  ALPBPALL  ALPBPCLN  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
IN5^VADPT DIV+9
INP^VADPT DIV+5
$$NOW^XLFDT ERRLOG+23
$$GET^XPAR DIV+12

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+12, DIV+13

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+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~

Marked Items

Name Field # of Occurrence
$T(@ST STAT+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All