Routine: PSOSDP

Package	Total	Call Graph
Outpatient Pharmacy	5	(,EXIT)^PSOSD (CHECKBAI,DAYS,ELIG)^PSOSD1 CLIN1^PSOSDRAP FSIG^PSOUTLA EN3^PSOUTLA1
VA Fileman	4	^%DT C^%DTC ^DIC DT^DIO2
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Registration	2	(ADD,DEM,INP,KVA,PID)^VADPT $$SITE^VASITE
IHS Changes To Pharmacy	1	($$VITALF,$$VITCHT,$$VITCWT)^APSPFUNC

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSOSD PSOSD0 PSOSD2

Entry Points

Name	Comments	DBIA/ICR reference
COS
EN	;
FT
SIG
CLSG	;clinic group sort and print
EXIT
HD

External References

Name	Field # of Occurrence
^%DT	CLSG+5, CLSG+14
C^%DTC	CLSG+6
^%ZIS	CLSG+10
^%ZISC	EN+4
^%ZTLOAD	CLSG+16
$$VITALF^APSPFUNC	HD+18, HD+19
$$VITCHT^APSPFUNC	HD+19
$$VITCWT^APSPFUNC	HD+18
^DIC	CLSG+2
DT^DIO2	HD+3, HD+7
^PSOSD	EXIT+4
EXIT^PSOSD	CLSG+2, CLSG+5, EXIT+3
CHECKBAI^PSOSD1	HD+10
DAYS^PSOSD1	CLSG+6
ELIG^PSOSD1	HD+1
CLIN1^PSOSDRAP	EN+3
FSIG^PSOUTLA	SIG
EN3^PSOUTLA1	SIG+1
ADD^VADPT	HD+1
DEM^VADPT	HD+1
INP^VADPT	HD+1
KVA^VADPT	EXIT+3
PID^VADPT	HD+1
$$SITE^VASITE	HD+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,"* "_$E(DRG,1,40),?52 Line Location: PSOSDP+7
Function Call: WRITE	Prompt: $G(BSIG(1)),?79,"*" Line Location: PSOSDP+7
Function Call: WRITE	Prompt: !?10,"",?52,$G(BSIG(PSREV)),?79,"" Line Location: PSOSDP+8
Function Call: WRITE	Prompt: @IOF,!,"Polypharmacy Rx Profile Review",?47,"Run Date: " Line Location: HD+3
Function Call: WRITE	Prompt: ?71,"Page: "_PAGE Line Location: HD+3
Function Call: WRITE	Prompt: !?1,"Clinic: ",$E(CLINICX,1,28),?45,"Date/Time: " Line Location: HD+7
Function Call: WRITE	Prompt: !?1,"Name : ",PSNAME,?30 Line Location: HD+8
Function Call: WRITE	Prompt: ?58,"Review Date: ________" Line Location: HD+8
Function Call: WRITE	Prompt: ?58,"Review Date: ________" Line Location: HD+8
Function Call: WRITE	Prompt: ?30,ADDRFL,! Condition for execution: ADDRFL]"" Line Location: HD+9
Function Call: WRITE	Prompt: ?30,"Address :" Line Location: HD+9
Function Call: WRITE	Prompt: ?41,VAPA(1) Line Location: HD+11
Function Call: WRITE	Prompt: !?41,VAPA(2) Condition for execution: VAPA(2)]"" Line Location: HD+11
Function Call: WRITE	Prompt: !?41,VAPA(3) Condition for execution: VAPA(3)]"" Line Location: HD+11
Function Call: WRITE	Prompt: !?41,VAPA(4)_", "_$P(VAPA(5),"^",2)_" "_VAPA(6),!?30,"Phone : "_VAPA(8) Line Location: HD+11
Function Call: WRITE	Prompt: @PSOBAR3,X2,@PSOBAR2,$C(13) Line Location: HD+14
Function Call: WRITE	Prompt: !?1,"WEIGHT(Kg): " Line Location: HD+20
Function Call: WRITE	Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")" Condition for execution: +$P(WT,"^",8) Line Location: HD+20
Function Call: WRITE	Prompt: ?41,"HEIGHT(cm): " Line Location: HD+20
Function Call: WRITE	Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")" Condition for execution: $P(HT,"^",8) Line Location: HD+20
Function Call: WRITE	Prompt: "*" Line Location: HD+21
Function Call: WRITE	Prompt: !?10,"",?35,"POLYPHARMACY REVIEW",?79,"",!?10,"",?79,"",!?10,"* Patient: "_PSNAME,?50,"(ID#: "_VA("BID")_")",?79,"*" Line Location: HD+22
Function Call: WRITE	Prompt: !?10,"* is identified as having "_PSONUM_" or more active prescriptions",?79,"",!?10," for drugs (excluding supplies). To avoid unnecessary",?79,"*" Line Location: HD+23
Function Call: WRITE	Prompt: !?10,"* medications, please review these to ensure that each one",?79,"",!?10," is essential. Unnecessary medications may be discontinued on",?79,"*" Line Location: HD+24
Function Call: WRITE	Prompt: !?10,"* the attached Action Profile.",?79,"",!?10,"",?79,"",!?10," I have reviewed the medications below and have taken",?79,"",!?10," actions to discontinue those that are no longer required.",?79,"*" Line Location: HD+25
Function Call: WRITE	Prompt: !?10,"",?79,"" Line Location: HD+26
Function Call: WRITE	Prompt: !?10,"*",?25 Line Location: HD+27
Function Call: WRITE	Prompt: "_" Line Location: HD+27
Function Call: WRITE	Prompt: ?79,"",!?10,"",?25,"(Signature)",?79,"*" Line Location: HD+28
Function Call: WRITE	Prompt: !?10,"",?79,"" Line Location: HD+28
Function Call: WRITE	Prompt: !?10,"",?25,"Drugs ("_^TMP($J,DFN)_")",?60,"SIG",?79,"" Line Location: HD+29
Function Call: WRITE	Prompt: !?10,"* " Line Location: HD+30
Function Call: WRITE	Prompt: "-" Line Location: HD+30
Function Call: WRITE	Prompt: ?52 Line Location: HD+31
Function Call: WRITE	Prompt: "-" Line Location: HD+31
Function Call: WRITE	Prompt: ?79,"*" Line Location: HD+32
Function Call: WRITE	Prompt: !?10 Line Location: FT+0
Function Call: WRITE	Prompt: "*" Line Location: FT+0
Function Call: WRITE	Prompt: !!,$C(7),"There are no clinics defined for this Clinic Group!",!,$C(7) Line Location: CLSG+4
Function Call: WRITE	Prompt: ! Line Location: CLSG+13
Function Call: WRITE	Prompt: !,"Report Queued to Print !!",!! Condition for execution: $D(ZTSK) Line Location: CLSG+13
Function Call: WRITE	Prompt: ! Line Location: CLSG+14
Function Call: WRITE	Prompt: !?99,"COSIGNER: "_$P($G(^VA(200,$P(^PSRX(J,3),"^",3),0)),"^") Line Location: COS+0
Routine Call	DIC Line Location: CLSG+2
Routine Call	%ZIS Line Location: CLSG+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(59.8 - [#59.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(59.8 - [#59.8]	CLSG+4, EN+3
^PSRX - [#52]	PSOSDP+5, PSOSDP+7, SIG, SIG+1, COS
^TMP($J	PSOSDP+4, PSOSDP+5, HD+29
^VA(200 - [#200]	COS

Label References

Name	Line Occurrences
CLSG	CLSG+2, CLSG+4, CLSG+5
EXIT	CLSG+6, CLSG+10, CLSG+13
FT	PSOSDP+6, PSOSDP+8, PSOSDP+10
HD	PSOSDP+4, PSOSDP+6, PSOSDP+8
SIG	PSOSDP+7

Naked Globals

Name	Field # of Occurrence
^(2	PSOSDP+5
^(3	PSOSDP+5, COS

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	CLSG+5, CLSG+7!, CLSG+14
%DT("A"	CLSG+5, CLSG+14
%DT("B"	CLSG+14*
%DT(0	CLSG+14*
%ZIS	CLSG+7!*
%ZIS("A"	CLSG+7*
%ZIS("B"	CLSG+7*
%ZIS("S"	CLSG+8*
ADDRFL	HD+1*, HD+9, HD+10, EXIT!
>> ALL	EN+1*
APCLDT	CLSG+5*, EN+3, EXIT+3!
>> APIFLDS	EN+1*
APQUE	EXIT+2!
APRT	CLSG+11*, CLSG+16, EXIT+2!
APTM	CLSG+14*, CLSG+16, EXIT+2!
BSIG	PSOSDP+9!, SIG!
BSIG(	PSOSDP+8, SIG*
BSIG(1	PSOSDP+7, PSOSDP+8
CAN	EXIT!
CLDT	HD+7, CLSG+5, EN+3, EXIT!
CLINICX	HD+7, EXIT!
CLN	EN+2, EN+3, EXIT+2!
CLSG	CLSG+3*, CLSG+4, EN+3, EXIT!
CLSP	CLSG+1*, EXIT!
CNT	EXIT!
CS	EXIT!
DFN	PSOSDP+4, PSOSDP+5, HD, HD+18, HD+19, HD+29, EXIT!
>> DIC	CLSG+2*
>> DIC("A"	CLSG+1*
>> DIC(0	CLSG+2*
DIR	CLSG+12!
DIRUT	CLSG+6, CLSG+12!, CLSG+14
>> DOD(	PSOSDP+4
DQTIME	EXIT+2!
>> DRG	PSOSDP+4, PSOSDP+5, PSOSDP+7
DT	HD+3, CLSG+6
DTOUT	CLSG+12!
F	EXIT+2!
>> FN	HD*
>> FR	EN+3*
FSIG	SIG!, SIG+1!
FSIG(	SIG
G	CLSG+15*, EXIT!
HT	HD+19*, HD+20!
>> I	HD+21, HD+26, HD+27, HD+28, HD+30, HD+31, FT*
IO("Q"	CLSG+13
IOF	HD+3
IOM	HD+6, HD+21
ION	CLSG+7, CLSG+11
IOP	CLSG+7!, CLSG+10*
IOSL	PSOSDP+6, PSOSDP+8
>> J	COS
>> LINE	HD+6, HD+21, CLSG+5*
O	EXIT+2!
>> P	PSOSDP+4, PSOSDP+5, PSOSDP+7, SIG, SIG+1
PAGE	HD+3*, EXIT!
PCLASS	EXIT!
PIIX	EXIT+1!
>> POP	CLSG+10
PRF	EXIT!
PSDATE	CLSG+6*, EXIT!
PSDAY	EXIT+1!
PSDAYS	CLSG+6, EXIT+1!
>> PSDOB	HD+2*, HD+8
PSDT	EXIT+1!
PSNAME	HD+2*, HD+8, HD+22, EXIT+1!
PSOBAR0	HD+12, CLSG+9~
PSOBAR1	HD+12, CLSG+9~
>> PSOBAR2	HD+12*, HD+13, HD+14
>> PSOBAR3	HD+12*, HD+13, HD+14
>> PSOBAR4	HD+13*, HD+14
PSOBARS	CLSG+9~
PSOGY	PSOSDP+10!
PSOION	CLSG+7*, CLSG+10!, EXIT+2!
PSONUM	PSOSDP+4, HD+23, EXIT+1!
>> PSOPAR	HD+13
>> PSOPOLP	PSOSDP+4*
PSORM	HD+6, HD+14, HD+21, EXIT+2!
PSOT	EN+3*, EXIT+1!
PSOUT	EXIT+2!
PSREV	PSOSDP+8, PSOSDP+9!, SIG, SIG+1!
PSSN	HD+1*, HD+14, EXIT+1!
PSTYPE	CLSG+6*, CLSG+7, CLSG+8, EXIT+1!
RF	EXIT+1!
RFS	EXIT+1!
>> RX0	PSOSDP+5*
>> RX2	PSOSDP+5*
>> RX3	PSOSDP+5*
RXNO	EXIT+1!
RXNODE	EXIT+2!
SGY	PSOSDP+4!, PSOSDP+5!
>> SIG	PSOSDP+7*
>> TO	EN+3*
U	HD+18, HD+19
>> VA("BID"	HD+22
>> VA("PID"	HD+1
>> VADM(1	HD+2
>> VADM(3	HD+2
>> VAPA(1	HD+11
>> VAPA(2	HD+11
>> VAPA(3	HD+11
>> VAPA(4	HD+11
>> VAPA(5	HD+11
>> VAPA(6	HD+11
>> VAPA(8	HD+11
>> VAPA(9	HD+1
VM	HD+20!
W	EXIT+2!
WT	HD+18*, HD+20!
>> X	HD+3, HD+6, HD+14, CLSG+2, CLSG+5, CLSG+6, CLSG+14
>> X1	HD+14, CLSG+6
>> X2	HD+14, CLSG+6
>> Y	HD+3, HD+7, CLSG+2, CLSG+3, CLSG+5, CLSG+14
ZTDESC	CLSG+16*, EXIT+2!
>> ZTDTH	CLSG+16*
>> ZTIO	CLSG+16*
ZTQUEUED	CLSG+7!, EXIT+4
>> ZTRTN	CLSG+16*
>> ZTSAVE(	CLSG+15*
>> ZTSAVE("APCLDT"	CLSG+16*
>> ZTSAVE("APRT"	CLSG+16*
>> ZTSAVE("ZTREQ"	CLSG+16*
ZTSK	CLSG+7!, CLSG+13

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOSDP

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: