Routine: PSOSD2

Package	Total	Call Graph
Outpatient Pharmacy	5	DEVBAR^PSOBMST RE^PSODEM CUTDATE^PSOFUNC (CHECKBAI,ELIG)^PSOSD1 ^PSOSDP
VA Fileman	3	^%DTC DT^DIO2 ^DIR
Registration	2	(ADD,DEM,INP,PID,SDA)^VADPT $$SITE^VASITE
IHS Changes To Pharmacy	1	($$VITALF,$$VITCHT,$$VITCWT)^APSPFUNC

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSOSD PSOSD0 PSOSDRAP
Automated Information Collection System	1	IBDFN3
IHS Changes To Scheduling	1	BSDFORM

Name	Field # of Occurrence
^%DTC	CAPP+1
$$VITALF^APSPFUNC	HD1+33, HD1+34
$$VITCHT^APSPFUNC	HD1+34
$$VITCWT^APSPFUNC	HD1+33
DT^DIO2	HD1+3, HD1+10
^DIR	HD1, HD1+20, HD1+27
DEVBAR^PSOBMST	HD+4
RE^PSODEM	HD1+19
CUTDATE^PSOFUNC	PSRENW
CHECKBAI^PSOSD1	HD1+13
ELIG^PSOSD1	HD+1
^PSOSDP	HD+2
ADD^VADPT	HD+1
DEM^VADPT	HD+1
INP^VADPT	HD+1
PID^VADPT	HD+1
SDA^VADPT	HD1+22
$$SITE^VASITE	HD1+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Instructions to the provider:" Line Location: 1+1
Function Call: WRITE	Prompt: !," A. A prescription blank must be used for the" Line Location: 1+4
Function Call: WRITE	Prompt: !," following: 1) any new medication" Line Location: 1+5
Function Call: WRITE	Prompt: !," 2) any changes in dosage, direction or quantity" Line Location: 1+6
Function Call: WRITE	Prompt: !," 3) all class II narcotics." Line Location: 1+7
Function Call: WRITE	Prompt: !," B. To continue a medication as printed:" Line Location: 1+8
Function Call: WRITE	Prompt: !," 1. If ""Remaining Refills"" are sufficient to complete" Line Location: 1+9
Function Call: WRITE	Prompt: !," therapy or last until next scheduled clinic appointment," Line Location: 1+10
Function Call: WRITE	Prompt: !," no action is required." Line Location: 1+11
Function Call: WRITE	Prompt: !," 2. If ""Remaining Refills"" are not sufficient to complete" Line Location: 1+12
Function Call: WRITE	Prompt: !," therapy or last until next scheduled clinic appointment," Line Location: 1+13
Function Call: WRITE	Prompt: !," sign ""RENEW/MD"" line, enter VA# and date, and circle" Line Location: 1+14
Function Call: WRITE	Prompt: !," total number of refills needed. This action creates a" Line Location: 1+15
Function Call: WRITE	Prompt: !," new prescription with refills as indicated." Line Location: 1+16
Function Call: WRITE	Prompt: !," C. To discontinue a medication, sign DISCONTINUE/MD line and enter VA# and",@$S(PSORM:"?$X+1",1:"!?6"),"date." Line Location: 1+17
Function Call: WRITE	Prompt: !," D. Any medications not acted upon will continue to be available" Line Location: 1+18
Function Call: WRITE	Prompt: !," to the patient until all refills are used or until expiration." Line Location: 1+19
Function Call: WRITE	Prompt: !!," NOTE: '(R)' indicates a fill was returned to stock." Line Location: 1+20
Function Call: WRITE	Prompt: @IOF Line Location: HD1+1
Function Call: WRITE	Prompt: $S(PSTYPE:"Action",1:"Informational")_" Rx Profile",?47,"Run Date: " Line Location: HD1+3
Function Call: WRITE	Prompt: ?71,"Page: "_PAGE Line Location: HD1+3
Function Call: WRITE	Prompt: !,"and for those Rx's that have been inactive less than "_PSDAYS_" days." Condition for execution: PSDAYS Line Location: HD1+4
Function Call: WRITE	Prompt: !,"Outpatient prescriptions are discontinued 72 hours after admission.",! Line Location: HD1+9
Function Call: WRITE	Prompt: !?1,"Clinic: ",$E(CLINICX,1,28),?45,"Date/Time: " Line Location: HD1+10
Function Call: WRITE	Prompt: !?1,"Name : ",PSNAME Line Location: HD1+11
Function Call: WRITE	Prompt: ?58,"Action Date: ________" Condition for execution: PSTYPE Line Location: HD1+11
Function Call: WRITE	Prompt: !?1,"DOB : "_PSDOB Line Location: HD1+11
Function Call: WRITE	Prompt: ?30,ADDRFL,! Condition for execution: ADDRFL]"" Line Location: HD1+12
Function Call: WRITE	Prompt: ?30,"Address :" Line Location: HD1+12
Function Call: WRITE	Prompt: ?41,VAPA(1) Line Location: HD1+14
Function Call: WRITE	Prompt: !?41,VAPA(2) Condition for execution: VAPA(2)]"" Line Location: HD1+14
Function Call: WRITE	Prompt: !?41,VAPA(3) Condition for execution: VAPA(3)]"" Line Location: HD1+14
Function Call: WRITE	Prompt: !?41,VAPA(4)_", "_$P(VAPA(5),"^",2)_" "_$S(VAPA(11)]"":$P(VAPA(11),"^",2),1:VAPA(6)),!?30,"Phone : "_VAPA(8) Line Location: HD1+15
Function Call: WRITE	Prompt: @PSOBAR3,X2,@PSOBAR2,$C(13) Line Location: HD1+16
Function Call: WRITE	Prompt: !!,"Pending Outpatient Clinic Appointments:" Line Location: HD1+25
Function Call: WRITE	Prompt: !?11,$P(PSOACPPE,"^"),?35,$P(PSOACPPE,"^",2) Line Location: HD1+26
Function Call: WRITE	Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")" Condition for execution: +$P(WT,"^",8) Line Location: HD1+35
Function Call: WRITE	Prompt: ?41,"HEIGHT(cm): " Line Location: HD1+35
Function Call: WRITE	Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")" Condition for execution: $P(HT,"^",8) Line Location: HD1+35
Function Call: WRITE	Prompt: !,$E(LINE,1,$S('PSORM:80,1:IOM)-1),!,"Medication/Supply" Q:'PSORM Line Location: HD1+38
Function Call: WRITE	Prompt: ?74,"Rx#",?85,"Status",?98,"Expiration",?110,"Provider",!,?101,"Date" Line Location: HD1+39
Function Call: WRITE	Prompt: $S($P(PSOACPPI,"^",3)["C":" * Canceled *",1:" ("_$G(X)_" days)") Line Location: CAPP+2
Routine Call	DIR Line Location: HD1 HD1+20 HD1+27

Name	Line Occurrences (* Changed, ! Killed)
^PS(59 - [#59]	HD1+8
^PS(59.7 - [#59.7]	HD1+9
^PSRX - [#52]	PSRENW+1, PSRENW+2
^TMP($J	HD+2, HD1+22
^UTILITY("VASD"	HD1+22!, HD1+26, HD1+36, KLCL!

Name	Line Occurrences
1	HD1+37
CAPP	HD1+26
HD	HD1+22, HD1+36
KLCL	HD1+36, HD1+37
LN	PSRENW, PSRENW+1

Name	Field # of Occurrence
^("I"	HD1+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADDRFL	HD+1*, HD1+12, HD1+13
>> CLAPP	HD1+19, HD1+22*
>> CLDT	HD1+10
>> CLINICX	HD+2, HD1+10
>> CS	LN*
DEA	LN*, LN+1!
>> DFN	HD, HD+2, HD1+17, HD1+22, HD1+33, HD1+34
DIR	HD1!, HD1+19!, HD1+20!, HD1+27!
DIR("A"	HD1*
DIR(0	HD1, HD1+20, HD1+27*
DIRUT	HD1+19!, HD1+21, HD1+27!, HD1+36
>> DOD(	HD1+17
DT	HD1+3, HD1+22, HD1+25, CAPP+1
DTOUT	HD1, HD1+19!, HD1+20!, HD1+27!
DUOUT	HD1, HD1+19!, HD1+20!
>> FA	HD1+25*
>> FN	HD*
>> HDFL	HD1+18, HD1+37*
HT	HD1+30, HD1+34, HD1+35!
IO	HD1+2
IOF	HD1+1, HD1+23
IOM	1, HD1+8, HD1+24, HD1+38
>> IOS	HD+4
IOSL	HD1+20
IOST	HD1, HD1+20, HD1+23, HD1+27
K	HD~
>> LINE	1, HD1+8, HD1+24, HD1+38
>> PAGE	HD1+3, HD1+28, HD1+36*
>> PSDAYS	HD1+4
>> PSDOB	HD+3*, HD1+11
>> PSNAME	HD+3*, HD1+11
PSOACPP	HD1+26*, KLCL!
PSOACPPE	HD1+26*, KLCL!
PSOACPPI	HD1+26*, CAPP+1, CAPP+2, KLCL!
>> PSOBAR0	HD+4, HD+5
>> PSOBAR1	HD+4, HD+5
>> PSOBAR2	HD+5*, HD+6, HD1+16
>> PSOBAR3	HD+5*, HD+6, HD1+16
>> PSOBAR4	HD+6*, HD1+16
PSODEA	LN, LN+1!
>> PSODTCUT	PSRENW, PSRENW+1
>> PSOIOS	HD+4*
>> PSONUM	HD1+22
>> PSOPAR	HD+6
>> PSOPOL	HD1+22, HD1+28
>> PSOPOLP	HD1+36*
>> PSORM	1, 1+17, HD*, HD1+8, HD1+16, HD1+24, HD1+38
>> PSOSITE	HD1+8
>> PSRENW	PSRENW, PSRENW+1, PSRENW+2*
>> PSSN	HD+1*, HD1+16
>> PSTYPE	HD1, HD1+3, HD1+11, HD1+37
>> RX0	PSRENW+1, PSRENW+2
>> RX2	PSRENW
>> RX3	PSRENW+1
>> RXCNT	HD1*
>> RXNO	PSRENW+1, PSRENW+2
U	HD1+8, HD1+33, HD1+34
>> VA("PID"	HD+1
>> VADM(1	HD+3
>> VADM(3	HD+3
>> VAIN(4	HD1+9
>> VAPA(1	HD1+14
>> VAPA(11	HD1+15
>> VAPA(2	HD1+14
>> VAPA(3	HD1+14
>> VAPA(4	HD1+15
>> VAPA(5	HD1+15
>> VAPA(6	HD1+15
>> VAPA(8	HD1+15
>> VAPA(9	HD+1
VASD	HD1+22!
VASD("F"	HD1+22*
VASD("T"	HD1+22*
VASD("W"	HD1+22*
VM	HD1+35!
WT	HD1+30, HD1+33, HD1+35!
X	HD1+5, HD1+16, CAPP+1!, CAPP+2
>> X1	HD1+16, CAPP+1
>> X2	HD1+16, CAPP+1
>> Y	HD1+3, HD1+10

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOSD2

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
KLCL
HD1
PSRENW
LN
CAPP	;
1
HD		ICR #237 Status: Active Usage: Private