Routine: PSOARCLT

Information

PSOARCLT ;BHAM ISC/LGH - list archived prescriptions ; 11/17/92 18:17

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Outpatient Pharmacy	1	EN^PSOHLUP
Registration	1	(ADD,DEM,ELIG,KVA)^VADPT
VA FileMan	1	^DIC

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: 2

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSO ARCHIVE LIST RX'S PSOARC

Entry Points

Name	Comments	DBIA/ICR reference
AC
DONE
GET
RE
END	;
W
P
Q

External References

Name	Field # of Occurrence
^%ZIS	AC+4
HOME^%ZIS	END+1
^%ZISC	AC+4, DONE
^%ZTLOAD	AC+4
^DIC	AC+1
EN^PSOHLUP	AC+1
ADD^VADPT	GET+1
DEM^VADPT	GET+1
ELIG^VADPT	GET+1
KVA^VADPT	RE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!! Line Location: AC+0
Function Call: WRITE	Prompt: !,"Patient has no archived prescriptions !",! Line Location: AC+2
Function Call: READ	Formatting: ! Prompt: " Please press RETURN to continue" Variable: Z Timeout: DTIME Line Location: AC+5
Function Call: WRITE	Prompt: @IOF,!,$G(VADM(1)),?40,"ID#: ",$P($G(VADM(2)),"^",2) Line Location: GET+2
Function Call: WRITE	Prompt: !?5,"(TEMP ADDRESS from "_Y Line Location: GET+3
Function Call: WRITE	Prompt: " till "_Y_")" Line Location: GET+3
Function Call: WRITE	Prompt: !,$G(VAPA(1)),?40,"DOB: ",$S($G(VADM(3)):$E($P(VADM(3),"^"),4,5)_"-"_$E($P(VADM(3),"^"),6,7)_"-"_(1700+$E($P(VADM(3),"^"),1,3)),1:"UNKNOWN") Line Location: GET+4
Function Call: WRITE	Prompt: !,$G(VAPA(4)),?40,"PHONE: ",$G(VAPA(8)) Line Location: GET+5
Function Call: WRITE	Prompt: !,$P($G(VAPA(5)),"^",2) Line Location: GET+6
Function Call: WRITE	Prompt: " ",$G(VAPA(6)),?40,"ELIG: " Line Location: GET+7
Function Call: WRITE	Prompt: SC Line Location: GET+7
Function Call: WRITE	Prompt: !,"CANNOT USE SAFETY CAPS." Line Location: GET+8
Function Call: WRITE	Prompt: ?40,"DIALYSIS PATIENT." Line Location: GET+9
Function Call: WRITE	Prompt: !!?5,"Pharmacy narrative: " Line Location: GET+10
Function Call: WRITE	Prompt: $P(X," ",I)," " Line Location: GET+10
Function Call: WRITE	Prompt: ! Condition for execution: $X>75 Line Location: GET+10
Function Call: WRITE	Prompt: !!,"ELIGIBILITY: ",SC Line Location: RE+1
Function Call: WRITE	Prompt: PSDIS,"-",PSCNT,"% (",$S($P(I1,"^",3):"SC",1:"NSC"),"), " Line Location: RE+3
Function Call: WRITE	Prompt: !!,"ARCHIVED: " Line Location: END+1
Function Call: WRITE	Prompt: Condition for execution: PSOD'=0 !?10 S PSOD=$O(^PS(55,DA,"ARC",PSOD)) Q:'PSOD Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+3
Function Call: WRITE	Prompt: Q:'$D(^PS(55,DA,"ARC",PSOD,1,0)) Q:$P(^PS(55,DA,"ARC",PSOD,1,0),U,4)'>0 Line Location: W+0
Function Call: WRITE	Prompt: $E(PSOD,4,5),"/",$E(PSOD,6,7),"/",$E(PSOD,2,3)," - " Line Location: W+0
Function Call: WRITE	Prompt: !?21 Condition for execution: ($X+$L($P(PSORR,"*",J1))+1)>IOM Line Location: P+1
Function Call: WRITE	Prompt: $P(PSORR,"*",J1),"," Line Location: P+1
Routine Call	%ZIS Line Location: AC+4
Routine Call	%ZIS Line Location: END+1
Routine Call	DIC Line Location: AC+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	GET+3
^DIC(31 - [#31]	RE+3
^DPT - [#2]	RE, RE+2, RE+3
^PS(55 - [#55]	AC+1, AC+2, GET+8, GET+9, GET+10, END+1, W, W+1, P

Label References

Name	Line Occurrences
DONE	AC+1, AC+4
END	RE, RE+2
GET	AC+5
P	W+1
PSOARCLT	AC+2, AC+4, AC+5
W	END+1

Naked Globals

Name	Field # of Occurrence
^(	RE, RE+3
^(0	GET+8, RE+3
^(1	GET+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	AC+4*
BS	DONE!
DA	AC+1*, AC+2, AC+4, DONE!, GET, END+1, W, W+1, P
DFN	AC+1, DONE!, GET, GET+8, GET+9, GET+10, RE, RE+2, RE+3
DIC	AC+1*!
DIC("A"	AC+1*
DIC("S"	AC+1*
DIC(0	AC+1*
DT	GET+3
DTIME	AC+5
FF	DONE!
>> I	GET+10, RE+3
>> I1	RE+3*
IO	AC+4
IO(0	AC+4
IOF	GET+2, END+3
IOM	P+1
IOST	END+3
J1	DONE!, P+1*
JJ	DONE!, END+1*
KK	DONE!, W+1*
LMI	Q!
>> POP	AC+4
>> PSCNT	RE+3*
>> PSDIS	RE+3*
>> PSLC	RE, RE+1, RE+2*
PSOD	END+1*, END+2!, W, W+1, P
PSOR	END+2!, W, W+1, P
PSORR	END+2!, P*, P+1
SC	DONE!, GET+7*, RE+1, RE+2!, Q!
SL	DONE!
SUB	DONE!
TEMP	DONE!, Q!
TMPDT	Q!
U	END+1*, W
>> VA("BID"	DONE!
>> VA("PID"	DONE!
>> VADM(1	GET+2
>> VADM(2	GET+2
>> VADM(3	GET+4
>> VAEL(1	GET+7
>> VAPA(1	GET+4
>> VAPA(10	GET+3
>> VAPA(4	GET+5
>> VAPA(5	GET+6
>> VAPA(6	GET+7
>> VAPA(8	GET+5
>> VAPA(9	GET+3
X	DONE!, GET+10*
XI	DONE!
XY	DONE!
Y	AC+1, DONE!, GET+3*, Q!
Z	AC+5*, DONE!
ZTDESC	AC+4*!
ZTDTH	AC+4*!
>> ZTQUEUED	END+4
>> ZTREQ	END+4*
ZTRTN	AC+4*!
ZTSAVE	AC+4!
ZTSAVE("DA"	AC+4*

Customize PDF page

Package: Outpatient Pharmacy