Routine: PSXSRP

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^%DT NOW^%DTC ^DIK
CMOP	1	START^PSXSRST
Outpatient Pharmacy	1	DQ^PSOLBL
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSOLBL PSOLLLI
CMOP	1	PSXSRST
IHS Changes To Pharmacy	1	APSPLBL

Entry Points

Name	Comments	DBIA/ICR reference
END
AREC	;	ICR #2201 Status: Active Usage: Private
KAPR	;D:X='"P"&($P($G(^PS(52.5,DA,0)),"^",6))&($P($G(^(0)),"^",8))&($P($G(^(0)),"^",9))&($P($G(^(0)),"^",11))&($P($G(^PS(52.5,DA,"P")),"^"))
APR	;D:X="P"&($P($G(^PS(52.5,DA,0)),"^",6))&($P($G(^(0)),"^",8))&($P($G(^(0)),"^",9))&($P($G(^(0)),"^",11))&($P($G(^PS(52.5,DA,"P")),"^"))
LOCK
BEG	;
QUE
HELP	;help message, allows the user to return to the main menu or exit

External References

Name	Field # of Occurrence
^%DT	QUE
NOW^%DTC	AREC+2, QUE
^%ZIS	QUE+2
^%ZISC	END+2
^%ZTLOAD	QUE+11
^DIK	BEG+5
DQ^PSOLBL	BEG+8, BEG+11
START^PSXSRST	QUE
DEM^VADPT	BEG+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: QUE+0
Function Call: WRITE	Prompt: !!?3,"Nothing queued to print!",! Line Location: QUE+0
Function Call: WRITE	Prompt: ! Line Location: QUE+2
Function Call: WRITE	Prompt: !!,"REPRINTED LABELS QUEUED TO PRINT!",! Line Location: QUE+12
Function Call: WRITE	Prompt: @IOF Line Location: HELP+2
Function Call: WRITE	Prompt: !!,"1 - Reset CMOP Printed Batches for Transmission resets the CMOP printed" Line Location: HELP+3
Function Call: WRITE	Prompt: !,"Rx's for transmission. NO LABELS are REPRINTED using this option. The",!,"Rx's from the CMOP Printed Batch selected will remain in the Rx Suspense file",!,"with a CMOP Status of 'Queued for Transmission." Line Location: HELP+4
Function Call: WRITE	Prompt: !!,"2 - This option allows you to reprint CMOP labels that were printed from",!,"Suspense. Each time the Print from Suspense File option is run, those labels are" Line Location: HELP+5
Function Call: WRITE	Prompt: !,"grouped in a batch. This option shows you all CMOP batches printed for the",!,"date range entered, and any number of batches may be selected to reprint." Line Location: HELP+6
Function Call: WRITE	Prompt: !,"Only those labels that printed with the original batch will reprint, and",!,"they will reprint in the same order they were originally printed." Line Location: HELP+7
Function Call: WRITE	Prompt: !!,"3 - This option allows you to reprint labels that were printed from suspense.",!,"Each time the Print from Suspense File option is run, those labels are" Line Location: HELP+8
Function Call: WRITE	Prompt: !,"grouped in a batch. This option shows you all batches printed for the",!,"date range entered, and any number of batches may be selected to reprint." Line Location: HELP+9
Function Call: WRITE	Prompt: !,"Only those labels that printed with the original batch will reprint, and",!,"they will reprint in the same order they were originally printed." Line Location: HELP+10
Routine Call	%ZIS Line Location: QUE+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(52.5 - [#52.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	QUE+3
^%ZIS(2 - [#3.2]	QUE+3
^PS(52.5 - [#52.5]	BEG+4, BEG+5, BEG+6, BEG+7, BEG+10, BEG+13, APR+1, APR+2*, APR+3!, KAPR+2!
^PSRX - [#52]	AREC+3, AREC+4, AREC+5, LOCK
^TMP($J	QUE+8, QUE+9, END!
^UTILITY($J	BEG+1, BEG+3, QUE+10*, END!

Label References

Name	Line Occurrences
BEG	QUE+2
END	BEG+1
LOCK	LOCK

Naked Globals

Name	Field # of Occurrence
^("BAR"	QUE+3
^(0	BEG+4, BEG+10, BEG+13, APR+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	AREC+2, QUE, END+1!
%DT	QUE!*, END!
%DT("A"	QUE*!
%DT("B"	QUE*!
%DT(0	QUE*!
%ZIS	QUE+2*, END!
%ZIS("A"	QUE+2*
%ZIS("B"	QUE+2*
AA	END!
AAA	END!
AAAA	BEG+3*, BEG+4, END+1!
BBBB	BEG+3*, BEG+4, END+1!
BDT	END!
CCCC	BEG+3*, BEG+4, END+1!
CNT	AREC+3, AREC+5, LOCK, END+1!
COM	AREC+2*, LOCK, END+1!
COUNT	END!
>> DA	BEG+5*, APR+1, APR+2, APR+3, KAPR+2
DDDD	BEG+4*, END+1!
DFN	BEG+5*!
>> DIK	BEG+5*
DTIME	LOCK
DTOUT	QUE, END!
DTTM	AREC+2*, LOCK, END+1!
DUOUT	END!
DUZ	BEG+8, BEG+11
EEEE	BEG+4*, BEG+5, BEG+6, BEG+7, END+1!
ENDDATE	END!
FFF	BEG+9, BEG+12, END+1!
FFFF	BEG+9, BEG+12, END+1!
GG	QUE+7*, END!
GGGG	BEG+10, BEG+13, END+1!
HHHH	BEG+10, BEG+13, END+1!
HLDDEAD	BEG+5*, END+1!
INRX	END!
IOF	HELP+2
ION	QUE+5
>> IOS	QUE+3
IOST	QUE+2
J	QUE+3*, END+1!
JJ	AREC+3*, END!
LLL	END!
MMM	END!
MMMM	BEG+10, BEG+13, END+1!
NNN	QUE+8*, QUE+9, END!
NNNN	BEG+10, BEG+13, END+1!
NPATIENT	BEG+7*, END+1!
OPATIENT	BEG+6, BEG+7, END+1!
PATIFLAG	BEG+2, BEG+6, END+1!
PDUZ	BEG+8, BEG+11, LOCK, END+1!
POP	QUE+2, END!
PPL	BEG+8!, BEG+9, BEG+10, BEG+11, BEG+12, BEG+13
PSIDATE	END!
>> PSOBAR0	QUE+4
>> PSOBAR1	QUE+4
>> PSOBARS	QUE+4*
>> PSOPAR	QUE+4
PSRDATE	QUE+9*, QUE+10, END+2!
PSRDIV	QUE+9*, QUE+10, END+2!
PSRDUZ	QUE+9*, QUE+10, END+2!
PSXDEV	QUE+5*, QUE+6, END!
PSXDT	END!
PSXREEP	LOCK+1!
PSXREEPF	LOCK+1!
PSXREP	BEG+8, BEG+11, QUE+1*, END!
PSXU	END!
RECNT	END+2!
RECOUNT	BEG+2, BEG+7, BEG+8*, END+1!
REDT	END+2!
REDUZ	END+2!
REHLDPPL	BEG+7*, BEG+8!, BEG+11
REPCOUNT	BEG+9, BEG+10, BEG+12, BEG+13, END+1!
RF	AREC+4*, END+1!
RFCNT	AREC+4*, LOCK, END+1!
RR	END+2!
RX	AREC+3, AREC+4, AREC+5, LOCK, END+1!
RXP	LOCK, END+1!
RXPR	BEG+8!
RXPR(	BEG+10, BEG+13
RXRP	BEG+8!
SS	END+2!
TIME	QUE+1*, QUE+6, END!
>> VA("BID"	BEG+5!
>> VA("PID"	BEG+5!
VADM	BEG+5!
VADM(6	BEG+5
X	APR+1, KAPR+2, END+1!
XDUZ	END!
XXX	END+2!
Y	QUE, QUE+1, END+1!
>> ZTDESC	QUE+6*
>> ZTDTH	QUE+6*
>> ZTIO	QUE+6*
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
>> ZTRTN	QUE+6*
>> ZTSAVE(	QUE+7*
>> ZTSAVE("^UTILITY($J,""PSXREPT"","	QUE+11*
ZZ	END+2!
ZZZ	END+2!

Customize PDF page

Package: CMOP

Routine: PSXSRP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

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: