Routine: PSXEDIT

Package	Total	Call Graph
VA Fileman	2	NOW^%DTC ^DIE
CMOP	1	TEST^PSXNEW
Outpatient Pharmacy	1	EN1^PSONEW2

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSORXED

Entry Points

Name	Comments	DBIA/ICR reference
PSXDIE	;
UNSUS	; If Rx is suspended and is not CMOP, ensure is not suspended as CMOP
DRUG
TRADE	; Did tradename change?
UNLOCK
SUS	; If Rx is suspended and checks out to be CMOP suspend as CMOP
ACT	; If no act node, make one .... determine last entry
EDITCK	; Called from PROCESS+9^PSORXED to prevent editing CMOP Rx's
GETCMOP	; Any CMOP nodes?
PSXDIEX	;
REFILL
CHECK	;

External References

Name	Field # of Occurrence
NOW^%DTC	SUS+9
^DIE	REFILL+2, SUS+5, UNSUS+2
EN1^PSONEW2	UNLOCK
TEST^PSXNEW	TRADE+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Now Editing Rx # ",$P(PSORXED("RX0"),"^") Line Location: PSXDIE+3
Function Call: WRITE	Prompt: !,"ISSUE DATE: ",PSXIDT," (No editing)",!,"FILL DATE: ",PSXFDT," (No editing)" Line Location: PSXDIE+12
Function Call: WRITE	Prompt: !,"DRUG: ",$P(^PSDRUG($P(^PSRX(PSORXED("IRXN"),0),"^",6),0),"^")," (No editing)" Line Location: PSXDIE+13
Routine Call	DIE Line Location: REFILL+2 SUS+5 UNSUS+2

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("DD"	PSXDIE+10, PSXDIE+11
^PS(52.5 - [#52.5]	GETCMOP+9, GETCMOP+10, SUS+4!, UNSUS+3*
^PSDRUG - [#50]	PSXDIE+7, PSXDIE+13
^PSDRUG("AQ"	DRUG, TRADE+5
^PSRX - [#52]	EDITCK+2, DRUG, GETCMOP+1, GETCMOP+2, GETCMOP+4, GETCMOP+12, GETCMOP+13, GETCMOP+14, PSXDIE+6, PSXDIE+10 , PSXDIE+11, PSXDIE+13, TRADE+1, TRADE+2, TRADE+3, TRADE+5, TRADE+6, TRADE+7, SUS+4, SUS+6 , SUS+8, SUS+11, UNSUS+3, ACT+1, ACT+2, ACT+3

Label References

Name	Line Occurrences
ACT	TRADE+1, SUS+3
PSXDIE	UNLOCK+2
PSXDIEX	DRUG+1, PSXDIE+1, REFILL+3, UNLOCK+1, TRADE+6, TRADE+8, SUS+3
UNLOCK	REFILL+3

Naked Globals

Name	Field # of Occurrence
^(	GETCMOP+9, GETCMOP+12
^(0	GETCMOP+10, ACT+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	SUS+11, SUS+12!
A	TRADE+2, SUS+8, PSXDIEX+3!, ACT+3*
A1	TRADE+2, SUS+8, PSXDIEX+3!, ACT+3*
ACT	PSXDIEX+3!
>> D1	CHECK+1
DA	PSXDIE+5, SUS+1~, SUS+5, UNSUS+2*
DIC	PSXDIE+4!
DIE	PSXDIE+4!, PSXDIE+5, REFILL+2!, SUS+5!, UNSUS+2*!, PSXDIEX+3!
DR	PSXDIE+4!, PSXDIE+14, PSXDIE+15, PSXDIE+16, REFILL, REFILL+2!, SUS+5, UNSUS+2, PSXDIEX+3!
DR(2	REFILL+1*
DRG	UNLOCK!
DT	TRADE+3
>> DTOUT	REFILL+3
DUZ	TRADE+3, SUS+11
MSG	PSXDIE+4!, PSXDIE+7, PSXDIE+8, PSXDIE+15, REFILL+1, PSXDIEX+3!
PPL	EDITCK+1~, SUS+3
>> PSOPAR	PSXDIE+13, PSXDIE+15, PSXDIE+16
>> PSORXED	UNLOCK
>> PSORXED("DFLG"	PSXDIE+1*, UNLOCK+1
>> PSORXED("IRXN"	EDITCK+2, PSXDIE+6, PSXDIE+13
>> PSORXED("QFLG"	REFILL+3, UNLOCK+1, UNLOCK+2, UNLOCK+3*
>> PSORXED("RX0"	PSXDIE+3
PSX	GETCMOP+1*, GETCMOP+2, GETCMOP+4, PSXDIEX+1!
PSX(	GETCMOP+5, GETCMOP+12, CHECK+1
PSX(0	GETCMOP+13*, PSXDIE+12, PSXDIE+14
PSX50	PSXDIE+6*, PSXDIE+7, PSXDIEX+1!
PSXA	PSXDIEX+1!, ACT+2*, ACT+4!
PSXB	TRADE+3, SUS+11, PSXDIEX+1!, ACT+2*
>> PSXEXIT	REFILL+3
PSXFDT	PSXDIE+11*, PSXDIE+12, PSXDIEX+2!
PSXFILL	EDITCK+2, GETCMOP+12, GETCMOP+14, TRADE+6, TRADE+7, SUS+10*, SUS+11, PSXDIEX+2!
PSXFLAG	GETCMOP+6, GETCMOP+11, PSXDIE+1, PSXDIEX+2!
PSXFLAGG	GETCMOP+3*, PSXDIE+13, PSXDIE+15, PSXDIEX+3!
PSXFROM	EDITCK+3, TRADE+9, PSXDIEX+1!
PSXHLD	GETCMOP+7, PSXDIEX+3!
PSXIDT	PSXDIE+10*, PSXDIE+12, PSXDIEX+1!
PSXM	GETCMOP+14*, TRADE+8, PSXDIEX+2!
PSXM1	TRADE+7*, TRADE+8, PSXDIEX+2!
>> PSXOUT	DRUG*
>> PSXPPL	TRADE+10*
PSXREL	PSXDIEX+1!
PSXREL1	PSXDIEX+3!
PSXRFL	UNLOCK!
PSXRXF	PSXDIEX+2!
PSXST	GETCMOP+9*, GETCMOP+10, TRADE+8, SUS+3, SUS+4, SUS+5, UNSUS+1, UNSUS+2, UNSUS+3, PSXDIEX+1!
PSXST1	GETCMOP+10*, GETCMOP+11, GETCMOP+12, GETCMOP+13, PSXDIEX+1!
PSXSTAT	GETCMOP+2*, GETCMOP+3, GETCMOP+5, GETCMOP+6, PSXDIEX+2!, PSXDIEX+3!
PSXSUSDT	GETCMOP+10*, GETCMOP+12, PSXDIEX+2!
>> PSXSYS	SUS+2
PSXTN	EDITCK+2*, TRADE+1, TRADE+3, PSXDIEX+2!
PSXTN1	TRADE+1*, TRADE+8, PSXDIEX+1!
PSXYES	DRUG, DRUG+1, TRADE+5, TRADE+8, PSXDIEX+3!
>> RFD	REFILL
T	SUS+6*, SUS+7, SUS+12!
T1	SUS+7*, SUS+11, SUS+12!
X	REFILL+2!
>> Y	PSXDIE+10, PSXDIE+11, REFILL+3, CHECK+1*
>> ZFILL	GETCMOP+4*, GETCMOP+5
ZPPL	PSXDIEX+3!
ZRX	EDITCK+2*, DRUG, GETCMOP+1, GETCMOP+2, GETCMOP+4, GETCMOP+9, GETCMOP+12, GETCMOP+13, GETCMOP+14, PSXDIE+5 , PSXDIE+10, PSXDIE+11, TRADE+1, TRADE+2, TRADE+3, TRADE+5, TRADE+6, TRADE+7, TRADE+10, SUS+4 , SUS+6, SUS+8, SUS+11, UNSUS+3, PSXDIEX+1!, ACT+1, ACT+2, ACT+3
ZZ	GETCMOP+12*, PSXDIEX+2!
ZZ1	PSXDIEX+3!

Customize PDF page

Package: CMOP

Routine: PSXEDIT

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: