Routine: PSOHELP3

Information

PSOHELP3 ;BHAM ISC/SAB - outpatient utility routine #4 ;2/17/93 18:00:36

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA FileMan	5	^%DT C^%DTC ^DIC EN^DIQ1 ^DIR
Kernel	2	^%ZTLOAD BMES^XPDUTL

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 8

Package	Total	Caller Graph
Outpatient Pharmacy	7	PSO RXCOST UPDATE PSODIR PSOHELP PSONEW1 PSOORED1 PSOORNE1 PSOORNW2
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
XREF	;code to create 'APD' xref on Drug Interaction file (#56)
EX
SEC
DRUG	;selects drug and updates Rx file with cost (pso720)
EN
OUT
POST	;post install entry point. builds new "ADL" xref for file 52 pso720
EN1
REFILL	;
PARTIAL	;
INSCHK(PSOINS)	;CHECK PATIENT INSTRUCTIONS/OTHER PATIENT INSTRUCTIONS ;*422
DELINS

External References

Name	Field # of Occurrence
^%DT	DRUG+12, DRUG+13
C^%DTC	DRUG+10, EN1
^%ZTLOAD	DRUG+24, POST+2
^DIC	DRUG+4
EN^DIQ1	DRUG+7
^DIR	DRUG+8, DRUG+20, DELINS+5
BMES^XPDUTL	POST+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Building 'APD' X-Ref." Line Location: XREF+1
Function Call: WRITE	Prompt: !!,"This option will update the drug cost on all fills in the PRESCRIPTION" Line Location: DRUG+1
Function Call: WRITE	Prompt: !,"file (#52) based on the selected date range and the current cost in the" Line Location: DRUG+2
Function Call: WRITE	Prompt: !,"DRUG file (#50).",! Line Location: DRUG+3
Function Call: WRITE	Prompt: ! Line Location: DRUG+8
Function Call: WRITE	Prompt: !!,"You can only go back One Year plus 120 days." Line Location: DRUG+11
Function Call: WRITE	Prompt: !!,"Rxs Cost Update Queued",! Line Location: DRUG+24
Function Call: WRITE	Prompt: !,"DEF: "_DEF Line Location: EN1+0
Function Call: WRITE	Prompt: $C(7),!!?5,"OTHER PATIENT INSTRUCTIONS REQUIRED",! Line Location: INSCHK+3
Function Call: WRITE	Prompt: $C(7),!!?5,"PATIENT INSTRUCTIONS REQUIRED",! Line Location: INSCHK+4
Function Call: WRITE	Prompt: $C(7),!!?5,"ANY DATA ENTERED FOR "_$S($G(PSODELINS)=1:"OTHER PATIENT INSTRUCTIONS",1:"PATIENT INSTRUCTIONS") Line Location: DELINS+3
Function Call: WRITE	Prompt: $C(7),!?5,"WILL ALSO BE DELETED.",! Line Location: DELINS+4
Routine Call	DIC Line Location: DRUG+4
Routine Call	DIR Line Location: DRUG+8 DRUG+20 DELINS+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DRUG+10
^PS(50.416 - [#50.416]	XREF+4, XREF+5, XREF+6, XREF+7
^PS(55 - [#55]	INSCHK+1, DELINS+1
^PS(56 - [#56]	XREF+3, XREF+8, SEC!, SEC+1
^PSRX - [#52]	EN+4*, EN1+2, REFILL+5, REFILL+6, PARTIAL+5, PARTIAL+6
^PSRX("AD"	EN1+1, REFILL+2, REFILL+4, REFILL+6
^PSRX("ADL"	EN+1, EN+3, EN1!, EN1+2*
^PSRX("ADP"	PARTIAL+2, PARTIAL+4, PARTIAL+6

Label References

Name	Line Occurrences
OUT	DRUG+5, DRUG+20, DRUG+21, EN+5
PARTIAL	EN+6
REFILL	EN+6
SEC	XREF+4, XREF+5, XREF+6, XREF+7

Naked Globals

Name	Field # of Occurrence
^(	XREF+4, XREF+5, XREF+6, XREF+7
^(0	XREF+3, EN1+2, REFILL+6, PARTIAL+6
^(2	EN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DRUG+12*, DRUG+14!
%DT("A"	DRUG+12, DRUG+13
%DT("B"	DRUG+12*!
%DT(0	DRUG+12, DRUG+13
COST	DRUG+7*, DRUG+8!, DRUG+12!, DRUG+14!, EN+4, OUT!, REFILL+6, PARTIAL+6
D2	XREF+4, XREF+5, XREF+6, XREF+7, EX!, SEC, SEC+1
DA	XREF+3, XREF+8, SEC, SEC+1, DRUG+4!, DRUG+6*, DRUG+7!
DEF	DRUG+10, DRUG+12!, EN1, EN1+1*, EN1+3!
>> DEL	SEC
DIC	DRUG+4!, DRUG+6!, DRUG+7!
DIC(0	DRUG+4*
DIQ	DRUG+6!*, DRUG+7!
DIQ(0	DRUG+6*
DIR	DRUG+7!, DRUG+8!, DRUG+20!, DELINS+2~, DELINS+8!
DIR("A"	DRUG+8, DRUG+20, DELINS+5*
DIR("B"	DRUG+8, DRUG+20, DELINS+5*
DIR(0	DRUG+8, DRUG+20, DELINS+5*
>> DIROUT	DELINS+6
DIRUT	DRUG+8, DRUG+20, OUT!, DELINS+2~, DELINS+8!
DR	DRUG+6!*, DRUG+7!
DRG	DRUG+6*, DRUG+8!, DRUG+12!, DRUG+14!, EN+3, EN+4, OUT!, REFILL+5, PARTIAL+5
DT	DRUG+10, DRUG+16, EN1
>> DTOUT	DRUG+12, DRUG+14, DELINS+6
>> DUOUT	DRUG+4, DELINS+6
FAHD	DRUG+15*, DRUG+16, EN+1, EN+2, OUT!, REFILL+2, REFILL+3, PARTIAL+2, PARTIAL+3
FBCK	DRUG+13*, DRUG+14!, EN+1, OUT!, REFILL+2, PARTIAL+2
FDT	EN+1, EN+2, EN+3, EN+4, OUT!, REFILL+1~, REFILL+2, REFILL+3, REFILL+4, REFILL+6 , PARTIAL+1~, PARTIAL+2*, PARTIAL+3, PARTIAL+4, PARTIAL+6
FILL	REFILL+1~, REFILL+6, PARTIAL+1~, PARTIAL+6
FTY	EN1+1*, EN1+3!
G	DRUG+23*, OUT!
I	OUT!
I1	XREF+4, XREF+5, XREF+6, XREF+7, EX!
I2	XREF+4, XREF+7, EX!
I3	XREF+5, XREF+7, EX!
I4	EX!
I5	XREF+5, XREF+6, EX!
I6	XREF+5, XREF+6, EX!
ID1	XREF+3*, XREF+4, XREF+5, XREF+6, XREF+7, EX!
ID2	XREF+3*, XREF+4, XREF+5, XREF+6, XREF+7, EX!
IFN	EN1+1*, EN1+2, EN1+3!
PRI	EX!
PS1	EX!
PS2	EX!
>> PSMSG	XREF+4
>> PSODELINS	DELINS+3, DELINS+7*
>> PSODFN	INSCHK+1, DELINS+1
>> PSODONE	DELINS+7*
PSODRG	DRUG+7!
PSODRG(50	DRUG+7
PSOFUTR	DRUG+16*, EN+2, OUT!, REFILL+3, PARTIAL+3
PSOINS	INSCHK~
PSOINS("DFLG"	INSCHK+2
PSOINS("INS"	INSCHK+3, INSCHK+4
PSOINS("SINS"	INSCHK+3, INSCHK+4
PSOQ	DRUG+21*, EN, EN+3, OUT!
R2	XREF+4, XREF+5, XREF+6, XREF+7, EX!, SEC, SEC+1
REF	DRUG+9*, DRUG+12!, DRUG+14!, EN+5, OUT!
RXN	EN+3, EN+4, OUT!, REFILL+1~, REFILL+4, REFILL+5, REFILL+6, PARTIAL+1~, PARTIAL+4*, PARTIAL+5 , PARTIAL+6
TOT	XREF+3, XREF+8, EX!, SEC+1
X	DRUG+4!, DRUG+8!, DRUG+10, DRUG+12!, DRUG+14!, DRUG+20!, OUT!, EN1, EN1+3!, DELINS+2~ , DELINS+6*
>> X1	DRUG+10, EN1
>> X2	DRUG+10, EN1
Y	DRUG+4!, DRUG+5, DRUG+6, DRUG+8!, DRUG+9, DRUG+10, DRUG+12!, DRUG+13, DRUG+14!, DRUG+15 , DRUG+20!, DRUG+21, OUT!, EN1+3!, DELINS+2~, DELINS+6, DELINS+7
>> ZTDESC	DRUG+22, POST+1
ZTDTH	DRUG+21!, POST+2*
>> ZTIO	DRUG+22, POST+1
>> ZTQUEUED	OUT
>> ZTREQ	OUT, EN1+3
>> ZTRTN	DRUG+22, POST+1
>> ZTSAVE(	DRUG+23*
ZTSK	DRUG+24!, POST+2!

Customize PDF page

Package: Outpatient Pharmacy