Routine: APSPNUM

Package	Total	Caller Graph
IHS Changes To Pharmacy	8	APSAPPIM APSEPPIM APSPLIST APSPRESK APSPSLBL APSPSUM APSQPMI APSQSIGN
IHS View Patient Record	1	BVPRX

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S($G(PSONUM("A"))]"":PSONUM("A"),1:"Select")_" Rx #(s) => " Line Location: GETRXM+2
Function Call: WRITE	Prompt: !?7,7,7,*7,"Improper Barcode Format" Line Location: BARCODE+1
Function Call: WRITE	Prompt: !?7,7,7,*7,"Not From this Institution" Line Location: BARCODE+2
Function Call: WRITE	Prompt: !,*7,"Rx data is not on file !",! Line Location: LIST+1
Function Call: WRITE	Prompt: !,*7,"Rx # ",RXM," has been deleted." Line Location: LIST+3
Function Call: WRITE	Prompt: !,*7,"Rx # ",RXM," has been deleted." Line Location: LIST+4
Function Call: WRITE	Prompt: !,"This patient has no prescriptions to act on. " Line Location: RANGE+2
Function Call: WRITE	Prompt: !?5,*7,"Duplicate RX # ",RXM," was found in your list, ignoring it!",! Line Location: DUPCHK+2
Function Call: WRITE	Prompt: !?15,"=> ",Y Line Location: BAD+0
Function Call: WRITE	Prompt: !!?5,"Enter 'YES' to take action on the list as displayed" Line Location: QUES2+1
Function Call: WRITE	Prompt: !?5,"If you answer 'NO' you must re-enter the list" Line Location: QUES2+2
Function Call: WRITE	Prompt: !!?5,"ENTER RX NUMBER OR A LIST OF RX NUMBERS SEPARATED BY COMMAS," Line Location: QUES3+1
Function Call: WRITE	Prompt: !?5,"e.g. 3233454A,3433434,3223322C" Line Location: QUES3+2
Routine Call	DIC Line Location: PAT+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("SITE"	START+2
^PSRX - [#52]	LIST+1, LIST+4, LIST+6
^PSRX("B"	GETRXM+12, LIST+6

Name	Line Occurrences
BAD	BAD+1
BARCODE	GETRXM+9
BARCODEX	BARCODE+1, BARCODE+2
DUPCHK	GETRXM+10
EN1	EN1+3
END	START+5, EN+4, EN1+4
EOJ	END
GETRXM	START+3, EN+2, EN1+2, GETRXM+6, GETRXM+8, GETRXM+9, GETRXM+11, GETRXM+13
GETRXMX	GETRXM+7
LIST	GETRXM+12, BARCODE+4
LISTX	LIST+1, LIST+4, LIST+7
PAT	PT+1
PATX	PAT+2
QUES2	BAD+1
QUES3	GETRXM+6, GETRXM+8
RANGE	START+4, EN+3
RANGEX	RANGE+2

Name	Field # of Occurrence
>> %	BAD+1*, BAD+2
>> APSPFLG	RANGE+7
BAD	DUPCHK+1, DUPCHK+2, DUPCHK+3*, BAD, BAD+1, BAD+2, BAD+3!, EOJ+1!
DA	PATX+1!
DIC	PAT+1*, PATX+1!
DIC(0	PAT+1*
DRG	RANGE+19*, EOJ+1!
DTIME	GETRXM+3
DUP	DUPCHK+2*, EOJ+1!
>> END	DUPCHK+1*, DUPCHK+2, DUPCHK+3
GOOD	GETRXM+12*, EOJ+1!
>> I	GETRXM+12, RANGE+19, DUPCHK+2, DUPCHK+3
>> J	RANGE+19, DUPCHK+2
K	RANGE+19*, EOJ+1!
M	RANGE+15, RANGE+19, EOJ+1!
N	RANGE+19*, EOJ+1!
>> PS	RANGE+14*, RANGE+19
>> PSODFN	PAT+3*
>> PSOFROM("PTLKUP"	GETRXM+7, QUES3+3
>> PSOHI	RANGE+3, RANGE+9
>> PSOINST	START+2*, BARCODE+2
PSOLIST	START+1!, EN+1!, EN1+1!, EN1+3, GETRXM+4!, GETRXM+5!, GETRXM+13
PSOLIST(	LIST+8, LIST+9, LIST+10, RANGE+19*
PSOLIST(1	LIST+7, RANGE+15
PSONUM	START+5, EN+2, EN+3, GETRXM+7*, EOJ+1!
PSONUM("A"	GETRXM+2
PSOOPT	RANGE+4~*
>> PSOPAR	START+3, START+4
>> PSOQFLG	EN1+3, GETRXM+4, GETRXM+5, RANGE+7
>> PSORX("BAR CO	DE" , GETRXM+5, BARCODE+3*
>> PSOSD	RANGE+1, RANGE+2, RANGE+3, RANGE+9
>> PSOSD("ACTIVE"	RANGE+19
PSOX1	LIST+8*, LISTX!
PSOX2	LIST+8*, LIST+9, LIST+10, LISTX!
PSVD	LIST+4, LIST+6, LISTX!
RXM	GETRXM+12, LIST+4, LIST+6, DUPCHK+2, DUPCHK+3*, EOJ+1!
RXN	GETRXM+12, BARCODE+3, LIST+1, LIST+4, LIST+6, LIST+7, LIST+9, LIST+10, LISTX!, RANGE+19
RXN1	LIST+4, LIST+6, LISTX!
X	GETRXM+3, GETRXM+4, GETRXM+5, GETRXM+6, GETRXM+7, GETRXM+8, GETRXM+9, BARCODE+1, BARCODE+2, BARCODE+3 , DUPCHK+1, DUPCHK+2, DUPCHK+3, PATX+1!, EOJ+1!
Y	GETRXM+1!, GETRXM+11, GETRXM+12, RANGE+13, DUPCHK+3, BAD, BAD+2, PAT+2, PAT+3, PATX+1!
Y(	RANGE+14, RANGE+19