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