Routine: PSXRPPL1

Information

PSXRPPL1 ;BIR/WPB-Resets Suspense to Print/Transmit ;29-May-2012 15:19;PLS

Source Information

Call Graph

Call Graph Total: 23

Package	Total	Call Graph
CMOP	6	$$XMIT^PSXBPSUT GRP1^PSXNOTE ($$DSH,$$DUR,$$ECMESTAT)^PSXRPPL2 ASK^PSXRSUS PSXSTAT^PSXRSYU ^PSXSRST
Outpatient Pharmacy	5	($$LSTRFL,ECMESND)^PSOBPSU1 ($$RETRX,$$RXFLDT,$$STATUS)^PSOBPSUT $$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
MailMan	1	^XMD
Pharmacy Data Management	1	PSOUL^PSSLOCK
Uncategorized	1	($$CMOPON,$$ECMEON)^BPSUTIL

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
CMOP	1	PSXRPPL2
Outpatient Pharmacy	1	PSOSURST

Entry Points

Name	Comments	DBIA/ICR reference
SDT	;the following subroutines go through the PS(52.5 global and pull the
RESET	;resets the Queued/Printed flags to Queued and not Printed
BEGIN	;confirms CMOP processing, if Yes, checks for active site and status
ASK1
EXIT	;
PRINT	;
PSXTRANS	;
START	;initializes local variables
DFN	;
SBTECME(PSXTP,PSXDV,THRDT,PULLDT)	; - Sumitting prescriptions to EMCE (3rd Party Billing)
PRTERR	; auto error trap for prt cmop local
REC	;
ASK	;gets date for the resets
QRY	;initial message and option menu
CHECK	;
DOUBLE(RX,RFL)	; Checks if previous fill is still being worked on by CMOP

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
$$CMOPON^BPSUTIL	SBTECME+8
$$ECMEON^BPSUTIL	SBTECME+8
^DIE	RESET+2, PRTERR+22
$$GET1^DIQ	PRTERR+2, PRTERR+7, PRTERR+13, SBTECME+13, SBTECME+14, DOUBLE+10, DOUBLE+11
^DIR	QRY+4, BEGIN+5, PSXTRANS+2, PRINT+2
$$LSTRFL^PSOBPSU1	SBTECME+14
ECMESND^PSOBPSU1	SBTECME+25
$$RETRX^PSOBPSUT	SBTECME+18, SBTECME+21
$$RXFLDT^PSOBPSUT	SBTECME+24
$$STATUS^PSOBPSUT	SBTECME+23, DOUBLE+7
$$TRISTA^PSOREJU3	SBTECME+26
$$FIND^PSOREJUT	SBTECME+20
START^PSOSURST	QRY+7
PSOUL^PSSLOCK	SBTECME+29
$$XMIT^PSXBPSUT	SBTECME+15
GRP1^PSXNOTE	PRTERR+8
$$DSH^PSXRPPL2	SBTECME+23
$$DUR^PSXRPPL2	SBTECME+22
$$ECMESTAT^PSXRPPL2	SBTECME+21
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+17, SBTECME+22, SBTECME+23, SBTECME+26

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

FileNo	Call Tags
52.01	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+10, SBTECME+11 , SBTECME+12
^PSRX - [#52]	CHECK+2, CHECK+3, CHECK+4, CHECK+5, RESET+3*, DOUBLE+6, DOUBLE+9
^PSX(550 - [#550]	BEGIN+6
^PSX(550.1 - [#550.1]	PRTERR+6
^TMP("PSXEPHDFN"	SBTECME+9!, SBTECME+16, SBTECME+28*, SBTECME+30!
^TMP("PSXEPHNB"	SBTECME+26*
^TMP($J	START+4!
^XTMP("PSXERR "	PRTERR+5, PRTERR+6
^XUSEC("PSX XMIT"	START+2
^XUSEC("PSXCMOPMGR"	START+1

Name	Line Occurrences
$$DOUBLE	SBTECME+19
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

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!
DOS	SBTECME+7~, SBTECME+24*, SBTECME+25
DOUBLE	DOUBLE+4~, DOUBLE+8, DOUBLE+9, DOUBLE+12, DOUBLE+13
DR	RESET+2!, PRTERR+21~
DT	PRTERR+5, SBTECME+18, SBTECME+24
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+13*, SBTECME+29
>> 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+8, SBTECME+10, SBTECME+11, SBTECME+12
>> 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!
PSXSTAT	ASK1+8, PSXTRANS+3, PRINT+3*, EXIT+1!
>> PSXSYS	BEGIN+6
PSXTP	SBTECME~, SBTECME+10, SBTECME+11, SBTECME+12
PSXTRANS	QRY+5, QRY+6, EXIT+1!
>> PSXVER	QRY+4, QRY+5, QRY+6, RESET+3
PULLDT	SBTECME~, SBTECME+10
REC	DFN+1, REC+1, CHECK+1, RESET+1, RESET+2, RESET+3, SBTECME+7~, SBTECME+11, SBTECME+12, SBTECME+13 , SBTECME+14, SBTECME+15, SBTECME+23, EXIT+1!
REPLY	QRY+4*, QRY+5, QRY+6, QRY+7, QRY+8!, EXIT+1!
RESP	SBTECME+7~, SBTECME+25, SBTECME+26, SBTECME+27
RFL	SBTECME+7~, SBTECME+14*, SBTECME+18, SBTECME+19, SBTECME+20, SBTECME+21, SBTECME+22, SBTECME+23, SBTECME+24, SBTECME+25 , SBTECME+26, DOUBLE~, DOUBLE+6, DOUBLE+7, DOUBLE+10
RX	SBTECME+7~, SBTECME+13*, SBTECME+14, SBTECME+18, SBTECME+19, SBTECME+20, SBTECME+21, SBTECME+22, SBTECME+23, SBTECME+24 , SBTECME+25, SBTECME+26, DOUBLE~, DOUBLE+6, DOUBLE+7, DOUBLE+9, DOUBLE+10, DOUBLE+11
RXF	CHECK+2*, CHECK+3, CHECK+4, CHECK+5, CHECK+7!
>> RXN	SBTECME+26
SBTECME	SBTECME+7~, SBTECME+9, SBTECME+27, SBTECME+31
SDT	SDT+2, DFN+1, REC+1, RESET+3, SBTECME+7~, SBTECME+9, SBTECME+10*, SBTECME+11, SBTECME+12, SBTECME+16 , SBTECME+18, 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+16
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+10, SBTECME+11, SBTECME+12, SBTECME+16, SBTECME+28
>> 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*

Customize PDF page

Package: CMOP

Routine: PSXRPPL1

Information

Source Information

Call Graph

Call Graph Total: 23

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: