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 ALPBPALL ALPBPCLN ALPBPPAT ALPBPWRD ALPBSP1 ALPBSPAT ALPBSWRD PSB BCBU WARD LIST PSB BCBU WRKSTN MAIN
Kernel	1	^DIC(19

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

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

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

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

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

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

Customize PDF page

Package: Barcode Medication Administration

Routine: ALPBUTL

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: