Routine: ALPBUTL

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

Package	Total	Caller Graph
Barcode Medication Administration	15	ALPBBK ALPBELOG ALPBFRM1 ALPBFRM2 ALPBFRMU ALPBHL1 ALPBHL2 ALPBPALL 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)
STATUS	; return last update date/time and count of any errors...
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)
DELPT(IEN)	; delete a patient's entire record... ; IEN = patient's record number in file 53.7
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
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
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
OTYP(CODE)	; expand order type for printing... ; CODE = a character representing an order type ; returns expanded order type from ^DD(53.79,6,0)
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
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
ORDS(IEN,DATE,RESULTS)	; retrieve orders for a given patient... ; 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
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)
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
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
FDATES(START,DAYS,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

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

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+11, ORDS+12, ORDS+13, ORDS+14 , ORDS+15, ORDS+29, ORDS+31, ORDS+33, ORDS+35, ORDS+37, ORDS+39, ORDS+41, ORDS+43, ORDS+45
^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
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+9~, ORDS+30, ORDS+31, ORDS+33, ORDS+36, ORDS+37, ORDS+39, ORDS+42, ORDS+43 , ORDS+45
ALPBY	ORDS+9~, ORDS+32, ORDS+33, ORDS+34, ORDS+38, ORDS+39, ORDS+40, ORDS+44*, ORDS+45, ORDS+46
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+18, ORDS+20
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
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+8, ORDS+11, ORDS+12, ORDS+13, ORDS+14, ORDS+15 , ORDS+29, ORDS+31, ORDS+33, ORDS+35, ORDS+37, ORDS+39, ORDS+41, ORDS+43, ORDS+45, DELPT~ , DELPT+3, DELPT+7, DELORD~, DELORD+4
IOM	WARDLIST+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+9~, ORDS+18!, ORDS+20!
ORDERDAT(0	ORDS+12*, ORDS+16, ORDS+22, ORDS+23
ORDERDAT(1	ORDS+13*, ORDS+18
ORDERDAT(3	ORDS+14*, ORDS+24
ORDERDAT(4	ORDS+15*, ORDS+28
ORDERIEN	ORDS+9~, ORDS+10, ORDS+11, ORDS+12, ORDS+13, ORDS+14, ORDS+15, ORDS+22, ORDS+23, ORDS+24 , ORDS+25, ORDS+26, ORDS+28, ORDS+29, ORDS+31, ORDS+32, ORDS+33, ORDS+34, ORDS+35, ORDS+37 , ORDS+38, ORDS+39, ORDS+40, ORDS+41, ORDS+43, ORDS+44, ORDS+45, ORDS+46
ORDERST	ORDS+9~, ORDS+16*, ORDS+20, ORDS+25
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~
RESULTS(	FDATES+6, WARDSEL+9, WARDSEL+11, WARDSEL+19, WARDSEL+21, ORDS+22, ORDS+24, ORDS+25, ORDS+26, ORDS+28 , ORDS+32, ORDS+33, ORDS+34, ORDS+38, ORDS+39, ORDS+40, ORDS+44, ORDS+45, ORDS+46
RESULTS("B"	ORDS+23*
RESULTS(0	FDATES+2, FDATES+6, WARDSEL+5, WARDSEL+9, WARDSEL+11, WARDSEL+14, WARDSEL+19, WARDSEL+21, ORDS+8, ORDS+10* , ORDS+21*
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
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

Customize PDF page

Package: Barcode Medication Administration

Routine: ALPBUTL

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: