Routine: APSPSLBL

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Outpatient Pharmacy	2	^PSOLSET PROFILE^PSORX1
IHS Changes To Pharmacy	1	(EN,PAT)^APSPNUM

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSPNE4

Entry Points

Name	Comments	DBIA/ICR reference
FEED
BEGIN	;
ESET	;
EOJ	;
PARM	;EP
EP2	;EP
DEV	;
EP1	;INITIALIZE
ZZL	;LABEL INFORMATION
EXIT
EPP	;
LABEL	;
EMSG	;IHS/DSD/ENM 01/29/97
EP	;IHS/DSD/ENM 11/09/94 ENTRY POINT FOR SUM OPT

External References

Name	Field # of Occurrence
^%ZIS	DEV+2, EP2+19
^%ZISC	DEV+6, EOJ+2
^%ZTLOAD	DEV+11
EN^APSPNUM	EPP+3
PAT^APSPNUM	EP+9
^PSOLSET	EP+6
PROFILE^PSORX1	EPP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @($P(^%ZIS(2,IOST(0),12.1),U,1)) Line Location: EP2+21
Function Call: WRITE	Prompt: ! Line Location: BEGIN+1
Function Call: WRITE	Prompt: !,?(PSZCTAB),$P(ARRAY(N),"^",1)_" : "_APSHRN_" " Line Location: BEGIN+4
Function Call: WRITE	Prompt: ?(PSZCTAB+PSZCW-9),+$E(APSPEDT,4,5),"-",$E(APSPEDT,6,7),"-",$E(APSPEDT,2,3) Line Location: BEGIN+5
Function Call: WRITE	Prompt: ?(PSZCTAB+PSZCW-9),+$E(FDT,4,5),"-",$E(FDT,6,7),"-",$E(FDT,2,3) Line Location: BEGIN+6
Function Call: WRITE	Prompt: ! Line Location: ZZL+3
Function Call: WRITE	Prompt: ! Line Location: FEED+0
Function Call: WRITE	Prompt: @($P(^%ZIS(2,IOST(0),6),U,1)) Line Location: EOJ+1
Function Call: WRITE	Prompt: !,?(PSZCTAB),DRUG," ",SIG,?(PSZCTAB+PSZCW-$L(QTY)),QTY Line Location: LABEL+12
Function Call: WRITE	Prompt: ! Line Location: LABEL+15
Function Call: WRITE	Prompt: !,?(PSZCTAB),DRUG," ",$E(SIG,1,E) Line Location: LABEL+19
Function Call: WRITE	Prompt: "-" Line Location: LABEL+21
Function Call: WRITE	Prompt: !,?(PSZCTAB),$E(SIG,E+1,99) Line Location: LABEL+23
Function Call: WRITE	Prompt: ?(PSZCTAB+PSZCW-$L(QTY)),QTY Line Location: LABEL+24
Function Call: WRITE	Prompt: !,"No Rx's found for this date....!" Line Location: EMSG+1
Routine Call	%ZIS Line Location: DEV+2 EP2+19

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	EP2+21, EOJ+1
^APSPCTRL - [#9009033]	EP2+7, EP2+12, EP2+13, PARM+3
^AUPNPAT - [#9000001]	ESET+8
^DPT - [#2]	ESET+8
^PS(59 - [#59]	ESET+7
^PSDRUG - [#50]	ESET+8
^PSRX - [#52]	ESET+1, ESET+5

Label References

Name	Line Occurrences
BEGIN	EP2+27, ZZL+4
DEV	DEV+4
EMSG	EPP+4
EOJ	EPP+4, DEV+3, EP1+4, EP2+29
EP	EPP+5
EP1	DEV+13
EP2	EP1+4
ESET	EP1+3
FEED	EP2+28
LABEL	ZZL+1
PARM	EP+8, EP2+4
ZZL	BEGIN+5

Naked Globals

Name	Field # of Occurrence
^(0	ESET+7, ESET+8, PARM+3
^(12.1	EP2+21
^(6	EP2+21, EOJ+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV+1*
>> %ZIS("A"	DEV+2*
AAPSITE	EP2+1~, EP2+7*, EP2+8
APSHRN	EP+5~, ESET+8*, ESET+9, BEGIN+4
>> APSNBR	ESET+7*, ESET+8
APSP	EP1+2~, ESET+1*, EP2+3~
APSPD	EP1+2~, ESET+1*, ESET+8, EP2+3~
APSPEDT	EP+2~, EP+7*, BEGIN+5
APSPF	EP1+2~, ESET+1*, ESET+9
APSPFLG	EP+1~
APSPID	EP+3~, EP+5~, EPP+2*, BEGIN+5
APSPN	EP1+2~, ESET+1*, ESET+8
APSPQ	EP1+2~, ESET+1*, ESET+9
APSPQFLG	EP+2~, EP+7*
>> APSPRX	EP1+3*, ESET+1, ESET+5, ESET+9
APSPS	EP1+2~, ESET+1, ESET+5, ESET+9
APSPZ	EP1+2~, EP1+3*
APSPZDT	EP+5~
APSPZZN	EP+1~, EP2+5
>> APSXPS	ESET+7*
ARRAY	EP+1~
ARRAY(	ESET+9*, EP2+6, BEGIN+4, ZZL+4, LABEL+1, LABEL+3, LABEL+7, LABEL+9
AUPDAYS	EP+2~
AUPNDOB	EP+2~
AUPNDOD	EP+2~
AUPNPAT	EP+2~
AUPNSEX	EP+2~
>> C	EP2+6, EP2+27, ZZL+1, ZZL+3, ZZL+4, LABEL+15, LABEL+27*
>> DRUG	LABEL+3*, LABEL+5, LABEL+12, LABEL+19
E	EP2+2~, LABEL+5*, LABEL+9, LABEL+19, LABEL+21, LABEL+23
FDT	EP2+2~, EP2+6*, BEGIN+6
>> G	DEV+9*
>> I	BEGIN+1, ZZL+3, FEED*
IO	DEV+4, EP2+19, EOJ+3
IO("Q"	DEV+4, DEV+6!, DEV+7
IO(0	DEV+4
ION	DEV+8
>> IOP	DEV+2, EP2+19
IOST	EP2+21, EOJ+1
IOST(0	EP2+21, EOJ+1
L	EP2+2~, FEED*
LENGTH	EP2+2~, LABEL+1*, LABEL+12
N	EP1+2~, EP1+3, ESET+9, EP2+5, EP2+6, EP2+27, BEGIN+4, ZZL+1, ZZL+4, LABEL+1 , LABEL+3, LABEL+7, LABEL+9, LABEL+15
NUM	EP2+2~, EP2+6, EP2+27, ZZL+1, ZZL+4*
>> PNM	ESET+8*, ESET+9
>> POP	DEV+3
PSODFN	EP+1~, EP+2~, EP+10
>> PSOFROM	EP2+29
>> PSOLAP	DEV+2, EP2+19
PSOLIST	EP+3~
PSOLIST(1	EP1+1, EP1+3
PSONUM	EP+3~, EPP+3*
PSOOPT	EP+3~, EPP+3*
>> PSOPAR	EP+6
PSOSD	EP+3~
>> PSOSITE	ESET+7, EP2+7, EP2+12, EP2+13, PARM+3
PSOZSLBL	EP2+2~
PSOZSLBL("COPIES"	EP2+8*, EP2+26
PSOZSLBL("I"	EP2+26*
PSZB	EP+1~, EP+3~, EP2+1~, BEGIN+1, FEED, PARM+3*
PSZCTAB	EP2+1~, EP2+2~, EP2+13*, BEGIN+4, BEGIN+5, BEGIN+6, LABEL+12, LABEL+19, LABEL+23, LABEL+24
PSZCW	EP2+1~, EP2+12, EP2+14, BEGIN+5, BEGIN+6, LABEL+3, LABEL+5, LABEL+9, LABEL+12, LABEL+24
PSZDRUG	EP+3~, ESET+8*, ESET+9
PSZE	EP+1~, EP+3~, EP2+1~, EP2+3~, ZZL+3, FEED, PARM+3*
PSZK	EP+1~, EP2+1~, FEED, PARM+3*
PSZL	EP+1~, EP2+1~, EP2+10, FEED, PARM+3*
PSZTAB	EP+1~, EP2+1~, PARM+3*
PSZW	EP+1~, ESET+9, EP2+1~, EP2+14, PARM+3*
PSZZL	EP2+2~, EP2+10*, ZZL+1, ZZL+3, LABEL+15
PZX	EP2+1~, EP2+6, EP2+27, ZZL+1
QTY	EP2+2~, LABEL+7*, LABEL+9, LABEL+12, LABEL+24
SIG	EP2+2~, LABEL+9*, LABEL+12, LABEL+19, LABEL+21, LABEL+23
U	ESET+1, ESET+8, EP2+21, EOJ+1, PARM+3
>> X	PARM+3*
Y	EP+5~, EPP+5
Y(1	EPP+4
>> ZTDESC	DEV+10*
>> ZTIO	DEV+8*
>> ZTRTN	DEV+8*
>> ZTSAVE(	DEV+9*

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPSLBL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: