Routine: PSXLIST

Information

PSXLIST ;BIR/WPB-Report Routine to List Orders/Rx's in a Batch ;04/08/97 2:06 PM

Call Graph

Call Graph Total: 8

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

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 SUMMARY

Entry Points

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

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: END
Routine Call	%ZIS Line Location: QUE+3
Routine Call	DIC Line Location: EN1+1
Routine Call	DIR Line Location: EXIT LIST+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSX(552.1 - [#552.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PSX(552 - [#552]	P512+4
^PSX(552.1 - [#552.1]	P512+2, P512+5, P512+6
^PSX(552.2 - [#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