Routine: PSOREF

Information

PSOREF ;BIR/SAB-refill data entry ;24-Jun-2013 10:51;PLS

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Outpatient Pharmacy	7	^PSOBUILD ^PSOCMOPT ACT^PSOORNE2 BLD^PSOORUT1 ^PSOREF0 (,IHSSET)^PSOREF1 $$LMREJ^PSOREJU1
IHS Changes To Pharmacy	2	REMMSG^APSPFUNC $$SCREEN^APSPMULT
VA Fileman	2	$$GET1^DIQ ^DIR
Pharmacy Data Management	1	(PSOL,PSOUL)^PSSLOCK
Registration	1	(FULL,PAUSE)^VALM1

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSPNE4
Order Entry Results Reporting	1	ORCACT0

Entry Points

Name	Comments	DBIA/ICR reference
OERR	;single refil
EOJ	;
BCREFX
REFILL(PLACER)	;passes flag to CPRS for front door refill request	ICR #2399 Status: Active Usage: Private
ULK
SPEEDX
ASK
SPEED	;speed refill
BCREF	;barcode refills

External References

Name	Field # of Occurrence
REMMSG^APSPFUNC	OERR+13, SPEED+15
$$SCREEN^APSPMULT	REFILL+6
$$GET1^DIQ	OERR+4, SPEED+9, SPEED+11, SPEED+12, ASK+10
^DIR	OERR+17, SPEED+4, SPEED+6, SPEED+22, ASK+4
^PSOBUILD	OERR+17, SPEED+33, BCREFX
^PSOCMOPT	OERR+8, SPEED+19, ASK+14
ACT^PSOORNE2	OERR+17
BLD^PSOORUT1	SPEED+33, BCREFX
^PSOREF0	OERR+16, SPEED+31, ASK+19
^PSOREF1	OERR+15, SPEED+27, ASK+16
IHSSET^PSOREF1	SPEED+28
$$LMREJ^PSOREJU1	OERR+1, SPEED+9, ASK+10
PSOL^PSSLOCK	OERR+10, SPEED+16, ASK+11
PSOUL^PSSLOCK	EOJ+2, ULK
FULL^VALM1	OERR+14, SPEED+7, SPEED+29, BCREF+1, ASK+8, ASK+17
PAUSE^VALM1	SPEED+9, SPEED+11, SPEED+16, SPEED+17, SPEED+18, SPEED+19, SPEED+20, ASK+10, ASK+11, ASK+12 , ASK+13, ASK+14, ASK+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: OERR+17
Function Call: WRITE	Prompt: $C(7),!!,"Rx "_$$GET1^DIQ(52,$P(PSOLST(ORN),"^",2),.01)_" has OPEN/UNRESOLVED 3rd Party Payer Reject!" Line Location: SPEED+9
Function Call: WRITE	Prompt: $C(7),!!,"A Reprint Label has been requested!" Line Location: SPEED+17
Function Call: WRITE	Prompt: $C(7),!!,"A Partial has already been requested!" Line Location: SPEED+18
Function Call: WRITE	Prompt: $C(7),!!,"A CMOP fill has already been requested for Rx "_$P($G(^PSRX($P(PSOLST(ORN),"^",2),0)),"^") Line Location: SPEED+19
Function Call: WRITE	Prompt: $C(7),!!,"Rx is being pulled from suspense!" Line Location: SPEED+20
Function Call: WRITE	Prompt: ! Line Location: SPEED+22
Function Call: WRITE	Prompt: $C(7),!!,"Rx "_$$GET1^DIQ(52,$P(PSOLST(ORN),"^",2),.01)_" has OPEN/UNRESOLVED 3rd Party Payer Reject!" Line Location: ASK+10
Function Call: WRITE	Prompt: $C(7),!!,"A Reprint Label has been requested for Rx "_$P(^PSRX($P(PSOLST(ORN),"^",2),0),"^"),! Line Location: ASK+12
Function Call: WRITE	Prompt: $C(7),!!,"A Partial has already been requested for Rx "_$P(^PSRX($P(PSOLST(ORN),"^",2),0),"^"),! Line Location: ASK+13
Function Call: WRITE	Prompt: $C(7),!!,"A CMOP fill has already been requested for Rx "_$P($G(^PSRX($P(PSOLST(ORN),"^",2),0)),"^") Line Location: ASK+14
Function Call: WRITE	Prompt: $C(7),!!,"Rx "_$P(^PSRX($P(PSOLST(ORN),"^",2),0),"^")_" is being pulled from suspense!" Line Location: ASK+15
Routine Call	DIR Line Location: OERR+17 SPEED+4 SPEED+6 SPEED+22 ASK+4

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.41 - [#52.41]	REFILL+21
^PS(59 - [#59]	REFILL+14
^PSDRUG - [#50]	REFILL+5, REFILL+8, REFILL+9, REFILL+10, REFILL+14, REFILL+16
^PSRX - [#52]	OERR+12, SPEED+14, SPEED+16, SPEED+19, SPEED+21, SPEED+22, ASK+11, ASK+12, ASK+13, ASK+14 , ASK+15, REFILL+4, REFILL+5, REFILL+8, REFILL+9*, REFILL+12, REFILL+13, REFILL+17, REFILL+19, REFILL+20 , REFILL+22

Label References

Name	Line Occurrences
ASK	ASK+23
BCREF	SPEED+5
BCREFX	ASK+4, ASK+5, ASK+6
EOJ	OERR+15, OERR+17, SPEED+30, ASK+18
SPEEDX	SPEED+7
ULK	SPEED+17, SPEED+18, SPEED+19, SPEED+20, SPEED+21, SPEED+27, SPEED+31, ASK+12, ASK+13, ASK+14 , ASK+15, ASK+16, ASK+19

Naked Globals

Name	Field # of Occurrence
^("I"	REFILL+14
^("STA"	REFILL+5
^(0	REFILL+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APSPDRG	OERR+2~, OERR+12, OERR+13, SPEED+1~, SPEED+14, SPEED+15
ASK	SPEED+7, SPEED+26, SPEED+27, SPEEDX+1!, ASK+8, ASK+16, BCREFX!
BCREF	ASK+8*, BCREFX!
CLOZPAT	REFILL+10*, REFILL+11, REFILL+12!
DIR	OERR+17!, SPEED+3!, SPEED+4!, SPEED+6!, SPEED+7!, SPEED+9!, SPEED+11!, SPEED+22!, BCREF+1!, ASK+7! , ASK+10!, BCREFX!
DIR("?"	SPEED+3, ASK+1, ASK+2, ASK+3
DIR("A"	OERR+17, SPEED+3, SPEED+6, SPEED+22, ASK*
DIR("B"	SPEED+3*
DIR(0	OERR+17, SPEED+3, SPEED+6, SPEED+22, ASK*
DIRUT	OERR+17!, SPEED+3!, SPEED+4, SPEED+6!, SPEED+7!, BCREF+1!, ASK+6, ASK+7!, BCREFX!
>> DIV	REFILL+5*, REFILL+14
DT	REFILL+12, REFILL+14, REFILL+19, REFILL+20
DTOUT	OERR+17!, SPEED+4!, SPEED+6!, SPEED+7!, BCREF+1!, ASK+4, ASK+7!
DUOUT	OERR+17!, SPEED+4!, SPEED+6!, BCREF+1!, ASK+4
LFD	EOJ+1!, SPEEDX!
LST	SPEED+2!, SPEED+7, SPEED+8, SPEEDX+1!, BCREF+1!, ASK+5, ASK+6, ASK+9, ASK+22, BCREFX!
MAX	EOJ+1!, SPEEDX!
MIN	EOJ+1!, SPEEDX!
NODE	EOJ+1!, SPEEDX!
>> ORD	SPEED+8, ASK+9
>> ORN	EOJ+2, OERR+1, OERR+4, OERR+5, OERR+6, OERR+7, OERR+8, OERR+10, OERR+12, OERR+14 , SPEED+8, SPEED+9, SPEED+11, SPEED+12, SPEED+14, SPEED+16, SPEED+17, SPEED+18, SPEED+19, SPEED+20 , SPEED+21, SPEED+22, SPEED+25, SPEED+29, ASK+9, ASK+10, ASK+11, ASK+12, ASK+13, ASK+14 , ASK+15, ASK+16, ASK+17, ULK
PLACER	REFILL~, REFILL+3, REFILL+4
PS	EOJ+1!, SPEEDX!
PSOBBC	BCREFX!
PSOBBC(	ASK+21, ASK+22*
>> PSOCNT	SPEED+2, SPEED+6, ASK+20
PSODEA	REFILL+2~, REFILL+5*, REFILL+7, REFILL+11
PSODRG	REFILL+2~, REFILL+5*, REFILL+6, REFILL+8, REFILL+9, REFILL+10, REFILL+14, REFILL+16
PSODRUG0	REFILL+2~, REFILL+5*
PSOERR	EOJ+1!, SPEEDX!
PSOFDR	SPEED+6!, SPEEDX+1!, BCREFX!
>> PSOFROM	OERR+14, SPEED+29, ASK+17*
PSOID	OERR+15!
>> PSOJ	REFILL+17*
PSOLC	REFILL+2~
PSOLIST	EOJ+1!, SPEEDX!
>> PSOLST(	EOJ+2, OERR+1, OERR+4, OERR+5, OERR+6, OERR+7, OERR+8, OERR+10, OERR+12, OERR+14 , SPEED+8, SPEED+9, SPEED+11, SPEED+12, SPEED+14, SPEED+16, SPEED+17, SPEED+18, SPEED+19, SPEED+20 , SPEED+21, SPEED+22, SPEED+25, SPEED+29, ASK+9, ASK+10, ASK+11, ASK+12, ASK+13, ASK+14 , ASK+15, ASK+16, ASK+17, ASK+20, ULK
PSOMSG	EOJ+1!, OERR+10!, SPEED+16!, SPEED+17!, ASK+11!, ASK+12!
PSOOELSE	SPEED+7!, SPEED+32, SPEEDX+1!, ASK+7!, ASK+8, BCREFX!
PSOREF	EOJ+1!, SPEED+6!, SPEEDX!, SPEEDX+1!, BCREFX!
PSOREF("DFLG"	OERR+14, OERR+15, SPEED+7, SPEED+29, SPEED+30, ASK+16, ASK+17*, ASK+18
PSOREF("IRXN"	OERR+14, SPEED+25, SPEED+29, ASK+16, ASK+17*
PSOREF("QFLG"	OERR+14*, SPEED+7, SPEED+8, SPEED+26, SPEED+27, ASK+9
PSORFRM	REFILL+2~, REFILL+5, REFILL+17, REFILL+18
>> PSORX("BAR CO	DE" , EOJ+1!, SPEEDX!
>> PSORX("FILL D	ATE" , EOJ+1!, OERR+14!, SPEED+2!, SPEEDX!, SPEEDX+2!
>> PSORX("MAIL/WINDOW"	SPEEDX+2!
>> PSORX("METHOD	OF PICK-UP" , SPEEDX+2!
PSORXED	OERR+17!, SPEED+33, SPEEDX+1!, BCREFX!*
PSOXFLAG	OERR+8!, OERR+9!, SPEED+19!, SPEED+20!, ASK+14!, ASK+15!
>> PTRX	OERR+8, SPEED+19, ASK+14*
REF	EOJ+1!, SPEEDX!
RF	EOJ+1!, SPEEDX!
RX	ASK+20*, ASK+21, ASK+22, BCREFX!
>> RX0	REFILL+5*, REFILL+17
>> RXFL(	OERR+8, SPEED+19, ASK+14
RXN	EOJ+1!, OERR+14~, SPEED+29~, SPEEDX!, ASK+17~, REFILL+2~, REFILL+4*, REFILL+5, REFILL+8, REFILL+9 , REFILL+12, REFILL+13, REFILL+17, REFILL+19, REFILL+20, REFILL+21, REFILL+22
RXO	EOJ+1!, SPEEDX!
RXP	EOJ+1!, SPEEDX!
>> RXPR(	OERR+6, SPEED+18, ASK+13
>> RXRP(	OERR+5, SPEED+17, ASK+12
>> RXRS(	OERR+7, SPEED+20, ASK+15
RXS	EOJ+1!, SPEEDX!
SD	EOJ+1!, SPEEDX!
SPEED	SPEED+7, SPEEDX+1!, ASK+8, BCREFX!
ST	REFILL+2~, REFILL+5*, REFILL+15
U	OERR+4, SPEED+11, REFILL+22
VAERR	EOJ+1!, SPEEDX!
>> VALMBCK	OERR+1, OERR+4, OERR+5, OERR+6, OERR+7, OERR+8, OERR+10, OERR+15, OERR+17, SPEED+2* , SPEED+4, SPEED+6, SPEED+30, SPEED+32, SPEEDX+1, ASK+4, ASK+5, ASK+6, ASK+18, BCREFX+1
VALMCNT	SPEED+2~
>> VALMSG	OERR+1, OERR+4, OERR+5, OERR+6, OERR+7, OERR+8, OERR+10, SPEED+2*
>> X	ASK+5, ASK+20
>> Y	SPEED+5, SPEED+7

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOREF

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: