Routine: PSXRPPL1

Package	Total	Call Graph
CMOP	6	$$XMIT^PSXBPSUT GRP1^PSXNOTE ($$DSH,$$DUR,$$ECMESTAT)^PSXRPPL2 ASK^PSXRSUS PSXSTAT^PSXRSYU ^PSXSRST
Outpatient Pharmacy	6	($$LSTRFL,ECMESND)^PSOBPSU1 ($$RETRX,$$STATUS)^PSOBPSUT $$TRIC^PSOREJP1 $$TRISTA^PSOREJU3 $$FIND^PSOREJUT START^PSOSURST
VA FileMan	5	^%DT NOW^%DTC ^DIE $$GET1^DIQ ^DIR
Kernel	4	$$EC^%ZOSV (,UNWIND)^%ZTER $$FMADD^XLFDT $$PATCH^XPDUTL
E Claims Management Engine	3	LOG^BPSOSL $$IEN59^BPSOSRX ($$CMOPON,$$ECMEON)^BPSUTIL
MailMan	1	^XMD
Pharmacy Data Management	1	PSOUL^PSSLOCK

Package	Total	Caller Graph
CMOP	2	PSXRPPL PSXRPPL2
Outpatient Pharmacy	2	PSOBPSU2 PSOSURST

Entry Points

Name	Comments	DBIA/ICR reference
START	;initializes local variables
QRY	;initial message and option menu
BEGIN	;confirms CMOP processing, if Yes, checks for active site and status
ASK	;gets date for the resets
ASK1
PSXTRANS	;
PRINT	;
SDT	;the following subroutines go through the PS(52.5 global and pull the
DFN	;
REC	;
CHECK	;
RESET	;resets the Queued/Printed flags to Queued and not Printed
PRTERR	; auto error trap for prt cmop local
SBTECME(PSXTP,PSXDV,THRDT,PULLDT)	;
DOUBLE(RX,RFL)	; Checks if previous fill is still being worked on by CMOP
EXIT	;
TRICVANB(PSXRX,PSXRFL)	; Check for TRI/CVA non-billable w/closed eT/eC. ; Return: 1 if this is a TRICARE or CHAMPVA non-billable Rx ; which already has a closed eT/eC reject for this fill. ; 0 if other.	ICR #7351 Status: Active Usage: Controlled Subscription

External References

Name	Field # of Occurrence
^%DT	ASK1, ASK1+1, ASK1+2
NOW^%DTC	PRTERR+4
$$EC^%ZOSV	PRTERR+1
^%ZTER	PRTERR+18
UNWIND^%ZTER	PRTERR+23
LOG^BPSOSL	SBTECME+28, SBTECME+38
$$IEN59^BPSOSRX	SBTECME+28, SBTECME+38
$$CMOPON^BPSUTIL	SBTECME+9
$$ECMEON^BPSUTIL	SBTECME+9
^DIE	RESET+2, PRTERR+22
$$GET1^DIQ	PRTERR+2, PRTERR+7, PRTERR+13, SBTECME+15, SBTECME+16, DOUBLE+10, DOUBLE+11, TRICVANB+22, TRICVANB+31
^DIR	QRY+4, BEGIN+5, PSXTRANS+2, PRINT+2
$$LSTRFL^PSOBPSU1	SBTECME+16
ECMESND^PSOBPSU1	SBTECME+36
$$RETRX^PSOBPSUT	SBTECME+20, SBTECME+30
$$STATUS^PSOBPSUT	DOUBLE+7
$$TRIC^PSOREJP1	TRICVANB+9
$$TRISTA^PSOREJU3	SBTECME+40
$$FIND^PSOREJUT	SBTECME+22
START^PSOSURST	QRY+7
PSOUL^PSSLOCK	SBTECME+44
$$XMIT^PSXBPSUT	SBTECME+17
GRP1^PSXNOTE	PRTERR+8
$$DSH^PSXRPPL2	SBTECME+32
$$DUR^PSXRPPL2	SBTECME+31
$$ECMESTAT^PSXRPPL2	SBTECME+30
ASK^PSXRSUS	PSXTRANS+3, PRINT+3
PSXSTAT^PSXRSYU	ASK1+8, PSXTRANS+3, PRINT+3
^PSXSRST	QRY+5, QRY+6
$$FMADD^XLFDT	PRTERR+5
^XMD	PRTERR+19
$$PATCH^XPDUTL	SBTECME+19, SBTECME+31, SBTECME+32, SBTECME+40

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You are not authorized to use this option!" Line Location: START+1
Function Call: WRITE	Prompt: !,"You are not authorized to use this option!" Line Location: START+2
Function Call: WRITE	Prompt: ! Line Location: QRY+1
Function Call: WRITE	Prompt: ! Line Location: BEGIN+3
Function Call: WRITE	Prompt: !,"There is another job in process, please try again later." Line Location: BEGIN+6
Function Call: WRITE	Prompt: !!,?10,$S($G(SWITCH)=1:"RESET and TRANSMIT CMOP DATA",$G(SWITCH)=2:"RESET and REPRINT CMOP LABELS",1:""),!!!,"** Date Selection **",!! Line Location: ASK+1
Function Call: WRITE	Prompt: !! Line Location: ASK1+2
Function Call: WRITE	Prompt: !,"Begin Date must be before Ending Date!" Line Location: ASK1+3
Function Call: WRITE	Prompt: !!,$S(SWITCH=1:"Nothing to Transmit.",SWITCH=2:"Nothing to Reprint.",1:0) Line Location: ASK1+4
Function Call: WRITE	Prompt: !! Line Location: PSXTRANS+1
Function Call: WRITE	Prompt: !! Line Location: PRINT+1
Routine Call	DIE Line Location: RESET+2 PRTERR+22
Routine Call	DIR Line Location: QRY+4 BEGIN+5 PSXTRANS+2 PRINT+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.5 - [#52.5]	ASK1+4, SDT+2, DFN+1, REC+1, CHECK+1, RESET+1, RESET+2, RESET+3!, SBTECME+12, SBTECME+13 , SBTECME+14
^PSRX - [#52]	CHECK+2, CHECK+3, CHECK+4, CHECK+5, RESET+3*, DOUBLE+6, DOUBLE+9, TRICVANB+21
^PSX(550 - [#550]	BEGIN+6
^PSX(550.1 - [#550.1]	PRTERR+6
^TMP("PSXEPHDFN"	SBTECME+10!, SBTECME+18, SBTECME+43*, SBTECME+45!
^TMP("PSXEPHNB"	SBTECME+40*
^TMP($J	START+4!
^XTMP("PSXERR "	PRTERR+5, PRTERR+6
^XUSEC("PSX XMIT"	START+2
^XUSEC("PSXCMOPMGR"	START+1

Label References

Name	Line Occurrences
$$DOUBLE	SBTECME+21
$$TRICVANB	SBTECME+27
ASK1	ASK1+3
BEGIN	QRY+5, QRY+6
CHECK	REC+1
DFN	SDT+2
EXIT	QRY+4, BEGIN+5, BEGIN+6, ASK1, ASK1+1, ASK1+4, ASK1+9
PRINT	ASK1+7
PSXTRANS	ASK1+6
REC	DFN+1
RESET	CHECK+6
SDT	ASK1+5

Naked Globals

Name	Field # of Occurrence
^(0	ASK1+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRTERR+4
%DT	ASK1!, ASK1+1!, ASK1+2*!
%DT("A"	ASK1!, ASK1+1!, ASK1+2*!
ANSWER	EXIT+1!
BEGDATE	ASK+1!
CMP	DOUBLE+4~, DOUBLE+8, DOUBLE+9, DOUBLE+10, DOUBLE+11
DA	RESET+2!, PRTERR+21~
DFN	SDT+2, DFN+1, REC+1, RESET+3, EXIT+1!
DIE	RESET+2!, PRTERR+21~
DIR	QRY+4!, BEGIN+5!, PSXTRANS+2!, PRINT+2!, EXIT+2!
DIR("?"	QRY+4, BEGIN+4, BEGIN+5, PSXTRANS+2, PRINT+2*
DIR("??"	QRY+4*
DIR("A"	QRY+2, QRY+3, BEGIN+4, PSXTRANS+2, PRINT+2*
DIR("B"	BEGIN+4, PSXTRANS+2, PRINT+2*
DIR(0	QRY+2, BEGIN+4, PSXTRANS+2, PRINT+2
DIROUT	EXIT+2!
DIRUT	QRY+4, BEGIN+5, PSXTRANS+2, PRINT+2, EXIT+2!
DOUBLE	DOUBLE+4~, DOUBLE+8, DOUBLE+9, DOUBLE+12, DOUBLE+13
DR	RESET+2!, PRTERR+21~
DT	PRTERR+5, SBTECME+20
DTIME	RESET+1
DTOUT	EXIT+2!
>> DTTM	PRTERR+4*, PRTERR+5, PRTERR+6, PRTERR+17
DUOUT	EXIT+2!
DUZ	START+1, START+2
ENDDATE	ASK+1!
GONE	CHECK+4, CHECK+5, CHECK+6, CHECK+7!
PRINT	CHECK+1*, CHECK+6, EXIT+1!
>> PRTDT	ASK1, ASK1+1, ASK1+3, ASK1+4, SDT+2
PSOLRX	SBTECME+7~, SBTECME+15*, SBTECME+44
>> PSOSITE	CHECK+3, PRTERR+2
>> PSXBAT	PRTERR+7, PRTERR+13, PRTERR+20, PRTERR+21
>> PSXCS	PRTERR+11, PRTERR+13
PSXDAYS	EXIT+1!
>> PSXDIVNM	PRTERR+2*, PRTERR+7, PRTERR+12
PSXDTRG	ASK1+2*, ASK1+3, ASK1+4, SDT+2, EXIT+1!
PSXDV	SBTECME~, SBTECME+9, SBTECME+12, SBTECME+13, SBTECME+14
>> PSXERFLG	ASK1+5*
PSXFLAG	QRY+5, QRY+6, EXIT+1!
>> PSXFLG	QRY+7*
PSXPTR	CHECK+1*, CHECK+2, CHECK+3, CHECK+4, CHECK+5, RESET+3, EXIT+1!
PSXQUIT	TRICVANB+5~, TRICVANB+19, TRICVANB+21, TRICVANB+22
PSXREJ	TRICVANB+5~, TRICVANB+20, TRICVANB+21, TRICVANB+22, TRICVANB+27, TRICVANB+31
PSXREJCODE	TRICVANB+5~, TRICVANB+14, TRICVANB+15, TRICVANB+21
PSXRFL	TRICVANB~, TRICVANB+9, TRICVANB+22
PSXRX	TRICVANB~, TRICVANB+9, TRICVANB+21, TRICVANB+22, TRICVANB+31
PSXSTAT	ASK1+8, PSXTRANS+3, PRINT+3*, EXIT+1!
>> PSXSYS	BEGIN+6
PSXTP	SBTECME~, SBTECME+12, SBTECME+13, SBTECME+14
PSXTRANS	QRY+5, QRY+6, EXIT+1!
PSXTRICVA	TRICVANB+5~, TRICVANB+9*, TRICVANB+10, TRICVANB+14
>> PSXVER	QRY+4, QRY+5, QRY+6, RESET+3
PULLDT	SBTECME~, SBTECME+12
REC	DFN+1, REC+1, CHECK+1, RESET+1, RESET+2, RESET+3, SBTECME+7~, SBTECME+13, SBTECME+14, SBTECME+15 , SBTECME+16, SBTECME+17, SBTECME+32, EXIT+1!
REPLY	QRY+4*, QRY+5, QRY+6, QRY+7, QRY+8!, EXIT+1!
RESP	SBTECME+7~, SBTECME+36, SBTECME+38, SBTECME+40, SBTECME+42
RFL	SBTECME+7~, SBTECME+16*, SBTECME+20, SBTECME+21, SBTECME+22, SBTECME+27, SBTECME+28, SBTECME+30, SBTECME+31, SBTECME+36 , SBTECME+38, SBTECME+40, DOUBLE~, DOUBLE+6, DOUBLE+7, DOUBLE+10
RX	SBTECME+7~, SBTECME+15*, SBTECME+16, SBTECME+20, SBTECME+21, SBTECME+22, SBTECME+27, SBTECME+28, SBTECME+30, SBTECME+31 , SBTECME+36, SBTECME+38, SBTECME+40, DOUBLE~, DOUBLE+6, DOUBLE+7, DOUBLE+9, DOUBLE+10, DOUBLE+11
RXF	CHECK+2*, CHECK+3, CHECK+4, CHECK+5, CHECK+7!
SBTECME	SBTECME+7~, SBTECME+11, SBTECME+42, SBTECME+46
SDT	SDT+2, DFN+1, REC+1, RESET+3, SBTECME+7~, SBTECME+11, SBTECME+12*, SBTECME+13, SBTECME+14, SBTECME+18 , SBTECME+20, EXIT+1!
STAT	CHECK+1*, CHECK+6, EXIT+1!
STATUS	BEGIN+6*, EXIT+1!
STS	DOUBLE+4~, DOUBLE+11*, DOUBLE+12
SWITCH	START+3, QRY+5, QRY+6*, BEGIN+5, ASK+1, ASK1, ASK1+1, ASK1+4, ASK1+6, ASK1+7 , EXIT+1!
>> TEXT(1	PRTERR+11*
>> TEXT(2	PRTERR+12*
>> TEXT(3	PRTERR+13*
>> TEXT(4	PRTERR+14*
>> TEXT(5	PRTERR+15*
>> TEXT(6	PRTERR+16*
>> TEXT(7	PRTERR+17*
THRDT	SBTECME~, SBTECME+18
U	CHECK+1, CHECK+3, CHECK+4, CHECK+5, RESET+3, PRTERR+5
X	QRY+4!, PRTERR+5*, EXIT+1!
X1	EXIT+1!
X2	EXIT+1!
XDFN	SBTECME+7~, SBTECME+12, SBTECME+13, SBTECME+14, SBTECME+18, SBTECME+43
>> XMSUB	PRTERR+7*
>> XMTEXT	PRTERR+10*
>> XXERR	PRTERR+1*, PRTERR+5, PRTERR+14
XXF	CHECK+2*, CHECK+7!
Y	QRY+4!, BEGIN+5!, ASK1, ASK1+1, ASK1+2, PSXTRANS+2!, PRINT+2!, EXIT+1!
ZDIV	REC+2!, CHECK+3*

Marked Items

Name	Field # of Occurrence
$T(	SBTECME+28, SBTECME+38

Customize PDF page

Package: CMOP

Routine: PSXRPPL1

Information

Source Information

Call Graph

Call Graph Total: 26

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

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