Routine: PSORXDL

Package	Total	Call Graph
Outpatient Pharmacy	9	REVERSE^PSOBPSU1 NOOR^PSOCAN4 EN^PSOHLSN1 EN^PSOHLUP ^PSOLSET LOCK^PSOORCPY DCV^PSOPKIV1 (ACT,CP,STAT)^PSORESK1 A1^PSORXVW
VA Fileman	4	NOW^%DTC ^DIE ^DIK ^DIR
IHS Changes To Pharmacy	1	CALLPOS^APSPFUNC
Pharmacy Data Management	1	($$L,PSOL,PSOUL,UL)^PSSLOCK
Registration	1	FULL^VALM1

Package

Total

Call Graph

REVERSE^PSOBPSU1 NOOR^PSOCAN4 EN^PSOHLSN1 EN^PSOHLUP ^PSOLSET LOCK^PSOORCPY DCV^PSOPKIV1 (ACT,CP,STAT)^PSORESK1
A1^PSORXVW

VA Fileman

NOW^%DTC ^DIE ^DIK ^DIR

IHS Changes To Pharmacy

CALLPOS^APSPFUNC

Pharmacy Data Management

($$L,PSOL,PSOUL,UL)^PSSLOCK

Registration

FULL^VALM1

Package	Total	Caller Graph
Outpatient Pharmacy	6	PSO RXDL PSOCAN4 PSODGDG1 PSODGDGI PSORESK PSOVER2
IHS Changes To Pharmacy	1	APSQDGDG
IHS Omnicell Pyxis Interface	1	BOPROC

Package

Total

Caller Graph

Outpatient Pharmacy

PSO RXDL PSOCAN4 PSODGDG1 PSODGDGI PSORESK PSOVER2

IHS Changes To Pharmacy

APSQDGDG

IHS Omnicell Pyxis Interface

BOPROC

Name	Comments	DBIA/ICR reference
ULK	;
INVT	;
RESK	;
ULP	;
PASS
INVINC	;
ENQ
KILL
EX
ACT	;adds activity info for deleted rx
REF	;

External References

Name	Field # of Occurrence
NOW^%DTC	ACT+3, RESK+16, REF+15
CALLPOS^APSPFUNC	ENQ+15, RESK+21, REF+20
^DIE	RESK+16, REF+15
^DIK	ENQ+6, ENQ+7, ENQ+9, RESK+19, REF+18
^DIR	PSORXDL+22, PSORXDL+26, PASS+8, RESK+5, INVT+2
REVERSE^PSOBPSU1	EX+3, RESK+24, REF+22
NOOR^PSOCAN4	PASS+7
EN^PSOHLSN1	ENQ+5, RESK+20, REF+19
EN^PSOHLUP	RESK+2
^PSOLSET	PSORXDL+9
LOCK^PSOORCPY	PSORXDL+16
DCV^PSOPKIV1	PASS+9
ACT^PSORESK1	RESK+18, REF+17
CP^PSORESK1	RESK+12, REF+11
STAT^PSORESK1	RESK+3
A1^PSORXVW	PSORXDL+12
$$L^PSSLOCK	PSORXDL+16
PSOL^PSSLOCK	PSORXDL+17
PSOUL^PSSLOCK	ULK+1
UL^PSSLOCK	ULP+1
FULL^VALM1	PSORXDL+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Requires Pharmacy Key (PSORPH) !" Line Location: PSORXDL+8
Function Call: WRITE	Prompt: $C(7),!!,"SITE PARAMETERS MUST BE DEFINED!",! Line Location: PSORXDL+9
Function Call: WRITE	Prompt: !!,$S($G(PSOGGFL):"Refill number "_$G(PSOGGFL),1:"The Original Fill")," has already been released for Rx # "_$P($G(^PSRX(DA,0)),"^") Line Location: PSORXDL+20
Function Call: WRITE	Prompt: !,"Drug: ",$P($G(^PSDRUG(+$P($G(^PSRX(DA,0)),"^",6),0)),"^"),?49,$P($G(^DPT(+$P($G(^PSRX(DA,0)),"^",2),0)),"^") Line Location: PSORXDL+21
Function Call: WRITE	Prompt: ! Line Location: PSORXDL+22
Function Call: WRITE	Prompt: !!?5,"No Action Taken.",! Line Location: PSORXDL+22
Function Call: WRITE	Prompt: !!,"Please wait, Rx is Loading for CMOP Transmission.." Line Location: PASS+0
Function Call: WRITE	Prompt: !!,"Sorry, still loading for CMOP transmission, try again later.",! Line Location: PASS+2
Function Call: WRITE	Prompt: !!?5,"Deleting prescription..",! Line Location: PASS+6
Function Call: WRITE	Prompt: " NO ACTION TAKEN!",! Line Location: PASS+7
Function Call: WRITE	Prompt: !!?5,"NO ACTION TAKEN!",! Line Location: PASS+8
Function Call: WRITE	Prompt: !,"...PRESCRIPTION #"_$P(RX,"^")_" MARKED DELETED!!" Line Location: EX+0
Function Call: WRITE	Prompt: !!?5,"Returning Medication to Stock..",! Line Location: RESK+4
Function Call: WRITE	Prompt: ! Line Location: RESK+5
Function Call: WRITE	Prompt: !!,"No Action Taken!",! Line Location: RESK+5
Function Call: WRITE	Prompt: !,"Rx # "_$P($G(^PSRX(RXP,0)),"^")_" Returned to Stock.",! Line Location: RESK+22
Function Call: WRITE	Prompt: ! Line Location: REF+15
Function Call: WRITE	Prompt: !,"Rx # "_$P($G(^PSRX(RXP,0)),"^")_" Refill Returned to Stock.",! Line Location: REF+19
Function Call: WRITE	Prompt: ! Line Location: INVT+2
Routine Call	DIE Line Location: RESK+16 REF+15
Routine Call	DIR Line Location: PSORXDL+22 PSORXDL+26 PASS+8 RESK+5 INVT+2

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PSORXDL+21, PSORXDL+25
^PS(52.4 - [#52.4]	ENQ+7
^PS(52.41 - [#52.41]	ENQ+9
^PS(52.5 - [#52.5]	PASS, PASS+1, ENQ+6, RESK+19, REF+18
^PS(55 - [#55]	ENQ+14, ENQ+16, RESK+2
^PS(59.7 - [#59.7]	RESK+1
^PSDRUG - [#50]	PSORXDL+21, PSORXDL+24, ENQ+13, RESK+13, RESK+14, REF+12, REF+13, INVINC+1
^PSRX - [#52]	PSORXDL+15, PSORXDL+18, PSORXDL+19, PSORXDL+20, PSORXDL+21, PSORXDL+24, PSORXDL+25, ENQ, ENQ+1, ENQ+2* , ENQ+3, ENQ+4, ENQ+5, ENQ+15, ACT+1, ACT+2, ACT+3, RESK+2, RESK+3, RESK+6 , RESK+7, RESK+8, RESK+9, RESK+12, RESK+22, REF+1, REF+4, REF+5, REF+6, REF+7 , REF+10, REF+11, REF+19
^PSRX("ACP"	ENQ+3!, ACT+1!
^PSRX("AH"	ENQ+4!
^PSRX("AR"	RESK+11, RESK+15!, REF+9, REF+14!
^XUSEC("PSORPH"	PSORXDL+8

Label References

Name	Line Occurrences
ACT	ENQ+3
INVINC	RESK+13, RESK+14, REF+12, REF+13
INVT	RESK+13, REF+12
KILL	PSORXDL+12, PSORXDL+22, PSORXDL+26, PASS+2, PASS+5, PASS+7, PASS+8
PASS	PSORXDL+22
PSORXDL	PSORXDL+16, PSORXDL+17, PSORXDL+22, PSORXDL+26, PASS+2, PASS+5, PASS+7, PASS+9, ENQ+12, ENQ+17
REF	RESK+6
RESK	PASS+5
ULK	PSORXDL+22, PSORXDL+26, PASS+2, PASS+5, PASS+7, PASS+8, PASS+9, ENQ+12, ENQ+17
ULP	PSORXDL+17, PSORXDL+22, PSORXDL+26, PASS+2, PASS+5, PASS+7, PASS+8, PASS+9, ENQ+12, ENQ+17

Name	Field # of Occurrence
^(	ENQ+14, ENQ+16!
^("STA"	RESK+3
^(0	PSORXDL+19, ENQ+14!*, RESK+6, REF+6
^(2	PSORXDL+19, ENQ+3
^(660.1	ENQ+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	KILL!, ACT+3, EX+1!, RESK+16
%H	EX+1!
%I	EX+1!
%Y	KILL!
COM	ENQ+17!, RESK+5!*
COPAYFLG	KILL!, RESK+12, REF+11
D0	KILL!
DA	PSORXDL+10!, PSORXDL+12, PSORXDL+14, PSORXDL+18, PSORXDL+19, PSORXDL+20, PSORXDL+21, PSORXDL+24, PSORXDL+25, PASS , PASS+4, PASS+5, PASS+6, PASS+7, PASS+8, ENQ, ENQ+1, ENQ+3, ENQ+4, ENQ+5 , ENQ+6, ENQ+7, ENQ+8, ENQ+9!, ENQ+10, ENQ+11, ENQ+12, KILL!, ACT+2, ACT+3* , EX+1, RESK+16, RESK+19, REF+15, REF+18*
DA(1	REF+15*
>> DFN	ENQ+14*, ENQ+16
DI	KILL!
DIC	KILL!, EX+1!
DIC("S"	PSORXDL+11*, PSORXDL+12!
DIE	KILL!, EX+1!, RESK+16!, REF+15!
DIG	KILL!
DIH	KILL!
DIK	ENQ+6, ENQ+7, ENQ+9!, RESK+19!, REF+18!*
DIR	PSORXDL+22!, PSORXDL+24!, PASS+8!, KILL+1!, RESK+5!, INVT+2!
DIR("?"	PSORXDL+23, RESK+5, INVT+3*
DIR("A"	PSORXDL+22, PSORXDL+24, PSORXDL+25, PASS+8, RESK+5, INVT+2
DIR("B"	PSORXDL+22, PSORXDL+26, PASS+8, INVT+2
DIR(0	PSORXDL+22, PSORXDL+24, PASS+8, RESK+5, INVT+2*
DIRUT	PSORXDL+26, PASS+7, PASS+8, KILL+1!, RESK+5, INVT+2!
DIU	KILL!
DIV	KILL!
DR	KILL!, RESK+16, REF+15
DT	ACT+3
DTOUT	PSORXDL+26, KILL+1!
DUOUT	KILL+1!
DUZ	PSORXDL+8, ACT+3
FDA	ACT+2*, EX+1!
I	ENQ+14, ENQ+16, KILL!, ACT+1*, EX+1!
IFN	KILL+1!
II	KILL!
INCOM	PASS+9~*
J	KILL!
N	KILL!
PHYS	KILL!
>> PKI1	PASS+9
PS	PSORXDL+11*, KILL!
PSDEL	PSORXDL+11*, ENQ+17, KILL!
PSIN	KILL!, RESK+1*, RESK+8, REF+6
PSOABCDA	PSORXDL+10!, PASS+7, PASS+8!, ENQ+8!, ENQ+10, ENQ+11!, KILL+1!
PSOCPRX	KILL+1!
PSODA	KILL+1!
PSODEF	KILL!, RESK+1!
PSODEFLG	PSORXDL+10!, PASS+5, KILL!, RESK+3, RESK+5, RESK+12, RESK+13, REF+11, REF+12, INVT+2
PSODLCOM	KILL!, RESK+5!*
PSODT	KILL+1!
PSOGG	PSORXDL+18*, KILL!
PSOGGFL	PSORXDL+18*, PSORXDL+19, PSORXDL+20, KILL+1!
PSOHLDAH	PSORXDL+10!, PASS+4*, PASS+6, KILL!
PSOHLRE	PSORXDL+10!, PASS+4*, PASS+6, KILL!
PSOIB	ENQ*, KILL!
PSOINVTX	KILL+1!, RESK+13, REF+12, INVT+1, INVT+2
PSOLOCRL	KILL+1!, RESK+9!, RESK+10, RESK+11, RESK+15, REF+7, REF+8, REF+9, REF+14
PSOLOUD	RESK+2*!
PSOMSG	PSORXDL+17!, KILL!
PSONODF	KILL+1!
PSONOOR	ENQ+5, KILL+1!
>> PSOPAR	PSORXDL+9
PSOPCECT	KILL!, RESK+1*
PSOPFS	KILL+1!, RESK+12~, REF+11~
PSOPLCK	PSORXDL+16*!, PSORXDL+17!, KILL!
PSOREF	PSORXDL+10!, KILL!, ACT+1*, EX+3
>> PSORX("INTERVENE"	ENQ+12, ENQ+17
PSORXDAC	PASS~*, PASS+1
PSORXDFN	PSORXDL+15*, PSORXDL+16, KILL!, ULP+1
PSOWHERE	KILL+1!, RESK+9!, RESK+11, RESK+13, RESK+14, RESK+15, REF+9, REF+12, REF+13, REF+14
PSOXXDEL	PSORXDL+11*, KILL+1!
PSOXYZ	PASS~, PASS+1*
PSOXYZF	PASS!, PASS+1, PASS+2!, PASS+3!, KILL+1!
>> PSOZVER	ENQ+12
PSROF	KILL+1!, REF+1*
>> PSVFLAG	ENQ+12, ENQ+17
QDRUG	KILL+1!, RESK+6*, RESK+13, RESK+14, REF+12, REF+13, INVINC+1
QTY	PSORXDL+10!, KILL+1!, RESK+6, REF+10, INVINC+1
REL	PSORXDL+18, PSORXDL+19, PSORXDL+20, PSORXDL+21, PSORXDL+22, PASS+4, PASS+5, PASS+6*, KILL+1!
RESK	KILL!, RESK+1*
RFDATE	KILL!
RFL	KILL!
RFL1	KILL!
RX	ENQ+1*, ENQ+13, ENQ+14, ENQ+17!, KILL!, EX
RX0	KILL!
RX2	KILL!
RXF	ACT+1*, ACT+3, EX+1!
RXN	PSORXDL+14, PSORXDL+15, PSORXDL+17, ENQ+1, ENQ+2, ENQ+3, ENQ+4, ENQ+6, ENQ+7, ENQ+9 , ENQ+14, ENQ+15, ENQ+16, ENQ+17!, KILL!, ACT+1, ACT+2, ACT+3, EX+1, EX+3 , ULK+1
RXO	KILL!
RXP	PASS+5*, KILL+1!, RESK+2, RESK+3, RESK+6, RESK+7, RESK+8, RESK+9, RESK+11, RESK+12 , RESK+15, RESK+16, RESK+19, RESK+20, RESK+21, RESK+22, RESK+24, REF+1, REF+4, REF+5 , REF+6, REF+7, REF+9, REF+10, REF+11, REF+14, REF+15, REF+18, REF+19, REF+20 , REF+22
SIGOK	KILL+1!
ST	KILL!
ST0	KILL!
STAT	ENQ+17!
TYPE	KILL+1!, REF+1!*, REF+2, REF+4, REF+5, REF+6, REF+7, REF+9, REF+10, REF+11 , REF+14, REF+15, REF+20, REF+22
U	ENQ+15
X	KILL!
XTYPE	KILL+1!, RESK+7, REF+3
Y	PSORXDL+22, PSORXDL+26, PASS+9, ENQ+2, KILL!, RESK+5, INVT+2
Z	KILL!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORXDL

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 8

Entry Points