Routine: PSOCMOP

Information

PSOCMOP ;BIR/HTW-Rx Order Entry Screen for CMOP ;6/28/07 7:35am

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 15

Package	Total	Caller Graph
Outpatient Pharmacy	13	PSO126IX PSOCMOP PSOCMOPA PSOCMOPC PSOPOS13 PSORESUS PSORXL PSORXL1 PSOSUCLE PSOSUTL PSOUTL PSOUTLA ^PS(52.5
CMOP	2	PSX41PST PSXRESUB

Entry Points

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

External References

Name	Field # of Occurrence
NOW^%DTC	ACT+3, UNMARK+5, NOW
FILE^DICN	LOCK+3
^DIE	LOOP+30
^DIK	SUS+3
$$GET1^DIQ	LOOP+4
REVERSE^PSOBPSU1	LOCK+10
UNMARK^PSOCMOP	LOOP+9
^PSOCMOPA	FILTRAN+3
EN^PSOHLSN1	LOCK+8
$$DS^PSSDSAPI	LOOP+27
DRG^PSSHUIDG	UNMARK+7
^XMD	COMM+4
$$PATCH^XPDUTL	UNMARK+7

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.4 - [#52.4]	LOOP+27
^PS(52.5 - [#52.5]	SUS+2, LOCK+3!, CMPRXTYP+3, KCMPX+2, KCMPX+4!, SCMPX+2, SCMPX+4*
^PS(55 - [#55]	LOOP+3
^PSDRUG - [#50]	LOOP+9, LOOP+11, LOOP+13, UNMARK+2, UNMARK+3, UNMARK+4, UNMARK+5, UNMARK+6, CMPRXTYP+4
^PSDRUG("AQ"	LOOP+7, UNMARK+2!
^PSRX - [#52]	LOOP+3, LOOP+7, LOOP+12, LOOP+20, LOOP+22, LOOP+24, LOOP+26, LOOP+29, LOOP+32, LOOP+38 , SUS+2, SUS+4, LOCK, LOCK+2, LOCK+3, LOCK+4, LOCK+5, LOCK+6, LOCK+7, ACT , ACT+1, ACT+2, ACT+3*, CMPRXTYP+3
^XUSEC("PSORPH"	LOOP+26, LOOP+27

Label References

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

Naked Globals

Name	Field # of Occurrence
^("STA"	LOOP+22
^(0	LOOP+29, UNMARK+6*
^(2	LOOP+29
^(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+7*, LOOP+9, LOOP+11, LOOP+13, 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+11~, LOOP+14, LOCK+7*, LOCK+8!, COMM~
COMM(1	LOOP+12*
COMM(2	LOOP+13*
COUNT	D1!
DA	TOP+3, LOOP+30, S+1~, S+2, SUS+2, SUS+3, SUS+4, LOCK, LOCK+1, LOCK+2 , LOCK+3, ACT, ACT+1, ACT+2, ACT+3, SUS1+2, FILTRAN+1~, FILTRAN+2*
DD	LOCK+3!
DEA	CMPRXTYP+2~, CMPRXTYP+4*
DFLG	TEST~, SUS+2, D1!
DFN	TEST+1~, LOOP+2~, LOOP+3*!, KCMPX+1~, KCMPX+4, SCMPX+1~, SCMPX+4
DIC	LOCK+1*, ACT+4!
DIC("DR"	LOCK+2*
DIC(0	LOCK+1*
DIE	LOOP+30!*, 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+3!
DR	LOOP+30*, ACT+4!
DRGDA	CMPRXTYP+2~, CMPRXTYP+3*, CMPRXTYP+4
DT	LOOP+5, LOOP+29
DTOUT	D1!
DUOUT	D1!
DUZ	LOOP+26, LOOP+27, 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+42*, 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+4*, LOCK+5, LOCK+6, LOCK+7, ACT+3
MW	TEST~, LOOP+32*
NEWDT	TEST~
P	PIECE+2~, PUT+3~, PUT+4
P1	TEST~, TEST+2, LOOP
P2	TEST~, TEST+2, LOOP+42
PDUZ	D1!
PI	TEST~, S+2*, D1!
PPL	TOP+1, TOP+2, TOP+3, TOP+4, LOOP, LOOP+43!, RESET+3, SUS1+1~, SUS1+2, SUS1+3 , A*
>> PPL1	A
PSOCMOP	D1+1!
PSOCPDA	LOOP+30*!
>> PSOFROM	TOP+1, RESET+3, RXL
PSOMC	LOOP+3, LOOP+4, LOOP+5!
PSOMDT	LOOP+3, LOOP+4, LOOP+5!
PSONAME	LOCK+3*!
>> PSORX("PSOL"	TOP+1, TOP+4, A
PSORXSIT	LOCK~*, LOCK+2
>> PSOSITE	LOCK+2
>> PSOX("FILL DA	TE" , LOOP+29
REC	PIECE~, PIECE+2, PUT~, PUT+4*
REF	D1+1!
REL	TEST~, LOOP+38*, LOOP+39, RESET+3
REPRINT	D1+1!
RFD	TEST~, LOOP+24*, LOOP+26, LOOP+27, LOOP+28, LOOP+32!, LOOP+35, LOOP+38!, FILTRAN~, FILTRAN+4 , FILTRAN+5
>> RFD1	SUS+4*, LOCK+2
RFDATE	D1+1!
RFL1	D1+1!
RFLL	D1+1!
RX	TEST~, LOOP*, LOOP+3, LOOP+4, LOOP+7, LOOP+12, LOOP+14, LOOP+16, LOOP+18, LOOP+20 , LOOP+22, LOOP+24, LOOP+26, LOOP+27, LOOP+28, LOOP+29, LOOP+30, LOOP+32, LOOP+35, LOOP+38 , LOOP+42, SUS+1, FILTRAN~, FILTRAN+2, KCMPX+1~, SCMPX+1~
RX("CMOP"	LOOP+42, LOOP+43, RESET+1, RESET+3, S+2, SUS1+4
RX("PSO"	LOOP*, LOOP+43!
RX0	TEST~, SUS+2*
RX1	D1+1!
RX1("CMOP"	LOOP+43*, SUS1+4
RXDA	CMPRXTYP+2~, CMPRXTYP+3*
RXF	ACT*, ACT+3, ACT+4!
>> RXFL(	LOOP+28
>> RXLTOP	TOP+3
RXN	TEST~, SUS+2*, SUS+3, LOCK+1, LOCK+3, LOCK+4, LOCK+5, LOCK+6, LOCK+7, LOCK+8 , LOCK+10, COMM~
RXP	TEST+1~, LOCK+1*, LOCK+2
RXPD	D1+1!
>> RXPR(	LOOP+16, LOCK+1
>> RXRP(	LOOP+18
>> RXRS(	LOOP+16
RXS	TEST+1~, SUS+2*, SUS+3
SD	TEST+1~, SUS+2*, LOCK+2, LOCK+3, LOCK+4, 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~
TYP	CMPRXTYP+2~, CMPRXTYP+4, CMPRXTYP+5, KCMPX+1~, KCMPX+2, KCMPX+4, SCMPX+1~, SCMPX+2*, SCMPX+4
U	LOOP+11, LOOP+13, LOCK, 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+6*
VP	PIECE~, PIECE+2, PUT~, PUT+3
WARN	D1+1!
WARNS	LOOP+11~*
X	TEST+1~, LOCK+1, ACT+4!, UNMARK+1~, UNMARK+4, UNMARK+5*, UNMARK+6, UNMARK+8!
X7	TEST+1~, LOOP+24, LOOP+32!, SUS+4!, D1!
>> XFLAG	SUS1+3*
XFROM	LOOP+40, LOOP+44, 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+3, 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: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: