Routine: PSOSD3

Package	Total	Call Graph
Registration	2	(ADD,DEM,INP,PID)^VADPT $$SITE^VASITE
VA Fileman	2	DT^DIO2 ^DIR
IHS Changes To Pharmacy	1	($$VITALF,$$VITCHT,$$VITCWT)^APSPFUNC
Kernel	1	$$FMTE^XLFDT
Outpatient Pharmacy	1	(CHECKBAI,ELIG)^PSOSD1

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSOSD1 PSOSDRAP PSOXX

Entry Points

External References

Name	Field # of Occurrence
$$VITALF^APSPFUNC	HD1+24, HD1+25
$$VITCHT^APSPFUNC	HD1+25
$$VITCWT^APSPFUNC	HD1+24
DT^DIO2	HD1+5, HD1+12
^DIR	HD1+1
CHECKBAI^PSOSD1	HD1+15
ELIG^PSOSD1	START+2, HD1+2
ADD^VADPT	START+2, HD1+2
DEM^VADPT	START+2, HD1+2
INP^VADPT	START+2, HD1+2
PID^VADPT	START+2, HD1+2
$$SITE^VASITE	HD1+7
$$FMTE^XLFDT	NVA+11, NVA+14, NVA+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,"No pending orders for this patient!",! Line Location: START+9
Function Call: WRITE	Prompt: ! Condition for execution: PSCONT>1 Line Location: START+14
Function Call: WRITE	Prompt: ?6,$G(^PS(52.41,PNDREX,"SIG",PPPP,0)) Line Location: START+14
Function Call: WRITE	Prompt: ! Line Location: START+15
Function Call: WRITE	Prompt: !,PNDLINE,"PENDING ORDERS",PNDLINE,! Line Location: HD+0
Function Call: WRITE	Prompt: @IOF Line Location: HD1+4
Function Call: WRITE	Prompt: $S(PSTYPE:"Action",1:"Informational")_" Rx Profile",?47,"Run Date: " Line Location: HD1+5
Function Call: WRITE	Prompt: ?71,"Page: "_PAGE Line Location: HD1+5
Function Call: WRITE	Prompt: !,"and for those Rx's that have been inactive less than "_PSDAYS_" days." Condition for execution: PSDAYS Line Location: HD1+6
Function Call: WRITE	Prompt: !,"Outpatient prescriptions are discontinued 72 hours after admission.",! Line Location: HD1+11
Function Call: WRITE	Prompt: !?1,"Clinic: "_$E(CLINICX,1,28),?45,"Date/Time: " Line Location: HD1+12
Function Call: WRITE	Prompt: !?1,"Name : ",PSNAME Line Location: HD1+13
Function Call: WRITE	Prompt: ?58,"Action Date: ________" Condition for execution: PSTYPE Line Location: HD1+13
Function Call: WRITE	Prompt: !?1,"DOB : "_PSDOB Line Location: HD1+13
Function Call: WRITE	Prompt: ?30,ADDRFL,! Condition for execution: ADDRFL]"" Line Location: HD1+14
Function Call: WRITE	Prompt: ?30,"Address :" Line Location: HD1+14
Function Call: WRITE	Prompt: ?41,VAPA(1) Line Location: HD1+16
Function Call: WRITE	Prompt: !?41,VAPA(2) Condition for execution: VAPA(2)]"" Line Location: HD1+16
Function Call: WRITE	Prompt: !?41,VAPA(3) Condition for execution: VAPA(3)]"" Line Location: HD1+16
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+17
Function Call: WRITE	Prompt: @PSOBAR3,X2,@PSOBAR2,$C(13) Line Location: HD1+18
Function Call: WRITE	Prompt: !!,"WEIGHT(Kg): " Line Location: HD1+26
Function Call: WRITE	Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")" Condition for execution: +$P(WT,"^",8) Line Location: HD1+26
Function Call: WRITE	Prompt: ?41,"HEIGHT(cm): " Line Location: HD1+26
Function Call: WRITE	Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")" Condition for execution: $P(HT,"^",8) Line Location: HD1+26
Function Call: WRITE	Prompt: !,PNDLINE,!?25,"Outside Medications",!,PNDLINE,! Line Location: NVA+4
Function Call: WRITE	Prompt: ! Line Location: NVA+17
Function Call: WRITE	Prompt: !?5,OCK(II) Line Location: NVA+22
Function Call: WRITE	Prompt: OCK(II) Line Location: NVA+28
Function Call: WRITE	Prompt: !?5 Line Location: NVA+28
Function Call: WRITE	Prompt: !?5,OCK(II) Line Location: NVA+32
Function Call: WRITE	Prompt: ! Line Location: NVA+33
Routine Call	DIR Line Location: HD1+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	START+12, NVA+9
^PS(50.7 - [#50.7]	START+12, NVA+9
^PS(52.41 - [#52.41]	START+5, START+6, START+11, START+14
^PS(55 - [#55]	NVA+1, NVA+5, NVA+7, NVA+8, NVA+17, NVA+18, NVA+25, NVA+29
^PS(59.7 - [#59.7]	HD1+11
^PSDRUG - [#50]	START+12, NVA+10
^TMP($J	START+4!, START+6*, START+10, START+11, START+12, END!
^VA(200 - [#200]	START+13, NVA+15, NVA+24

Label References

Name	Line Occurrences
END	START+7, START+9
HD	START+8, START+16, START+17
HD1	START+7, START+16, START+17, NVA+3, NVA+6

Naked Globals

Name	Field # of Occurrence
^(0	START+11, START+12, NVA+9, NVA+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADDRFL	START+2, HD1+2, HD1+14, HD1+15
>> CLDT	HD1+12
>> CLINICX	HD1+12
>> DFN	START, START+5, HD1, HD1+19, HD1+24, HD1+25, NVA+1, NVA+2, NVA+3, NVA+5
DIR	HD1+1!
DIR("A"	HD1+1*
DIR(0	HD1+1*
>> DOD(	HD1+19
DSC	NVA+32!
DSC(	NVA+29*, NVA+30, NVA+31
DT	HD1+5
>> DTOUT	START, START+7, START+16, START+17, HD1+1, NVA+2, NVA+6
>> DUOUT	START, START+7, START+16, START+17, HD1+1, NVA+2, NVA+6
>> DUPRX0	NVA+8*, NVA+9, NVA+10, NVA+11, NVA+12, NVA+13, NVA+14, NVA+15
>> FN	HD1*
HT	HD1+21, HD1+25, HD1+26!
>> I	NVA+17*, NVA+18, NVA+19, NVA+25
IEN	NVA+20, NVA+21, NVA+23!, NVA+26, NVA+27, NVA+28!, NVA+30, NVA+31, NVA+32!
II	NVA+22, NVA+23!, NVA+26, NVA+27, NVA+28, NVA+30, NVA+31, NVA+32*
IOF	HD1+4
IOM	HD1+10, HD1+27, NVA+3, NVA+16
IOSL	START+7, START+17, NVA+6
IOST	START+15, START+16, START+17, HD1+1, NVA+33
LEN	NVA+20!*, NVA+23!
>> LINE	HD1+10, HD1+27
MMM	START+1~, START+5*, START+6
>> NVA	NVA+5*, NVA+7, NVA+8, NVA+17, NVA+18, NVA+25, NVA+29
OCK	NVA+20!, NVA+23!, NVA+25!, NVA+29!
OCK(	NVA+21, NVA+22, NVA+27, NVA+28, NVA+31*, NVA+32
ORD	NVA+18*, NVA+20, NVA+21, NVA+23!
ORP	NVA+18*, NVA+24, NVA+25!
>> PAGE	HD1+5, HD1+27*
PNDIS	START+1~, START+11*, START+12
PNDLINE	START+1~, START+4, HD, NVA+3, NVA+4
PNDREX	START+1~, START+11*, START+14
PNPOI	START+1~, START+11*, START+12
PPPP	START+1~, START+14*
PSCONT	START+1~, START+5, START+6, START+9, START+14*
>> PSDAYS	HD1+6
>> PSDOB	START+3, HD1+3, HD1+13
>> PSNAME	START+3, HD1+3, HD1+13
>> PSOBAR2	HD1+18
>> PSOBAR3	HD1+18
>> PSOBAR4	HD1+18
>> PSODFN	NVA+3*, NVA+7, NVA+8, NVA+17, NVA+18, NVA+25, NVA+29
PSOEFF	START+1~, START+11*, START+13
PSOPRVD	START+1~, START+11*, START+13
PSOQTY	START+1~, START+11*, START+13
PSOREFLS	START+1~, START+11*, START+13
>> PSORM	HD1+10, HD1+18, HD1+27, NVA+16
>> PSQFLG	START+7, START+10, START+14, START+16, START+17, NVA+5, NVA+6
>> PSSN	START+2, HD1+2, HD1+18
>> PSTYPE	HD1+5, HD1+13
PZSTAT	START+1~, START+5*
REA	NVA+25!, NVA+28!
REA(	NVA+25*, NVA+26, NVA+27
RMLEN	NVA+16*, NVA+20, NVA+21, NVA+27, NVA+31, NVA+34!
SG	NVA+21, NVA+23!, NVA+27, NVA+28!, NVA+31*, NVA+32!
>> SS	NVA+25, NVA+29
U	HD1+24, HD1+25
>> VA("PID"	START+2, HD1+2
>> VADM(1	START+3, HD1+3
>> VADM(3	START+3, HD1+3
>> VAIN(4	HD1+11
>> VAPA(1	HD1+16
>> VAPA(11	HD1+17
>> VAPA(2	HD1+16
>> VAPA(3	HD1+16
>> VAPA(4	HD1+17
>> VAPA(5	HD1+17
>> VAPA(6	HD1+17
>> VAPA(8	HD1+17
>> VAPA(9	START+2, HD1+2
VM	HD1+26!
WT	HD1+21, HD1+24, HD1+26!
WWW	START+1~, START+10*, START+11, START+12
>> X	HD1+7, HD1+10, HD1+18
>> X1	HD1+18*
>> X2	HD1+18*
>> Y	HD1+5, HD1+12

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOSD3

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
START
NVA	;displays non-va meds
END
HD1
HD