Routine: PSOCMOP

Package	Total	Call Graph
Outpatient Pharmacy	4	REVERSE^PSOBPSU1 UNMARK^PSOCMOP ^PSOCMOPA EN^PSOHLSN1
VA Fileman	4	NOW^%DTC FILE^DICN ^DIE ^DIK
Kernel	1	$$PATCH^XPDUTL
MailMan	1	^XMD
Pharmacy Data Management	1	DRG^PSSHUIDG

Package

Total

Call Graph

Outpatient Pharmacy

REVERSE^PSOBPSU1 UNMARK^PSOCMOP ^PSOCMOPA EN^PSOHLSN1

VA Fileman

NOW^%DTC FILE^DICN ^DIE ^DIK

Kernel

$$PATCH^XPDUTL

MailMan

^XMD

Pharmacy Data Management

DRG^PSSHUIDG

Package	Total	Caller Graph
Outpatient Pharmacy	12	PSO126IX PSOCMOP PSOCMOPA PSOCMOPC PSOPOS13 PSORESUS PSORXL PSORXL1 PSOSUCLE PSOSUTL PSOUTL PSOUTLA
CMOP	2	PSX41PST PSXRESUB

Package

Total

Caller Graph

Outpatient Pharmacy

PSO126IX PSOCMOP PSOCMOPA PSOCMOPC PSOPOS13 PSORESUS PSORXL PSORXL1
PSOSUCLE PSOSUTL PSOUTL PSOUTLA

CMOP

PSX41PST PSXRESUB

Entry Points

