Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call