Routine: PSXRPPL

Information

PSXRPPL ;BIR/WPB,BAB-Gathers data for the CMOP Transmission ;29-Apr-2013 09:58;PLS

Call Graph

Call Graph Total: 19

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC (T0,T1)^%ZOSV ($$FMADD,$$NOW)^XLFDT $$PATCH^XPDUTL
VA Fileman	5	NOW^%DTC FILE^DICN ^DIE ^DIK $$GET1^DIQ
CMOP	4	^PSXBPSMS ($$ADDROK,CHKACT,CHKDATA)^PSXMISC1 (CHKDFN,EPHARM)^PSXRPPL2 BATCH^PSXRSYU
Outpatient Pharmacy	3	EN^PSOHLSN1 ^PSOLSET QLBL^PSORXL
Pharmacy Data Management	1	PSOUL^PSSLOCK
Registration	1	DEM^VADPT

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
CMOP	3	PSXMISC1 PSXRSUS PSXRTRAN

Entry Points

Name	Comments	DBIA/ICR reference
SDT
PROFILE
BEGIN	; Select print device
SET
PPL1	; print patient labels
LOCK
DQUE	; sets the CMOP indicator field, and printed field in 52.5
PPL
RX550215	; put RX into RX multiple TRANS 550.215 for PSXBAT
PRT	; w auto error trapping
RXNCLEAR	; needs RXN
DFN
EXIT	;
OERRLOCK(RXN)	; set XTMP for OERR/CPRS order locking
BLD	;
RXNSET	; set ^XTMP("ORLK-"_ORDER per IA 4001 needs RXN
GETDATA	;Screens rxs and builds data
ACTLOG
CHKDFN	; use the patient 'C' index under RX multiple in file 550.2 to GET dfn to gather Patients' future RXs
DELETE	; deletes the CMOP STATUS field in PS(52.5, reindex 'AC' x-ref

External References

Name	Field # of Occurrence
NOW^%DTC	PRT+1, BLD+1
^%ZIS	BEGIN+3, PROFILE+1
^%ZISC	BEGIN+7, PROFILE+1
T0^%ZOSV	SDT
T1^%ZOSV	EXIT+3
FILE^DICN	RX550215+6
^DIE	DELETE+2, DQUE+3, DQUE+7, DQUE+11
^DIK	PRT+3, BLD+6
$$GET1^DIQ	GETDATA+11
EN^PSOHLSN1	BLD+10, DQUE+14
^PSOLSET	BEGIN+1
QLBL^PSORXL	PPL1+6, PPL1+7
PSOUL^PSSLOCK	SDT+15, CHKDFN+7
^PSXBPSMS	SDT+22
$$ADDROK^PSXMISC1	GETDATA+13
CHKACT^PSXMISC1	GETDATA+15
CHKDATA^PSXMISC1	GETDATA+20
CHKDFN^PSXRPPL2	SDT+18
EPHARM^PSXRPPL2	GETDATA+19
BATCH^PSXRSYU	RX550215+1
DEM^VADPT	GETDATA+7
$$FMADD^XLFDT	RXNSET+4
$$NOW^XLFDT	RXNSET+4
$$PATCH^XPDUTL	GETDATA+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BEGIN+3
Function Call: WRITE	Prompt: !,"You must select a printer!",! Line Location: BEGIN+4
Function Call: WRITE	Prompt: !,"You must select a printer!",! Line Location: PROFILE+2
Routine Call	DIE Line Location: DELETE+2 DQUE+3 DQUE+7 DQUE+11
Routine Call	%ZIS Line Location: BEGIN+3 PROFILE+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	BEGIN+5
^%ZIS(2 - [#3.2]	BEGIN+5
^PS(52.5 - [#52.5]	SDT+12, SDT+13, SDT+14, GETDATA+4!, GETDATA+5!, GETDATA+6!, GETDATA+10, DELETE+1, DELETE+3, DELETE+4 , CHKDFN+4, CHKDFN+5, CHKDFN+6, BLD+2, BLD+9, PPL1+4, DQUE+1, DQUE+3, DQUE+8, DQUE+12* , DQUE+13
^PSRX - [#52]	BLD+8, BLD+9, ACTLOG, ACTLOG+1, ACTLOG+2, LOCK, LOCK+1*, RXNSET+2, RXNCLEAR+2
^PSX(550.2 - [#550.2]	CHKDFN+1, CHKDFN+2, CHKDFN+3, PRT+2, DFN+1, DFN+2, DFN+3, BLD+1, BLD+2, RX550215+3* , OERRLOCK+3
^TMP("PSXEPHIN"	SDT+11!, SDT+22!, EXIT+4!
^TMP("PSXEPHNB"	SDT!, SDT+22!, EXIT+4!
^TMP($J	SDT!, GETDATA+12, SET+3*
^XTMP("ORLK-"	RXNSET+5*, RXNCLEAR+3!
^XTMP("PSXCS"	SET+2*

Label References

Name	Line Occurrences
BEGIN	BEGIN+4
BLD	DFN+3
CHKDFN	SDT+19
DELETE	GETDATA+8, SET+5
DFN	PRT+2
DQUE	SET+3, BLD+11, DQUE+1
EXIT	BEGIN+3, PROFILE+1
GETDATA	SDT+15, CHKDFN+7
LOCK	LOCK
OERRLOCK	SDT+15, CHKDFN+7
PPL	PRT+2
PPL1	PPL
PROFILE	BEGIN+2, PROFILE+2
RX550215	SET+3, SET+4

Naked Globals

Name	Field # of Occurrence
^("BAR"	BEGIN+5
^(0	RXNCLEAR+3
^(1	RXNSET+5*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT+1!, PRT+1!, BLD+1, BLD+9!, LOCK+2!
%ZIS	BEGIN+3, PROFILE+1!
%ZIS("A"	BEGIN+3, PROFILE+1
%ZIS("B"	BEGIN+3*
>> BATRXDA	BLD+1*, BLD+2, BLD+5
CHKDT	EXIT+2!, PRT+4!
CIND	EXIT+1!, PRT+4!, DQUE+4*, DQUE+6, DQUE+10
CNAME	EXIT+1!
CNT	EXIT+1!, ACTLOG, ACTLOG+2, LOCK+1, LOCK+2!
COM	EXIT+1!, BLD+9*, BLD+10, LOCK+1, LOCK+2!
D0	RX550215+2!, RX550215+8!
DA	DELETE+2~, PRT+3, BLD+5~, BLD+11!, DQUE+3!, DQUE+6, DQUE+7!, DQUE+10*, DQUE+11!, RX550215+2! , RX550215+8!
DA(1	BLD+5, RX550215+4
DAYS	EXIT+2!, PRT+4!
DD	RX550215+2!, RX550215+8!
DFN	EXIT+1!, GETDATA+7~, GETDATA+12, DFN, DFN+1, DFN+2, DFN+3, BLD+7, PPL1+4
DIC	RX550215+2!, RX550215+5*, RX550215+8!
DIC("DR"	RX550215+5*
DIC(0	RX550215+5*
DIE	EXIT+1!, DELETE+2~, DQUE+3!, DQUE+6, DQUE+7!, DQUE+10, DQUE+11!
DIK	PRT+3, BLD+5~
DO	RX550215+2!, RX550215+8!
DR	EXIT+1!, DELETE+2~, DQUE+3!, DQUE+6, DQUE+7!, DQUE+10, DQUE+11!, RX550215+2!, RX550215+8!
DRUG	EXIT+2!, PRT+4!
DRUGCHK	EXIT+2!, PRT+4!
DT	SET+2, DQUE+3, DQUE+6, DQUE+8
DTTM	EXIT+1!, PRT+1, BLD+1, LOCK+1, DQUE+10
DUZ	LOCK+1, DQUE+10, RXNSET+5
EPHQT	GETDATA+18~*, GETDATA+19
FILL	EXIT+1!
FILNUM	EXIT+1!
IO("Q"	BEGIN+7!, PROFILE+1!
ION	BEGIN+2, BEGIN+3, PROFILE, PROFILE+1, PROFILE+2
IOP	PROFILE+1!
>> IOS	BEGIN+5
IOST	BEGIN+4
J	BEGIN+5*, BEGIN+7!
JJ	EXIT+1!, ACTLOG*, LOCK+2!
NDFN	EXIT+1!, CHKDFN+4, CHKDFN+5, CHKDFN+6
NFLAG	EXIT+1!, GETDATA+9, SET+3, PRT+4!, DFN, BLD+7, DQUE+2, DQUE+4, DQUE+5, DQUE+9 , DQUE+14
NM	EXIT+2!, PRT+2*, PRT+4!, DFN+1, DFN+2, DFN+3
NOW	RXNSET+2~, RXNSET+4*, RXNSET+5
NOW1	RXNSET+2~, RXNSET+4*, RXNSET+5
OPDT	EXIT+2!
ORD	PRT+4!, PPL, PPL1+1, PPL1+2, PPL1+3, PPL1+8, RXNSET+2~, RXNSET+3, RXNSET+5, RXNCLEAR+2~* , RXNCLEAR+3
PDT	PRT+4!
>> PFIO	PPL1+5*
PHARCLK	EXIT+2!, PRT+4!
PHY	EXIT+2!, PRT+4!
PNAME	EXIT+1!, SET+1*
>> POP	BEGIN+3, PROFILE+1
PPL	PPL!, PPL1+2, PPL1+3, PPL1+7, PPL1+8!
PPL1	PPL!, PPL1+3*, PPL1+7, PPL1+8!
PRTDT	SDT+12, SDT+18, EXIT+1!, CHKDFN+4
>> PSLION	BEGIN+2, BEGIN+3
>> PSNP	PPL1+5, PPL1+7
>> PSOBAR0	BEGIN+6
>> PSOBAR1	BEGIN+6
>> PSOBARS	BEGIN+6*
PSOION	BEGIN+7!
>> PSOLAP	BEGIN+2
>> PSOPAR	BEGIN+1, BEGIN+6, PROFILE+1, PPL1+5
>> PSOPROP	PROFILE, PROFILE+1*, PROFILE+2, PPL1+5
>> PSOSITE	SDT+1, SET+2
>> PSOSU(	BLD+7*, PPL, PPL1+1, PPL1+2, PPL1+3, PPL1+8!
PSTAT	EXIT+2!, PRT+4!
PSXBAT	SDT!, SDT+18, SDT+19, CHKDFN+1, CHKDFN+2, CHKDFN+3, PRT+2, PRT+3!, DFN+1, DFN+2 , DFN+3, BLD+1, BLD+2, BLD+5, RX550215+1, RX550215+3, RX550215+4, RX550215+5, OERRLOCK+1, OERRLOCK+3
>> PSXCS	SDT+1, SET+2
>> PSXCSRX	SET+2
PSXDGST	EXIT+2!
PSXDIV	EXIT+1!
>> PSXDTRG	CHKDFN+4
>> PSXFIRST	GETDATA+14*
>> PSXFLAG	SET+3, SET+4
>> PSXGOOD	GETDATA+13*, GETDATA+14
PSXMC	EXIT+2!
PSXMDT	EXIT+2!
PSXOK	EXIT+1!, GETDATA+9, GETDATA+10, GETDATA+14*, GETDATA+16, SET, SET+3, SET+4, SET+5
>> PSXPTNM	CHKDFN+2*, CHKDFN+3
>> PSXRTRAN	SDT+18, SDT+19
>> PSXRXTDA	RX550215+7*, OERRLOCK+1, OERRLOCK+3
>> PSXTDIV	SDT+1*, SDT+12, SDT+13, SDT+14, GETDATA+4, GETDATA+5, GETDATA+6, CHKDFN+4, CHKDFN+5, CHKDFN+6
>> PSXTYP	SDT+1*, SDT+12, SDT+13, SDT+14, GETDATA+4, GETDATA+5, GETDATA+6, CHKDFN+4, CHKDFN+5, CHKDFN+6
PTRA	EXIT+2!, PRT+4!
PTRB	EXIT+2!, PRT+4!
QTY	EXIT+2!, PRT+4!
REC	SDT+13, SDT+14, EXIT+1!, GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+10, GETDATA+11, DELETE+1, DELETE+2 , DELETE+3, DELETE+4, CHKDFN+5, CHKDFN+6, BLD+2*, BLD+3, DQUE+1, DQUE+3, DQUE+6, DQUE+8 , DQUE+10, DQUE+12, DQUE+13
REF	EXIT+1!
REL	EXIT+2!, PRT+4!
RF	ACTLOG+1*, LOCK+2!
RFCNT	ACTLOG+1*, LOCK+1, LOCK+2!
>> RFL	GETDATA+11*
RXCNTR	BLD+7*, LOCK+2!, DQUE+10
RXERR	EXIT+2!, PRT+4!
RXF	EXIT+2!, PRT+4!, DFN+2, DFN+3
RXN	SDT+15, GETDATA+10, GETDATA+13, GETDATA+15, GETDATA+16!, SET+2, CHKDFN+7, DFN+1, DFN+2*, DFN+3 , BLD+1, BLD+2, BLD+7, BLD+8, BLD+9, BLD+10, ACTLOG, ACTLOG+1, ACTLOG+2, LOCK , LOCK+1, DQUE+14, RX550215+4, OERRLOCK~, OERRLOCK+1, OERRLOCK+3, RXNSET+1, RXNSET+2, RXNCLEAR+1, RXNCLEAR+2
RXNUM	EXIT+1!
SDT	SDT+12, SDT+13, SDT+14, EXIT+1!, GETDATA+4, GETDATA+5, GETDATA+6, CHKDFN+4, CHKDFN+5, CHKDFN+6
SFN	EXIT+2!, PRT+4!, PPL1+1*, PPL1+2, PPL1+3, PPL1+4
SIG	PRT+4!
SITE	PRT+4!
SUS	PRT+4!, BLD+2*, BLD+3, BLD+7, BLD+9, BLD+11
SUSPT	PRT+4!, PPL1+5*
U	BLD+2, BLD+8, OERRLOCK+3, RXNSET+5
VADM	GETDATA+8!
VADM(1	SET+1
VADM(6	GETDATA+8
>> X	RX550215+4*
XDFN	SDT+12, SDT+13, SDT+14, EXIT+1!, GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+7, SET+3, CHKDFN+3* , CHKDFN+5
>> XRT0	EXIT+3
>> XRTL	SDT
>> XRTN	EXIT+3*
Y	LOCK+2!, RX550215+7
ZCNT	SDT!

Marked Items

Name	Field # of Occurrence
$T(	EXIT+3

Customize PDF page

Package: CMOP

Routine: PSXRPPL

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items