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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ALPBUTL

Package: Barcode Medication Administration

Routine: ALPBUTL


Information

ALPBUTL ;OIFO-DALLAS MW,SED,KC-BCMA BCBU REPORT FUNCTIONS AND UTILITIES ;2/28/13 8:13am

Source Information

Source file <ALPBUTL.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 $$FMTE^XLFDT  $$LEAP^XLFDT2  $$UP^XLFSTR  
Barcode Medication Administration 2 CLEAN^ALPBUTL1  $$ERRCT^ALPBUTL2  
VA FileMan 2 C^%DTC  ^DIK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
Barcode Medication Administration 15 ALPBBK  ALPBELOG  ALPBFRM1  ALPBFRM2  ALPBFRMU  ALPBHL1  ALPBPALL  ALPBPCLN  
ALPBPPAT  ALPBPWRD  ALPBSP1  ALPBSPAT  ALPBSWRD  PSB BCBU WARD LIST  PSB BCBU WRKSTN MAIN  

Entry Points

Name Comments DBIA/ICR reference
DEFPRT() ; fetch and return default printer...
; returns default printer entry from Device file based on entry in
; DEFAULT MAR PRINTER field in BCMA BACKUP PARAMETERS file (53.71)
DEFDAYS() ; fetch and return default days for MAR printing...
; returns default number of days to print MARs based on entry in
; DEFAULT DAYS FOR MAR field in BCMA BACKUP PARAMETERS file (53.71)
; if null or undefined, returns default of 3 (days)
MLRANGE(IEN) ; find first and last Med Log entries' date/time...
; IEN = patient's record number in file 53.7
; returns a delimited string = first Med Log date/time^last Med Log date/time
PAD(STRING,SPACES) ; pad a string...
; STRING = a string passed by reference
; SPACES = number of spaces to concatenate onto STRING
; returns STRING padded with SPACES number of blank spaces
FDAYS(START,DAYS,SPACE) ; format a sequence of DAYS beginning with START separated by SPACE...
; START = a date in FileMan internal format from which the formatted string will start
; DAYS = the number of consecutive days to return in the formatted string
; SPACE = the number of spaces between each number in the formatted string
; (if not passed, defaults to 4 spaces)
; returns a formatted string (example: 1 2 3)
FMONS(START,DAYS,SPACE) ; format a sequence of months given a START date separated by SPACE...
; START = a date in FileMan internal format the month of which will be the string starting point
; DAYS = the number of days that will be displayed
; SPACE = the number of spaces between each month (defaults to 1 space)
; returns a string equal to the month or months depending upon the number of days passed
; for example: if START=3021031 (Oct 31, 2002) and DAYS=3 then two month names will be
; returned: OCT NOV
FDATES(START,DAYS,RESULTS) ;
DIM(X) ; number of days in a specified month...
; X = a date in internal FileMan format (can be partial: YYYMM)
; returns a number representing the number of days in month X
MONN(X) ; month name...
; X = month number (1-12)
; returns name of month specified in X
FDATE(X) ; special format for a FileMan date/time...
; X = date and time (time is optional) in FileMan format
; returns the FileMan date/time in the format MM/DD/YY@HH:MM
WARDLIST(DTYPE) ; list of wards on file...
; DTYPE = 'C' for vertical (columnar) list
; 'L' for horizontal list
WARDSEL(WARD,RESULTS) ; find a selected ward...
; WARD = a string representing a ward input by the user
; RESULTS = an array passed by reference in which possible matches are stored
; returns possible matches for the WARD in RESULTS
OTYP(CODE) ; expand order type for printing...
; CODE = a character representing an order type
; returns expanded order type from ^DD(53.79,6,0)
ORDS(IEN,DATE,RESULTS,CO,INCLIM) ; retrieve orders for a given patient... *73
; IEN = patient's record number in file 53.7
; DATE = the date/time used to determine whether all or only current
; orders are returned:
; >passed as a date/time in FileMan internal format -- only orders
; with a stop date/time equal to or greater than DATE are returned
; >passed = "" then all orders are returned regardless of status
; returns RESULTS(order# ien) -- note: RESULTS(0)=count of active orders
; *73 add 2 new input varaibles below
; CO = Clinic name selected to match for return orders, if clinic
; report requested.
; INCLIM = Include IM orders for a CO report request. Y or N
DELPT(IEN) ; delete a patient's entire record...
; IEN = patient's record number in file 53.7
DELORD(IEN,OIEN) ; delete an order from a patient's record...
; IEN = patient's record number in file 53.7
; OIEN = order number's record number
STATUS ; return last update date/time and count of any errors...
CLINLIST(DTYPE) ; list of Clinics on file...
; DTYPE = 'C' for vertical (columnar) list
; 'L' for horizontal list
CLINSEL(CLIN,RESULTS) ; find a selected Clinic...
; CLIN = a string representing a clinic input by the user
; RESULTS = an array passed by reference in which possible matches
; are stored
; returns possible matches for the CLIN in RESULTS

External References

Name Field # of Occurrence
C^%DTC FDATES+5
CLEAN^ALPBUTL1 DELPT+7
$$ERRCT^ALPBUTL2 STATUS+5
^DIK DELPT+4, DELORD+5
$$FMTE^XLFDT FDATE+5, STATUS+4
$$LEAP^XLFDT2 DIM+11
$$UP^XLFSTR WARDSEL+15, CLINSEL+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Wards with BCMA Backup Data on this workstation:",!
  • Line Location: WARDLIST+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WARDLIST+9
Function Call: WRITE
  • Prompt: ", "
  • Line Location: WARDLIST+11
Function Call: WRITE
  • Prompt: !,"NOTICE! There is no entry in the BCMA BACKUP PARAMETERS FILE!"
  • Line Location: STATUS+3
Function Call: WRITE
  • Prompt: !,"NOTICE! ",ALPBCNT_" filing error"_$S(ALPBCNT=1:" has",1:"s have")_" been logged."
  • Line Location: STATUS+6
Function Call: WRITE
  • Prompt: !,"Clinics with BCMA Backup Data on this workstation:",!
  • Line Location: CLINLIST+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CLINLIST+9
Function Call: WRITE
  • Prompt: ", "
  • Line Location: CLINLIST+11
Function Call: WRITE
  • Prompt: !,"No Clinics on file",!
  • Line Location: CLINLIST+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ALPB(53.7 - [#53.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] DEFPRT+6
^ALPB(53.7 - [#53.7] MLRANGE+4, MLRANGE+7, WARDLIST+7, WARDLIST+11, WARDSEL+7, WARDSEL+17, ORDS+17, ORDS+18, ORDS+19, ORDS+20
, ORDS+21, ORDS+40, ORDS+42, ORDS+44, ORDS+46, ORDS+48, ORDS+50, ORDS+52, ORDS+54, ORDS+56
, CLINLIST+7, CLINLIST+11, CLINLIST+13, CLINSEL+8, CLINSEL+18
^ALPB(53.71 - [#53.71] DEFPRT+4, DEFPRT+6, DEFDAYS+5, DEFDAYS+7, STATUS+2, STATUS+4

Label References

Name Line Occurrences
$$DIM FDAYS+11, FMONS+12, FMONS+22
$$MONN FMONS+13, FMONS+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALPBCLIN CLINLIST+4~, CLINLIST+6*, CLINLIST+7*, CLINLIST+9, CLINLIST+10, CLINLIST+11, CLINLIST+12, CLINSEL+5~, CLINSEL+7*, CLINSEL+8*
, CLINSEL+9, CLINSEL+10, CLINSEL+11, CLINSEL+12, CLINSEL+17*, CLINSEL+18*, CLINSEL+19, CLINSEL+20, CLINSEL+21, CLINSEL+22
ALPBCNT STATUS+1~, STATUS+5*, STATUS+6
ALPBPARM STATUS+1~, STATUS+2*, STATUS+3, STATUS+4
ALPBWARD WARDLIST+4~, WARDLIST+6*, WARDLIST+7*, WARDLIST+9, WARDLIST+10, WARDLIST+11, WARDLIST+12, WARDSEL+4~, WARDSEL+6*, WARDSEL+7*
, WARDSEL+8, WARDSEL+9, WARDSEL+10, WARDSEL+11, WARDSEL+16*, WARDSEL+17*, WARDSEL+18, WARDSEL+19, WARDSEL+20, WARDSEL+21
ALPBX WARDSEL+4~, ORDS+15~, ORDS+41*, ORDS+42*, ORDS+44, ORDS+47*, ORDS+48*, ORDS+50, ORDS+53*, ORDS+54*
, ORDS+56, CLINSEL+5~
ALPBY ORDS+15~, ORDS+43*, ORDS+44, ORDS+45, ORDS+49*, ORDS+50, ORDS+51, ORDS+55*, ORDS+56, ORDS+57
ALPTOTCL CLINLIST+4~, CLINLIST+10*
CLIN CLINSEL~, CLINSEL+9, CLINSEL+11, CLINSEL+16*, CLINSEL+19, CLINSEL+21
CLNAM ORDS+15~, ORDS+24*, ORDS+25, ORDS+26
CO ORDS~, ORDS+13*, ORDS+24, ORDS+25, ORDS+26
CODE OTYP~, OTYP+3, OTYP+4
DA DELPT+2~, DELPT+3*, DELORD+3~, DELORD+4*
DA(1 DELORD+4*
DATE FDATE+3~, FDATE+4*, FDATE+6*, FDATE+7, ORDS~, ORDS+29, ORDS+31
DAYS FDAYS~, FDAYS+7, FDAYS+12, FMONS~, FMONS+8, FMONS+14, FMONS+15, FDATES~, FDATES+3, DIM+4~
, DIM+7*, DIM+11*, DIM+12
DIK DELPT+2~, DELPT+3*, DELORD+3~, DELORD+4*
DIM FDAYS+6~, FDAYS+11*, FDAYS+14, FMONS+7~, FMONS+12*, FMONS+14, FMONS+18, FMONS+22*
DTYPE WARDLIST~, WARDLIST+3*, WARDLIST+8, CLINLIST~, CLINLIST+3*, CLINLIST+8
FIRST MLRANGE+3~, MLRANGE+4*, MLRANGE+5, MLRANGE+6*, MLRANGE+9, MLRANGE+10
FMDATE FDATE+3~, FDATE+5*, FDATE+6
I PAD+4~, PAD+7*, FDAYS+6~, FDAYS+10*, FDAYS+12*, FDAYS+16, FMONS+7~, FMONS+11*, FMONS+15*, FMONS+23*
, FMONS+24, FDATES+1~, FDATES+3*, FDATES+4, FDATES+6
IEN MLRANGE~, MLRANGE+4, MLRANGE+7, ORDS~, ORDS+14, ORDS+17, ORDS+18, ORDS+19, ORDS+20, ORDS+21
, ORDS+40, ORDS+42, ORDS+44, ORDS+46, ORDS+48, ORDS+50, ORDS+52, ORDS+54, ORDS+56, DELPT~
, DELPT+3, DELPT+7, DELORD~, DELORD+4
INCLIM ORDS~, ORDS+13*, ORDS+26
IOM WARDLIST+9, CLINLIST+9
J FDAYS+6~, FDAYS+17*, FMONS+7~
LAST MLRANGE+3~, MLRANGE+7*, MLRANGE+8*, MLRANGE+9, MLRANGE+10
MON FMONS+7~, FMONS+13*, FMONS+21*, DIM+4~, DIM+5*, DIM+6, DIM+7, DIM+9
MON1 FMONS+7~, FMONS+12*, FMONS+13, FMONS+19*, FMONS+20*, FMONS+21, FMONS+22
NEXTMON FMONS+7~
OIEN DELORD~, DELORD+4
ORDERDAT ORDS+15~, ORDS+25!, ORDS+26!, ORDS+29!, ORDS+31!
ORDERDAT(0 ORDS+18*, ORDS+22, ORDS+24, ORDS+33, ORDS+34
ORDERDAT(1 ORDS+19*, ORDS+29
ORDERDAT(3 ORDS+20*, ORDS+35
ORDERDAT(4 ORDS+21*, ORDS+39
>> ORDERIEN ORDS+16*, ORDS+17*, ORDS+18, ORDS+19, ORDS+20, ORDS+21, ORDS+33, ORDS+34, ORDS+35, ORDS+36
, ORDS+37, ORDS+39, ORDS+40, ORDS+42, ORDS+43, ORDS+44, ORDS+45, ORDS+46, ORDS+48, ORDS+49
, ORDS+50, ORDS+51, ORDS+52, ORDS+54, ORDS+55, ORDS+56, ORDS+57
ORDERST ORDS+15~, ORDS+22*, ORDS+31, ORDS+36
ORIEN ORDS+15~
RESULT PAD+4~, PAD+7*, PAD+8, FDAYS+6~, FDAYS+9*, FDAYS+10*, FDAYS+15*, FDAYS+17*, FDAYS+18, FMONS+7~
, FMONS+13*, FMONS+14, FMONS+16*, FMONS+21*, FMONS+23, FMONS+24*, FMONS+25
RESULTS FDATES~, WARDSEL~, ORDS~, CLINSEL~
RESULTS( FDATES+6*, WARDSEL+9*, WARDSEL+11*, WARDSEL+19*, WARDSEL+21*, ORDS+33*, ORDS+35*, ORDS+36*, ORDS+37*, ORDS+39*
, ORDS+43, ORDS+44*, ORDS+45*, ORDS+49, ORDS+50*, ORDS+51*, ORDS+55, ORDS+56*, ORDS+57*, CLINSEL+10*
, CLINSEL+12*, CLINSEL+20*, CLINSEL+22*
RESULTS("B" ORDS+34*
RESULTS(0 FDATES+2*, FDATES+6*, WARDSEL+5*, WARDSEL+9*, WARDSEL+11*, WARDSEL+14, WARDSEL+19*, WARDSEL+21*, ORDS+14*, ORDS+16*
, ORDS+32*, CLINSEL+6*, CLINSEL+10*, CLINSEL+12*, CLINSEL+15, CLINSEL+20*, CLINSEL+22*
RESULTS(1 FDATES+2*
SPACE FDAYS~, FDAYS+8*, FDAYS+10, FDAYS+17, FMONS~, FMONS+9*, FMONS+11
SPACES PAD~, PAD+6, PAD+7
START FDAYS~, FDAYS+7, FDAYS+9, FDAYS+11, FMONS~, FMONS+8, FMONS+12, FMONS+22, FDATES~, FDATES+2
, FDATES+4
STRING PAD~, PAD+5*, PAD+6, PAD+7
TODAY FDAYS+6~, FDAYS+9*, FDAYS+13*, FDAYS+14*, FDAYS+15, FMONS+7~, FMONS+12*, FMONS+14, FMONS+17*, FMONS+18
, FMONS+22*
U DEFPRT+6, ORDS+24
WARD WARDSEL~, WARDSEL+8, WARDSEL+10, WARDSEL+15*, WARDSEL+18, WARDSEL+20
X DEFPRT+3~, DEFPRT+4*, DEFPRT+5, DEFPRT+6, DEFDAYS+4~, DEFDAYS+5*, DEFDAYS+6, DEFDAYS+7, FDATES+1~, FDATES+6
, FDATES+7!, DIM~, DIM+3, DIM+5, DIM+10, MONN~, MONN+3, MONN+4*, MONN+5, FDATE~
, FDATE+4, FDATE+5, DELPT+2~, DELORD+3~
X1 FDATES+1~, FDATES+4*, FDATES+7!
X2 FDATES+1~, FDATES+4*, FDATES+7!
XSPACE FMONS+7~, FMONS+10*, FMONS+11*, FMONS+16, FMONS+24
>> XSTRIP FMONS+10*, FMONS+11*, FMONS+24
Y DELPT+2~, DELORD+3~
YEAR DIM+4~, DIM+10*, DIM+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All