Routine: ALPBPCLN

Information

ALPBPCLN ;OIFO-DALLAS MW,SED,KC-PRINT 3-7 DAY MAR BCMA BCBU REPORT FOR CLINICS ;3/9/13 9:13am

Package	Total	Call Graph
Barcode Medication Administration	5	F132^ALPBFRM1 (FOOT,HDR)^ALPBFRMU ($$DEFDAYS,$$DEFPRT,CLINLIST,CLINSEL,ORDS)^ALPBUTL $$STAT2^ALPBUTL1 $$DEFML^ALPBUTL3
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$NOW^XLFDT
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Barcode Medication Administration	2	PSB BCBU PRINT MAR ALL CLINICS PSB BCBU PRINT MAR CLINIC

Entry Points

Name	Comments	DBIA/ICR reference
EN(RPT)	;Entry point to print either All clinics or a selected clinics
DQ(RPT)	; output entry point... ; set report date... SED 11/4/03
ALL	;All Clinic report
CLN	;Selected Clinic report
GETORDS	;Get orders per clinic
PRT	;
DONE	;
PAGE	; print page header for patient...

External References

Name	Field # of Occurrence
^%ZIS	EN+84
HOME^%ZIS	EN+108
^%ZISC	EN+94
^%ZTLOAD	EN+107
F132^ALPBFRM1	PRT+21
FOOT^ALPBFRMU	PRT+32
HDR^ALPBFRMU	PAGE+3
$$DEFDAYS^ALPBUTL	EN+63
$$DEFPRT^ALPBUTL	EN+82
CLINLIST^ALPBUTL	EN+17
CLINSEL^ALPBUTL	EN+13
ORDS^ALPBUTL	GETORDS+7
$$STAT2^ALPBUTL1	GETORDS+23
$$DEFML^ALPBUTL3	EN+71
^DIR	EN+11, EN+29, EN+43, EN+56, EN+65, EN+77
$$NOW^XLFDT	DQ+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?2,$J(ALPBX,2)," ",ALPBSEL(ALPBX) Line Location: EN+25
Function Call: WRITE	Prompt: "ALL CLINICS REPORT" Condition for execution: RPT="ALL" Line Location: EN+91
Function Call: WRITE	Prompt: "SELECTED CLINIC REPORT FOR "_$G(ALPBCL) Condition for execution: RPT="CLN" Line Location: EN+91
Function Call: WRITE	Prompt: " IS RUNNING...",! Line Location: EN+91
Function Call: WRITE	Prompt: !,ALPBFORM(ALPBX) Line Location: PRT+23
Function Call: WRITE	Prompt: ! Line Location: PRT+30
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+1
Function Call: WRITE	Prompt: !,ALPBHDR(ALPBX) Line Location: PAGE+4
Routine Call	%ZIS Line Location: EN+84
Routine Call	%ZIS Line Location: EN+108
Routine Call	DIR Line Location: EN+11 EN+29 EN+43 EN+56 EN+65 EN+77

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ALPB(53.7 - [#53.7]	ALL+5, ALL+7, ALL+8, CLN+5, CLN+6, GETORDS+8, GETORDS+11, GETORDS+12, GETORDS+14, GETORDS+15 , GETORDS+17, PRT+5, PRT+6, PRT+20
^TMP("PSBCL"	DQ+3!, ALL+9, ALL+11, CLN+7, GETORDS+4, GETORDS+6, DONE+1!
^TMP($J	DQ+3!, GETORDS+24, GETORDS+25, PRT+3, PRT+4, PRT+9, PRT+11, PRT+13, PRT+15, PRT+17 , PRT+18, DONE+1!

Label References

Name	Line Occurrences
@(	DQ+4
DONE	DQ+5
DQ	EN+93
GETORDS	ALL+12, CLN+8
PAGE	PRT+7, PRT+22, PRT+26
PRT	ALL+14, CLN+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN+81*, EN+84!
%ZIS("B"	EN+82*, EN+83!
ALPBCL	EN+1~, EN+20, EN+21, EN+31, EN+32, EN+35, EN+44!, EN+78!, EN+87!, EN+91 , EN+99, EN+111!, ALL+4, ALL+5, ALL+7, ALL+9, ALL+10, ALL+11, CLN+5, CLN+7 , GETORDS+4, GETORDS+6, GETORDS+7, DONE+1!
ALPBCLIN	GETORDS+1~, GETORDS+13, GETORDS+25, PRT+1~, PRT+8, PRT+9*, PRT+11, PRT+13, PRT+15, PRT+17 , PRT+18
ALPBD	DONE+1!
ALPBDAT	PRT+34!
ALPBDAT0	GETORDS+2~, GETORDS+12*, GETORDS+13
ALPBDATA	GETORDS+2~, GETORDS+11, GETORDS+21!, PRT+20, PRT+21, PRT+24!
ALPBDAYS	EN+67*, EN+111!, PRT+21, DONE+1!
ALPBDRGNAME	GETORDS+1~, GETORDS+17, GETORDS+18, GETORDS+25, PRT+1~, PRT+12, PRT+13, PRT+15, PRT+17, PRT+18
ALPBFORM	PRT+21, PRT+24!
ALPBFORM(	PRT+23
ALPBFORM(0	PRT+22, PRT+23
ALPBHDR	PAGE+3, PAGE+5!
ALPBHDR(	PAGE+4
ALPBHDR(0	PAGE+4
ALPBIEN	ALL+1~, ALL+6, ALL+7, ALL+8, ALL+9, CLN+1~, CLN+4, CLN+5, CLN+6, CLN+7 , GETORDS+1~, GETORDS+5, GETORDS+6, GETORDS+7, GETORDS+8, GETORDS+11, GETORDS+12, GETORDS+14, GETORDS+15, GETORDS+17 , GETORDS+24, PRT+4*, PRT+5, PRT+6, PRT+20, PRT+21
ALPBINCLI	EN+48, EN+58, EN+87!, EN+111!, GETORDS+7
ALPBMLOG	EN+79*, EN+87!, EN+111!, PRT+21, DONE+1!
ALPBOCT	GETORDS+1~, GETORDS+14, GETORDS+15, GETORDS+25, PRT+1~, PRT+10, PRT+11, PRT+13, PRT+15, PRT+17 , PRT+18
ALPBOIEN	GETORDS+1~, GETORDS+9, GETORDS+10, GETORDS+11, GETORDS+12, GETORDS+14, GETORDS+15, GETORDS+17, GETORDS+22, GETORDS+23 , GETORDS+25, PRT+18*, PRT+20, PRT+24!
>> ALPBORDN	GETORDS+22, GETORDS+25, PRT+16, PRT+17*, PRT+18
ALPBORDS	GETORDS+2~, GETORDS+5!, GETORDS+7
ALPBORDS(	GETORDS+10, GETORDS+22, GETORDS+23
ALPBOST	GETORDS+1~, GETORDS+23, GETORDS+25, PRT+1~, PRT+14, PRT+15*, PRT+17, PRT+18
ALPBOTYP	EN+45*, EN+57!, EN+66!, EN+78!, EN+87!, EN+111!, DQ+2, GETORDS+21, DONE+1!
>> ALPBPDAT	PAGE+3
>> ALPBPDAT(0	GETORDS+8, PRT+5
>> ALPBPDAT(1	PRT+6!*
ALPBPG	ALL+1~, ALL+13, CLN+1~, CLN+9, PRT+7, PRT+33, PAGE+2, PAGE+3
ALPBPTN	GETORDS+1~, GETORDS+3, GETORDS+4, GETORDS+6, GETORDS+24, GETORDS+25, PRT+1~, PRT+2, PRT+3, PRT+4 , PRT+9, PRT+11, PRT+13, PRT+15, PRT+17, PRT+18
ALPBRDAT	DQ+2~*, GETORDS+7, GETORDS+21
ALPBSEL	EN+13, EN+18!, EN+22!, EN+30!, EN+33!
ALPBSEL(	EN+25, EN+31
ALPBSEL(0	EN+14, EN+19, EN+23, EN+27, EN+28
ALPBSEL(1	EN+20
ALPBX	EN+24, EN+25, EN+26!, PRT+23, PRT+24!, PAGE+4, PAGE+5!
ALPRM	DONE+1!
ALPRM1	DONE+1!
DIR	EN+11!, EN+29!, EN+43!, EN+56!, EN+65!, EN+77!
DIR("?"	EN+10, EN+42, EN+52, EN+53, EN+54, EN+55, EN+64, EN+74, EN+75, EN+76
DIR("A"	EN+9, EN+28, EN+40, EN+50, EN+62, EN+72, EN+73*
DIR("B"	EN+41, EN+51, EN+63, EN+71
DIR(0	EN+8, EN+27, EN+39, EN+49, EN+61, EN+70
DIRUT	EN+5, EN+12, EN+23!, EN+30, EN+34, EN+44!, EN+57!, EN+66!, EN+78!, EN+112* , EN+113!
DTOUT	EN+23!, EN+44!, EN+57!, EN+66!, EN+78!, EN+113!
DUOUT	EN+34, EN+57!
IO	EN+92, EN+94
IO("Q"	EN+90, EN+97, EN+110!
IO(0	EN+94
IOF	PAGE+1
ION	EN+106
IOSL	PRT+22, PRT+26, PRT+30
IOST	PRT+30
PATNAM	ALL+1~, ALL+8, ALL+9, CLN+1~, CLN+6, CLN+7
POP	EN+85, EN+87!
RPT	EN~, EN+2*, EN+6, EN+35, EN+44, EN+91, EN+93, EN+112, DQ~, DQ+4
U	ALL+8, CLN+6, GETORDS+13, GETORDS+14, GETORDS+15, GETORDS+17, GETORDS+21
X	EN+23!, EN+44!, EN+57!, EN+66!, EN+78!, EN+113!
Y	EN+13, EN+23!, EN+31, EN+44!, EN+45, EN+57!, EN+58, EN+66!, EN+67, EN+78! , EN+79, EN+113!
>> ZTDESC	EN+99*
>> ZTIO	EN+106*
>> ZTQUEUED	DONE+2
>> ZTREQ	DONE+2*
>> ZTRTN	EN+98*
>> ZTSAVE("ALPBCL"	EN+101*
>> ZTSAVE("ALPBDAYS"	EN+100*
>> ZTSAVE("ALPBINCLI"	EN+104*
>> ZTSAVE("ALPBMLOG"	EN+102*
>> ZTSAVE("ALPBOTYP"	EN+103*
>> ZTSAVE("RPT"	EN+105*
ZTSK	EN+109, EN+110!

Customize PDF page

Package: Barcode Medication Administration