Routine: PSOVRPT

Information

PSOVRPT ;BHAM ISC/SAB - log of non-verified rx's sorted by patient or user code ;06/29/92 16:56

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	3	NOW^%DTC $$GET1^DIQ ^DIR
Pharmacy Data Management	1	$$DS^PSSDSAPI

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	PSO VRPT

Entry Points

Name	Comments	DBIA/ICR reference
SORT
START
PAT	;sort by patient
CLPT	;
CLERK	;sort by clerk
END
HD

External References

Name	Field # of Occurrence
NOW^%DTC	START+3
^%ZIS	SORT+2
^%ZISC	END
^%ZTLOAD	SORT+3
$$GET1^DIQ	CLPT+11
^DIR	SORT, PAT+6, CLPT+4, CLERK+5, CLERK+8, END+1
$$DS^PSSDSAPI	CLPT+11, HD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO NON-VERIFIED PRESCRIPTIONS TO PRINT.",! Line Location: PAT+5
Function Call: WRITE	Prompt: ! Line Location: CLPT+4
Function Call: WRITE	Prompt: !!?3,PNAME Line Location: CLPT+6
Function Call: WRITE	Prompt: !!?3,PNAME_" (continued)" Line Location: CLPT+7
Function Call: WRITE	Prompt: ?63,$J(+$P(PNODE,"^",4),15) Line Location: CLPT+12
Function Call: WRITE	Prompt: !!,"NO NON-VERIFIED PRESCRIPTIONS TO PRINT.",! Line Location: CLERK+4
Function Call: WRITE	Prompt: !?29,"NON-VERIFIED PRESCRIPTIONS",!?29,"AS OF "_$G(RDATE),!,?34,"SORTED BY "_$S($G(PSRT)="P":"PATIENT",1:"CLERK") Line Location: HD+0
Function Call: WRITE	Prompt: !?30,"(# indicates Order Check)" Line Location: HD+1
Function Call: WRITE	Prompt: !?23,"(# indicates Critical Drug Interaction)" Line Location: HD+2
Function Call: WRITE	Prompt: !?3,"Patient name",?70,"Page: ",$G(PAGE),!,"Rx #",?13,"Issued",?23,"Drug" Line Location: HD+3
Function Call: WRITE	Prompt: ?70,"Entry By" Condition for execution: $G(PSRT)="P" Line Location: HD+3
Function Call: WRITE	Prompt: !,LINE Line Location: HD+3
Routine Call	DIR Line Location: SORT PAT+6 CLPT+4 CLERK+5 CLERK+8 END+1
Routine Call	%ZIS Line Location: SORT+2

FileNo	Call Tags
^PS(52.4 - [#52.4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+3
^DPT - [#2]	PAT+1
^PS(52.4 - [#52.4]	PAT+1, PAT+2, PAT+3, CLPT+9, CLPT+11, CLERK+1, CLERK+2
^PSDRUG - [#50]	PAT+3
^PSRX - [#52]	PAT+3, CLPT+8, CLERK+3
^TMP($J	START+2!, PAT+3, PAT+5, CLPT+1, CLPT+2, CLERK+3, CLERK+4, CLERK+6, CLERK+7!, END!
^VA(200 - [#200]	CLERK+1, CLERK+2

Label References

Name	Line Occurrences
CLERK	START+4
CLPT	CLERK+7
END	SORT, SORT+2, SORT+3, PAT+5, CLPT+14, CLERK+4
HD	PAT+5, CLPT+4, CLPT+5, CLERK+4, CLERK+7
PAT	CLERK+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	START+3
%ZIS	SORT+2!*
CLERK	START+1~, CLERK+2*, CLERK+3
CLINT	START+1~, PAT+2, CLERK+6*
CLNAME	START+1~, CLERK+6*, HD+4
COUNT	START+1~, PAT+1, PAT+3, CLERK+1*
DIR	SORT!, PAT+6!, CLPT+4!, CLERK+5!, CLERK+8!, END+1!
DIR("A"	SORT, PAT+6, CLPT+4, CLERK+5, CLERK+8, END+1
DIR("B"	SORT*
DIR(0	SORT, PAT+6, CLPT+4, CLERK+5, CLERK+8, END+1
>> DTOUT	SORT
>> DUOUT	SORT
EOFLAG	START+1~, CLPT+3, CLPT+4, CLPT+5*, CLPT+7
IDATE	START+1~, CLPT+9*, CLPT+10
IO	START
IO("Q"	SORT+3
IOF	END, HD
ION	SORT+2
IOP	SORT+2!*
IOSL	CLPT+3
IOST	PAT+5, CLPT+4, CLPT+5, CLERK+4, CLERK+7, END, HD
LINE	START+1~, START+2*, HD+3
PAGE	START+1~, START+2, HD, HD+3
PATNAME	START+1~, PAT+1*, PAT+3
PNAME	START+1~, CLPT+1*, CLPT+2, CLPT+6, CLPT+7
PNODE	START+1~, CLPT+2*, CLPT+8, CLPT+9, CLPT+11, CLPT+12
>> POP	SORT+2
PSOCT	START+1~, CLPT+1, CLPT+2, CLPT+6
PSOION	SORT+2*!, SORT+3!
PSOQUIT	SORT, SORT+2, SORT+3, START+1~, START+2, CLPT+1, CLPT+3, CLPT+4, CLERK+6, CLERK+7 , CLERK+8, END
PSORX	START+1~, CLPT+9*
PSRT	SORT+1*, START+4, CLPT+12, CLPT+13, END!, HD, HD+3
RDATE	START+1~, START+3*, HD
SSS	START+1~, CLPT+1*, CLPT+2
>> Y	SORT+1, START+3*, CLPT+4, CLERK+8
ZCLK	START+1~, CLERK+1*, CLERK+3
ZPAT	START+1~, PAT+1*
ZSORT	START+1~, PAT+2, PAT+4, CLERK+7*!
>> ZTDESC	SORT+3*
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTRTN	SORT+3*
>> ZTSAVE("PSRT"	SORT+3*
ZTSK	SORT+3!
ZZZ	START+1~, PAT+1, PAT+2, PAT+3, CLERK+1, CLERK+2, CLERK+3
ZZZZ	START+1~, CLPT+6*, CLPT+7

Customize PDF page

Package: Outpatient Pharmacy