Routine: PSOSD1

Call Graph

Call Graph Total: 18

Package	Total	Call Graph
Outpatient Pharmacy	8	DEVBAR^PSOBMST ENSTUFF^PSODACT GMRA^PSODEM EN^PSOPATLK EN^PSORMRXP (,EXIT,PAT)^PSOSD ELIG^PSOSD1 (,NVA)^PSOSD3
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Registration	3	$$BADADR^DGUTL3 (ADD,DEM,ELIG,INP,KVA,KVAR,PID)^VADPT $$SITE^VASITE
VA Fileman	3	C^%DTC DT^DIO2 ^DIR
IHS Changes To Pharmacy	1	($$VITALF,$$VITCHT,$$VITCWT)^APSPFUNC

Package

Total

Call Graph

Outpatient Pharmacy

DEVBAR^PSOBMST ENSTUFF^PSODACT GMRA^PSODEM EN^PSOPATLK EN^PSORMRXP (,EXIT,PAT)^PSOSD ELIG^PSOSD1 (,NVA)^PSOSD3

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

Registration

$$BADADR^DGUTL3 (ADD,DEM,ELIG,INP,KVA,KVAR,PID)^VADPT $$SITE^VASITE

VA Fileman

C^%DTC DT^DIO2 ^DIR

IHS Changes To Pharmacy

($$VITALF,$$VITCHT,$$VITCWT)^APSPFUNC

Package	Total	Caller Graph
Outpatient Pharmacy	6	PSOSD PSOSD1 PSOSD2 PSOSD3 PSOSDP PSOSDRAP
Health Summary	2	GMTSDVR GMTSPL
Automated Information Collection System	1	IBDFN3
IHS Changes To Scheduling	1	BSDFORM
Order Entry Results Reporting	1	ORWRP1
Registration	1	DG1010P

Package

Total

Caller Graph

Outpatient Pharmacy

PSOSD PSOSD1 PSOSD2 PSOSD3 PSOSDP PSOSDRAP

Health Summary

GMTSDVR GMTSPL

Automated Information Collection System

IBDFN3

IHS Changes To Scheduling

BSDFORM

Order Entry Results Reporting

ORWRP1

Registration

DG1010P

Entry Points

External References

