Routine: PSXVIEW

Information

PSXVIEW ;BIR/HTW-CMOP Data for View Prescription ;[ 02/02/98 7:46 AM ]

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
VA FileMan	1	^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
Outpatient Pharmacy	1	PSORXPR

Entry Points

Name	Comments	DBIA/ICR reference
FOUR	; Get data from event multiple
FINI
PRINT	;
PSXLOT	;
JUMP
PAGE
HEADER	;
FIX	; Translate data
F1
P1	; Get transmission d/t
Q1
SKIP
T1
Z1

External References

Name	Field # of Occurrence
^DIR	PAGE

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S($G(PSXTST)=3:PSXTCAN,$G(PSXTST)=1:$G(PSXRDT),1:$G(PSXTRDT)) Line Location: PRINT+1
Function Call: WRITE	Prompt: ?15,$S(PSXFIL=0:"ORIG",1:"REF "_$G(PSXFIL)) Line Location: PRINT+2
Function Call: WRITE	Prompt: ?22,$G(PSXBREF) Line Location: PRINT+3
Function Call: WRITE	Prompt: ?36,$G(PSXT) Line Location: PRINT+4
Function Call: WRITE	Prompt: ?42,$S($G(PSXTST)=3:$E($G(PSXCAN),1,35),$G(PSXNDC)]"":"NDC: "_PSXNDC,1:"") Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF Line Location: PSXLOT+2
Function Call: WRITE	Prompt: "CMOP LOT#/EXPIRATION DATE LOG:" Line Location: PSXLOT+3
Function Call: WRITE	Prompt: !,"RX REF",?20,"LOT #",?40,"EXPIRATION DATE",! Line Location: PSXLOT+4
Function Call: WRITE	Prompt: ! Line Location: PSXLOT+6
Function Call: WRITE	Prompt: ! Line Location: JUMP+0
Function Call: WRITE	Prompt: @IOF,"CMOP EVENT LOG:" Line Location: HEADER+1
Function Call: WRITE	Prompt: !,"DATE",?15,"RX REF",?22,"TRN-ORDER #",?36,"STAT",?42,"COMMENTS" Line Location: HEADER+2
Function Call: WRITE	Prompt: ! Line Location: HEADER+3
Function Call: WRITE	Prompt: "=" Line Location: HEADER+3
Function Call: WRITE	Prompt: "=" Line Location: Z1+0
Routine Call	DIR Line Location: PAGE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	T1
^PSRX - [#52]	PSXVIEW+2, FOUR+2, PSXLOT+1, PSXLOT+7, F1+1, Q1+2, Q1+3
^PSX(550.2 - [#550.2]	F1+3, P1+1

Label References

Name	Line Occurrences
F1	FIX+5
FINI	PSXVIEW+2
FIX	FOUR+3
HEADER	FOUR+1, FOUR+4
JUMP	FOUR+6
PAGE	PSXVIEW+3, FOUR+4
PRINT	FOUR+5
PSXLOT	FOUR+7
SKIP	Q1+5
Z1	PSXLOT+5

Naked Globals

Name	Field # of Occurrence
^(	FOUR+2, PSXLOT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	FINI!
ANS	PSXVIEW+3, FOUR+2, FOUR+4, FOUR+5, FOUR+6, FINI!, PAGE*
C	FINI!, HEADER+3, Z1, Z1+1!
>> DA	PSXVIEW+2, FOUR+2, PSXLOT+1, PSXLOT+7, F1+1, Q1+2, Q1+3
DIR	PAGE!
DIR("A"	PAGE*
DIR(0	PAGE*
DTOUT	FINI+1!, PAGE
DUOUT	FINI+1!, PAGE
ER	FINI!
EXPDT	FINI+3!, PSXLOT+8, PSXLOT+9, PSXLOT+11
F	FINI!
I	FINI!
I1	FINI+1!, F1+3*, P1+1
I2	FINI+1!
IOF	PSXLOT+2, HEADER+1
P	FINI+1!
PSX1	FINI+3!, Q1+3*, Q1+4, Q1+5, Q1+6
PSX4	FOUR+2*, FINI!, FIX+1, FIX+2, FIX+4, F1
PSXA	FOUR+2*, FINI!, FINI+1!, F1+1
PSXBAT	FINI+2!, FIX+1*, FIX+3, F1+3
PSXBREF	FINI+3!, PRINT+3, FIX+3*
PSXCAN	FINI+3!, PRINT+5, F1+1*
PSXE	FINI+2!
PSXE1	FINI+2!
PSXERR	FINI+2!
PSXFIL	FINI!, PRINT+2, FIX+2*, Q1+2, Q1+3
PSXL	FINI!, JUMP*
PSXL1	FINI+3!
PSXLOC	FINI+1!
PSXLOT	FINI!, PSXLOT+7*, PSXLOT+8, PSXLOT+10, PSXLOT+11
PSXM	PSXVIEW+2*!, FINI+3!
PSXML	FINI+1!
PSXNDC	FINI+3!, PRINT+5, F1*
PSXP	FINI+2!, JUMP*
PSXRDT	FINI+3!, PRINT+1, Q1+5, Q1+8
PSXREA	FINI!
PSXREL	FINI+1!
PSXSEQ	FINI+1!, FIX+1*, FIX+3
PSXT	FINI+1!, PRINT+4, Q1, Q1+2, SKIP, SKIP+1, SKIP+2*
PSXTCAN	FINI+2!, PRINT+1, FIX+8*
PSXTRDT	FINI+1!, PRINT+1, P1+4*
PSXTST	FINI+2!, PRINT+1, PRINT+5, FIX+2*, Q1, Q1+1, SKIP+1, SKIP+2
PSXVID	FINI!
PSXZ	FINI+2!, PSXLOT+7*
PSXZT	FIX+4*, FIX+5!, FIX+8!
PSXZT1	FIX+4, FIX+5!, FIX+7, FIX+8!
PSXZT2	FIX+4, FIX+5!, FIX+6, FIX+8!
RXREF	FINI+2!, PSXLOT+10*, PSXLOT+11
RXREF1	FINI+3!
U	PSXLOT+8, PSXLOT+10, PSXLOT+11, FIX+1, FIX+2, FIX+4, F1, P1+1
Y	FINI!
Z	FINI!
ZD1	FINI+2!, P1+1, P1+3, P1+4
ZD2	FINI+2!, P1+1, P1+2, P1+4
ZDT	FINI+2!, P1+1*
ZR	Q1+6*, Q1+9!
ZR1	Q1+6*, Q1+8, Q1+9!
ZR2	Q1+6, Q1+7, Q1+8, Q1+9!

Customize PDF page

Package: CMOP