Routine: APSPRESK

Information

APSPRESK ; IHS/DSD/ENM - BHAM ISC/SAB/ENM - RETURN TO STOCK ;21-Mar-2004 20:36;PLS

Source Information

Source file <APSPRESK.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
IHS Changes To Pharmacy	4	^APSPCCC ^APSPNUM ^APSPRXV $$EN^APSQBRES
VA Fileman	4	NOW^%DTC ^DIE ^DIK ^DIR
Outpatient Pharmacy	1	^PSOFUNC

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	BC1+17, PAR+11, ACT+1
^APSPCCC	PCC+1
^APSPNUM	LKUP+2
^APSPRXV	BC+1
$$EN^APSQBRES	BC1+23, PAR+18
^DIE	BC1+17, PAR+13
^DIK	BC1+18, PAR+14
^DIR	BC1+5, BC1+12, REF+2, PAR+8
^PSOFUNC	STAT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,7,7," INVALID STATION NUMBER !!",7,7,! Line Location: BC+5
Function Call: WRITE	Prompt: !,7,7,*7," NON-EXISTENT Rx" Line Location: BC+6
Function Call: WRITE	Prompt: !,7,7,*7," IMPROPER BARCODE FORMAT" Line Location: BC+8
Function Call: WRITE	Prompt: !,7,7,"Original fill for Rx # "_$P(^PSRX(RXP,0),"^")_" was RETURNED TO STOCK." Line Location: BC1+8
Function Call: WRITE	Prompt: !,7,7,"Rx # "_$P(^PSRX(RXP,0),"^")_" was NOT released !" Line Location: BC1+9
Function Call: WRITE	Prompt: ! Line Location: BC1+12
Function Call: WRITE	Prompt: *7,!!,"Last Fill Already Returned to Stock !",! Line Location: PAR+2
Function Call: WRITE	Prompt: !!,7,7,$S(XTYPE:"Refill",1:"PARTIAL")_" #"_TYPE_" was NOT released !",! Line Location: PAR+3
Function Call: WRITE	Prompt: ! Line Location: PAR+6
Function Call: WRITE	Prompt: ! Line Location: PAR+13
Function Call: WRITE	Prompt: !!,"Rx # "_$P(^PSRX(RXP,0),"^")_$S(XTYPE:" REFILL",1:" PARTIAL")_" #"_TYPE_" RETURNED TO STOCK" Line Location: PAR+14
Function Call: WRITE	Prompt: !,"Enter the Rx number you would like to return to stock." Line Location: HP+2
Function Call: WRITE	Prompt: !!,7,7,"Rx has a status of "_ST_" and cannot be returned to stock.",! Line Location: STAT+1
Function Call: WRITE	Prompt: !!,"ATTEMPTING TO REMOVE COPAY CHARGES",! Line Location: CP+0
Function Call: WRITE	Prompt: !!,"REASON MUST BE ENTERED. Rx ",$P(^PSRX(RXP,0),"^")," NOT RETURNED TO STOCK.",! Line Location: CP+1
Routine Call	DIE Line Location: BC1+17 PAR+13
Routine Call	DIR Line Location: BC1+5 BC1+12 REF+2 PAR+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSRX - [#52]	Classic Fileman Calls
^PS(52.5 - [#52.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("SITE"	BC+5
^PS(52.5 - [#52.5]	BC1+18, PAR+14
^PS(59.7 - [#59.7]	AC
^PSDRUG - [#50]	BC1+16, PAR+11
^PSRX - [#52]	BC+6, BC+7, BC1+1, BC1+2, BC1+3, BC1+8, BC1+9, BC1+10, BC1+12, BC1+14 , BC1+17, BC1+19, REF, PAR, PAR+2, PAR+3, PAR+4, PAR+7, PAR+11, PAR+13 , PAR+14, STAT, ACT, ACT+1, STOCK+1

Label References

Name	Line Occurrences
AC	START+1
ACT	BC1+18, PAR+13
BC	PARSE
BC1	BC+4, BC+7
BCI	BC+4
EMQ	BC+4, BC1+12, PAR+13
END	START, START+1
EX	START+1, END, BC1+14, PAR+1, PAR+2
INIT	START+1
LKUP	START+1
PAR	BC1+7
PARSE	START+1
PCC	BC1+24, PAR+9
REF	BC1+2
STAT	BC1+1
STOCK	BC1+20, PAR+15

Naked Globals

Name	Field # of Occurrence
^(0	BC1+1, BC1+2, PAR+3, PAR+4
^(2	BC1+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	BC1+17, PAR+12, EX!, ACT+1
>> %APSITE	PCC+1
AGE	EX+2!
APSP	EX+2!
APSPD	EX+2!
>> APSPFROM	PCC+1*
APSPL	EX+2!
APSPLTYP	EX+2!
APSPMM	EX+2!
APSPQ	BC+3, EX!
APSPRXX	EX+2!
APSPX	BC+1*, EX!, RXP+1
APSPX9	BC+1, EX+2!
APSQPST	BC1+22~, BC1+23, PAR+17~, PAR+18
>> APSREA	PCC+1*
>> APSRX	PCC+1*
APST	EX+2!
COPAYFLG	BC1+2*, EX!
D	EX+2!
D0	EX+2!
DA	BC1+17!, BC1+18, PAR+12, PAR+14, EX!, ACT+2!
DA(1	PAR+12*, PAR+13
DFN	EX+2!
DIE	BC1+17!, PAR+12, EX!
>> DIK	BC1+18, PAR+14
DIR	BC1+5!, BC1+12!, REF+2!, PAR+6!, PAR+8!, EX!
DIR("?"	BC1+5, REF+2
DIR("A"	BC1+4, BC1+12, REF+1, PAR+7
DIR("B"	BC1+4, BC1+12, REF+1, PAR+7
DIR(0	BC1+4, BC1+12, REF+1, PAR+7
DIRUT	BC1+12, EX!
DOB	EX+2!
DR	BC1+17!, PAR+12, EX!
DTOUT	BC1+3, REF, PAR+6!, PAR+8
DUOUT	BC1+3, REF, PAR+6!, PAR+8
DUZ	ACT+1
I	EX!, ACT*
>> IFN	ACT, ACT+1
>> J	STAT*
PS	EX+2!
>> PSIN	AC*, BC1+9, BC1+10, BC1+14, PAR+3, PAR+4
PSOCPN	EX!
PSOCPRX	EX!
>> PSOFROM	APSPRESK+4*
>> PSOLIST	LKUP+2
>> PSOLIST(	PARSE
>> PSONUM("A"	LKUP+2*
PSOOPT	LKUP+1~*
PSOQFLG	LKUP+2*, LKUP+3!
>> PSORXED("I"	PARSE*
>> PSORXED("IRXN"	PARSE*
>> PSORXED("LIST"	PARSE*
>> PSORXED("QFLG"	START+1, INIT, LKUP+2, PARSE
PSOSD	START, STOCK+2!
QDRUG	BC1+2*, BC1+16, PAR+11, EX!
QTY	BC1+2, BC1+16, PAR+11, EX!
RDUZ	EX!
REC	EX!
RX0	STAT*, STAT+2!
>> RX2	STAT*
RXN	EX+2!
RXP	BC+4, BC+6, BC+7, BC1+1, BC1+2, BC1+3, BC1+8, BC1+9, BC1+10, BC1+12 , BC1+14, BC1+17, BC1+18, BC1+19, BC1+23, REF, PAR, PAR+2, PAR+3, PAR+4 , PAR+7, PAR+11, PAR+12, PAR+14, PAR+18, EX!, RXP+1, STAT, ACT, ACT+1 , PCC+1, STOCK+1
SEX	EX+2!
SSN	EX+2!
ST	STAT+1, STAT+2!
TYPE	PAR*, PAR+1, PAR+2, PAR+3, PAR+4, PAR+5, PAR+7, PAR+11, PAR+12, PAR+14 , PAR+18, EX!, ACT+1
U	PCC+1
X	BC+1*, BC+4, BC+5, BC+6, EX!
X1	EX!
X2	EX!
XDT	EX!
XTYPE	BC1+7, REF, PAR*, PAR+2, PAR+3, PAR+4, PAR+5, PAR+7, PAR+11, PAR+12 , PAR+14, EX!, ACT+1
Y	BC+1*, BC1+7, BC1+12, BC1+17, REF, PAR+8, PAR+13, EX!
YY	PAR*, EX!

Name	Comments	DBIA/ICR reference
AC
END
BCI	;S RXP=0
BC	;W !! S DIR("A")="Enter PRESCRIPTION number",DIR("?")="^D HP^PSORESK",DIR(0)="FO" D ^DIR K DIR G:$D(DIRUT) EX
REF
HP	;W !!,"Wand the barcode number of the Rx or manually key in",!,"the number below the barcode or the Rx number."
PAR
PARSE
START
INIT
EMQ
EX
STAT
ACT
PCC	;Data link to IHS/PCC (cancel/reinstate) ;IHS/DSD/ENM 11/29/95
RXP	;S RXP=$O(^PSRX("B",X,RXP)) I $P($G(^PSRX(+RXP,0)),"^",15)=13 G RXP
CP	;S PSOCPRX=$P(^PSRX(RXP,0),"^") S PSO=1,PSODA=RXP,PSOPAR7=$G(^PS(59,PSOSITE,"IB")) W !!,"ATTEMPTING TO REMOVE COPAY CHARGES",! D RXED^PSOCPA
LKUP	;S PSONUM="RX",PSONUM("A")="Return to Stock",PSOQFLG=0 D EN1^APSPNUM I PSOQFLG!($Q(PSOLIST)']"") S PSORXED("QFLG")=1 ;IHS/DSD/ENM 10/01/96
BC1	;
STOCK	;ADD ONE BACK TO STOCK ;IHS/DSD/ENM/POC

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPRESK

Call Graph Total: 9