Routine: PSXUNREL

Information

PSXUNREL ;BIR/WPB-Report of Rx's Not Released by the Vendor ;29 Jun 2001 2:34 PM

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Kernel	6	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$NAME^XUAF4 $$IEN^XUMF
VA FileMan	5	^%DT NOW^%DTC ^DIC $$GET1^DIQ ^DIR
National Drug File	1	$$CMOP^PSNAPIS

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: 1

Package	Total	Caller Graph
CMOP	1	PSX UNRELEASED

Entry Points

Name	Comments	DBIA/ICR reference
EN
Q1
DEV
DATE	;DATE SECTION
DIVISION	;
QUE
JOB
JOBA
JOB1	;(515,"AR",IEN514,RXN)
JOB2	;store information
JOB3	;Print records from ^TMP
ORDER	;Print by order,rx,fill
ORDNUM	;Return Order Number
HDR
PG	;line handler
PG1	;
EX	;

External References

Name	Field # of Occurrence
^%DT	DATE+3, DATE+6
NOW^%DTC	HDR+1
^%ZIS	DEV
^%ZISC	EX+7
^%ZTLOAD	QUE+2
^DIC	EN+3, DIVISION+2
$$GET1^DIQ	DIVISION+4, DIVISION+6
^DIR	Q1+1, JOB+3, JOB3+4, PG+3, PG1+3
$$CMOP^PSNAPIS	JOB2+9
$$FMTE^XLFDT	HDR+9, HDR+11
$$NAME^XUAF4	HDR+4
$$IEN^XUMF	HDR+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"All Rx's have been released." Line Location: EN+0
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED" Line Location: DEV+0
Function Call: WRITE	Prompt: !,"Ending date must follow starting date!" Line Location: DATE+10
Function Call: WRITE	Prompt: !!,"Job Canceled" Line Location: QUE+3
Function Call: WRITE	Prompt: !!,"Job Queued" Line Location: QUE+4
Function Call: WRITE	Prompt: !,ORDER,?18,RX,?28,FILL,?33,$E($G(VAPRT),1,35),?70,DRGID Line Location: ORDER+6
Function Call: WRITE	Prompt: @IOF Line Location: HDR+0
Function Call: WRITE	Prompt: !,?15,"Report of Unreleased Rxs for Transmission ",BAT Line Location: HDR+8
Function Call: WRITE	Prompt: !,?23,"Printed : ",$$FMTE^XLFDT(%,"1P"),! Line Location: HDR+9
Function Call: WRITE	Prompt: !,"Facility: ",SITE,?41,"Pharmacy Division: ",PHAR Line Location: HDR+10
Function Call: WRITE	Prompt: !,"Transmitted: ",$$FMTE^XLFDT(TDTM,"1P"),?41,"Received: ",$$FMTE^XLFDT(ATM,"1P") Line Location: HDR+11
Function Call: WRITE	Prompt: !,"Batch Type: ",PSXTYP,!! Line Location: HDR+12
Function Call: WRITE	Prompt: "ORDER #",?18,"RX NUMBER",?28,"FILL",?33,"DRUG NAME",?70,"DRUG ID",!,LINE Line Location: HDR+13
Function Call: WRITE	Prompt: ! Line Location: HDR+14
Function Call: WRITE	Prompt: @IOF Line Location: EX+6
Routine Call	DIC Line Location: EN+3 DIVISION+2
Routine Call	DIR Line Location: Q1+1 JOB+3 JOB3+4 PG+3 PG1+3
Routine Call	%ZIS Line Location: DEV

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^PSX(552 - [#552]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSX(552 - [#552]	HDR+4
^PSX(552.1 - [#552.1]	JOB1+4, JOB1+5, JOB1+6, JOB1+7, JOB1+8, JOB1+9, HDR+5
^PSX(552.2 - [#552.2]	ORDNUM+3, ORDNUM+5, ORDNUM+6
^PSX(552.4 - [#552.4]	EN, JOB+2, JOB1+3, JOB1+9, JOB1+11, JOB2+1, JOB2+2, JOB2+6, JOB2+10
^TMP($J	JOB1+1!, JOB1+10, JOB1+12!, JOB2+12, JOB2+13, JOB2+14*, JOB3+2, JOB3+5, ORDER+2, ORDER+3 , ORDER+4, HDR+6, EX+5!

Label References

Name	Line Occurrences
DATE	Q1+2, DATE+10
DEV	EN+7
EN	Q1+1
EX	EN+1, EN+3, Q1+1, DEV, DEV+1, DEV+3, DIVISION+2, JOB+2, JOB+3, JOB+4 , JOB3+2
HDR	JOB3+7, PG+2, PG+5
JOB	DEV+2
JOB1	JOB+2
JOB2	JOB1+11
JOB3	JOB1+14
JOBA	DEV+3
ORDER	JOB3+7
ORDNUM	JOB2+7
PG	ORDER+7
PG1	JOB3+7
QUE	DEV+1

Naked Globals

Name	Field # of Occurrence
^(	JOB3+5, ORDER+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HDR+9, EX+1!
%DT	DATE+2*, DATE+7!
%DT("A"	DATE+2, DATE+3!, DATE+6
%DT("B"	DATE+2, DATE+6
%DT(0	DATE+2, DATE+6
%ZIS	DEV*, EX+1!
%ZIS("B"	DEV*
AGNCY	HDR+4*!
ALL	DIVISION+3*, EX+4!
AREC	JOB1+15!
ATM	JOB1+7, JOB1+10, JOB1+15!, JOB3+6, HDR+11, EX+1!
BAT	JOB1+8, JOB1+10, JOB1+12, JOB1+15!, JOB2+12, JOB2+13, JOB2+14, JOB3+5, ORDER+2, ORDER+3 , ORDER+4, ORDNUM+2, ORDNUM+4, HDR+2, HDR+6, HDR+8, EX+1!
CORDER	ORDNUM+1!, ORDNUM+2, ORDNUM+3, ORDNUM+4*, ORDNUM+5, ORDNUM+6, EX+3!
CORDER(1	JOB2+8, ORDNUM+2, ORDNUM+3, ORDNUM+6
DIC	EN+2, EN+3!, DIVISION+1, DIVISION+2!, DIVISION+7!
DIC("A"	EN+2, DIVISION+1
DIC(0	EN+2, DIVISION+1
DIR	Q1+1!, JOB3+4!, PG+3!, PG1+2!, PG1+3!, EX+2!
DIR("?"	Q1*
DIR("A"	JOB+3, JOB3+4
DIR(0	Q1, JOB+3, JOB3+4, PG+3!, PG1+3*!, EX+2!
DIROUT	PG+4!, PG1+4!, EX+2!
DIRUT	EN+4!, Q1+1, JOB1+13, JOB1+16!, JOB2+5, PG+3, PG+4!, PG1+3, PG1+4!
DRGID	JOB1+15!, JOB2+6, JOB2+9, JOB2+12, ORDER+5, ORDER+6, EX+1!
DTOUT	EN+3, EN+4!, DATE+4, DATE+8, DIVISION+2, DIVISION+7!, PG+4!, PG1+4!, EX+2!
DUOUT	EN+3, DIVISION+2, DIVISION+7!, PG+4!, PG1+4!, EX+2!
END	DATE+9*, DATE+10, JOB1+5, EX+3!
FAC1	DIVISION+3*, EX+3!
FILL	JOB1+15!, JOB2+10, JOB2+12, ORDER+3, ORDER+4*, ORDER+6, EX+1!
IO	JOB+1, JOBA+2
IO("Q"	DEV+1
IOF	JOB3+3, HDR, EX+6
IOM	JOB1+2
ION	DEV
IOSL	DEV, PG+1
IOST	JOB+3, JOB3+4, PG+2, PG1+1
LCNT	JOB1+16!, EX+1!
LINE	JOB1+2*, JOB1+16!, HDR+13, EX+1!
NDFPTR	JOB2+6*, EX+2!
OLDBAT	JOB1+15!, EX+1!
ORDER	JOB2+8, JOB2+12, ORDER+1, ORDER+2*, ORDER+3, ORDER+4, ORDER+6, EX+4!
PGL	DEV*, EX+4!
PHAR	JOB1+16!, HDR+5*, HDR+10, EX+1!
>> POP	DEV
PSXANS	EN+6, Q1+1, JOB2+3, JOB2+4, EX+2!
PSXBEG	EN+5*, EN+7, DEV+2, QUE, JOB+2, JOB1+15!, EX+3!
PSXEND	JOB+2, JOBA, JOB1+3, JOB1+15!
PSXLION	DEV*, QUE, EX+1!
PSXTYP	JOB2+2, JOB2+3, JOB2+4, JOB2+14, HDR+6, HDR+7*, HDR+12, EX+3!
RC5	JOB+2*, JOB1+16!, EX+2!
RCD	EX+1!
REC	JOB1+15!, EX+1!
REC4	JOB1+9*, JOB1+16!, JOB2+1, JOB2+2, JOB2+6, JOB2+10, EX+2!
REC5	JOB+2, JOBA, JOB1+3, JOB1+4, JOB1+5, JOB1+6, JOB1+7, JOB1+8, JOB1+9, JOB1+10 , JOB1+11, JOB1+13, JOB1+16!, JOB3+6*, HDR+5
RECD	JOB1+15!, JOB2+1*, JOB2+2, JOB2+6, JOB2+10, EX+1!
RX	JOB1+11, JOB1+16!, JOB2+1, JOB2+12, ORDER+2, ORDER+3*, ORDER+4, ORDER+6, ORDNUM+6
SITE	JOB1+16!, HDR+4*, HDR+10, EX+1!
SITEN	JOB1+16!, HDR+2*, HDR+4, EX+1!
ST	JOB1+16!, EX+1!
START	DATE+5*, DATE+10, JOB1+5, EX+3!
STOP	Q1+2, DATE+1!, DATE+4, DATE+8, JOB+2, JOB3+1!, JOB3+5, ORDER+2, ORDER+3, ORDER+4 , PG+3, PG+5, PG1+3, EX+2!, EX+3!
SUB	EX+1!
TDTM	JOB1+9, JOB1+10, JOB1+15!, JOB3+6, HDR+11, EX+1!
U	DIVISION+6, JOB1+5, JOB1+7, JOB1+8, JOB1+9, JOB1+10, JOB2+2, JOB2+6, JOB2+10, JOB2+12 , JOB3+6, ORDER+5, HDR+5
VAPRT	JOB2+6, JOB2+9, JOB2+11, JOB2+12, ORDER+5, ORDER+6, EX+2!
X	EN+3, EN+5!, Q1+1!, DIVISION+2, DIVISION+7!, QUE+1, HDR+4~!, EX+1!, EX+2!
>> XX	DIVISION+6*
Y	EN+5!, Q1+1!, DATE+4, DATE+5, DATE+8, DATE+9, DIVISION+3, DIVISION+4, DIVISION+6, DIVISION+7! , HDR+4~!, EX+2!
ZN	JOB3+5, JOB3+6, ORDER+4, ORDER+5, EX+4!
ZTDESC	QUE*, EX+1!
ZTIO	QUE*, EX+1!
ZTQUEUED	JOB, JOB+1, JOBA+1, JOBA+2, EX+2!
>> ZTREQ	JOB, JOBA+1
ZTRTN	QUE*, EX+1!
>> ZTSAVE(	QUE+1*
>> ZTSAVE("PSXBEG"	EX+1!
ZTSK	QUE+3, EX+1!
ZZCHKDT	JOB1+5*, EX+4!
ZZFAC	EX+4!
ZZFAC1	DIVISION+1, DIVISION+4, DIVISION+6*, JOB1+6, EX+4!
ZZNODE	ORDNUM+5*, ORDNUM+6, EX+4!
ZZXC	EX+4!
ZZXX	EX+4!

Customize PDF page

Package: CMOP