Name	Field # of Occurrence
C^%DTC	DAYS+1, DFN+5
^%ZIS	DEV
^%ZISC	DEV+1, EXIT
^%ZTLOAD	DEV+6
$$VITALF^APSPFUNC	HD+19, HD+20
$$VITCHT^APSPFUNC	HD+20
$$VITCWT^APSPFUNC	HD+19
$$BADADR^DGUTL3	CHECKBAI+2
DT^DIO2	HD+4
^DIR	DAYS+1, LM+3, LM+6, LM+7, LM+9
DEVBAR^PSOBMST	DEV+2, DFN+1
ENSTUFF^PSODACT	START+2
GMRA^PSODEM	HD+24
EN^PSOPATLK	INIT+1
EN^PSORMRXP	START+3
^PSOSD	DEV+4, DEV+7
EXIT^PSOSD	INIT+4
PAT^PSOSD	START+2
ELIG^PSOSD1	HD+1
^PSOSD3	START+3
NVA^PSOSD3	START+3
ADD^VADPT	HD+1
DEM^VADPT	INIT+2, HD+1
ELIG^VADPT	ELIG+1
INP^VADPT	HD+1
KVA^VADPT	EXIT+3
KVAR^VADPT	ELIG+5
PID^VADPT	HD+1
$$SITE^VASITE	HD+4, LM+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Patient Expired on "_$P(VADM(6),"^",2),! Line Location: INIT+2
Function Call: WRITE	Prompt: !,$C(7),"MAX NUMBER OF PATIENTS HAS BEEN REACHED" Line Location: INIT+3
Function Call: WRITE	Prompt: $C(7),!!,"Action Profiles MUST BE SENT TO A PRINTER !!",!,"ONLY INFORMATIONAL PROFILES ARE ALLOWED TO PRINT TO SCREEN !!",! Line Location: DEV+1
Function Call: WRITE	Prompt: ! Line Location: EXIT+0
Function Call: WRITE	Prompt: "Refills: 0 1 2 3 4 5 6 7 8 9 10 11" Line Location: RXPAD+4
Function Call: WRITE	Prompt: @IOF Line Location: HD+3
Function Call: WRITE	Prompt: "Action Rx Profile",?47,"Run Date: " Line Location: HD+4
Function Call: WRITE	Prompt: ?71,"Page: "_PAGE Line Location: HD+4
Function Call: WRITE	Prompt: !,"and for those Rx's that have been inactive less than "_PSDAYS_" days." Condition for execution: PSDAYS Line Location: HD+5
Function Call: WRITE	Prompt: !,"Outpatient prescriptions are discontinued 72 hours after admission.",! Line Location: HD+9
Function Call: WRITE	Prompt: !?1,"Name : ",PSNAME Line Location: HD+10
Function Call: WRITE	Prompt: ?58,"Action Date: ________" Line Location: HD+10
Function Call: WRITE	Prompt: ?58,"Action Date: ________" Line Location: HD+10
Function Call: WRITE	Prompt: ?30,ADDRFL,! Condition for execution: ADDRFL]"" Line Location: HD+11
Function Call: WRITE	Prompt: ?30,"Address :" Line Location: HD+11
Function Call: WRITE	Prompt: ?41,VAPA(1) Line Location: HD+13
Function Call: WRITE	Prompt: !?41,VAPA(2) Condition for execution: VAPA(2)]"" Line Location: HD+13
Function Call: WRITE	Prompt: !?41,VAPA(3) Condition for execution: VAPA(3)]"" Line Location: HD+13
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: HD+13
Function Call: WRITE	Prompt: @PSOBAR3,X2,@PSOBAR2,$C(13) Line Location: HD+14
Function Call: WRITE	Prompt: !!,"WEIGHT(Kg): " Line Location: HD+21
Function Call: WRITE	Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")" Condition for execution: +$P(WT,"^",8) Line Location: HD+21
Function Call: WRITE	Prompt: ?41,"HEIGHT(cm): " Line Location: HD+21
Function Call: WRITE	Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")" Condition for execution: $P(HT,"^",8) Line Location: HD+21
Function Call: WRITE	Prompt: " " Line Location: CHECKBAI+3
Function Call: WRITE	Prompt: ?40," BAD ADDRESS INDICATED ",! Line Location: CHECKBAI+4
Routine Call	DIR Line Location: DAYS+1 LM+3 LM+6 LM+7 LM+9
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^PS(59 - [#59]	DFN+3
^PS(59.7 - [#59.7]	HD+9
^TMP($J	EXIT+2!

Name	Line Occurrences
ASK	LM+4, LM+6
CHECKBAI	HD+12
DAYS	INIT+4, ASK
DEV	DEV+1, ASK
ELIG	START+1
EXIT	DEV, DEV+4, START+1, LM+6, LM+7, LM+9, ASK, ASK+1
HD	RXPAD
RXPAD	START+2
START	DEV+7, DFN+4

Name	Field # of Occurrence
^("ACT"	EXIT+2!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV!*
%ZIS("A"	DEV*
%ZIS("B"	DEV*
ADDR	EXIT+2!
ADDRFL	EXIT+2!, HD+1*, HD+11, HD+12
CLAPP	EXIT+2!
CLASS	EXIT+2!
CNDT	EXIT+2!
CNT	EXIT+2!, RXPAD*, RXPAD+2
DFN	INIT+2!, START+1, START+3, EXIT!, EXIT+2!, DFN+4, RXPAD, HD, HD+2, HD+19 , HD+20, CHECKBAI+2
DIC	EXIT+3!
DIC(0	INIT+1*
DIR	EXIT+3!, DAYS!, DAYS+1!, LM+2!, LM+3!, LM+5!, LM+7!, LM+8!, LM+9!
DIR("?"	DAYS, LM+2, LM+5*
DIR("A"	DAYS, LM+2, LM+5, LM+7, LM+8*
DIR("B"	DAYS, LM+2, LM+5, LM+7, LM+8*
DIR(0	DAYS, LM+2, LM+5, LM+7, LM+8*
DIRUT	LM+3, LM+6, LM+7, LM+8!, LM+9
DOD	EXIT+3!
DOD(	INIT+2, RXPAD, HD+2
DRUG	EXIT+2!
DT	DAYS+1, DFN+5, HD+4
DTOUT	INIT+4, START+1, START+2, START+3, DAYS+1, LM+8!, ASK
DUOUT	INIT+4, START+1, START+2, START+3, DAYS+1, LM+8!, LM+9, ASK
>> ELN	HD+25*
FILL	EXIT+3!
>> FN	HD*
>> G	DEV+5*
HDFL	EXIT+2!
HT	HD+16, HD+20, HD+21!
I	EXIT+2!
II	EXIT+2!
IO	START
IO("Q"	DEV+4, DEV+6!
IOF	EXIT+1, DFN+3, HD+3
IOM	RXPAD+6, HD+8, HD+24, HD+26
ION	DEV
IOP	DEV!*
>> IOS	DEV+2, DFN+1
IOSL	RXPAD
IOST	DEV+1
J	EXIT+2!
K	RXPAD~
L	EXIT+2!
LF	RXPAD*, RXPAD+4, RXPAD+7!
LINE	START, EXIT+2!, RXPAD+6, HD+8, HD+24, HD+25, HD+26
LM	DEV+4, DEV+6, DEV+7, LM+3*, ASK+1!
>> LN	RXPAD+2, RXPAD+3, RXPAD+5, HD+25*
>> ORVP	EXIT+1
P	EXIT+2!
PAGE	START+1, EXIT+2!, HD+3, HD+4
PCLASS	EXIT+3!
PGM	EXIT+2!
PHYS	EXIT+3!
>> POP	DEV
PRF	INIT+1, INIT+2, INIT+3, INIT+4, START+1, EXIT+2!, DFN+4, ASK
PSCNT	EXIT+3!
PSDATE	EXIT+2!, DAYS+1, DFN+5
PSDAY	EXIT+2!, DAYS+1, DFN+5
PSDAYS	EXIT+2!, DAYS+1, DFN+4, DFN+5, HD+5
PSDOB	EXIT+2!, RXPAD+1, HD+3*, HD+10
PSDT	EXIT+3!
PSIIX	EXIT+2!
PSIX	START+1*, EXIT+2!
PSNAME	EXIT+2!, RXPAD+1, HD+3*, HD+10
PSOBADR	CHECKBAI+1~, CHECKBAI+2*, CHECKBAI+3
PSOBAR0	DEV~, DEV+2, DFN+1
PSOBAR1	DEV~, DEV+2, DFN+1
PSOBAR2	DEV+2, DEV+3, EXIT+2!, DFN+1, DFN+2, HD+14
PSOBAR3	DEV+2, DEV+3, EXIT+2!, DFN+1, DFN+2, HD+14
PSOBAR4	DEV+3, EXIT+2!, DFN+2, HD+14
PSOBARS	DEV~
>> PSODFN	ASK
PSOI	INIT+1*, EXIT+2!
>> PSOINST	LM+1*
PSOION	DEV*!, DEV+4!
>> PSOIOS	DEV+2, DFN+1
>> PSONOPG	EXIT, EXIT+1, DFN+3
PSONUM	EXIT+3!, LM+7*
>> PSOPAR	DEV+3, DFN+2
>> PSOPOL	LM+4, LM+6
PSOPOLP	EXIT+3!
PSOPRINT	EXIT+3!, ELIG, ELIG+4
PSOPTLK	INIT~, INIT+1
>> PSORM	DFN, RXPAD+4, RXPAD+6, HD, HD+8, HD+14, HD+24, HD+26, LM+9*
>> PSOSITE	DFN+3*
>> PSOSYS	LM+4
PSQFLG	START+1, START+2, START+3*, EXIT+2!
PSSN	EXIT+2!, HD+1*, HD+14
PSSN4	EXIT+3!, HD+1*
PSTYPE	DEV, DEV+1, START, START+2, EXIT+2!, LM+3
RF	EXIT+2!
RFS	EXIT+2!
RX	EXIT+2!
RX0	EXIT+2!
RX2	EXIT+2!
RX3	EXIT+2!
RXNODE	EXIT+3!
ST	EXIT+2!
ST0	EXIT+2!
U	HD+19, HD+20
>> VA("PID"	HD+1
>> VADM(1	HD+3
>> VADM(3	HD+3
>> VADM(6	INIT+2, HD+2
>> VAEL(3	ELIG+4
>> VAEL(4	ELIG+2, ELIG+3
>> VAIN(4	HD+9
VAL	EXIT+2!
>> VALMSG	ASK*
>> VAPA(1	HD+13
>> VAPA(11	HD+13
>> VAPA(2	HD+13
>> VAPA(3	HD+13
>> VAPA(4	HD+13
>> VAPA(5	HD+13
>> VAPA(6	HD+13
>> VAPA(8	HD+13
>> VAPA(9	HD+1
VAR	EXIT+2!
VM	HD+21!
WT	HD+16, HD+19, HD+21!
X	DAYS+1, DFN+5, HD+4, HD+8, HD+14, LM+1*!, LM+9!
X1	EXIT+3!, DAYS+1, DFN+5, HD+14*
X2	EXIT+3!, DAYS+1, DFN+5, HD+14*
Y	INIT+1, INIT+2, HD+4, LM+3, LM+6, LM+7, LM+9!
ZCLASS	EXIT+3!
>> ZTDESC	DEV+4*
ZTQUEUED	DEV!
>> ZTRTN	DEV+4*
>> ZTSAVE(	DEV+5*
>> ZTSAVE("DOD*"	DEV+6*
>> ZTSAVE("PSOBAR*"	DEV+6*
>> ZTSAVE("ZTREQ"	DEV+4*
ZTSK	DEV!, DEV+6!, ASK

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOSD1

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ELIG
LM	;prints AP from listamn action
RXPAD
DAYS
DEV
START
INIT
DFN		ICR #183 Status: Retired Usage: Controlled Subscription ICR #184 Status: Retired Usage: Private ICR #236 Status: Retired Usage: Private ICR #1281 Status: Active Usage: Controlled Subscription
EXIT
ASK
CHECKBAI	;
HD