Routine: APSAPPIM

Package	Total	Call Graph
IHS Changes To Pharmacy	3	EP2^APSAPPIP ^APSPMDD (EN,PAT)^APSPNUM
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	YN^DICN

Entry Points

Name	Comments	DBIA/ICR reference
TEST(N)	;TEST FOR ENTRY OF PATIENT MED SHEET IN ^PSPPI GLOBAL
EN	;EP - NORMAL ENTRY POINT FROM APSPNE4 PRINT LINE
END	;EP - POC 04/10/01
ECK	;
DEV	;
EN1	;ENTRY FROM MENU OPTION FOR SINGLE PATIENT
EXIT
PICK	;select a drug from file 50
PRINT
PMI	;SET UP AND PRINT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"BUSY...WAIT A FEW MINUTES" Line Location: DEV+7
Function Call: WRITE	Prompt: !,"Patient Medication Instruction Sheets data has not been installed",!! Line Location: PICK+2
Routine Call	%ZIS Line Location: DEV+8
Routine Call	%ZIS Line Location: DEV+6

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	DEV+2, DEV+3, DEV+4
^%ZIS(2 - [#3.2]	PMI+2
^APSAMDF - [#9009037]	ECK+3
^APSAMDF("B"	ECK+1, ECK+2
^APSAPPI - [#9009037.1]	PICK+2, ECK+4
^PSDRUG - [#50]	TEST+1, PICK+4
^PSRX - [#52]	PMI+5, PMI+7, PMI+8
^VA(200 - [#200]	PMI+8

Name	Field # of Occurrence
^("I"	TEST+1
^(6	PMI+2

Name	Field # of Occurrence
>> %	DEV+7*
>> %ZIS	DEV+6*
APSDNAM	EN1+2~, PMI+8*
APSDOC	EN1+2~, PMI+8*
>> APSPCPP	DEV+1, DEV+2, DEV+3, DEV+4, DEV+5
>> APSPIEND	DEV+2*, DEV+3, DEV+4
APSPIRN	EN1+5~
APSPNDC	EN1+2~
APSPZDT	EN1+5~
APSQ	EN1+1~
APSQ(	PMI+10*, PRINT
>> APSQCOM	PMI+2*
APSQDRG	EN1+1~, PMI+5*, PMI+6, PMI+10, PICK+1, PICK+3
APSQIEN	EN1+1~, PMI+4*, PMI+5, PMI+7, PMI+8
>> APSQRSET	PMI+2*
APSQRXN	EN1+1~, PMI+7*, PMI+10
CNT	EN1+6~
CR	EN1+2~
DFN	EN+1, EN1+1~, EN1+2~
DIR	EN1+6~
DIW	EN1+5~
DIWI	EN1+5~
DIWT	EN1+5~
DIWTC	EN1+6~
DIWX	EN1+6~
DN	EN1+5~
DOB	EN1+6~
DRG	EN1+6~, PRINT, PICK+3, PICK+4
DT	TEST+1
ED	EN1+2~
ED1	EN1+2~
ED2	EN1+2~
ED3	EN1+2~
>> I	DEV+11, PMI+4, PMI+10
IEN	EN1+5~
IO	PMI+1
IO("Q"	DEV+8!
IO(0	DEV+4
IOBS	EN1+6~
IOHG	EN1+6~
>> IOP	DEV+3, DEV+4, DEV+5*
IOST	PMI+2
IOST(0	PMI+2
J	EN1+5~
JJ	EN1+5~, PRINT*
N	TEST~, TEST+1
NAM	EN1+2~
NDC	EN1+2~, PICK+6*, ECK+1
NUM	EN1+2~, PMI+12*
P2	EN1+3~, PICK+7*
PG	EN1+3~
POP	DEV+7, EN1+6~
PPI	EN1+3~, PMI+10, PRINT, PICK+5, PICK+7, ECK+1, ECK+3, ECK+4
PPL	EN1+1~, EN1+3~, EN1+12*, PMI+3, PMI+4
PS	EN1+3~
PSCNT	EN1+4~
PSNDFN	EN+1*, EN1+2~
PSOCT	EN1+4~
PSODFN	EN1+3~, EN1+8
PSODTCUT	EN1+4~
PSOERR	EN1+4~
PSOLIST	EN1+4~, EN1+11
PSOLIST(1	EN1+12
>> PSONUM	EN1+9*
PSOOPT	EN1+4~
PSOSD	EN1+1~
PSOSTA	EN1+4~
PSRX	EN1+2~, PRINT*
>> RN	ECK+1, ECK+2, ECK+3
RXN	EN1+4~
SEX	EN1+3~
SSN	EN1+3~
STP	EN1+4~
STR	EN1+4~
U	PICK+4
VA	EN1+3~
VADM	EN1+3~
VAERR	EN1+6~
>> X	PICK+4*, PICK+5, PICK+6
XNDC	EN1+3~, ECK+1*, ECK+2
Z	EN1+4~
>> ZTDESC	DEV+9*
>> ZTDTH	DEV+10*
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
>> ZTRTN	DEV+9*
>> ZTSAVE(	DEV+11*