Routine: PSOLBL1

Package	Total	Call Graph
Outpatient Pharmacy	1	CHCK2^PSOTRLBL
Registration	1	(6,PID)^VADPT
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOLBL

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	SIG+9
CHCK2^PSOTRLBL	SIG+14
6^VADPT	OSET+1, OSET+5
PID^VADPT	OSET+1, OSET+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?100,"(PARTIAL)" Condition for execution: +$G(RXP) Line Location: START+1
Function Call: WRITE	Prompt: ?110,"(REPRINT)" Condition for execution: $D(REPRINT) Line Location: START+1
Function Call: WRITE	Prompt: !,$P(PS,"^",2) Line Location: START+2
Function Call: WRITE	Prompt: ?102,"(Filled at ",$P(PS2,"^",2),")" Condition for execution: ('SIDE)&(PRTFL) ?40,"INSTRUCTION ON REVERSE SIDE OF THIS FORM" W:'SIDE Line Location: START+2
Function Call: WRITE	Prompt: !,?2,PNM Line Location: START+5
Function Call: WRITE	Prompt: ?83,"INDICATE ANY ADDRESS CHANGES" Condition for execution: 'SIDE ?38,PNM,?64,"EXPIRES: ",EXDT W:('SIDE)&(PRTFL) Line Location: START+5
Function Call: WRITE	Prompt: !,?2,$S($D(PSMP(1)):PSMP(1),1:VAPA(1)) Line Location: START+6
Function Call: WRITE	Prompt: ?83,LINE Condition for execution: 'SIDE ?38,$E(VAPA(1),1,25),?64,"REFILLS: ",REF ;W:('SIDE)&(PRTFL) Line Location: START+6
Function Call: WRITE	Prompt: ?38,$S(ADDR(3)'="":ADDR(5),1:""),?64,"ROUTING: ",$S(MW="REGULAR":"MAIL",1:MW) W:PRTFL ?83,"CITY/STATE/ZIP: ",$E(LINE,1,16) W:'PRTFL Line Location: START+14
Function Call: WRITE	Prompt: !,?40 Line Location: START+16
Function Call: WRITE	Prompt: @PSOBAR1,X2,@PSOBAR0,$C(13),!,$S($G(PS55)=2:"*DO NOT MAIL",1:"CRITICAL MEDICAL SHIPMENT*"),! Line Location: START+16
Function Call: WRITE	Prompt: ! Line Location: START+17
Function Call: WRITE	Prompt: $S($G(PS55)=2:"*DO NOT MAIL",1:"CRITICAL MEDICAL SHIPMENT*") Condition for execution: NLWS=5 Line Location: START+17
Function Call: WRITE	Prompt: ?38,INT(1) Line Location: START+18
Function Call: WRITE	Prompt: ?38,INT(3) Line Location: START+20
Function Call: WRITE	Prompt: ?83,"********************************" Condition for execution: (PRTFL)&('REF) ?83,"* FOR PHYSICIAN USE ONLY ***" W:'PRTFL Line Location: START+20
Function Call: WRITE	Prompt: !,PNM,?29,"#",$P(RXY,"^",7) Line Location: START+21
Function Call: WRITE	Prompt: $C(13),# Line Location: SIG+5
Function Call: WRITE	Prompt: ! Line Location: SIG+6
Function Call: WRITE	Prompt: !,X Line Location: SIG1+0
Function Call: WRITE	Prompt: "DATE: ",$E(LINE,1,10) Condition for execution: DR=2 Line Location: SIG1+1
Function Call: WRITE	Prompt: "Refills: 0 1 2 3 4 5 6 7 8 9 10 11" Condition for execution: (DR=2)&('REF) " DEA# ",$E(LINE,1,6) W:(DR=3)&('REF) Line Location: SIG1+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	START+8, START+10
^PSRX - [#52]	SIG+9, SIG+10, SIG+11, SIG+12, SIG+13*, OSET+1, OSET+2, OSET+3, OSET+4, OSET+5 , OSET+6
^VA(200 - [#200]	OSET+1, OSET+4, OSET+5

Label References

Name	Line Occurrences
SIG1	SIG
START	SIG+7

Naked Globals

Name	Field # of Occurrence
^(0	OSET+1, OSET+4, OSET+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	SIG+9!
%DT	END!
%H	SIG+9!, END!
%I	SIG+9!
ADDR	END!
ADDR(2	START+8, START+9, START+11
ADDR(3	START+8, START+9, START+11, START+14
ADDR(5	START+10*, START+11, START+14
COPIES	START*, SIG+7, END!
DATE	START+20, START+22, END!
>> DAYS	OSET+2, OSET+6
DEA	END!
DOB	END!
DR	SIG, SIG+1, END!, SIG1, SIG1+1
DR1	END!
DRUG	SIG+3, SIG+4, END!
DRX	END!
DT	START+1
>> EXDT	START+5
FDA	SIG+10*, SIG+13!
FDT	END!
I	SIG+1, SIG+9, SIG+13!
I1	START+22*, END!
INT	END!
INT(1	START+18
INT(2	START+19
INT(3	START+20
IR	SIG+10, SIG+11, SIG+12, SIG+13!
ISD	SIG+3, END!
LIM	END!
LINE	START+13, START+14, START+22, END!, SIG1+1
LMI	END!
>> LOT	OSET+2, OSET+6
MAIL	END!
>> MFG	OSET+2, OSET+6
MW	START+4, START+14, END!
>> NLWS	START+17*
NOW	SIG+9*, SIG+12, SIG+13!
PATST	SIG+4, END!
>> PCOMX	SIG+12
>> PDUZ	SIG+12
PHYS	SIG+3, SIG+4, END!, OSET+1, OSET+5
PNM	START+5, START+21, END!
PRTFL	START+1, START+2, START+5, START+7, START+13, START+14, START+19, START+20, START+22, END! , SIG1+1
PS	START+2, START+3, START+19, END!
PS1	END!
PS2	START+2, START+3, END!
PS55	START+16, START+17, END!
PS55X	END!
>> PSCAP	START+22
PSCLN	SIG+4, END!
PSI	END!
PSJ	END!
PSMP	END!
PSMP(1	START+6, START+11, START+14
PSMP(2	START+11
PSMP(3	START+14
>> PSOBAR0	START+16
>> PSOBAR1	START+16
>> PSOBARS	START+16, SIG+5
>> PSOINST	START+16
>> PSOLASTF	START+12
>> PSOPAR	START+16, SIG+14
>> PSSPND	SIG+14
>> QTY	OSET+1, OSET+5
>> REF	START+1, START+6, START+20, SIG1+1
REPRINT	START+1, SIG+12, END!
RFL	END!
RFLMSG	START+11, SIG+4, END!
>> RX	START+16, SIG+9, SIG+10, SIG+11, SIG+12, SIG+13, OSET, OSET+1, OSET+2, OSET+3 , OSET+4, OSET+5, OSET+6
RXF	START+20, SIG+3, SIG+9*, SIG+12, SIG+13!
>> RXFL(	OSET, OSET+3!, OSET+4, OSET+5, OSET+6
>> RXN	START+4, START+20
>> RXP	START+1, SIG+12
>> RXPI	SIG+12
RXY	START+20, START+21, SIG+3, END!
RXZ	END!
RYY	END!
S	END!
SGC	SIG, SIG+1, END!
SGY	END!
SGY(	SIG+1, SIG1
SIDE	START+1, START+2, START+3, START+4, START+5, START+6, START+7, START+11, START+12, START+13 , START+14, START+16, START+18, START+19, START+20, START+22, SIG+1, SIG+3, SIG+4, SIG+7* , END!, SIG1+1
SL	END!
SS	END!
SSNP	START+4, END!
>> SSNPN	OSET+1, OSET+5
ST	END!
ST1	END!
STATE	START+3, END!
>> TECH	OSET+1, OSET+4
>> VAPA(1	START+6
>> VAPA(2	START+8
>> VAPA(3	START+8
>> VAPA(4	START+8, START+10
>> VAPA(5	START+8, START+10
>> VAPA(6	START+8, START+10
VRPH	SIG+3, END!
>> WARN	START+22
>> X	START+16, SIG+1, SIG1*, SIG1+1
>> X1	START+16*
>> X2	START+16*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOLBL1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
SIG1
START
SIG
OSET
END