Routine: PSXREJ

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$IEN^XUMF
VA Fileman	3	^%DT NOW^%DTC $$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
EN	;GET BEGIN DATE
END
SUB
SUB1
LIST
EXIT
START	;
QUE	;
GETDATA	;
ENDATE	;GET ENDING DATE
REF	;

External References

Name	Field # of Occurrence
^%DT	EN+1, ENDATE+1
NOW^%DTC	SUB+1
^%ZIS	END
HOME^%ZIS	QUE+8
^%ZISC	EXIT+3
^%ZTLOAD	QUE+5
$$GET1^DIQ	REF+6
$$FMTE^XLFDT	EN+2, ENDATE+2, REF+7
$$IEN^XUMF	REF+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Ending date must follow beginning date!" Line Location: ENDATE+4
Function Call: WRITE	Prompt: !,"No Device Selected" Line Location: END+0
Function Call: WRITE	Prompt: !!,"Job Canceled" Line Location: QUE+6
Function Call: WRITE	Prompt: !!,"Job Queued" Line Location: QUE+7
Function Call: WRITE	Prompt: !!,"There were no rejected messages for the date range selected: ",START," to ",FINISH Line Location: START+4
Function Call: WRITE	Prompt: @IOF,?18,"CMOP Rejected Messages for Transmission # ",PSXB,! Line Location: SUB+0
Function Call: WRITE	Prompt: ?23,"Printed : ",Y,!! Line Location: SUB+1
Function Call: WRITE	Prompt: "Facility : ",SITE,?40,"Division: ",PHAR Line Location: SUB+2
Function Call: WRITE	Prompt: !,"Received on ",$P(TDTM,":",1,2),?40,"Total Orders: ",TOTORD,?60,"Total Rx's: ",TOTRX,! Line Location: SUB+3
Function Call: WRITE	Prompt: !,"ORDER",?15,"NAME",?28,"RX NUMBER",?39,"BAR CODE",?54,"DRUG NAME" Line Location: SUB1+0
Function Call: WRITE	Prompt: ! Line Location: SUB1+1
Function Call: WRITE	Prompt: LINE Line Location: SUB1+1
Function Call: WRITE	Prompt: ! Line Location: SUB1+2
Function Call: WRITE	Prompt: !!,$P(ORDER,"-",3)," REJECTED REASON: ",REASON Line Location: LIST+0
Function Call: WRITE	Prompt: ?28,RXNUM,?39,BAR,?54,$E(DRUGNM,1,25) Line Location: LIST+2
Routine Call	%ZIS Line Location: QUE+8
Routine Call	%ZIS Line Location: END

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SUB+1
^PSX(552	REF+6
^PSX(552.1	START+2, START+3, REF+2, REF+3, REF+6, REF+7, REF+8, REF+9
^PSX(552.2	REF+1, REF+13, GETDATA+1, GETDATA+2, GETDATA+3, GETDATA+6

Label References

Name	Line Occurrences
ENDATE	ENDATE+4
EXIT	EN+1, ENDATE+1, END, END+1, END+2, START+5
GETDATA	REF+13
LIST	GETDATA+11, GETDATA+12
QUE	END+1
REF	START+3
START	END+2
SUB	REF+13
SUB1	LIST+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	SUB+1!
%DT	EN+1!, ENDATE+1!, EXIT+2!
%DT("A"	EN+1!, ENDATE+1!, EXIT+2!
%DT("B"	EN+1!, ENDATE+1!, EXIT+2!
%DT(0	EN+1!, ENDATE+1!, EXIT+2!
%ZIS	END*, EXIT+1!
>> AGNCY	REF+6*
BAR	GETDATA+11*, EXIT!, LIST+2, LIST+6!
BAT	EXIT!
BEG	EXIT!
BRUGNUM	EXIT!
CNT	REF+13, EXIT!, SUB1+2, LIST+4, LIST+5
DIC	EXIT!
DIR	EXIT+1!
DIROUT	EXIT+1!
DIRUT	EXIT+1!
DRUGNM	GETDATA+9*, EXIT!, LIST+2, LIST+6!
DRUGNUM	GETDATA+9*, LIST+6!
DTOUT	EN+1, ENDATE+1, EXIT+1!
DUOUT	EXIT+1!
EDATE	GETDATA+10*, EXIT!
END	EXIT!
EXDATE	GETDATA+9*, GETDATA+10, EXIT!, LIST+6!
FINISH	ENDATE+2*, START+4, EXIT+1!
I	EXIT+1!, SUB1+1*
IDATE	GETDATA+9*, EXIT!
IO	START+1
IO("Q"	END+1, EXIT+3!
IOF	SUB
ION	END
ISSDATE	GETDATA+9*, EXIT!, LIST+6!
LINE	EXIT!, SUB1+1*
NAME	GETDATA+5*, EXIT+1!, LIST+1, LIST+3
>> NAME1	LIST+1, LIST+3*
NEXT	EXIT!
NEXT2	EXIT!
NM	GETDATA+5*, EXIT!
NODE	GETDATA+3*, GETDATA+4, GETDATA+5, GETDATA+6, EXIT!
>> OR1	REF+12, LIST, LIST+4
ORDER	GETDATA+1*, EXIT+1!, LIST, LIST+4
PHAR	REF+6*, EXIT!, SUB+2
>> POP	END
PSOION	EXIT!
PSX1	EXIT!
PSXA	EN+2, ENDATE+4, ENDATE+5, START+2*, START+3, EXIT!
PSXB	START+3*, REF+1, REF+13, EXIT+1!, SUB
PSXDA	START+3*, REF+2, REF+3, REF+6, REF+7, REF+8, REF+9, EXIT+1!
PSXE	ENDATE+2, ENDATE+4, ENDATE+5, START+2, EXIT!
PSXFLAG	START+4, EXIT+1!, LIST+4*
PSXLION	END*, QUE+5, EXIT!
REASON	GETDATA+2!*, LIST, LIST+6!
REC	REF+13*, GETDATA+1, GETDATA+2, GETDATA+3, GETDATA+6, EXIT+1!
RECD	EXIT!
RXNUM	GETDATA+9*, EXIT!, LIST+2, LIST+6!
SITE	REF+6*, EXIT!, SUB+2
SITEN	REF+3*, REF+4, REF+6, EXIT!
SS	GETDATA+5*, EXIT!
SSN	GETDATA+5*, EXIT+1!
ST	REF+6*, EXIT!
>> START	EN+2*, START+4
TDTM	REF+7*, EXIT!, SUB+3
TNODE	GETDATA+6*, GETDATA+7, GETDATA+8, GETDATA+9, GETDATA+11, EXIT!
TOTORD	REF+9*, EXIT!, SUB+3
TOTRX	REF+8*, EXIT!, SUB+3
TTNODE	EXIT!
U	REF+3, REF+6, REF+7, REF+8, REF+9
X	ENDATE+3!, REF+6, REF+7, EXIT!
Y	EN+1, EN+2, ENDATE+1, ENDATE+2, ENDATE+3!, EXIT!, SUB+1*!
ZTDESC	QUE+1*, EXIT+1!
ZTIO	QUE+5*, EXIT+1!
>> ZTQUEUED	EXIT+4
>> ZTREQ	EXIT+4*
>> ZTRTN	QUE+1*
ZTSAVE	EXIT+1!
ZTSAVE("FINISH"	QUE+4*
ZTSAVE("PSXA"	QUE+3*
ZTSAVE("PSXB"	QUE+2*
ZTSAVE("PSXDA"	QUE+2*
ZTSAVE("PSXE"	QUE+3*
ZTSAVE("PSXLION"	QUE+3*
ZTSAVE("START"	QUE+4*
ZTSK	QUE+6, EXIT+1!
ZX	GETDATA+6*, GETDATA+8, EXIT+1!
ZZ	GETDATA+1, GETDATA+3, GETDATA+6, GETDATA+8*, EXIT!

Customize PDF page

Package: CMOP

Routine: PSXREJ

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: