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
General Medical Record - Vitals	1	EN6^GMRVUTL

Package	Total	Caller Graph
Outpatient Pharmacy	5	PSO ACTION PROFILE PSO ACTION PROFILE #2 PSOSD PSOSD0 PSOSDRAP

Name	Field # of Occurrence
^%DTC	CAPP+1
DT^DIO2	HD1+3, HD1+8
^DIR	HD1, HD1+18, HD1+25
EN6^GMRVUTL	HD1+28
DEVBAR^PSOBMST	HD+4
RE^PSODEM	HD1+17
CUTDATE^PSOFUNC	PSRENW
CHECKBAI^PSOSD1	HD1+11
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+20
$$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 (VA FORM 10-2577f) must be used for the" Line Location: 1+2
Function Call: WRITE	Prompt: !," following: 1) any new medication" Line Location: 1+3
Function Call: WRITE	Prompt: !," 2) any changes in dosage, direction or quantity" Line Location: 1+4
Function Call: WRITE	Prompt: !," 3) all class II narcotics." Line Location: 1+5
Function Call: WRITE	Prompt: !," B. To continue a medication as printed:" Line Location: 1+6
Function Call: WRITE	Prompt: !," 1. If ""Remaining Refills"" are sufficient to complete" Line Location: 1+7
Function Call: WRITE	Prompt: !," therapy or last until next scheduled clinic appointment," Line Location: 1+8
Function Call: WRITE	Prompt: !," no action is required." Line Location: 1+9
Function Call: WRITE	Prompt: !," 2. If ""Remaining Refills"" are not sufficient to complete" Line Location: 1+10
Function Call: WRITE	Prompt: !," therapy or last until next scheduled clinic appointment," Line Location: 1+11
Function Call: WRITE	Prompt: !," sign ""RENEW/MD"" line, enter VA# and date, and circle" Line Location: 1+12
Function Call: WRITE	Prompt: !," total number of refills needed. This action creates a" Line Location: 1+13
Function Call: WRITE	Prompt: !," new prescription with refills as indicated." Line Location: 1+14
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+15
Function Call: WRITE	Prompt: !," D. Any medications not acted upon will continue to be available" Line Location: 1+16
Function Call: WRITE	Prompt: !," to the patient until all refills are used or until expiration." Line Location: 1+17
Function Call: WRITE	Prompt: !!," NOTE: '(R)' indicates a fill was returned to stock." Line Location: 1+18
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+7
Function Call: WRITE	Prompt: !?1,"Clinic: ",$E(CLINICX,1,28),?45,"Date/Time: " Line Location: HD1+8
Function Call: WRITE	Prompt: !?1,"Name : ",PSNAME Line Location: HD1+9
Function Call: WRITE	Prompt: ?58,"Action Date: ________" Condition for execution: PSTYPE Line Location: HD1+9
Function Call: WRITE	Prompt: !?1,"DOB : "_PSDOB Line Location: HD1+9
Function Call: WRITE	Prompt: ?30,ADDRFL,! Condition for execution: ADDRFL]"" Line Location: HD1+10
Function Call: WRITE	Prompt: ?30,"Address :" Line Location: HD1+10
Function Call: WRITE	Prompt: ?41,VAPA(1) Line Location: HD1+12
Function Call: WRITE	Prompt: !?41,VAPA(2) Condition for execution: VAPA(2)]"" Line Location: HD1+12
Function Call: WRITE	Prompt: !?41,VAPA(3) Condition for execution: VAPA(3)]"" Line Location: HD1+12
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+13
Function Call: WRITE	Prompt: @PSOBAR3,X2,@PSOBAR2,$C(13) Line Location: HD1+14
Function Call: WRITE	Prompt: !!,"Pending Outpatient Clinic Appointments:" Line Location: HD1+23
Function Call: WRITE	Prompt: !?11,$P(PSOACPPE,"^"),?35,$P(PSOACPPE,"^",2) Line Location: HD1+24
Function Call: WRITE	Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")" Condition for execution: +$P(WT,"^",8) Line Location: HD1+30
Function Call: WRITE	Prompt: ?41,"HEIGHT(cm): " Line Location: HD1+30
Function Call: WRITE	Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")" Condition for execution: $P(HT,"^",8) Line Location: HD1+30
Function Call: WRITE	Prompt: !,$E(LINE,1,$S('PSORM:80,1:IOM)-1),!,"Medication/Supply" Q:'PSORM Line Location: HD1+33
Function Call: WRITE	Prompt: ?74,"Rx#",?85,"Status",?98,"Expiration",?110,"Provider",!,?101,"Date" Line Location: HD1+34
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+18 HD1+25

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	HD1+27
^PS(59.7 - [#59.7]	HD1+7
^PSRX - [#52]	PSRENW+1, PSRENW+2
^TMP($J	HD+2, HD1+20
^UTILITY("VASD"	HD1+20!, HD1+24, HD1+31, KLCL!

Name	Line Occurrences
1	HD1+32
CAPP	HD1+24
HD	HD1+20, HD1+31
KLCL	HD1+31, HD1+32
LN	PSRENW, PSRENW+1

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOSD2

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

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
1
HD		ICR #237 Status: Active Usage: Private
HD1
CAPP	;
PSRENW
LN
KLCL