Routine: APSAPPIP

Name	Comments	DBIA/ICR reference
END1	;
CONT	;
HDR	;HEADER INFO
HDR1
ECK	;
EP2	;EP FROM APSAPPIM
EP1	;FROM APSEPPID
WRITE	;MY DIWW FOR ^DIWW
INIT	;INIT SOME VARIABLES
SH	;PRINT OUT MAIN BODY
END	;KILL THE VARIABLES
LASTLINE	;PA THE LAST LINE IN UTILITY TO MAXIMUM
PICK	;EP SELECT A DRUG FROM FILE 50
PRINTIT(X)	;PRINT THE LINE
DISC	;
HDR2
DICS	;SCREEN

Name	Field # of Occurrence
^APSPMDD	PICK+5
^DIC	PICK+4
^DIR	CONT+5, WRITE+7
^DIWP	PRINTIT+9, PRINTIT+11, PRINTIT+12, PRINTIT+14
DEM^VADPT	INIT+9, HDR2+2
$$HTE^XLFDT	HDR2+5

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"PATIENT MEDICATION INSTRUCTION SHEETS' DATA HAS NOT BEEN INSTALLED",!! Line Location: PICK+3
Routine Call	DIC Line Location: PICK+4
Routine Call	DIR Line Location: CONT+5 WRITE+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSAMDF - [#9009037]	ECK+3
^APSAMDF("B"	ECK+1, ECK+2
^APSAPPI - [#9009037.1]	PICK+3, SH+2, ECK+4, DISC+3, DISC+8, DISC+9, DISC+11
^DPT - [#2]	INIT+9, HDR2+2
^PSDRUG - [#50]	PICK+5, INIT+7, DICS+1
^PSNDF(	INIT+7
^UTILITY($J	END+3!, LASTLINE+2, LASTLINE+4, LASTLINE+5, LASTLINE+8, HDR+2, HDR+5, HDR+6, HDR+7!, HDR+8 , HDR+9!, HDR1+6, HDR2+8, WRITE+4, WRITE+5

Label References

Name	Line Occurrences
CONT	EP1+2, EP2+2
DISC	CONT+2
ECK	PICK+5
END	EP2+1, PICK+1
END1	CONT+6
HDR	CONT+3
HDR1	HDR+3
HDR2	HDR+3
INIT	EP1+1, EP2+1, PICK+1
LASTLINE	PRINTIT+10, PRINTIT+11, DISC+2
PRINTIT	SH+2, DISC+5, DISC+6, DISC+10, DISC+11
SH	CONT+1
WRITE	CONT+4

Name	Field # of Occurrence
^(	SH+2
^("I"	DICS+1
^("ND"	INIT+7
^("W"	HDR+8*
^(0	LASTLINE+4, LASTLINE+8*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APSAIOSL	END+2!, INIT+3, INIT+4, HDR+3, WRITE+6
>> APSDNAM	HDR2+5
>> CNT	HDR+1, HDR+3, HDR+4, HDR+5, HDR+6, HDR1+5, HDR1+6, HDR2+7, HDR2+8
>> CR	DISC+3*, DISC+5
>> DFN	INIT+9, HDR2+2
DIC	PICK+4*!, END+1!
DIC("S"	PICK+4*
DIC(0	PICK+4*
DIR	CONT+5!, WRITE+7!
DIR(0	CONT+5, WRITE+7
DIWF	END+1!
DIWL	END+1!, INIT+2*, LASTLINE+2, LASTLINE+4, LASTLINE+5, LASTLINE+8, HDR+2, HDR+5, HDR+6, HDR1+6 , HDR2+8, WRITE+4, WRITE+5
DIWR	END+1!, INIT+2*, LASTLINE+5, HDR1+4, HDR2+6
>> DRG	PICK+4*, PICK+5, INIT+7
DRUG	END+1!, INIT+5, INIT+7, HDR1+2
DT	DICS+1
>> ED	DISC+3*
>> ED1	DISC+3*, DISC+6
>> ED2	DISC+3*, DISC+4
>> ED3	DISC+4*, DISC+6
FIRST	PRINTIT+6~, PRINTIT+7*, PRINTIT+9
IEN	SH+1~, SH+2, HDR+1, HDR+2, HDR+5, DISC+7~, DISC+8, DISC+9
IO	WRITE+1
IOF	WRITE+3, WRITE+8
IOM	INIT+2
IOSL	INIT+3, INIT+4
IOST	CONT+5, INIT+3, WRITE+7
J	INIT+6~, INIT+7*
K	INIT+6~, INIT+7*
LASTLINE	LASTLINE+1~, LASTLINE+2*, LASTLINE+3, LASTLINE+4, LASTLINE+5, LASTLINE+8
LEN	LASTLINE+1~, LASTLINE+5*, LASTLINE+6, LASTLINE+7
NAM	END1+1!, INIT+9, HDR2+1~, HDR2+2, HDR2+4
NDC	PICK+5*, ECK+1, END+1!
NUM	END+2!, INIT+1*
P2	PICK+5, PICK+6, END+1!
PG	END+2!, INIT+1, HDR1+4, HDR1+7
>> PPI	PICK+5, PICK+6, SH+2, ECK+1, ECK+3, ECK+4*
>> PSNDFN	INIT+8, INIT+9, HDR2, HDR2+2
>> PSNDRUG	PICK+2
>> PSNTRADE	INIT+5
>> PSRX	HDR1+3
QUIT	CONT+5, SH+2, PRINTIT+1, END+1!, INIT+1, DISC+8, WRITE+4, WRITE+7
RN	ECK+1, ECK+2, ECK+3, END+1!
SECOND	PRINTIT+6~, PRINTIT+8*, PRINTIT+12
SPACE	LASTLINE+1~, LASTLINE+7, LASTLINE+8, HDR1+1~, HDR1+2, HDR1+3!, HDR1+4!, HDR2+3~, HDR2+4, HDR2+5! , HDR2+6!*
STOP	PRINTIT+4~, PRINTIT+5, PRINTIT+14
U	PICK+5, INIT+7, INIT+9, HDR2+2, DISC+3
UTLIEN	WRITE+2~, WRITE+4*, WRITE+5, WRITE+6
WORD	PRINTIT+4~, PRINTIT+5*, PRINTIT+7, PRINTIT+8, PRINTIT+11
X	PICK+5, PRINTIT~, PRINTIT+2, PRINTIT+3, PRINTIT+5, PRINTIT+7, PRINTIT+8, PRINTIT+9, PRINTIT+11, PRINTIT+12 , INIT+6~, INIT+7, HDR1+2, HDR1+3, HDR1+4, HDR1+6, HDR2+4, HDR2+5, HDR2+6, HDR2+8 , DISC+5, DISC+6, DISC+9, DISC+10, DISC+11*
XNDC	PICK+6, ECK+1*, ECK+2, END+1!
>> Y	PICK+4, DICS+1, WRITE+7

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSAPPIP

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: