Routine: PSXLIST

Package	Total	Call Graph
Kernel	6	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$NAME^XUAF4 $$IEN^XUMF
VA Fileman	2	^DIC ^DIR

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	END
HOME^%ZIS	QUE+3
^%ZISC	EX1+2
^%ZTLOAD	QUE
^DIC	EN1+1
^DIR	EXIT, LIST+3
$$FMTE^XLFDT	P512+5
$$NAME^XUAF4	P512+4
$$IEN^XUMF	P512+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Device Selected" Line Location: END+0
Function Call: WRITE	Prompt: !!,"Job Canceled" Line Location: QUE+1
Function Call: WRITE	Prompt: !!,"Job Queued" Line Location: QUE+2
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+0
Function Call: WRITE	Prompt: @IOF Line Location: SUB+0
Function Call: WRITE	Prompt: !,?25,"Data Transmission # ",BAT,! 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: !,"NAME",?22,"SSN",?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: !,$E(NAME,1,20),?22,$P(SSN,"-",3),?28,RXNUM,?39,BAR,?54,$E(DRUGNM,1,25) Line Location: LIST+0
Routine Call	%ZIS Line Location: QUE+3
Routine Call	DIC Line Location: EN1+1
Routine Call	DIR Line Location: EXIT LIST+3
Routine Call	%ZIS Line Location: END

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSX(552	P512+4
^PSX(552.1	P512+2, P512+5, P512+6
^PSX(552.2	P512+8, P512+12

Label References

Name	Line Occurrences
EX1	END+1, END+2
EXIT	END, END+2
LIST	P512+18
P512	END+2
QUE	END+1
SUB	P512+7, LIST+3, LIST+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	END*, EX1+1!
%ZIS("B"	END*
>> AGNCY	P512+4*
BAR	P512+18*, EX1!, LIST, LIST+7!
BAT	EN1+1*, P512+2, P512+8, EX1!, SUB+1
BEG	EX1!
BRUGNUM	EX1!
CNT	EX1!, SUB, SUB1+2, LIST+1*, LIST+3, LIST+6
DIC	EN1+1*!
DIC("S"	EN1+1*
DIC(0	EN1+1*
DIR	EXIT!
DIR("A"	EXIT, LIST+3
DIR(0	EXIT, LIST+3
DIROUT	EX1+1!, LIST+4!
DIRUT	EX1+1!, LIST+4!
DRUGNM	P512+16*, EX1!, LIST, LIST+7!
DRUGNUM	P512+16*, LIST+7!
DTOUT	EN1+1, EX1+1!, LIST+4!
DUOUT	EX1+1!, LIST+4!
EDATE	P512+17*, EX1!
END	EX1!
EXDATE	P512+16*, P512+17, EX1!, LIST+7!
FILL	EX1+1!
I	EX1+1!, SUB1+1*
IDATE	P512+16*, EX1!
IO	P512+1
IO("Q"	END+1, EX1+2!
IOF	EXIT, SUB
ION	END
IOST	EXIT, LIST+2, LIST+5
ISSDATE	P512+16*, EX1!, LIST+7!
LINE	EX1!, SUB1+1*
NAME	P512+11*, EX1+1!, LIST
NEXT	LIST+7!
NEXT2	LIST+7!
NM	P512+11*, EX1!
NODE	P512+8*, P512+10, P512+11, P512+12, EX1!
OKAY	P512+8, P512+18, EX1!, LIST+7!
ORDNUM	P512+8*, EX1+1!
PHAR	P512+5*, EX1!, SUB+2
>> POP	END
PSLION	END*, QUE, EX1!
PSOION	EX1!
PTR	EX1+1!
REC	EX1+1!
REC1	EX1+1!
RECD	P512+2*, P512+5, P512+6, EX1!
RELD	EX1+1!
RXN	EX1+1!
RXNUM	P512+16*, EX1!, LIST, LIST+7!
SITE	P512+4*, EX1!, SUB+2
SITEN	P512+2*, P512+4, EX1!
SS	P512+11*, EX1!
SSN	P512+11*, EX1+1!, LIST
ST	EX1!
STOP	END+2, P512+8, P512+9, P512+13, EX1+1!, LIST+3*
TDTM	P512+5*, EX1!, SUB+3
TMP	EX1+1!
TNODE	P512+12*, P512+14, P512+15, P512+16, P512+18, EX1!
TOTORD	P512+6*, EX1!, SUB+3
TOTRX	P512+6*, EX1!, SUB+3
U	P512+5, P512+6
X	P512+4~, P512+5, EX1!
XX	P512+8*, P512+12, EX1!
XXT	EX1+1!
Y	EN1+1, EN1+2!, P512+4~, LIST+3
ZTDESC	QUE*, EX1+1!
ZTIO	QUE*, EX1+1!
>> ZTQUEUED	P512
>> ZTREQ	P512*
ZTRTN	QUE*, EX1+1!
>> ZTSAVE("BAT"	QUE*, EX1+1!
>> ZTSAVE("PSLION"	QUE*, EX1+1!
ZTSK	QUE+1, EX1+1!
ZX	P512+12*, P512+15, EX1!
ZZ	P512+8, P512+12, P512+15, EX1!

Customize PDF page

Package: CMOP

Routine: PSXLIST

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
END
SUB
SUB1
LIST
P512
EN1	;prints order/rx data from 512 at host
QUE
EX1
EXIT