Name	Comments	DBIA/ICR reference
RESET	;
UNMARK	;Entry point to unmark drug for CMOP dispense
TOP	;
SUS	;
ACT
FILTRAN(RX,RFD)	; Test fill's CMOP tran status, return 1 if OK to send
SUS1	;
COMM(RXN,COMM)	;EP process problem message to g.cmop managers
A
RXL
LOCK
CMPRXTYP(SUSDA)	; given suspense record SUSDA returns RX CMOP TYPE C - CS, N -Non-CS	ICR #2476 Status: Active Usage: Private
START	; Establish CMOP PPL
S	; Auto-Suspend CMOPS
KCMPX(SUS,VAL)	; Kill ^PS(52.5,"CMP",VAL index given SUS
SCMPX(SUS,VAL)	; Set ^PS(52.5,"CMP",VAL index given SUS
PIECE(REC,DLM,VP)	; VP="Variable^Piece" ; Set Variable V = piece P of REC using delimiter DLM
NOW()
PUT(REC,DLM,VP)	; VP="Variable^Piece" ; pass by reference D PUT^PSOCMOP(.REC,DLM,VP) ; Set Variable V into piece P of REC using delimiter DLM
TEST		ICR #2476 Status: Active Usage: Private
LOOP
D1

Name	Field # of Occurrence
NOW^%DTC	ACT+3, UNMARK+5, NOW
FILE^DICN	LOCK+2
^DIE	LOOP+22
^DIK	SUS+3
REVERSE^PSOBPSU1	LOCK+9
UNMARK^PSOCMOP	LOOP+4
^PSOCMOPA	FILTRAN+3
EN^PSOHLSN1	LOCK+7
DRG^PSSHUIDG	UNMARK+7
^XMD	COMM+4
$$PATCH^XPDUTL	UNMARK+7

Name	Line Occurrences
Function Call: WRITE	Prompt: !,RX_" REINSTATED -- " Line Location: SUS+1
Function Call: WRITE	Prompt: !!,"RX# ",$P(^PSRX(RXN,0),"^")_" HAS BEEN SUSPENDED for CMOP Until "_LFD_"." Line Location: LOCK+4
Routine Call	DIE Line Location: LOOP+22

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)
^PS(52.5 - [#52.5]	SUS+2, LOCK+2!, CMPRXTYP+3, KCMPX+2, KCMPX+4!, SCMPX+2, SCMPX+4*
^PS(55 - [#55]	TEST+5
^PSDRUG - [#50]	LOOP+4, LOOP+6, LOOP+8, UNMARK+2, UNMARK+3, UNMARK+4, UNMARK+5, UNMARK+6, CMPRXTYP+4
^PSDRUG("AQ"	LOOP+2, UNMARK+2!
^PSRX - [#52]	TEST+5, LOOP+2, LOOP+7, LOOP+15, LOOP+17, LOOP+19, LOOP+21, LOOP+24, LOOP+30, SUS+2 , SUS+4, LOCK+1, LOCK+2, LOCK+3, LOCK+4, LOCK+5, LOCK+6, ACT, ACT+1, ACT+2 , ACT+3*, CMPRXTYP+3

Name	Line Occurrences
$$CMPRXTYP	KCMPX+2, SCMPX+2
$$FILTRAN	LOOP+27
ACT	LOCK+3
COMM	LOOP+9
D1	TOP+4, LOOP+35, RESET+1, RESET+3, S+4, A
PIECE	KCMPX+3, SCMPX+3
RESET	TEST+6
START	TOP+2
SUS	S+2
TEST	TOP+1, TOP+3, SUS1+2, A+1
TOP	RXL+1

Name	Field # of Occurrence
^("STA"	LOOP+17
^(0	LOOP+21, UNMARK+6*
^(2	LOOP+21
^(3	SUS+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ACT+3, ACT+4!, UNMARK+1~, UNMARK+5, UNMARK+8!, NOW
%H	ACT+4!
%I	ACT+4!
ACT	TEST~, SUS+2*
B	TEST~
C	TEST~
CK	TEST~, LOOP+2*, LOOP+4, LOOP+6, LOOP+8, UNMARK+2, UNMARK+3, UNMARK+4, UNMARK+5, UNMARK+6 , UNMARK+7
CMOP	FILTRAN+1~
CMOP(	FILTRAN+4, FILTRAN+5
CNT	TEST~, LOOP*, D1!
COMM	TEST~, LOOP+6~, LOOP+9, LOCK+6*, LOCK+7!, COMM~
COMM(1	LOOP+7*
COMM(2	LOOP+8*
COUNT	D1!
DA	TOP+3, LOOP+22, S+1~, S+2, SUS+2, SUS+3, SUS+4, LOCK, LOCK+1, LOCK+2 , ACT, ACT+1, ACT+2, ACT+3, SUS1+2, FILTRAN+1~, FILTRAN+2*
DD	LOCK+2!
DEA	CMPRXTYP+2~, CMPRXTYP+4*
DFLG	TEST~, SUS+2, D1!
DFN	TEST+1~, TEST+5*!, KCMPX+1~, KCMPX+4, SCMPX+1~, SCMPX+4
DIC	LOCK*, ACT+4!
DIC("DR"	LOCK+1*
DIC(0	LOCK*
DIE	LOOP+22!*, ACT+4!
>> DIK	SUS+3*
DIROUT	D1!
DIRUT	D1!
DIV	KCMPX+1~, KCMPX+4, SCMPX+1~, SCMPX+4
DLM	PIECE~, PIECE+2, PUT~, PUT+4
DO	LOCK+2!
DR	LOOP+22*, ACT+4!
DRGDA	CMPRXTYP+2~, CMPRXTYP+3*, CMPRXTYP+4
DT	TEST+6, LOOP+21
DTOUT	D1!
DUOUT	D1!
DUZ	ACT+3, UNMARK+5
EXDT	D1!
F	KCMPX+1~, KCMPX+2, KCMPX+3, SCMPX+1~, SCMPX+2, SCMPX+3
FDA	ACT+1*, ACT+4!
FLAG	TEST~, TEST+2, LOOP, LOOP+33*, D1!
FLD	D1!
FROM	RXL~*, RXL+1
I	TEST~, ACT, ACT+4!, CMPRXTYP+4
>> IR	ACT+1, ACT+2, ACT+3
L	D1!
>> LFD	LOCK+3*, LOCK+4, LOCK+5, LOCK+6, ACT+3
MW	TEST~, LOOP+24*
NEWDT	TEST~
P	PIECE+2~, PUT+3~, PUT+4
P1	TEST~, TEST+2, LOOP
P2	TEST~, TEST+2, LOOP+33
PDUZ	D1!
PI	TEST~, S+2*, D1!
PPL	TOP+1, TOP+2, TOP+3, TOP+4, TEST+4, LOOP, LOOP+34!, RESET+3, SUS1+1~, SUS1+2 , SUS1+3, A*
>> PPL1	A
PSOCMOP	D1+1!
PSOCPDA	LOOP+22*!
>> PSOFROM	TOP+1, RESET+3, RXL
PSOMC	TEST+5*, TEST+6!
PSOMDT	TEST+5*, TEST+6!
PSONAME	LOCK+2*!
>> PSORX("PSOL"	TOP+1, TOP+4, A
>> PSOSITE	LOCK+1
>> PSOX("FILL DA	TE" , LOOP+21
REC	PIECE~, PIECE+2, PUT~, PUT+4*
REF	D1+1!
REL	TEST~, LOOP+30*, LOOP+31, RESET+3
REPRINT	D1+1!
RFD	TEST~, LOOP+19*, LOOP+20, LOOP+24!, LOOP+27, LOOP+30!, FILTRAN~, FILTRAN+4, FILTRAN+5
>> RFD1	SUS+4*, LOCK+1
RFDATE	D1+1!
RFL1	D1+1!
RFLL	D1+1!
RX	TEST~, LOOP*, LOOP+2, LOOP+7, LOOP+9, LOOP+11, LOOP+13, LOOP+15, LOOP+17, LOOP+19 , LOOP+20, LOOP+21, LOOP+22, LOOP+24, LOOP+27, LOOP+30, LOOP+33, SUS+1, FILTRAN~, FILTRAN+2 , KCMPX+1~, SCMPX+1~
RX("CMOP"	LOOP+33, LOOP+34, RESET+1, RESET+3, S+2, SUS1+4
RX("PSO"	LOOP*, LOOP+34!
RX0	TEST~, SUS+2*
RX1	D1+1!
RX1("CMOP"	LOOP+34*, SUS1+4
RXDA	CMPRXTYP+2~, CMPRXTYP+3*
RXF	ACT*, ACT+3, ACT+4!
>> RXFL(	LOOP+20
>> RXLTOP	TOP+3
RXN	TEST~, SUS+2*, SUS+3, LOCK, LOCK+2, LOCK+3, LOCK+4, LOCK+5, LOCK+6, LOCK+7 , LOCK+9, COMM~
RXP	TEST+1~, LOCK*, LOCK+1
RXPD	D1+1!
>> RXPR(	LOOP+11, LOCK
>> RXRP(	LOOP+13
>> RXRS(	LOOP+11
RXS	TEST+1~, SUS+2*, SUS+3
SD	TEST+1~, SUS+2*, LOCK+1, LOCK+2, LOCK+3, D1+1!
SDT	KCMPX+1~, KCMPX+4, SCMPX+1~, SCMPX+4
SUS	KCMPX~, KCMPX+2, KCMPX+4, SCMPX~, SCMPX+2, SCMPX+4
SUSDA	CMPRXTYP~, CMPRXTYP+3
SUSPT	S+3*, D1+1!
TRX	TEST+1~, TEST+4*, TEST+5!
TYP	CMPRXTYP+2~, CMPRXTYP+4, CMPRXTYP+5, KCMPX+1~, KCMPX+2, KCMPX+4, SCMPX+1~, SCMPX+2*, SCMPX+4
U	LOOP+6, LOOP+8, CMPRXTYP+3, CMPRXTYP+4, PIECE+2, PUT+3, KCMPX+3, SCMPX+3
V	PIECE+2~, PUT+3~, PUT+4
VAL	KCMPX~, KCMPX+4, SCMPX~, SCMPX+4
VALMSG	TEST+1~, LOCK+5*
VP	PIECE~, PIECE+2, PUT~, PUT+3
WARN	D1+1!
WARNS	LOOP+6~*
X	TEST+1~, LOCK, ACT+4!, UNMARK+1~, UNMARK+4, UNMARK+5*, UNMARK+6, UNMARK+8!
X7	TEST+1~, LOOP+19, LOOP+24!, SUS+4!, D1!
>> XFLAG	SUS1+3*
XFROM	LOOP+35, RESET+2, SUS+1, D1+1!, RXL+1
XMSUB	COMM+1~, COMM+3*
XMTEXT	COMM+1~, COMM+2*
>> XMY("I:G.CMOP	MANAGERS" , COMM+2*
XX	KCMPX+1~, KCMPX+3, SCMPX+1~, SCMPX+3
Y	TEST+1~, S+1~, LOCK+2, ACT+4!
Z	UNMARK+1~, UNMARK+4*, UNMARK+8!
ZD	TEST+1~
ZD(	SUS+2
ZY	D1+1!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCMOP

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: