Routine: ALPBFRM1

Package	Total	Call Graph
Barcode Medication Administration	2	($$FDATE,$$OTYP,$$PAD,FDATES)^ALPBUTL $$LACT^ALPBUTL3
Kernel	2	($$DT,$$FMADD,$$FMTE)^XLFDT $$REPEAT^XLFSTR

Package	Total	Caller Graph
Barcode Medication Administration	4	ALPBPALL ALPBPCLN ALPBPPAT ALPBPWRD

Name	Field # of Occurrence
$$FDATE^ALPBUTL	REMOV+127, REMOV+136, REMOV+152
$$OTYP^ALPBUTL	REMOV+101
$$PAD^ALPBUTL	REMOV+18, REMOV+19, REMOV+22, REMOV+23, REMOV+24, REMOV+33, REMOV+63, REMOV+80, REMOV+116, REMOV+117 , REMOV+128, REMOV+129, REMOV+137, REMOV+138, ADMTIM+8, ADMTIM+11, ADMTIM+12, ADMTIM+14, ENDGRID+5
FDATES^ALPBUTL	F132+29
$$LACT^ALPBUTL3	REMOV+148
$$DT^XLFDT	F132+28
$$FMADD^XLFDT	ASTER+7
$$FMTE^XLFDT	REMOV+32, REMOV+33
$$REPEAT^XLFSTR	REMOV+27, REMOV+150, ENDGRID+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AD	F132+15~, REMOV+168, ADMTIM+9, ADMTIM+11, ADMTIM+12, ASTER+2
AINDX	F132+15~, REMOV+3*, REMOV+10, REMOV+11
ALPBADM	F132+14~, F132+32, REMOV+4, REMOV+7, REMOV+10, REMOV+12, REMOV+164, ADMTIM
ALPBADM(	REMOV+6, REMOV+10, REMOV+11*, ADMTIM+2
ALPBADM(1	REMOV+14*
ALPBADM(2	REMOV+14*
ALPBADMT	ADMTIM+2, ADMTIM+3, ADMTIM+7, ADMTIM+13, ADMTIM+16, ADMTIM+17, ASTER+10!
ALPBDAY	ADMTIM+17*, ASTER+3, ASTER+4, ASTER+6, ASTER+7, ASTER+10!
ALPBDAYS	F132+14~, F132+29
ALPBDAYS(	ADMTIM+17
ALPBDAYS(0	REMOV+24
>> ALPBDNM	REMOV+146*, REMOV+152
ALPBDOA	F132+15~, REMOV+1*, ASTER+7
ALPBDRUG	F132+14~, REMOV+43, REMOV+45, REMOV+46!, REMOV+54, REMOV+56, REMOV+57, REMOV+58, REMOV+59!, REMOV+71* , REMOV+73, REMOV+74, REMOV+75, REMOV+76!
ALPBFLG	F132+14~, ENDGRID+3, ENDGRID+4, ENDGRID+6
ALPBIBOX	F132+14~, REMOV+162*, ADMTIM+18, ENDGRID!
ALPBLINE	ENDGRID+14*, ENDGRID+16, ENDGRID+17!
ALPBMDT	REMOV+122, REMOV+123, REMOV+125, REMOV+140!
ALPBMLC	F132+14~, REMOV+122, REMOV+123, REMOV+125, REMOV+126, REMOV+131, REMOV+135*, REMOV+140!
ALPBNBOX	F132+14~, REMOV+163*, ASTER+3, ASTER+4, ASTER+6, ASTER+8, ENDGRID!
ALPBPBOX	F132+14~, ADMTIM+18, ASTER+3, ASTER+4, ASTER+6, ASTER+8*, ASTER+9, ASTER+10!
ALPBPRN	F132+14~, ADMTIM+1, ENDGRID+3, ENDGRID+4, ENDGRID+5
ALPBPRNG	F132+14~, REMOV+86, REMOV+87, ENDGRID+2
ALPBRM	F132+15~, REMOV*, REMOV+9, REMOV+11, REMOV+13, REMOV+14
ALPBSTOP	F132+14~, REMOV+167, ADMTIM+16, ASTER+4, ASTER+8
ALPBTEXT	F132+14~, ENDGRID+11!*, ENDGRID+17!
ALPBTEXT(	ENDGRID+13, ENDGRID+14
ALPBTIME	F132+14~
ALPBTSTART	F132+14~, REMOV+166, ADMTIM+16, ASTER+3, ASTER+8
ALPBX	F132+14~, F132+31, F132+32, REMOV+2, REMOV+3, REMOV+5, REMOV+6, REMOV+13, REMOV+41, REMOV+42* , REMOV+43, REMOV+47, REMOV+52, REMOV+53, REMOV+54, REMOV+56, REMOV+60, REMOV+64!, REMOV+69, REMOV+70 , REMOV+71, REMOV+73, REMOV+77, REMOV+81!, REMOV+124, REMOV+125, REMOV+127, REMOV+128, REMOV+129, REMOV+133 , REMOV+134, REMOV+136, REMOV+137, REMOV+138, REMOV+139!, REMOV+144, REMOV+145, REMOV+146, REMOV+154!, ENDGRID+12* , ENDGRID+13*, ENDGRID+14, ENDGRID+17!
ALPDRUG	REMOV+146*, REMOV+147, REMOV+148, REMOV+154!
ALPLACT	REMOV+148*, REMOV+149, REMOV+152, REMOV+153, REMOV+154!
ALPPAT	F132~, REMOV+143, REMOV+148
BOLDOFF	F132+14~, F132+18*, REMOV+43, REMOV+57, REMOV+74
BOLDON	F132+14~, F132+18*, REMOV+43, REMOV+57, REMOV+74
DATA	F132~, F132+12
DATA(	REMOV, REMOV+1
DATA(0	REMOV+29, REMOV+104
DATA(1	REMOV+32, REMOV+33, REMOV+166, REMOV+167, ADMTIM+16
DATA(10	REMOV+110, REMOV+113, REMOV+118, REMOV+123, REMOV+125, REMOV+127, REMOV+128, REMOV+129, REMOV+133, REMOV+134 , REMOV+136, REMOV+137, REMOV+138
DATA(2	REMOV+93, REMOV+95, REMOV+96, REMOV+98
DATA(3	REMOV+101
DATA(4	F132+31, REMOV+84, REMOV+87
DATA(5	ENDGRID+10, ENDGRID+11
DATA(7	REMOV+38, REMOV+42, REMOV+43, REMOV+47, REMOV+145, REMOV+146
DATA(8	REMOV+49, REMOV+53, REMOV+54, REMOV+56, REMOV+60
DATA(9	REMOV+66, REMOV+70, REMOV+71, REMOV+73, REMOV+77
DATE	F132+14~, F132+28*, F132+29
DAYS	F132~, F132+26, F132+27, F132+29, REMOV+25, ADMTIM+15
>> I	REMOV+5, REMOV+6, REMOV+10, REMOV+11, REMOV+156, ADMTIM*, ADMTIM+1, ADMTIM+2, ADMTIM+4, ADMTIM+5 , ADMTIM+8, ADMTIM+11, ADMTIM+12, ADMTIM+13, ADMTIM+14, ASTER+9
>> J	ADMTIM+15*, ADMTIM+17
LINE	F132+14~, REMOV+36, REMOV+39, REMOV+40, REMOV+45, REMOV+47, REMOV+50, REMOV+51, REMOV+58, REMOV+61* , REMOV+62, REMOV+63, REMOV+67, REMOV+68, REMOV+75, REMOV+78, REMOV+79, REMOV+80, REMOV+83, REMOV+84 , REMOV+92, REMOV+93, REMOV+94, REMOV+95, REMOV+97, REMOV+98, REMOV+100, REMOV+101, REMOV+103, REMOV+104 , REMOV+107, REMOV+108, REMOV+111, REMOV+112, REMOV+114, REMOV+115, REMOV+116, REMOV+117, REMOV+119, REMOV+120 , REMOV+126, REMOV+127, REMOV+128, REMOV+129, REMOV+135, REMOV+136, REMOV+137, REMOV+138, REMOV+150, REMOV+151 , REMOV+152, REMOV+153, REMOV+156, REMOV+157, REMOV+158, ADMTIM+6, ENDGRID+6, ENDGRID+15, ENDGRID+16, ENDGRID+19* , ENDGRID+20, ENDGRID+21
MLCNT	F132~, REMOV+123, REMOV+125, REMOV+131
REMTIM	F132+15~, ASTER+7*, ASTER+8
RESULTS	F132~
RESULTS(	REMOV+40, REMOV+45, REMOV+51, REMOV+58, REMOV+62, REMOV+63, REMOV+68, REMOV+75, REMOV+79, REMOV+80 , REMOV+84, REMOV+93, REMOV+95, REMOV+98, REMOV+101, REMOV+104, REMOV+108, REMOV+112, REMOV+115, REMOV+116 , REMOV+117, REMOV+120, REMOV+127, REMOV+128, REMOV+129, REMOV+136, REMOV+137, REMOV+138, REMOV+150, REMOV+152 , REMOV+153, REMOV+158, ADMTIM+4, ADMTIM+5, ADMTIM+8, ADMTIM+11, ADMTIM+12, ADMTIM+13, ADMTIM+14, ASTER+9* , ENDGRID+4, ENDGRID+5, ENDGRID+16, ENDGRID+20
RESULTS(0	ENDGRID+21*
RESULTS(1	REMOV+17, REMOV+18, REMOV+19*
RESULTS(2	REMOV+21, REMOV+22, REMOV+23, REMOV+24, REMOV+25*
RESULTS(3	REMOV+27*
RESULTS(4	REMOV+29*
RESULTS(5	REMOV+32, REMOV+33
U	REMOV, REMOV+1, REMOV+29
X	F132+14~

Customize PDF page

Package: Barcode Medication Administration

Routine: ALPBFRM1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
F132(DATA,DAYS,MLCNT,RESULTS,ALPPAT)	; format data into a 132-column ; output array... ; DATA = an array containing a specific order node for a selected ; patient in file 53.7 ; DAYS = a number that represents the number of initial boxes ; (1 box = 1 day) to add to lines 4-10 (max=7 -- note that ; this is usually a 3-day MAR, but a 7-day MAR could be ; returned from this format utility) ; MLCNT = Number of Med-log entries to print with orders ; RESULTS = an array passed by reference into which the formatted ; entry is set up returns a formatted array in RESULTS ; (note: total line count is returned at RESULTS(0))
REMOV
ADMTIM
ASTER
ENDGRID